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

update org-mode, emacswiki

Browse Source
This commit is contained in:
Kai Tetzlaff 2010-07-16 09:07:19 +02:00
parent 55f6a1fe09
commit f3a54b99c8
1 changed files with 16 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -284,15 +284,22 @@ If DONT-SWITCH is non-nil, just show the diff buffer, don't select it."
;;;###autoload ;;;###autoload
(defun dvc-log (&optional path last-n) (defun dvc-log (&optional path last-n)
"Display the brief log for PATH (a file-name; default current "Display the brief log for PATH (a file-name; default current
buffer file name; nil means entire tree; prefix arg means prompt buffer file name; nil means entire tree; negative prefix arg
for tree), LAST-N entries (default `dvc-log-last-n'; all if means prompt for tree depending on value of
nil). Use `dvc-changelog' for the full log." dvc-read-project-tree-mode), LAST-N entries (default
(interactive (list (if current-prefix-arg nil (buffer-file-name)) `dvc-log-last-n'; all if nil, positive prefix value means that
dvc-log-last-n)) many entries). Use `dvc-changelog' for the full log."
(let ((default-directory (interactive "i\nP")
(let* ((allentries (or (eq last-n nil)
(< (prefix-numeric-value last-n) 0)))
(last-n (prefix-numeric-value last-n))
(path (if (< last-n 0)
nil (buffer-file-name)))
(last-n (if allentries nil last-n))
(default-directory
(dvc-read-project-tree-maybe "DVC tree root (directory): " (dvc-read-project-tree-maybe "DVC tree root (directory): "
(when path (expand-file-name path)) (when path (expand-file-name path))
(not current-prefix-arg)))) path)))
;; Since we have bound default-directory, we don't need to pass ;; Since we have bound default-directory, we don't need to pass
;; 'root' to the back-end. ;; 'root' to the back-end.
(dvc-call "dvc-log" path last-n)) (dvc-call "dvc-log" path last-n))