X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/5814274441e07c578c67f33a13e018abb9acfc14..d0d74413b708a53a2ec0db35ffb5e47b818b88d1:/lisp/userlock.el

diff --git a/lisp/userlock.el b/lisp/userlock.el
index b79859de61..316a1a4c89 100644
--- 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