| Current Path : /usr/share/emacs/24.3/lisp/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/userlock.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:33 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/userlock.el
;;; in Emacs version 24.3.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put file-locked error-conditions (file-locked file-error error) error-message "File is locked"] 4)
#@400 Ask user what to do when he wants to edit FILE but it is locked by OPPONENT.
This function has a choice of three things to do:
do (signal 'file-locked (list FILE OPPONENT))
to refrain from editing the file
return t (grab the lock on the file)
return nil (edit the file even though it is locked).
You can redefine this function to choose among those three alternatives
in any way you like.
(defalias 'ask-user-about-lock #[(file opponent) "\306 \210\307 \310\216\311\211\211\fG\312V\203! \313\f\211G\312Z\311OP\202\" \f
G\314V\203C \315 #\316\216\317\320
\"\210
\321\322O\313\323\321
\"Q*\202D
\204\244 \324\325 \n#\210\326\211 $ %\327 \227\311&*\211 '(U\203k \330 \210\202\240 \331'\332\"\211\204\203 \333 \210\324\334!\210\335\336!\210\202\240 A\337=\203\222 \330 \210\311\202\240 A\340=\203\240 \341\342\f
D\"\210)\202E A-\207" [#1=#:wconfig short-file short-opponent answer file opponent discard-input current-window-configuration ((set-window-configuration #1#)) nil 22 "..." 25 match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) string-match " (pid [0-9]+)" 0 13 match-string message "%s locked by %s: (s, q, p, ?)? " t read-char ask-user-about-lock-help assoc ((115 . t) (113 . yield) (7 . yield) (112) (63 . help)) beep "Please type q, s, or p; or ? for help" sit-for 3 help yield signal file-locked save-match-data-internal cursor-in-echo-area inhibit-quit quit-flag tem help-char] 6 (#$ . 708)])
(defalias 'ask-user-about-lock-help #[nil "r\306\307!q\210p\310 \210 \311\211\312\211\312 \313 \210\314\315!\210+\211 \316\317!\210rq\210\320 )\321!\210+\207" [default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks get-buffer-create "*Help*" kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook princ "It has been detected that you want to modify a file that someone else has\nalready started modifying in Emacs.\n\nYou can <s>teal the file; the other user becomes the\n intruder if (s)he ever unmodifies the file and then changes it again.\nYou can <p>roceed; you edit at your own (and the other user's) risk.\nYou can <q>uit; don't modify this file." help-mode internal-temp-output-buffer-show inhibit-read-only #2=#:buf standard-output] 4])
(put 'file-supersession 'error-conditions '(file-supersession file-error error))
#@425 Ask a user who is about to modify an obsolete buffer what to do.
This function has two choices: it can return, in which case the modification
of the buffer will proceed, or it can (signal 'file-supersession (file)),
in which case the proposed buffer modification will not be made.
You can rewrite this to use any criterion you like to choose which one to do.
The buffer in question is current when this function is called.
(defalias 'ask-user-about-supersession-threat #[(fn) "\306 \210\307 \310\216\311\312\313 !\"\314\315 \n\204R \316\f \"\211\317>\203+ \320 \210\315\211\202 \n\321=\203B \322\315\323 ?\"\210\324\325\326 D\"\210\202 \n\327=\203 \324\325\330 D\"\210\202 \331\332!\210\315\211-\207" [#1=#:wconfig fn answer choices prompt buffer-backed-up discard-input current-window-configuration ((set-window-configuration #1#)) format "%s changed on disk; really edit the buffer? (y, n, r or C-h) " file-name-nondirectory (121 110 114 63 8) nil read-char-choice (63 8) ask-user-about-supersession-help 114 revert-buffer buffer-modified-p signal file-supersession "File reverted" 110 "File changed on disk" message "File on disk now will become a backup file if you save these changes."] 5 (#$ . 3112)])
(defalias 'ask-user-about-supersession-help #[nil "r\306\307!q\210p\310 \210 \311\211\312\211\312 \313 \210\314\315!\210+\211 \316\317!\210rq\210\320 )\321!\210+\207" [default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks get-buffer-create "*Help*" kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook princ "You want to modify a buffer whose disk file has changed\nsince you last read it in or saved it with this buffer.\n\nIf you say `y' to go ahead and modify this buffer,\nyou risk ruining the work of whoever rewrote the file.\nIf you say `r' to revert, the contents of the buffer are refreshed\nfrom the file on disk.\nIf you say `n', the change you started to make will be aborted.\n\nUsually, you should type `n' and then `M-x revert-buffer',\nto get the latest version of the file, then make the change again." help-mode internal-temp-output-buffer-show inhibit-read-only #2=#:buf standard-output] 4])