[Emacs-diffs] Changes to emacs/lisp/textmodes/reftex-parse.el

[Juanma Barranquero]

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)) ?\ ) "*")