comparison lisp/textmodes/reftex-ref.el @ 46683:060f433ebf11

Updated to RefTeX 4.18
author Carsten Dominik <dominik@science.uva.nl>
date Thu, 25 Jul 2002 07:03:41 +0000
parents 7522419c4db0
children 904fd28be439
comparison
equal deleted inserted replaced
46682:7a836df2d686 46683:060f433ebf11
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 ;; Copyright (c) 1997, 1998, 1999, 2000 Free Software Foundation, Inc. 2 ;; Copyright (c) 1997, 1998, 1999, 2000 Free Software Foundation, Inc.
3 3
4 ;; Author: Carsten Dominik <dominik@science.uva.nl> 4 ;; Author: Carsten Dominik <dominik@science.uva.nl>
5 ;; Version: 4.17 5 ;; Version: 4.18
6 6
7 ;; This file is part of GNU Emacs. 7 ;; This file is part of GNU Emacs.
8 8
9 ;; GNU Emacs is free software; you can redistribute it and/or modify 9 ;; GNU Emacs is free software; you can redistribute it and/or modify
10 ;; it under the terms of the GNU General Public License as published by 10 ;; it under the terms of the GNU General Public License as published by
644 (cdr (pop reftex-buffers-with-changed-invisibility))))) 644 (cdr (pop reftex-buffers-with-changed-invisibility)))))
645 (mapcar (lambda (buf) (and (buffer-live-p buf) (bury-buffer buf))) 645 (mapcar (lambda (buf) (and (buffer-live-p buf) (bury-buffer buf)))
646 selection-buffers) 646 selection-buffers)
647 (reftex-kill-temporary-buffers)) 647 (reftex-kill-temporary-buffers))
648 ;; Add the prefixes, put together the relevant information in the form 648 ;; Add the prefixes, put together the relevant information in the form
649 ;; (LABEL TYPEKEY SEPERATOR) and return a list of those. 649 ;; (LABEL TYPEKEY SEPARATOR) and return a list of those.
650 (mapcar (lambda (x) 650 (mapcar (lambda (x)
651 (if (listp x) 651 (if (listp x)
652 (list (concat prefix (car (car x))) 652 (list (concat prefix (car (car x)))
653 (nth 1 (car x)) 653 (nth 1 (car x))
654 (nth 2 x)) 654 (nth 2 x))