Mercurial > emacs
diff lisp/textmodes/reftex-ref.el @ 25806:7ed67319c5aa
version number change
| author | Carsten Dominik <dominik@science.uva.nl> |
|---|---|
| date | Fri, 24 Sep 1999 10:05:01 +0000 |
| parents | 9b601931b795 |
| children | 489a5439b988 |
line wrap: on
line diff
--- a/lisp/textmodes/reftex-ref.el Fri Sep 24 10:04:08 1999 +0000 +++ b/lisp/textmodes/reftex-ref.el Fri Sep 24 10:05:01 1999 +0000 @@ -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 @@ ((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)