comparison lisp/textmodes/reftex-toc.el @ 59579:a588c86a429c

Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-40 Fix regressions from latest reftex update In the latest update to reftex from upstream, some changes in Emacs CVS (mostly maintenance stuff -- typos, whitespace, etc) were apparently lost. This changeset re-applies them.
author Miles Bader <miles@gnu.org>
date Sun, 16 Jan 2005 02:37:50 +0000
parents 9bad65481674
children 35f6599373fc cb67264d6096
comparison
equal deleted inserted replaced
59578:10f083976969 59579:a588c86a429c
752 752
753 (defun reftex-toc-load-all-files-for-promotion () 753 (defun reftex-toc-load-all-files-for-promotion ()
754 "Make sure all files of the document are being visited by buffers, 754 "Make sure all files of the document are being visited by buffers,
755 and that the scanning info is absolutely up to date. 755 and that the scanning info is absolutely up to date.
756 We do this by rescanning with reftex-keep-temporary-buffers bound to t. 756 We do this by rescanning with reftex-keep-temporary-buffers bound to t.
757 The variable PRO-OR-DE is assumed to be dynamically scoped into thes function. 757 The variable PRO-OR-DE is assumed to be dynamically scoped into this function.
758 When finished, we exit with an error message." 758 When finished, we exit with an error message."
759 (let ((reftex-keep-temporary-buffers t)) 759 (let ((reftex-keep-temporary-buffers t))
760 (reftex-toc-Rescan) 760 (reftex-toc-Rescan)
761 (reftex-toc-restore-region start-line mark-line) 761 (reftex-toc-restore-region start-line mark-line)
762 (throw 'exit 762 (throw 'exit
763 (format "TOC had to be updated first. Please check selection and repeat the command." pro-or-de)))) 763 "TOC had to be updated first. Please check selection and repeat the command.")))
764 764
765 (defun reftex-toc-rename-label () 765 (defun reftex-toc-rename-label ()
766 "Rename the currently selected label in the *TOC* buffer. 766 "Rename the currently selected label in the *TOC* buffer.
767 This launches a global search and replace in order to rename a label. 767 This launches a global search and replace in order to rename a label.
768 Renaming a label is hardly ever necessary - the only exeption is after 768 Renaming a label is hardly ever necessary - the only exeption is after