Mercurial > emacs

comparison lisp/vc-git.el @ 93145:9a34bf3a4363

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vc-git-annotate-extract-revision-at-line): Allow "^" in a version name.
author Dan Nicolaescu <dann@ics.uci.edu>
date Sat, 22 Mar 2008 17:21:48 +0000
parents 97c5b398eee4
children c73e70274c0c
comparison
equal deleted inserted replaced
93144:33c08cf9fb3a 93145:9a34bf3a4363
398 '(6 5 4 3 2 1 7)))))) 398 '(6 5 4 3 2 1 7))))))
399 399
400 (defun vc-git-annotate-extract-revision-at-line () 400 (defun vc-git-annotate-extract-revision-at-line ()
401 (save-excursion 401 (save-excursion
402 (move-beginning-of-line 1) 402 (move-beginning-of-line 1)
403 (and (looking-at "[0-9a-f]+") 403 (and (looking-at "[0-9a-f^][0-9a-f]+")
404 (buffer-substring-no-properties (match-beginning 0) (match-end 0))))) 404 (buffer-substring-no-properties (match-beginning 0) (match-end 0)))))
405 405
406 ;;; SNAPSHOT SYSTEM 406 ;;; SNAPSHOT SYSTEM
407 407
408 (defun vc-git-create-snapshot (dir name branchp) 408 (defun vc-git-create-snapshot (dir name branchp)