Commit 7ec69e2b authored by Dan Nicolaescu's avatar Dan Nicolaescu
Browse files

Fix default-directory for vc-root-diff.

* vc.el (vc-root-diff): Bind default-directory to the root
directory for the diff command.
parent fd9ea9d3
2010-04-07 Dan Nicolaescu <dann@ics.uci.edu>
Fix default-directory for vc-root-diff.
* vc.el (vc-root-diff): Bind default-directory to the root
directory for the diff command.
2010-04-07 Michael McNamara <mac@mail.brushroad.com>
* verilog-mode.el (verilog-forward-sexp, verilog-calc-1): Support
......
......@@ -1642,9 +1642,14 @@ saving the buffer."
(error "Buffer is not version controlled"))
(setq rootdir (vc-call-backend backend 'root default-directory))
(setq working-revision (vc-working-revision rootdir))
(vc-diff-internal
t (list backend (list rootdir) working-revision) nil nil
(called-interactively-p 'interactive)))))
;; VC diff for the root directory produces output that is
;; relative to it. Bind default-directory to the root directory
;; here, this way the *vc-diff* buffer is setup correctly, so
;; relative file names work.
(let ((default-directory rootdir))
(vc-diff-internal
t (list backend (list rootdir) working-revision) nil nil
(called-interactively-p 'interactive))))))
;;;###autoload
(defun vc-revision-other-window (rev)
......
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