From 5ccd6cf306763e77b5ad95ba13994f19daa5707b Mon Sep 17 00:00:00 2001 From: Kai Tetzlaff Date: Sun, 26 Sep 2010 09:39:38 +0200 Subject: [PATCH] update reftex, auctex, dvc --- dvc/lisp/dvc-unified.el | 2 +- dvc/lisp/xhg.el | 6 ++++-- 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/dvc/lisp/dvc-unified.el b/dvc/lisp/dvc-unified.el index c71a274..3612640 100644 --- a/dvc/lisp/dvc-unified.el +++ b/dvc/lisp/dvc-unified.el @@ -271,7 +271,7 @@ If DONT-SWITCH is non-nil, just show the diff buffer, don't select it." (interactive) (let ((default-directory (dvc-read-project-tree-maybe "DVC status (directory): " - (when path (expand-file-name path))))) + (when path (expand-file-name path)) (not current-prefix-arg)))) ;; Since we have bound default-directory, we don't need to pass ;; `path' to the back-end. (dvc-save-some-buffers default-directory) diff --git a/dvc/lisp/xhg.el b/dvc/lisp/xhg.el index 868e8ac..271fa5b 100644 --- a/dvc/lisp/xhg.el +++ b/dvc/lisp/xhg.el @@ -460,15 +460,17 @@ If DONT-SWITCH, don't switch to the diff buffer" (defun xhg-dvc-status () "Run hg status." (let* ((window-conf (current-window-configuration)) - (root (xhg-tree-root)) + ;;(root (xhg-tree-root)) + (root default-directory) ;; default-directory is setup by the caller... (buffer (dvc-prepare-changes-buffer `(xhg (last-revision ,root 1)) `(xhg (local-tree ,root)) 'status root 'xhg))) + ;; (message "xhg-dvc-status root: %s" root) (dvc-switch-to-buffer-maybe buffer) (dvc-buffer-push-previous-window-config window-conf) (dvc-save-some-buffers root) - (dvc-run-dvc-sync 'xhg '("status") + (dvc-run-dvc-sync 'xhg '("status" ".") :finished (dvc-capturing-lambda (output error status arguments) (with-current-buffer (capture buffer)