* lisp/userlock.el (ask-user-about-supersession-threat): Accept 'y' strictly.
(Bug#51101)
This commit is contained in:
parent
ae61d7a57d
commit
013e3be832
1 changed files with 3 additions and 1 deletions
|
@ -194,7 +194,9 @@ really edit the buffer? (%s, %s, %s or %s) "
|
||||||
(list "File reverted" filename)))
|
(list "File reverted" filename)))
|
||||||
((eq answer ?n)
|
((eq answer ?n)
|
||||||
(signal 'file-supersession
|
(signal 'file-supersession
|
||||||
(list "File changed on disk" filename)))))
|
(list "File changed on disk" filename)))
|
||||||
|
((eq answer ?y))
|
||||||
|
(t (setq answer nil))))
|
||||||
(message
|
(message
|
||||||
"File on disk now will become a backup file if you save these changes.")
|
"File on disk now will become a backup file if you save these changes.")
|
||||||
(setq buffer-backed-up nil))))
|
(setq buffer-backed-up nil))))
|
||||||
|
|
Loading…
Add table
Reference in a new issue