;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313\314DD\315\316\317\306\301\304\305&	\210\310\320\312\313\321DD\322\316\323\306\301\304\305&	\210\310\324\312\313\325DD\326\316\327\306\301\304\330&	\210\331\332\333\302#\210\334\211\203f\211@\332
N\203_\333
N\204_\335\333\332N#\210
A\266\202\202E\210\336\332\333\305#\207" [custom-declare-group emacs-lock nil "Emacs-Lock mode." :version "24.1" :group convenience custom-declare-variable emacs-lock-default-locking-mode funcall function #[0 "\300\207" [all] 1 #1=""] "Default locking mode of Emacs-Locked buffers.\n\nIts value is used as the default for `emacs-lock-mode' (which\nsee) the first time that Emacs Lock mode is turned on in a buffer\nwithout passing an explicit locking mode.\n\nPossible values are:\n exit   -- Emacs cannot exit while the buffer is locked\n kill   -- the buffer cannot be killed, but Emacs can exit as usual\n all    -- the buffer is locked against both actions\n nil    -- the buffer is not locked" :type (choice (const :tag "Do not allow Emacs to exit" exit) (const :tag "Do not allow killing the buffer" kill) (const :tag "Do not allow killing the buffer or exiting Emacs" all) (const :tag "Do not lock the buffer" nil)) emacs-lock-unlockable-modes #[0 "\300\207" [((shell-mode . all) (telnet-mode . all))] 1 #1#] "Alist of auto-unlockable modes.\nEach element is a pair (MAJOR-MODE . ACTION), where ACTION is\none of `kill', `exit' or `all'.  Buffers with matching major\nmodes are auto-unlocked for the specific action if their\ninferior processes are not alive.  If this variable is t, all\nbuffers associated to inferior processes are auto-unlockable\nfor both actions (NOT RECOMMENDED)." (choice (const :tag "All buffers with inferior processes" t) (repeat :tag "Selected modes" (cons :tag "Set auto-unlock for" (symbol :tag "Major mode") (radio (const :tag "Allow exiting" exit) (const :tag "Allow killing" kill) (const :tag "Allow both" all))))) emacs-lock-locked-buffer-functions #[0 "\300\207" [nil] 1 #1#] "Abnormal hook run when Emacs Lock prevents exiting Emacs, or killing a buffer.\nThe functions get one argument, the first locked buffer found." hook "24.3" defvaralias emacs-lock-from-exiting emacs-lock-mode (saved-value saved-variable-comment) put make-obsolete-variable] 10)
#@425 If non-nil, the current buffer is locked.
It can be one of the following values:
 exit   -- Emacs cannot exit while the buffer is locked
 kill   -- the buffer cannot be killed, but Emacs can exit as usual
 all    -- the buffer is locked against both actions
 nil    -- the buffer is not locked

See also `emacs-lock-unlockable-modes', which exempts buffers under
some major modes from being locked under some circumstances.
(defvar emacs-lock-mode nil (#$ . 2385))
(byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local emacs-lock-mode put permanent-local t] 4)
#@64 Most recent locking mode set on the buffer.
Internal use only.
(defvar emacs-lock--old-mode nil (#$ . 2974))
(byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local emacs-lock--old-mode put permanent-local t] 4)
#@84 Non-nil if current buffer should be checked for auto-unlocking.
Internal use only.
(defvar emacs-lock--try-unlocking nil (#$ . 3212))
(byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local emacs-lock--try-unlocking put permanent-local t] 4)
#@84 Return t if BUFFER-OR-NAME is associated with a live process.

(fn BUFFER-OR-NAME)
(defalias 'emacs-lock-live-process-p #[257 "\300\301!!\205	\302\207" [process-live-p get-buffer-process t] 4 (#$ . 3480)])
#@148 Return t if the current buffer can auto-unlock for ACTION.
ACTION must be one of `kill' or `exit'.
See `emacs-lock-unlockable-modes'.

(fn ACTION)
(defalias 'emacs-lock--can-auto-unlock #[257 "\205 \303p!?\205 	\304=\206 \n	\236A\211\305=\206\211=\262
\207" [emacs-lock--try-unlocking emacs-lock-unlockable-modes major-mode emacs-lock-live-process-p t all] 4 (#$ . 3695)])
#@44 Return the first exit-locked buffer found.
(defalias 'emacs-lock--exit-locked-buffer #[0 "r\3012+\302 \211\203(\211@\211q\210\303\304!\204!\305>\204!\306\301\"\210
A\266\202\202\210\3070)\207" [emacs-lock-mode :found buffer-list emacs-lock--can-auto-unlock exit (nil kill) throw nil] 5 (#$ . 4081)])
#@88 Signal an error if any buffer is exit-locked.
Used from `kill-emacs-hook' (which see).
(defalias 'emacs-lock--kill-emacs-hook #[0 "\300 \211\205\301\302\"\210\303\304\305!\"\207" [emacs-lock--exit-locked-buffer run-hook-with-args emacs-lock-locked-buffer-functions error "Emacs cannot exit because buffer %S is locked" buffer-name] 5 (#$ . 4395)])
#@122 Display a message if any buffer is exit-locked.
Return a value appropriate for `kill-emacs-query-functions' (which see).
(defalias 'emacs-lock--kill-emacs-query-functions #[0 "\300 \211\204\301\207\302\303\"\210\304\305\306!\"\210\307\207" [emacs-lock--exit-locked-buffer t run-hook-with-args emacs-lock-locked-buffer-functions message "Emacs cannot exit because buffer %S is locked" buffer-name nil] 5 (#$ . 4754)])
#@131 Display a message if the current buffer is kill-locked.
Return a value appropriate for `kill-buffer-query-functions' (which see).
(defalias 'emacs-lock--kill-buffer-query-functions #[0 "\301\302!\204\f\303>\203\304\207\305\306p\"\210\307\310\311 \"\210\312\207" [emacs-lock-mode emacs-lock--can-auto-unlock kill (nil exit) t run-hook-with-args emacs-lock-locked-buffer-functions message "Buffer %S is locked and cannot be killed" buffer-name nil] 3 (#$ . 5182)])
#@55 Setter function for `emacs-lock-mode'.

(fn MODE ARG)
(defalias 'emacs-lock--set-mode #[514 "\211\304>\203\n\211\2028\211=\203):\203)\305\306\307\310	\"\311\312\313\312\211\314	!&!\2028
\313=\2037\n\2068	\2028
\211\207" [current-prefix-arg emacs-lock-default-locking-mode emacs-lock--old-mode emacs-lock-mode (all exit kill) intern completing-read format-prompt "Locking mode" ("all" "exit" "kill") nil t symbol-name] 12 (#$ . 5655)])
#@755 Toggle Emacs Lock mode in the current buffer.
If called with a plain prefix argument, ask for the locking mode
to be used.

Initially, if the user does not pass an explicit locking mode, it
defaults to `emacs-lock-default-locking-mode' (which see);
afterwards, the locking mode most recently set on the buffer is
used instead.

When called from Elisp code, ARG can be any locking mode:

 exit   -- Emacs cannot exit while the buffer is locked
 kill   -- the buffer cannot be killed, but Emacs can exit as usual
 all    -- the buffer is locked against both actions

Other values are interpreted as usual.

See also `emacs-lock-unlockable-modes', which exempts buffers under
some major modes from being locked under some circumstances.

(fn &optional ARG)
(defalias 'emacs-lock-mode #[256 "\306 
\307=\203
?\202
\247\203
\310W\203\311\202\312\313
\"\266\314\301!\2036\315\300	\"\2036\300	B\203P\312=\203H\316p!\202K\f\236\205O\312\317\320\203Z\321\202[\322\"\210\323\324!\203}\306 \203o\211\306 \232\203}\325\326\203y\327\202z\330\331#\210\210\332 \210\207" [emacs-lock-mode local-minor-modes emacs-lock--old-mode emacs-lock-unlockable-modes major-mode emacs-lock--try-unlocking current-message toggle 1 nil t emacs-lock--set-mode boundp delq emacs-lock-live-process-p run-hooks emacs-lock-mode-hook emacs-lock-mode-on-hook emacs-lock-mode-off-hook called-interactively-p any message "Emacs-Lock mode %sabled%s" "en" "dis" " in current buffer" force-mode-line-update] 6 (#$ . 6109) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar emacs-lock-mode-hook nil)
(byte-code "\302\303N\204\f\304\302\303\305#\210\304\302\306\307#\210\304\302\310\311C#\210\312\313\314\315\300!\205#\311\211%\210	\204:\316\317\320\"\210\316\321\322\"\210\316\323\324\"\210\311\207" [emacs-lock-mode-map noninteractive emacs-lock-mode-hook variable-documentation put "Hook run after entering or leaving `emacs-lock-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode emacs-lock-mode ("" (emacs-lock--try-unlocking " locked:" " Locked:") (:eval (symbol-name emacs-lock-mode))) boundp add-hook kill-buffer-query-functions emacs-lock--kill-buffer-query-functions kill-emacs-hook emacs-lock--kill-emacs-hook kill-emacs-query-functions emacs-lock--kill-emacs-query-functions] 6)
#@32 Unload the Emacs Lock library.
(defalias 'emacs-lock-unload-function #[0 "\30127\302 \211\2034\211@\211q\210\203-\303\304\305\306 \"!\203$\300\307!\210\202-\310\311!\210\312\301\313\"\210
A\266\202\202\210\3140\207" [emacs-lock-mode :continue buffer-list y-or-n-p format "Buffer %S is locked, unlock it? " buffer-name -1 message "Unloading of feature `emacs-lock' aborted." throw t nil] 6 (#$ . 8592)])
#@58 Toggle `emacs-lock-from-exiting' for the current buffer.
(defalias 'toggle-emacs-lock #[0 "\300\301!\207" [call-interactively emacs-lock-mode] 2 (#$ . 9009) nil])
(byte-code "\300\301\302\303#\210\304\305!\207" [make-obsolete toggle-emacs-lock emacs-lock-mode "24.1" provide emacs-lock] 4)