diff options
author | Richard M. Stallman <rms@gnu.org> | 1996-06-29 20:04:54 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1996-06-29 20:04:54 +0000 |
commit | 22ed1eb6972d4988831c8e8c2e6f045e5ab37c8a (patch) | |
tree | b5369313e2db62cd1f37ff570d3729bd400b0f44 | |
parent | 9462f492de983aca42019215211c919b951e4b5f (diff) | |
download | emacs-22ed1eb6972d4988831c8e8c2e6f045e5ab37c8a.tar.gz |
(ask-user-about-supersession-help): Change help text.
(ask-user-about-supersession-threat): Add new `r' alternative.
-rw-r--r-- | lisp/userlock.el | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/lisp/userlock.el b/lisp/userlock.el index 92bf0bef3b4..7844f4544bf 100644 --- a/lisp/userlock.el +++ b/lisp/userlock.el @@ -98,7 +98,7 @@ The buffer in question is current when this function is called." (save-window-excursion (let (answer) (while (null answer) - (message "%s changed on disk; really edit the buffer? (y, n or C-h) " + (message "%s changed on disk; really edit the buffer? (y, n, r or C-h) " (file-name-nondirectory fn)) (let ((tem (downcase (let ((cursor-in-echo-area t)) (read-char))))) @@ -108,14 +108,20 @@ The buffer in question is current when this function is called." (cdr (assoc tem '((?n . yield) (?\C-g . yield) (?y . proceed) + (?r . revert) (?? . help)))))) (cond ((null answer) (beep) - (message "Please type y or n; or ? for help") + (message "Please type y, n or r; or ? for help") (sit-for 3)) ((eq answer 'help) (ask-user-about-supersession-help) (setq answer nil)) + ((eq answer 'revert) + (revert-buffer nil (not (buffer-modified-p))) + ; ask confirmation iff buffer modified + (signal 'file-supersession + (list "File reverted" fn))) ((eq answer 'yield) (signal 'file-supersession (list "File changed on disk" fn)))))) @@ -130,6 +136,8 @@ since you last read it in or saved it with this buffer. If you say `y' to go ahead and modify this buffer, you risk ruining the work of whoever rewrote the file. +If you say `r' to revert, the contents of the buffer are refreshed +from the file on disk. If you say `n', the change you started to make will be aborted. Usually, you should type `n' and then `M-x revert-buffer', |