Index: emacs/lisp/textmodes/reftex-parse.el
diff -c emacs/lisp/textmodes/reftex-parse.el:1.21
emacs/lisp/textmodes/reftex-parse.el:1.22
*** emacs/lisp/textmodes/reftex-parse.el:1.21 Fri Mar 25 09:03:24 2005
--- emacs/lisp/textmodes/reftex-parse.el Mon May 16 11:29:12 2005
***************
*** 999,1005 ****
(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)))
(pop numbers))
(decf i)))
(put 'reftex-section-numbers 'appendix appendix))
--- 999,1005 ----
(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-number number-string)))
(pop numbers))
(decf i)))
(put 'reftex-section-numbers 'appendix appendix))
***************
*** 1045,1051 ****
(setq string
(concat
(char-to-string
! (1- (+ ?A (string-to-int (match-string 0 string)))))
(substring string (match-end 0))))))
(if star
(concat (make-string (1- (length string)) ?\ ) "*")
--- 1045,1051 ----
(setq string
(concat
(char-to-string
! (1- (+ ?A (string-to-number (match-string 0 string)))))
(substring string (match-end 0))))))
(if star
(concat (make-string (1- (length string)) ?\ ) "*")
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
