From: Charles A. Roelli <charles@aurox.ch>
Date: Sat, 9 Mar 2019 15:47:38 +0000 (+0100)
Subject: Make help for file supersession more readable
X-Git-Tag: emacs-27.0.90~3450
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c37bdd00c7dcabaa3ca8405d9dc5122ed36f27e0;p=emacs.git

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.
---

diff --git a/lisp/userlock.el b/lisp/userlock.el
index 1a1adebdde9..f077bc9ad62 100644
--- a/lisp/userlock.el
+++ b/lisp/userlock.el
@@ -174,7 +174,9 @@ really edit the buffer? (y, n, r or C-h) "
 
 (defun ask-user-about-supersession-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.
 
 If you say `y' to go ahead and modify this buffer,
@@ -184,7 +186,7 @@ from the file on disk.
 If you say `n', the change you started to make will be aborted.
 
 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
       (help-mode))))