Here's a fix that seems to work, but I'm not very experienced in
hacking Elisp so I'm probably doing something stupid.
*** emacs/lisp/gnus/format-spec.el~ 2003-09-01 17:45:23.000000000 +0200
--- emacs/lisp/gnus/format-spec.el 2005-05-13 17:48:07.438183352 +0200
***************
*** 45,54 ****
(let* ((num (match-string 1))
(spec (string-to-char (match-string 2)))
(val (cdr (assq spec specification))))
- (delete-region (1- (match-beginning 0)) (match-end 0))
(unless val
(error "Invalid format character: %s" spec))
! (insert (format (concat "%" num "s") val))))
;; Signal an error on bogus format strings.
(t
(error "Invalid format string"))))
--- 45,59 ----
(let* ((num (match-string 1))
(spec (string-to-char (match-string 2)))
(val (cdr (assq spec specification))))
(unless val
(error "Invalid format character: %s" spec))
! (let ((text (format (concat "%" num "s") val)))
! (insert-and-inherit text)
! ;; Delete the specifier body.
! (delete-region (+ (match-beginning 0) (length text))
! (+ (match-end 0) (length text)))
! ;; Delete the percent sign.
! (delete-region (1- (match-beginning 0)) (match-beginning 0)))))
;; Signal an error on bogus format strings.
(t
(error "Invalid format string"))))
--
Daniel Brockman <[EMAIL PROTECTED]>
_______________________________________________
Emacs-devel mailing list
Emacs-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-devel
