Commit c37bdd00 authored by Charles A. Roelli's avatar Charles A. Roelli

Make help for file supersession more readable

* lisp/userlock.el (ask-user-about-supersession-help): Use
'substitute-command-keys' to show the command key for
"\\[revert-buffer]" properly.
parent fddb915d
Pipeline #958 failed with stage
in 60 minutes and 1 second
...@@ -174,7 +174,9 @@ really edit the buffer? (y, n, r or C-h) " ...@@ -174,7 +174,9 @@ really edit the buffer? (y, n, r or C-h) "
(defun ask-user-about-supersession-help () (defun ask-user-about-supersession-help ()
(with-output-to-temp-buffer "*Help*" (with-output-to-temp-buffer "*Help*"
(princ "You want to modify a buffer whose disk file has changed (princ
(substitute-command-keys
"You want to modify a buffer whose disk file has changed
since you last read it in or saved it with this buffer. since you last read it in or saved it with this buffer.
If you say `y' to go ahead and modify this buffer, If you say `y' to go ahead and modify this buffer,
...@@ -184,7 +186,7 @@ from the file on disk. ...@@ -184,7 +186,7 @@ from the file on disk.
If you say `n', the change you started to make will be aborted. If you say `n', the change you started to make will be aborted.
Usually, you should type `n' and then `\\[revert-buffer]', Usually, you should type `n' and then `\\[revert-buffer]',
to get the latest version of the file, then make the change again.") to get the latest version of the file, then make the change again."))
(with-current-buffer standard-output (with-current-buffer standard-output
(help-mode)))) (help-mode))))
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment