/[emacs]/emacs/lisp/textmodes/reftex-parse.el
ViewVC logotype

Diff of /emacs/lisp/textmodes/reftex-parse.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.21 by wl, Fri Mar 25 09:03:24 2005 UTC revision 1.22 by lektu, Mon May 16 11:29:12 2005 UTC
# Line 999  of master file." Line 999  of master file."
999          (if (string-match "\\`[A-Z]\\'" number-string)          (if (string-match "\\`[A-Z]\\'" number-string)
1000              (aset reftex-section-numbers i              (aset reftex-section-numbers i
1001                    (- (string-to-char number-string) ?A -1))                    (- (string-to-char number-string) ?A -1))
1002              (aset reftex-section-numbers i (string-to-int number-string)))              (aset reftex-section-numbers i (string-to-number number-string)))
1003          (pop numbers))          (pop numbers))
1004        (decf i)))        (decf i)))
1005    (put 'reftex-section-numbers 'appendix appendix))    (put 'reftex-section-numbers 'appendix appendix))
# Line 1045  of master file." Line 1045  of master file."
1045              (setq string              (setq string
1046                    (concat                    (concat
1047                     (char-to-string                     (char-to-string
1048                      (1- (+ ?A (string-to-int (match-string 0 string)))))                      (1- (+ ?A (string-to-number (match-string 0 string)))))
1049                     (substring string (match-end 0))))))                     (substring string (match-end 0))))))
1050        (if star        (if star
1051            (concat (make-string (1- (length string)) ?\ ) "*")            (concat (make-string (1- (length string)) ?\ ) "*")

Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26