(shell-command, shell-command-on-region):

[gnu-emacs] / lisp / userlock.el

diff --git a/lisp/userlock.el b/lisp/userlock.el
index b79859de614451a67c9755cb499194448383b13a..316a1a4c892312ed0038d4d78e1c9acf38ef3a66 100644 (file)
--- a/lisp/userlock.el
+++ b/lisp/userlock.el
@@ -94,7 +94,8 @@ The buffer in question is current when this function is called."
   (save-window-excursion
     (let (answer)
       (while (null answer)
-       (message "File has changed on disk; really want to edit the buffer? (y, n or C-h) ")
+       (message "%s changed on disk; really edit the buffer? (y, n or C-h) "
+                (file-name-nondirectory fn))
        (let ((tem (downcase (let ((cursor-in-echo-area t))
                               (read-char)))))
          (setq answer