Re: `format-spec' fails to pass on text properties

[Daniel Brockman <daniel@brockman.se>]

[-- Attachment #1: Type: text/plain, Size: 120 bytes --]

Here's a fix that seems to work, but I'm not very experienced in
hacking Elisp so I'm probably doing something stupid.


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: Type: text/x-patch, Size: 1302 bytes --]

*** 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"))))

[-- Attachment #3: Type: text/plain, Size: 42 bytes --]


-- 
Daniel Brockman <daniel@brockman.se>

[-- Attachment #4: Type: text/plain, Size: 142 bytes --]

_______________________________________________
Emacs-devel mailing list
Emacs-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-devel