[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))))