From a217e08acfacc3cb325ce2ec0aea7d85b58ede50 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 11 Aug 1993 20:36:30 +0000 Subject: [PATCH] (ask-user-about-supersession-threat): Mention file name when asking question. --- lisp/userlock.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/userlock.el b/lisp/userlock.el index b79859de614..316a1a4c892 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 -- 2.39.5