projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
gnus-art.el (gnus-button-alist): Also support quotes 'like this'
[gnus]
/
lisp
/
format-spec.el
diff --git
a/lisp/format-spec.el
b/lisp/format-spec.el
index
6bb0fe9
..
bf096bf
100644
(file)
--- a/
lisp/format-spec.el
+++ b/
lisp/format-spec.el
@@
-1,6
+1,6
@@
;;; format-spec.el --- functions for formatting arbitrary formatting strings
;;; format-spec.el --- functions for formatting arbitrary formatting strings
-;; Copyright (C) 1999-201
3
Free Software Foundation, Inc.
+;; Copyright (C) 1999-201
5
Free Software Foundation, Inc.
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
;; Keywords: tools
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
;; Keywords: tools
@@
-43,7
+43,9
@@
the text that it generates."
;; Valid format spec.
((looking-at "\\([-0-9.]*\\)\\([a-zA-Z]\\)")
(let* ((num (match-string 1))
;; Valid format spec.
((looking-at "\\([-0-9.]*\\)\\([a-zA-Z]\\)")
(let* ((num (match-string 1))
- (spec (string-to-char (match-string 2)))
+ (spec (if (featurep 'xemacs)
+ (char-to-int (string-to-char (match-string 2)))
+ (string-to-char (match-string 2))))
(val (assq spec specification)))
(unless val
(error "Invalid format character: `%%%c'" spec))
(val (assq spec specification)))
(unless val
(error "Invalid format character: `%%%c'" spec))
@@
-70,7
+72,13
@@
starting with a character."
(while pairs
(unless (cdr pairs)
(error "Invalid list of pairs"))
(while pairs
(unless (cdr pairs)
(error "Invalid list of pairs"))
- (push (cons (car pairs) (cadr pairs)) alist)
+ (push (cons (if (featurep 'xemacs)
+ (if (characterp (car pairs))
+ (char-to-int (car pairs))
+ (car pairs))
+ (car pairs))
+ (cadr pairs))
+ alist)
(setq pairs (cddr pairs)))
(nreverse alist)))
(setq pairs (cddr pairs)))
(nreverse alist)))