Commit 97d3f950 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(vc-buffer-sync, vc-diff): New arg NOT-URGENT.

(vc-diff): Pass new arg.
parent be44f62c
......@@ -331,14 +331,17 @@ the master name of FILE; this is appended to an optional list of FLAGS."
(if new-mark (set-mark new-mark))))))
(defun vc-buffer-sync ()
(defun vc-buffer-sync (&optional not-urgent)
;; Make sure the current buffer and its working file are in sync
;; NOT-URGENT means it is ok to continue if the user says not to save.
(if (buffer-modified-p)
(or vc-suppress-confirm
(y-or-n-p (format "Buffer %s modified; save it? " (buffer-name)))
(error "Aborted"))
(if (or vc-suppress-confirm
(y-or-n-p (format "Buffer %s modified; save it? " (buffer-name))))
(if not-urgent
(error "Aborted")))))
(defun vc-workfile-unchanged-p (file &optional want-differences-if-changed)
;; Has the given workfile changed since last checkout?
......@@ -748,7 +751,7 @@ If nil, uses `change-log-default-name'."
;; Additional entry points for examining version histories
(defun vc-diff (historic)
(defun vc-diff (historic &optional not-urgent)
"Display diffs between file versions.
Normally this compares the current file and buffer with the most recent
checked in version of that file. This uses no arguments.
......@@ -768,7 +771,7 @@ and two version designators specifying which versions to compare."
(or (and file (vc-name file))
(vc-registration-error file))
(vc-buffer-sync not-urgent)
(setq unchanged (vc-workfile-unchanged-p buffer-file-name))
(if unchanged
(message "No changes to %s since latest version." file)
......@@ -1120,7 +1123,7 @@ to that version."
(while vc-parent-buffer
(pop-to-buffer vc-parent-buffer))
(let ((file buffer-file-name)
(obuf (current-buffer)) (changed (vc-diff nil)))
(obuf (current-buffer)) (changed (vc-diff nil t)))
(if (and changed (or vc-suppress-confirm
(not (yes-or-no-p "Discard changes? "))))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment