diff options
| author | Carsten Dominik <dominik@science.uva.nl> | 1999-09-24 10:05:01 +0000 |
|---|---|---|
| committer | Carsten Dominik <dominik@science.uva.nl> | 1999-09-24 10:05:01 +0000 |
| commit | 8b12dca91443fe2a59644d4d42862d573f604e4d (patch) | |
| tree | fb71e27519fde25fff8031aa9a9f8d4dbfb206c9 /lisp/textmodes/reftex-ref.el | |
| parent | 24d66fcce9f3099f1b847b7b4038813ce25c9cfb (diff) | |
| download | emacs-8b12dca91443fe2a59644d4d42862d573f604e4d.tar.gz | |
version number change
Diffstat (limited to 'lisp/textmodes/reftex-ref.el')
| -rw-r--r-- | lisp/textmodes/reftex-ref.el | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/lisp/textmodes/reftex-ref.el b/lisp/textmodes/reftex-ref.el index 8dc77013566..dc0ff9b1be3 100644 --- a/lisp/textmodes/reftex-ref.el +++ b/lisp/textmodes/reftex-ref.el @@ -1,5 +1,5 @@ ;;; reftex-ref.el - Code to create labels and references with RefTeX -;;; Version: 4.5 +;;; Version: 4.6 ;;; ;;; See main file reftex.el for licensing information @@ -287,14 +287,16 @@ also applies `reftex-translate-to-ascii-function' to the string." ((equal letter "u") (or (user-login-name) "")) ((equal letter "S") - (let* (macro level) + (let* (macro level-exp level) (save-excursion (save-match-data (when (re-search-backward reftex-section-regexp nil t) (setq macro (reftex-match-string 2) - level - (abs - (cdr (assoc macro reftex-section-levels-all))))) + level-exp (cdr (assoc macro reftex-section-levels-all)) + level (if (symbolp level-exp) + (abs (save-match-data + (funcall level-exp))) + (abs level-exp)))) (cdr (or (assoc macro reftex-section-prefixes) (assoc level reftex-section-prefixes) (assq t reftex-section-prefixes) |