Fix a bug introduced in 1efde92

This commit is contained in:
Leo 2010-08-17 20:22:43 +01:00 committed by Phil Jackson
parent 5a406c16c5
commit 736d4b8f5a

View file

@ -559,7 +559,8 @@ out revs involving HEAD."
;; There doesn't seem to be a way of filtering HEAD out from name-rev, ;; There doesn't seem to be a way of filtering HEAD out from name-rev,
;; so we have to do it manually. ;; so we have to do it manually.
;; HEAD-based names are too transient to allow. ;; HEAD-based names are too transient to allow.
(when (string-match "^\\(.*\\<HEAD\\)\\([~^].*\\|$\\)" name) (when (and (stringp name)
(string-match "^\\(.*\\<HEAD\\)\\([~^].*\\|$\\)" name))
(let ((head-ref (match-string 1 name)) (let ((head-ref (match-string 1 name))
(modifier (match-string 2 name))) (modifier (match-string 2 name)))
;; Sometimes when name-rev gives a HEAD-based name, ;; Sometimes when name-rev gives a HEAD-based name,