Remove 'HEAD' from ref list.

This commit is contained in:
Phil Jackson 2010-02-06 15:40:14 +00:00
parent a4cbd5ecd3
commit 6f9993cbd4

View file

@ -1948,7 +1948,8 @@ string which will represent the log line.")
(msg (match-string 4)) (msg (match-string 4))
(refs (when (match-string 3) (refs (when (match-string 3)
(remove-if (lambda (s) (remove-if (lambda (s)
(string= s "tag:")) (or (string= s "tag:")
(string= s "HEAD"))) ; as of 1.6.6
(split-string (match-string 3) "[(), ]" t))))) (split-string (match-string 3) "[(), ]" t)))))
(delete-region (point-at-bol) (point-at-eol)) (delete-region (point-at-bol) (point-at-eol))
(insert (funcall magit-present-log-line-function chart sha1 refs msg)) (insert (funcall magit-present-log-line-function chart sha1 refs msg))