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) (interactive)
(let ((default-directory (let ((default-directory
(dvc-read-project-tree-maybe "DVC status (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 ;; Since we have bound default-directory, we don't need to pass
;; `path' to the back-end. ;; `path' to the back-end.
(dvc-save-some-buffers default-directory) (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 () (defun xhg-dvc-status ()
"Run hg status." "Run hg status."
(let* ((window-conf (current-window-configuration)) (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 (buffer (dvc-prepare-changes-buffer
`(xhg (last-revision ,root 1)) `(xhg (last-revision ,root 1))
`(xhg (local-tree ,root)) `(xhg (local-tree ,root))
'status root 'xhg))) 'status root 'xhg)))
;; (message "xhg-dvc-status root: %s" root)
(dvc-switch-to-buffer-maybe buffer) (dvc-switch-to-buffer-maybe buffer)
(dvc-buffer-push-previous-window-config window-conf) (dvc-buffer-push-previous-window-config window-conf)
(dvc-save-some-buffers root) (dvc-save-some-buffers root)
(dvc-run-dvc-sync 'xhg '("status") (dvc-run-dvc-sync 'xhg '("status" ".")
:finished :finished
(dvc-capturing-lambda (output error status arguments) (dvc-capturing-lambda (output error status arguments)
(with-current-buffer (capture buffer) (with-current-buffer (capture buffer)