emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/lisp/textmodes/reftex.el


From: Carsten Dominik
Subject: [Emacs-diffs] Changes to emacs/lisp/textmodes/reftex.el
Date: Mon, 22 Jul 2002 06:36:27 -0400

Index: emacs/lisp/textmodes/reftex.el
diff -c emacs/lisp/textmodes/reftex.el:1.40 emacs/lisp/textmodes/reftex.el:1.41
*** emacs/lisp/textmodes/reftex.el:1.40 Mon Jul 16 03:46:48 2001
--- emacs/lisp/textmodes/reftex.el      Mon Jul 22 06:36:26 2002
***************
*** 1,8 ****
  ;;; reftex.el --- minor mode for doing \label, \ref, \cite, \index in LaTeX
  ;; Copyright (c) 1997, 1998, 1999, 2000 Free Software Foundation, Inc.
  
! ;; Author: Carsten Dominik <address@hidden>
! ;; Version: 4.16
  ;; Keywords: tex
  
  ;; This file is part of GNU Emacs.
--- 1,8 ----
  ;;; reftex.el --- minor mode for doing \label, \ref, \cite, \index in LaTeX
  ;; Copyright (c) 1997, 1998, 1999, 2000 Free Software Foundation, Inc.
  
! ;; Author: Carsten Dominik <address@hidden>
! ;; Version: 4.17
  ;; Keywords: tex
  
  ;; This file is part of GNU Emacs.
***************
*** 300,306 ****
  ;;; Define the formal stuff for a minor mode named RefTeX.
  ;;;
  
! (defconst reftex-version "RefTeX version 4.16"
    "Version string for RefTeX.")
  
  (defvar reftex-mode nil
--- 300,306 ----
  ;;; Define the formal stuff for a minor mode named RefTeX.
  ;;;
  
! (defconst reftex-version "RefTeX version 4.17"
    "Version string for RefTeX.")
  
  (defvar reftex-mode nil
***************
*** 312,317 ****
--- 312,318 ----
  
  (defvar reftex-mode-menu nil)
  (defvar reftex-syntax-table nil)
+ (defvar reftex-syntax-table-for-bib nil)
  
  (defvar reftex-auto-view-crossref-timer nil
    "The timer used for auto-view-crossref.")
***************
*** 371,376 ****
--- 372,383 ----
          (setq reftex-syntax-table (copy-syntax-table (syntax-table)))
          (modify-syntax-entry ?\( "." reftex-syntax-table)
          (modify-syntax-entry ?\) "." reftex-syntax-table))
+       (unless reftex-syntax-table-for-bib
+         (setq reftex-syntax-table-for-bib (copy-syntax-table 
reftex-syntax-table))
+         (modify-syntax-entry ?\' "." reftex-syntax-table-for-bib)
+         (modify-syntax-entry ?\" "." reftex-syntax-table-for-bib)
+         (modify-syntax-entry ?\[ "." reftex-syntax-table-for-bib)
+         (modify-syntax-entry ?\] "." reftex-syntax-table-for-bib))
          (run-hooks 'reftex-mode-hook))
      ;; Mode was turned off
      (easy-menu-remove reftex-mode-menu)))
***************
*** 610,658 ****
  ;; The following constants are derived from `reftex-label-alist'.
  
  ;; Prompt used for label type queries directed to the user.
! (defconst reftex-type-query-prompt nil)
  
  ;; Help string for label type queries.
! (defconst reftex-type-query-help nil)
  
  ;; Alist relating label type to reference format.
! (defconst reftex-typekey-to-format-alist nil)
  
  ;; Alist relating label type to label prefix.
! (defconst reftex-typekey-to-prefix-alist nil)
  
  ;; Alist relating environments or macros to label type and context regexp.
! (defconst reftex-env-or-mac-alist nil)
  
  ;; List of special environment parser functions
! (defconst reftex-special-env-parsers nil)
  
  ;; List of macros carrying a label.
! (defconst reftex-label-mac-list nil)
  
  ;; List of environments carrying a label.
! (defconst reftex-label-env-list nil)
  
  ;; List of all typekey letters in use.
! (defconst reftex-typekey-list nil)
  
  ;; Alist relating magic words to a label type.
! (defconst reftex-words-to-typekey-alist nil)
  
  ;; The last list-of-labels entry used in a reference.
  (defvar reftex-last-used-reference (list nil nil nil nil))
  
  ;; Alist relating index macros to other info.
! (defconst reftex-key-to-index-macro-alist nil)
  ;; Prompt for index macro queries
! (defconst reftex-query-index-macro-prompt nil)
  ;; Help string for index macro queries
! (defconst reftex-query-index-macro-help nil)
  
  ;; The message when follow-mode is suspended
! (defconst reftex-no-follow-message
    "No follow-mode into unvisited file.  Press SPC to visit it.")
! (defconst reftex-no-info-message
    "%s: info not available, use `\\[reftex-view-crossref]' to get it.")
  
  ;; Global variables used for communication between functions.
--- 617,665 ----
  ;; The following constants are derived from `reftex-label-alist'.
  
  ;; Prompt used for label type queries directed to the user.
! (defvar reftex-type-query-prompt nil)
  
  ;; Help string for label type queries.
! (defvar reftex-type-query-help nil)
  
  ;; Alist relating label type to reference format.
! (defvar reftex-typekey-to-format-alist nil)
  
  ;; Alist relating label type to label prefix.
! (defvar reftex-typekey-to-prefix-alist nil)
  
  ;; Alist relating environments or macros to label type and context regexp.
! (defvar reftex-env-or-mac-alist nil)
  
  ;; List of special environment parser functions
! (defvar reftex-special-env-parsers nil)
  
  ;; List of macros carrying a label.
! (defvar reftex-label-mac-list nil)
  
  ;; List of environments carrying a label.
! (defvar reftex-label-env-list nil)
  
  ;; List of all typekey letters in use.
! (defvar reftex-typekey-list nil)
  
  ;; Alist relating magic words to a label type.
! (defvar reftex-words-to-typekey-alist nil)
  
  ;; The last list-of-labels entry used in a reference.
  (defvar reftex-last-used-reference (list nil nil nil nil))
  
  ;; Alist relating index macros to other info.
! (defvar reftex-key-to-index-macro-alist nil)
  ;; Prompt for index macro queries
! (defvar reftex-query-index-macro-prompt nil)
  ;; Help string for index macro queries
! (defvar reftex-query-index-macro-help nil)
  
  ;; The message when follow-mode is suspended
! (defvar reftex-no-follow-message
    "No follow-mode into unvisited file.  Press SPC to visit it.")
! (defvar reftex-no-info-message
    "%s: info not available, use `\\[reftex-view-crossref]' to get it.")
  
  ;; Global variables used for communication between functions.
***************
*** 1092,1100 ****
                  reftex-section-levels))
  
      ;; Calculate the regular expressions
!     (let* ((wbol "\\(\\`\\|[\n\r]\\)[ \t]*")
           (label-re "\\\\label{\\([^}]*\\)}")
!          (include-re (concat wbol "\\\\\\(include\\|input\\)[{ \t]+\\([^} 
\t\n\r]+\\)"))
           (section-re
            (concat wbol "\\\\\\("
                    (mapconcat (lambda (x) (regexp-quote (car x)))
--- 1099,1113 ----
                  reftex-section-levels))
  
      ;; Calculate the regular expressions
!     (let* (
! ;        (wbol "\\(\\`\\|[\n\r]\\)[ \t]*")
!          (wbol "\\(\\`\\|[\n\r]\\)[ \t]*")
           (label-re "\\\\label{\\([^}]*\\)}")
!          (include-re (concat wbol 
!                              "\\\\\\("
!                              (mapconcat 'identity 
!                                         reftex-include-file-commands "\\|")
!                              "\\)[{ \t]+\\([^} \t\n\r]+\\)"))
           (section-re
            (concat wbol "\\\\\\("
                    (mapconcat (lambda (x) (regexp-quote (car x)))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]