diff options
author | Eric S. Raymond <esr@thyrsus.com> | 2014-12-01 17:56:41 -0500 |
---|---|---|
committer | Eric S. Raymond <esr@thyrsus.com> | 2014-12-01 17:56:41 -0500 |
commit | ed6ce56e2326fb8b257e63e015598ad74b5fd35c (patch) | |
tree | 1ed8dd3c30e61b12e7243c3a6a9e8da29aa38623 /lisp/vc/vc-hg.el | |
parent | 4f54f7b3760218d53743e5f8e3f0d3065a03ee23 (diff) | |
download | emacs-ed6ce56e2326fb8b257e63e015598ad74b5fd35c.tar.gz |
Terminate vc-disable-async-diff with extreme prejudice.
* vc/vc.el, and all backends: API cleanup; the backend diff method
takes an explicit async flag. This eliminates a particularly ugly
global.
Diffstat (limited to 'lisp/vc/vc-hg.el')
-rw-r--r-- | lisp/vc/vc-hg.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/vc/vc-hg.el b/lisp/vc/vc-hg.el index bc704e7a03d..0f636c01848 100644 --- a/lisp/vc/vc-hg.el +++ b/lisp/vc/vc-hg.el @@ -316,7 +316,7 @@ If LIMIT is non-nil, show no more than this many entries." (autoload 'vc-switches "vc") -(defun vc-hg-diff (files &optional oldvers newvers buffer) +(defun vc-hg-diff (files &optional async oldvers newvers buffer) "Get a difference report using hg between two revisions of FILES." (let* ((firstfile (car files)) (working (and firstfile (vc-working-revision firstfile)))) @@ -324,7 +324,10 @@ If LIMIT is non-nil, show no more than this many entries." (setq oldvers nil)) (when (and (not oldvers) newvers) (setq oldvers working)) - (apply #'vc-hg-command (or buffer "*vc-diff*") nil files "diff" + (apply #'vc-hg-command + (or buffer "*vc-diff*") + (if async 'async nil) + files "diff" (append (vc-switches 'hg 'diff) (when oldvers |