Mercurial > emacs

comparison lisp/vc-git.el @ 98701:5970e7c70c96

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* vc-git.el (vc-git-show-log-entry): Include the revision in the search string.
author Dan Nicolaescu <dann@ics.uci.edu>
date Tue, 14 Oct 2008 07:05:07 +0000
parents 962e4709829b
children b0dce7f34dda
comparison
equal deleted inserted replaced
98700:c469feff390b 98701:5970e7c70c96
490 "Move to the log entry for REVISION. 490 "Move to the log entry for REVISION.
491 REVISION may have the form BRANCH, BRANCH~N, 491 REVISION may have the form BRANCH, BRANCH~N,
492 or BRANCH^ (where \"^\" can be repeated)." 492 or BRANCH^ (where \"^\" can be repeated)."
493 (goto-char (point-min)) 493 (goto-char (point-min))
494 (when revision 494 (when revision
495 (search-forward "\ncommit" nil t 495 (search-forward (format "\ncommit %s" revision) nil t
496 (cond ((string-match "~\\([0-9]\\)$" revision) 496 (cond ((string-match "~\\([0-9]\\)$" revision)
497 (1+ (string-to-number (match-string 1 revision)))) 497 (1+ (string-to-number (match-string 1 revision))))
498 ((string-match "\\^+$" revision) 498 ((string-match "\\^+$" revision)
499 (1+ (length (match-string 0 revision)))) 499 (1+ (length (match-string 0 revision))))
500 (t nil)))) 500 (t nil))))