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

sync with upstream

Browse Source
This commit is contained in:
Kai Tetzlaff 2010-03-10 09:46:31 +01:00
parent 6204ce81e5
commit dcbdc55089
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
dvc/lisp/xhg-annotate.el
View File

@ -93,7 +93,7 @@ Special commands:
"Show `xhg-log' corresponding to current line in `xhg-annotate' buffer."
(interactive)
(let ((rev-number (xhg-annotate-get-rev-num-on-line))
(fname xhg-annotate-current-buffer))
(fname (buffer-file-name xhg-annotate-current-buffer)))
(save-excursion
(xhg-log rev-number rev-number t fname)
(other-window 1))))

6
dvc/lisp/xhg.el
View File

@ -327,11 +327,15 @@ negative : Don't show patches, limit to n revisions."
(setq command-list (append command-list (list "-p"))))
;; be verbose or not
(setq xhg-log-remember-last-args command-list)
(setq xhg-log-remember-func-args (list r1 r2 show-patch file))
(if (and xhg-log-remember-last-args
xhg-log-verbose)
(setq command-list (append '("-v") xhg-log-remember-last-args))
(setq command-list xhg-log-remember-last-args))
(setf file (expand-file-name (or file (buffer-file-name) default-directory)))
(setq command-list (append command-list (list file)))
(setq xhg-log-remember-func-args (list r1 r2 show-patch file))
(dvc-switch-to-buffer-maybe buffer)
(let ((inhibit-read-only t))
(erase-buffer))