public/elisp-vcs
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

update reftex, auctex, dvc

Browse Source
This commit is contained in:
Kai Tetzlaff 2010-09-26 09:39:38 +02:00
parent ec24bef5a4
commit 5ccd6cf306
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
dvc/lisp/dvc-unified.el
View File

@ -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)

6
dvc/lisp/xhg.el
View File

@ -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)