Re: emacs/lisp ChangeLog vc-bzr.el

["Óscar Fuentes" <ofv@wanadoo.es>]

> CVSROOT:	/sources/emacs
> Module name:	emacs
> Changes by:	Chong Yidong <cyd>	09/12/06 20:22:19
>
> Modified files:
> 	lisp           : ChangeLog vc-bzr.el 
>

[snip]

> Index: vc-bzr.el
> ===================================================================
> RCS file: /sources/emacs/emacs/lisp/vc-bzr.el,v
> retrieving revision 1.89
> retrieving revision 1.90
> diff -u -b -r1.89 -r1.90
> --- vc-bzr.el	3 Dec 2009 08:53:06 -0000	1.89
> +++ vc-bzr.el	6 Dec 2009 20:22:19 -0000	1.90
> @@ -572,8 +572,12 @@
>                      (inhibit-read-only t))
>                 (setq string (substring string (match-end 0)))
>          (unless tag
> -          (setq tag (propertize rev 'help-echo (concat "Author: " author
> -                                                       ", date: " date)
> +		 (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))

That change fails on (substring author 0 7) when `author' contains less
than 7 characters:

error in process filter: concat: Args out of range: "oscar", 0, 7
error in process filter: Args out of range: "oscar", 0, 7

I tried with a kludge:

(substring (concat author "         ") 0 7)

and that fixed the problem.

I tried this variation too:

(substring author 0 (min 7 (length author)))

but the result is not so pretty, as the "author" column has no fixed
width anymore.

-- 
Óscar