Function: emacs-lock--kill-emacs-query-functions

emacs-lock--kill-emacs-query-functions is a byte-compiled function defined in emacs-lock.el.gz.

Signature

(emacs-lock--kill-emacs-query-functions)

Documentation

Display a message if any buffer is exit-locked.

Return a value appropriate for kill-emacs-query-functions (which see).

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lock.el.gz
(defun emacs-lock--kill-emacs-query-functions ()
  "Display a message if any buffer is exit-locked.
Return a value appropriate for `kill-emacs-query-functions' (which see)."
  (let ((locked (emacs-lock--exit-locked-buffer)))
    (if (not locked)
        t
      (run-hook-with-args 'emacs-lock-locked-buffer-functions locked)
      (message "Emacs cannot exit because buffer %S is locked"
               (buffer-name locked))
      nil)))