emacs: lisp/textmodes/reftex-global.el comparison

comparison lisp/textmodes/reftex-global.el @ 65265:b1bd53759945

(isearch-next-buffer-function, TeX-master): Add defvars.

author	Juanma Barranquero <lekktu@gmail.com>
date	Wed, 31 Aug 2005 10:29:27 +0000
parents	5b1a238fcbb4
children	253cad16882d a3716f7538f2

comparison

equal deleted inserted replaced

-:a95981ee377b
+:b1bd53759945
 (eval-when-compile (require 'cl))
 (provide 'reftex-global)
 (require 'reftex)
 ;;;
+(defvar isearch-next-buffer-function)
+(defvar TeX-master)
 (defun reftex-create-tags-file ()
 "Create TAGS file by running `etags' on the current document.
 The TAGS file is also immediately visited with `visit-tags-table'."
 (interactive)
 (if (null dlist) (error "No duplicate labels in document"))
 (switch-to-buffer-other-window "*Duplicate Labels*")
 (set (make-local-variable 'TeX-master) master)
 (erase-buffer)
 (insert "                MULTIPLE LABELS IN CURRENT DOCUMENT:\n")
 (insert
 " Move point to label and type `r' to run a query-replace on the label\n"
 " and its references.  Type `q' to exit this buffer.\n\n")
 (insert " LABEL               FILE\n")
 (insert " -------------------------------------------------------------\n")
 (use-local-map (make-sparse-keymap))
 ;; Get some insurance
 (if (and (reftex-is-multi)
 (not (yes-or-no-p "Replacing all simple labels in multiple files is risky.  Continue? ")))
 (error "Abort"))
 ;; Make the translation list
 (let* ((re-core (concat "\\("
 (mapconcat 'cdr reftex-typekey-to-prefix-alist "\\|")
 "\\)"))
 (label-re (concat "\\`" re-core "\\([0-9]+\\)\\'"))
 (search-re (concat "[{,]\\(" re-core "\\([0-9]+\\)\\)[,}]"))
 (error-fmt "Undefined label or reference %s. Ignore and continue? ")
 (label-numbers-alist (mapcar (lambda (x) (cons (cdr x) 0))
 ;; Save all document buffers before this operation
 (reftex-save-all-document-buffers)
 ;; First test to check for erros
 (setq n (reftex-translate
 files search-re translate-alist error-fmt 'test))
 ;; Now the real thing.
 (if (yes-or-no-p
 (format "Replace %d items at %d places in %d files? "
 (length translate-alist) n (length files)))
 (progn
 (let ((inhibit-quit t))  ;; Do not disturb...
 (reftex-translate
 (message "Done replacing simple labels."))
 (message "No replacements done"))))
 (defun reftex-translate (files search-re translate-alist error-fmt test)
 ;; In FILES, look for SEARCH-RE and replace match 1 of it with
 ;; its association in TRANSLATE-ALSIT.
 ;; If we do not find an association and TEST is non-nil, query
 ;; to ignore the problematic string.
 ;; If TEST is nil, it is ignored without query.
 ;; Return the number of replacements.
 (let ((n 0) file label match-data buf macro pos cell)
 (while (setq file (pop files))
 (setq buf (reftex-get-file-buffer-force file))
 (goto-char (or pos (point)))
 (when (and macro
 (or (looking-at "\\\\ref")
 (looking-at "\\\\[a-zA-Z]*ref\\(range\\)?[^a-zA-Z]")
 (looking-at "\\\\ref[a-zA-Z]*[^a-zA-Z]")
 (looking-at (format
 reftex-find-label-regexp-format
 (regexp-quote label)))))
 ;; OK, we should replace it.
 (set-match-data match-data)
 (cond
 (buffer-name buf)))
 (error "Abort"))))))
 (defun reftex-isearch-wrap-function ()
 (if (not isearch-word)
 (switch-to-buffer
 (funcall isearch-next-buffer-function (current-buffer) t)))
 (goto-char (if isearch-forward (point-min) (point-max))))
 (defun reftex-isearch-push-state-function ()
 `(lambda (cmd)
 With no argument, this command toggles
 `reftex-isearch-minor-mode'.  With a prefix argument ARG, turn
 `reftex-isearch-minor-mode' on iff ARG is positive."
 (interactive "P")
 (let ((old-reftex-isearch-minor-mode reftex-isearch-minor-mode))
 (setq reftex-isearch-minor-mode
 	  (not (or (and (null arg) reftex-isearch-minor-mode)
 		   (<= (prefix-numeric-value arg) 0))))
 (unless (eq reftex-isearch-minor-mode old-reftex-isearch-minor-mode)
 (if reftex-isearch-minor-mode
 	  (progn
 	      (setq reftex-isearch-minor-mode nil))))
 	(remove-hook 'reftex-mode-hook 'reftex-isearch-minor-mode)))
 ;; Force modeline redisplay.
 (set-buffer-modified-p (buffer-modified-p))))
 (add-minor-mode 'reftex-isearch-minor-mode "/I" nil nil
 		'reftex-isearch-minor-mode)
 ;;; arch-tag: 2dbf7633-92c8-4340-8656-7aa019d0f80d
 ;;; reftex-global.el ends here

Mercurial > emacs

comparison lisp/textmodes/reftex-global.el @ 65265:b1bd53759945