diff options
author | Jim Blandy <[email protected]> | 1993-02-22 14:17:16 +0000 |
---|---|---|
committer | Jim Blandy <[email protected]> | 1993-02-22 14:17:16 +0000 |
commit | 1ab31687d41ee63c4aa4e10fe591c2d8133a5d56 (patch) | |
tree | 501d02e4fe34f6c9f1e81558a3e62fcf9348a238 /lisp/files.el | |
parent | 6f5191a247bdbb31b78ddb81855300174dc210df (diff) |
* files.el (revert-buffer): Reverse the sense of the first
argument, but leave interactive usage the same.
* vc.el (vc-resynch-window): Call vc-revert-buffer1 with the newly
appropriate arguments. This seems to be the only file which was
adjusted for the new meaning of the revert-buffer arguments.
Diffstat (limited to 'lisp/files.el')
-rw-r--r-- | lisp/files.el | 26 |
1 files changed, 20 insertions, 6 deletions
diff --git a/lisp/files.el b/lisp/files.el index 0dce2e3d7c..49d452b92e 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -1427,21 +1427,35 @@ or multiple mail buffers, etc." Gets two args, first the nominal file name to use, and second, t if reading the auto-save file.") -(defun revert-buffer (&optional check-auto noconfirm) +(defun revert-buffer (&optional ignore-auto noconfirm) "Replace the buffer text with the text of the visited file on disk. This undoes all changes since the file was visited or saved. With a prefix argument, offer to revert from latest auto-save file, if that is more recent than the visited file. -When called from lisp, this is the first argument, CHECK-AUTO; it is optional. -Optional second argument NOCONFIRM means don't ask for confirmation at all. + +When called from lisp, the first argument is IGNORE-AUTO; only offer +to revert from the auto-save file when this is nil. Note that the +sense of this argument is the reverse of the prefix argument, for the +sake of backward compatibility. IGNORE-AUTO is optional, defaulting +to nil. + +Optional second argument NOCONFIRM means don't ask for confirmation at +all. If the value of `revert-buffer-function' is non-nil, it is called to do the work." - (interactive "P") + ;; I admit it's odd to reverse the sense of the prefix argument, but + ;; there is a lot of code out there which assumes that the first + ;; argument should be t to avoid consulting the auto-save file, and + ;; there's no straightforward way to encourage authors to notice a + ;; reversal of the argument sense. So I'm just changing the user + ;; interface, but leaving the programmatic interface the same. + (interactive (list (not prefix-arg))) (if revert-buffer-function - (funcall revert-buffer-function (not check-auto) noconfirm) + (funcall revert-buffer-function ignore-auto noconfirm) (let* ((opoint (point)) - (auto-save-p (and check-auto (recent-auto-save-p) + (auto-save-p (and (not ignore-auto) + (recent-auto-save-p) buffer-auto-save-file-name (file-readable-p buffer-auto-save-file-name) (y-or-n-p |