;ELC ;;; compiled by erik@naggum.no on Sat May 18 16:20:18 1996 ;;; from file /home/gd/gnu/emacs/19.0/lisp/emacs-lock.el ;;; emacs version 19.30.99.1. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`emacs-lock.el' was compiled for Emacs 19.29 or later")) #@70 Whether emacs is locked to prevent exiting. See `check-emacs-lock'. (defvar lock-emacs-from-exiting nil (#$ . 475)) (make-variable-buffer-local (quote lock-emacs-from-exiting)) #@134 Check if variable `lock-emacs-from-exiting' is t for any buffer. If any t is found, signal error and display the locked buffer name. (defalias 'check-emacs-lock #[nil "À Š …! @qˆ\nƒÃÄÅ \"ˆ‚ A‰„Æ*‡" [buffer-list buffers lock-emacs-from-exiting error "Emacs is locked from exit due to buffer: %s" buffer-name nil] 4 (#$ . 660)]) #@100 Toggle `lock-emacs-from-exiting' between t and nil for the current buffer. See `check-emacs-lock'. (defalias 'toggle-emacs-lock #[nil "ƒ Á‚ ƒÃÄ!‡ÃÅ!‡" [lock-emacs-from-exiting nil t message "Emacs is now locked from exiting." "Emacs is now unlocked."] 2 (#$ . 1003) nil]) (add-hook (quote kill-emacs-hook) (quote check-emacs-lock))