X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/e516799970be4553edae8ca46d5f64852befec77..561cb8e159e7eff7a6487a45a1cfab47ba456030:/lisp/userlock.el

diff --git a/lisp/userlock.el b/lisp/userlock.el
index cce5251204..316a1a4c89 100644
--- a/lisp/userlock.el
+++ b/lisp/userlock.el
@@ -1,10 +1,10 @@
 ;;; userlock.el --- handle file access contention between multiple users
 
-;;; Maintainer: FSF
-;;; Last-Modified: 26 May 1987
-
 ;; Copyright (C) 1985, 1986 Free Software Foundation, inc.
 
+;; Maintainer: FSF
+;; Keywords: internal
+
 ;; This file is part of GNU Emacs.
 
 ;; GNU Emacs is free software; you can redistribute it and/or modify
@@ -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