Mercurial > hg > mercurial-crew-with-dirclash
changeset 1176:ba4ce38b90a3
Merge with TAH.
author | Bryan O'Sullivan <bos@serpentine.com> |
---|---|
date | Wed, 31 Aug 2005 10:54:46 -0700 |
parents | 7e909ceeb36a (diff) 9d9f4973c76a (current diff) |
children | 862f53c1d0f9 |
files | |
diffstat | 1 files changed, 9 insertions(+), 9 deletions(-) [+] |
line wrap: on
line diff
--- a/contrib/mercurial.el +++ b/contrib/mercurial.el @@ -469,12 +469,11 @@ directory names from the file system. W (set-buffer hg-prev-buffer)) (let ((rev (or default "tip"))) (if current-prefix-arg - (let ((revs (split-string (hg-chomp - (hg-run0 "-q" "log" "-r" - (format "-%d" - hg-rev-completion-limit) - "-r" "tip")) - "[\n:]"))) + (let ((revs (split-string + (hg-chomp + (hg-run0 "-q" "log" "-r" + (format "-%d:tip" hg-rev-completion-limit))) + "[\n:]"))) (dolist (line (split-string (hg-chomp (hg-run0 "tags")) "\n")) (setq revs (cons (car (split-string line "\\s-")) revs))) (completing-read (format "Revision%s (%s): " @@ -966,9 +965,10 @@ With a prefix argument, prompt for each (format "Mercurial: Log of rev %s of %s" rev1 a-path) (format "Mercurial: Log from rev %s to %s of %s" r1 r2 a-path))) - (if (> (length path) (length (hg-root path))) - (call-process (hg-binary) nil t nil "log" "-r" r1 "-r" r2 path) - (call-process (hg-binary) nil t nil "log" "-r" r1 "-r" r2)) + (let ((revs (format "%s:%s" r1 r2))) + (if (> (length path) (length (hg-root path))) + (call-process (hg-binary) nil t nil "log" "-r" revs path) + (call-process (hg-binary) nil t nil "log" "-r" revs))) (hg-log-mode)))) (defun hg-log-repo (path &optional rev1 rev2)