diff options
Diffstat (limited to 'lisp/emacs-lock.el')
| -rw-r--r-- | lisp/emacs-lock.el | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/lisp/emacs-lock.el b/lisp/emacs-lock.el index 5f393a01e8c..ba75a93035e 100644 --- a/lisp/emacs-lock.el +++ b/lisp/emacs-lock.el @@ -176,11 +176,12 @@ Return a value appropriate for `kill-buffer-query-functions' (which see)." arg) ((and (eq arg current-prefix-arg) (consp current-prefix-arg)) ;; called with C-u M-x emacs-lock-mode, so ask the user - (intern (completing-read "Locking mode: " - '("all" "exit" "kill") - nil t nil nil - (symbol-name - emacs-lock-default-locking-mode)))) + (intern (completing-read + (format-prompt "Locking mode" + emacs-lock-default-locking-mode) + '("all" "exit" "kill") + nil t nil nil + (symbol-name emacs-lock-default-locking-mode)))) ((eq mode t) ;; turn on, so use previous setting, or customized default (or emacs-lock--old-mode emacs-lock-default-locking-mode)) |