CVSROOT: /sources/auctex Module name: reftex Changes by: Ralf Angeli <angeli> 08/03/16 16:50:40
Index: reftex-index.el =================================================================== RCS file: /sources/auctex/reftex/lisp/reftex-index.el,v retrieving revision 1.42 retrieving revision 1.43 diff -u -b -r1.42 -r1.43 --- reftex-index.el 23 Aug 2007 21:36:02 -0000 1.42 +++ reftex-index.el 16 Mar 2008 16:50:40 -0000 1.43 @@ -1,7 +1,7 @@ ;;; reftex-index.el --- index support with RefTeX ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, -;; 2006, 2007 Free Software Foundation, Inc. +;; 2006, 2007, 2008 Free Software Foundation, Inc. ;; Author: Carsten Dominik <[EMAIL PROTECTED]> ;; Maintainer: [email protected] @@ -51,9 +51,7 @@ (interactive "P") (let* ((use-default (not (equal arg '(16)))) ; check for double prefix ;; check if we have an active selection - (active (if (boundp 'zmacs-regions) - (and zmacs-regions (region-exists-p)) ; XEmacs - (and transient-mark-mode mark-active))) ; Emacs + (active (reftex-region-active-p)) (beg (if active (region-beginning) (save-excursion @@ -363,7 +361,7 @@ (goto-char (or pos (point-min))) (or (looking-at re) (reftex-nearest-match re (length literal)))) - (t (message reftex-no-follow-message) nil)))) + (t (message "%s" reftex-no-follow-message) nil)))) (when match (goto-char (match-beginning 0)) (recenter '(4)) @@ -1244,8 +1242,9 @@ (beginning-of-line 2)) (while (looking-at "^[ \t]*$") (beginning-of-line 2)) - (cond ((fboundp 'zmacs-activate-region) (zmacs-activate-region)) - ((boundp 'make-active) (setq mark-active t))) + (if (featurep 'xemacs) + (zmacs-activate-region) + (setq mark-active t)) (if (yes-or-no-p "Delete and rebuild header? ") (delete-region (point-min) (point)))) @@ -1497,8 +1496,9 @@ (unwind-protect (progn ;; Hide the region highlighting - (cond ((fboundp 'zmacs-deactivate-region) (zmacs-deactivate-region)) - ((fboundp 'deactivate-mark) (deactivate-mark))) + (if (featurep 'xemacs) + (zmacs-deactivate-region) + (deactivate-mark)) (delete-other-windows) (reftex-index-visit-phrases-buffer) (reftex-index-all-phrases)) _______________________________________________ auctex-diffs mailing list [EMAIL PROTECTED] http://lists.gnu.org/mailman/listinfo/auctex-diffs
