diff options
| author | David M. Koppelman <koppel@ece.lsu.edu> | 2021-10-10 20:27:29 +0300 |
|---|---|---|
| committer | Juri Linkov <juri@linkov.net> | 2021-10-10 20:27:29 +0300 |
| commit | 013e3be8327ee090cef101121dd8f10e992e7958 (patch) | |
| tree | 2e5828ff6c918c8028c02b6771c3d068cf3009b9 /lisp/userlock.el | |
| parent | ae61d7a57d5b722c9ca1399ac377c60de26861e2 (diff) | |
| download | emacs-013e3be8327ee090cef101121dd8f10e992e7958.tar.gz | |
* lisp/userlock.el (ask-user-about-supersession-threat): Accept 'y' strictly.
(Bug#51101)
Diffstat (limited to 'lisp/userlock.el')
| -rw-r--r-- | lisp/userlock.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/userlock.el b/lisp/userlock.el index 87a8b7b4519..348ccc6f8ec 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)))) |