| Server IP : 217.160.0.212 / Your IP : 216.73.217.5 Web Server : Apache System : Linux www 6.18.52-i1-ampere #1203 SMP Mon Sep 14 18:29:59 CEST 2026 aarch64 User : sws1073854427 ( 1073854427) PHP Version : 8.4.23 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /usr/share/emacs/28.2/lisp/obsolete/ |
Upload File : |
;ELC ;;; Compiled ;;; in Emacs version 28.2 ;;; with all optimizations. #@70 Whether Emacs is locked to prevent exiting. See `check-emacs-lock'. (defvar emacs-lock-from-exiting nil (#$ . 84)) (make-variable-buffer-local 'emacs-lock-from-exiting) #@74 Whether a shell or telnet buffer was locked when its process was killed. (defvar emacs-lock-buffer-locked nil (#$ . 260)) (byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local emacs-lock-buffer-locked put permanent-local t] 4) #@141 Check if variable `emacs-lock-from-exiting' is t for any buffer. If any locked buffer is found, signal error and display the buffer's name. (defalias 'check-emacs-lock #[0 "\212\301 \211\205 \211@\211q\210\203 \302\303\304 \"\210A\266\202\202 \262)\207" [emacs-lock-from-exiting buffer-list error "Emacs is locked from exit due to buffer: %s" buffer-name] 5 (#$ . 516)]) #@82 Toggle `emacs-lock-from-exiting' for the current buffer. See `check-emacs-lock'. (defalias 'toggle-emacs-lock #[0 "?\211\203 \301\302!\207\301\303!\207" [emacs-lock-from-exiting message "Buffer is now locked" "Buffer is now unlocked"] 3 (#$ . 899) nil]) #@124 Check if variable `emacs-lock-from-exiting' is t for a buffer. If the buffer is locked, signal error and display its name. (defalias 'emacs-lock-check-buffer-lock #[0 "\205 \301\302\303 \"\207" [emacs-lock-from-exiting error "Buffer `%s' is locked, can't delete it" buffer-name] 3 (#$ . 1163)]) (defalias 'emacs-lock-shell-sentinel #[0 "\300\301\302 !\303\"\207" [set-process-sentinel get-buffer-process buffer-name emacs-lock-clear-sentinel] 3]) #@17 (fn PROC STR) (defalias 'emacs-lock-clear-sentinel #[514 "\203\f \302\303\304\305!\207\302\211\207" [emacs-lock-from-exiting emacs-lock-buffer-locked nil t message "Buffer is now unlocked"] 4 (#$ . 1618)]) (defalias 'emacs-lock-was-buffer-locked #[0 "\205 \302\211\207" [emacs-lock-buffer-locked emacs-lock-from-exiting t] 2]) (byte-code "\204 \301\302\303\"\210\301\304\305\"\210\301\306\307\"\210\301\306\310\"\210\301\311\307\"\210\301\311\310\"\210\312\313!\207" [noninteractive add-hook kill-emacs-hook check-emacs-lock kill-buffer-hook emacs-lock-check-buffer-lock shell-mode-hook emacs-lock-was-buffer-locked emacs-lock-shell-sentinel telnet-mode-hook provide emacs-lock] 3)