(if (string-match "\\`[A-Z]\\'" number-string)
(aset reftex-section-numbers i
(- (string-to-char number-string) ?A -1))
- (aset reftex-section-numbers i (string-to-int number-string)))
+ (aset reftex-section-numbers i (string-to-number number-string)))
(pop numbers))
(decf i)))
(put 'reftex-section-numbers 'appendix appendix))
(setq string
(concat
(char-to-string
- (1- (+ ?A (string-to-int (match-string 0 string)))))
+ (1- (+ ?A (string-to-number (match-string 0 string)))))
(substring string (match-end 0))))))
(if star
(concat (make-string (1- (length string)) ?\ ) "*")