comparison 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
comparison
equal deleted inserted replaced
25805:efe07431a7ba 25806:7ed67319c5aa
1 ;;; reftex-ref.el - Code to create labels and references with RefTeX 1 ;;; reftex-ref.el - Code to create labels and references with RefTeX
2 ;;; Version: 4.5 2 ;;; Version: 4.6
3 ;;; 3 ;;;
4 ;;; See main file reftex.el for licensing information 4 ;;; See main file reftex.el for licensing information
5 5
6 (provide 'reftex-ref) 6 (provide 'reftex-ref)
7 (require 'reftex) 7 (require 'reftex)
285 (substring file (length masterdir)) 285 (substring file (length masterdir))
286 file))) 286 file)))
287 ((equal letter "u") 287 ((equal letter "u")
288 (or (user-login-name) "")) 288 (or (user-login-name) ""))
289 ((equal letter "S") 289 ((equal letter "S")
290 (let* (macro level) 290 (let* (macro level-exp level)
291 (save-excursion 291 (save-excursion
292 (save-match-data 292 (save-match-data
293 (when (re-search-backward reftex-section-regexp nil t) 293 (when (re-search-backward reftex-section-regexp nil t)
294 (setq macro (reftex-match-string 2) 294 (setq macro (reftex-match-string 2)
295 level 295 level-exp (cdr (assoc macro reftex-section-levels-all))
296 (abs 296 level (if (symbolp level-exp)
297 (cdr (assoc macro reftex-section-levels-all))))) 297 (abs (save-match-data
298 (funcall level-exp)))
299 (abs level-exp))))
298 (cdr (or (assoc macro reftex-section-prefixes) 300 (cdr (or (assoc macro reftex-section-prefixes)
299 (assoc level reftex-section-prefixes) 301 (assoc level reftex-section-prefixes)
300 (assq t reftex-section-prefixes) 302 (assq t reftex-section-prefixes)
301 (list t "sec:"))))))) 303 (list t "sec:")))))))
302 (t ""))) 304 (t "")))