mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-10 09:43:26 -08:00
Code Issues Projects Releases Wiki Activity

* vc-bzr.el (vc-bzr-annotate-command): Show author in annotation.

Browse source 
Handle empty author field (Bug#4144).  Suggested by Óscar Fuentes.
(vc-bzr-annotate-time, vc-bzr-annotate-extract-revision-at-line):
Update annotation regexp.
This commit is contained in:
Chong Yidong 2009-12-06 20:22:16 +00:00
parent 8e39154d85
commit 2c6bb71a57
2 changed files with 15 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -10,6 +10,11 @@
2009-12-06 Chong Yidong <cyd@stupidchicken.com>
* vc-bzr.el (vc-bzr-annotate-command): Show author in annotation.
Handle empty author field (Bug#4144). Suggested by Óscar Fuentes.
(vc-bzr-annotate-time, vc-bzr-annotate-extract-revision-at-line):
Update annotation regexp.
* simple.el (beginning-of-visual-line): Constrain to field
boundaries (Bug#5106).

16
lisp/vc-bzr.el
View file

@ -571,10 +571,14 @@ property containing author and date information."
(tag (gethash key table))
(inhibit-read-only t))
(setq string (substring string (match-end 0)))
(unless tag
(setq tag (propertize rev 'help-echo (concat "Author: " author
", date: " date)
'mouse-face 'highlight))
(unless tag
(setq tag
(propertize
(concat rev " " (substring author 0 7))
'help-echo (format "Revision: %d, author: %s, date: %s"
(string-to-number rev)
author date)
'mouse-face 'highlight))
(puthash key tag table))
(goto-char (process-mark proc))
(insert tag line)
@ -584,7 +588,7 @@ property containing author and date information."
(declare-function vc-annotate-convert-time "vc-annotate" (time))
(defun vc-bzr-annotate-time ()
(when (re-search-forward "^ *[0-9.]+ +|" nil t)
(when (re-search-forward "^ *[0-9.]+ +[^\n ]* +|" nil t)
(let ((prop (get-text-property (line-beginning-position) 'help-echo)))
(string-match "[0-9]+\\'" prop)
(let ((str (match-string-no-properties 0 prop)))
@ -599,7 +603,7 @@ property containing author and date information."
Return nil if current line isn't annotated."
(save-excursion
(beginning-of-line)
(if (looking-at " *\\([0-9.]+\\) *| ")
(if (looking-at "^ *\\([0-9.]+\\) +[^\n ]* +|")
(match-string-no-properties 1))))
(defun vc-bzr-command-discarding-stderr (command &rest args)