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