Mercurial > emacs

comparison lisp/vc-bzr.el @ 106476:97d377672952

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* vc-bzr.el (vc-bzr-annotate-command): More elegant form for last change. Suggested by David Kastrup.
author Chong Yidong <cyd@stupidchicken.com>
date Mon, 07 Dec 2009 16:18:42 +0000
parents 6e0f1038bc44
children c43a4817b264
comparison
equal deleted inserted replaced
106475:5354cbc99ef1 106476:97d377672952
577 (inhibit-read-only t)) 577 (inhibit-read-only t))
578 (setq string (substring string (match-end 0))) 578 (setq string (substring string (match-end 0)))
579 (unless tag 579 (unless tag
580 (setq tag 580 (setq tag
581 (propertize 581 (propertize
582 (concat rev " " (substring (concat author " ") 582 (format "%s %-7.7s" rev author)
583 0 7))
584 'help-echo (format "Revision: %d, author: %s, date: %s" 583 'help-echo (format "Revision: %d, author: %s, date: %s"
585 (string-to-number rev) 584 (string-to-number rev)
586 author date) 585 author date)
587 'mouse-face 'highlight)) 586 'mouse-face 'highlight))
588 (puthash key tag table)) 587 (puthash key tag table))