(format-spec, format-spec-make): Normalize characters into numbers in spec keys.
+2015-05-11 Katsumi Yamaoka <yamaoka@jpl.org>
+
+ * format-spec.el (format-spec, format-spec-make): Work for XEmacs.
+ Normalize characters into numbers in spec keys.
+
2015-05-07 Katsumi Yamaoka <yamaoka@jpl.org>
* dgnushack.el (declare-function): Redefine it to use autoload.
;; Valid format spec.
((looking-at "\\([-0-9.]*\\)\\([a-zA-Z]\\)")
(let* ((num (match-string 1))
- (spec (string-to-char (match-string 2)))
+ (spec (+ (string-to-char (match-string 2)) 0))
(val (assq spec specification)))
(unless val
(error "Invalid format character: `%%%c'" spec))
(while pairs
(unless (cdr pairs)
(error "Invalid list of pairs"))
- (push (cons (car pairs) (cadr pairs)) alist)
+ (push (cons (+ (car pairs) 0) (cadr pairs)) alist)
(setq pairs (cddr pairs)))
(nreverse alist)))