* lisp/userlock.el (ask-user-about-supersession-threat): Accept 'y' strictly.

(Bug#51101)

diff --git a/lisp/userlock.el b/lisp/userlock.el
index 87a8b7b45192d7805d483c9e704284902b42a8ed..348ccc6f8ec930bdaab2de4a8c53f9e70925da1d 100644 (file)
--- 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))))