Mercurial > emacs
changeset 13536:af2fc95b03f0
(vc-directory): Require dired.
(vc-revert-buffer): Ignore vc-suppress-confirm.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 13 Nov 1995 20:24:46 +0000 |
| parents | b077415f487d |
| children | d2fcf9de0218 |
| files | lisp/vc.el |
| diffstat | 1 files changed, 4 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/vc.el Mon Nov 13 17:47:35 1995 +0000 +++ b/lisp/vc.el Mon Nov 13 20:24:46 1995 +0000 @@ -1337,6 +1337,7 @@ Normally it creates a Dired buffer that lists only the locked files in all these directories. With a prefix argument, it lists all files." (interactive "DDired under VC (directory): \nP") + (require 'dired) (setq dirname (expand-file-name dirname)) ;; force a trailing slash (if (not (eq (elt dirname (1- (length dirname))) ?/)) @@ -1577,9 +1578,10 @@ (while vc-parent-buffer (pop-to-buffer vc-parent-buffer)) (let ((file buffer-file-name) + ;; This operation should always ask for confirmation. + (vc-suppress-confirm nil) (obuf (current-buffer)) (changed (vc-diff nil t))) - (if (and changed (or vc-suppress-confirm - (not (yes-or-no-p "Discard changes? ")))) + (if (and changed (not (yes-or-no-p "Discard changes? "))) (progn (if (and (window-dedicated-p (selected-window)) (one-window-p t 'selected-frame))