;;; format-spec.el --- functions for formatting arbitrary formatting strings
-;; Copyright (C) 1999-2013 Free Software Foundation, Inc.
+;; Copyright (C) 1999-2016 Free Software Foundation, Inc.
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
;; Keywords: tools
;; 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))
(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)))