emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

emacs-28 013e3be 1/2: * lisp/userlock.el (ask-user-about-supersession-th


From: Juri Linkov
Subject: emacs-28 013e3be 1/2: * lisp/userlock.el (ask-user-about-supersession-threat): Accept 'y' strictly.
Date: Sun, 10 Oct 2021 13:31:40 -0400 (EDT)

branch: emacs-28
commit 013e3be8327ee090cef101121dd8f10e992e7958
Author: David M. Koppelman <koppel@ece.lsu.edu>
Commit: Juri Linkov <juri@linkov.net>

    * lisp/userlock.el (ask-user-about-supersession-threat): Accept 'y' 
strictly.
    
    (Bug#51101)
---
 lisp/userlock.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lisp/userlock.el b/lisp/userlock.el
index 87a8b7b..348ccc6 100644
--- a/lisp/userlock.el
+++ b/lisp/userlock.el
@@ -194,7 +194,9 @@ really edit the buffer? (%s, %s, %s or %s) "
                       (list "File reverted" filename)))
              ((eq answer ?n)
               (signal 'file-supersession
-                      (list "File changed on disk" filename)))))
+                      (list "File changed on disk" filename)))
+             ((eq answer ?y))
+             (t (setq answer nil))))
       (message
        "File on disk now will become a backup file if you save these changes.")
       (setq buffer-backed-up nil))))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]