[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[AUCTeX-diffs] Changes to reftex/lisp/reftex-index.el,v
From: |
Ralf Angeli |
Subject: |
[AUCTeX-diffs] Changes to reftex/lisp/reftex-index.el,v |
Date: |
Sun, 16 Mar 2008 16:50:41 +0000 |
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 <address@hidden>
;; Maintainer: address@hidden
@@ -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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [AUCTeX-diffs] Changes to reftex/lisp/reftex-index.el,v,
Ralf Angeli <=