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