/[emacs]/emacs/lisp/textmodes/reftex.el
ViewVC logotype

Diff of /emacs/lisp/textmodes/reftex.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.45 by cdominik, Tue Aug 20 10:41:01 2002 UTC revision 1.46 by cdominik, Tue Aug 27 09:54:41 2002 UTC
# Line 327  Line 327 
327    (modify-syntax-entry ?\[ "." reftex-syntax-table-for-bib)    (modify-syntax-entry ?\[ "." reftex-syntax-table-for-bib)
328    (modify-syntax-entry ?\] "." reftex-syntax-table-for-bib))    (modify-syntax-entry ?\] "." reftex-syntax-table-for-bib))
329    
330    ;; The following definitions are out of place, but I need them here
331    ;; to make the compilation of reftex-mode not complain.
332  (defvar reftex-auto-view-crossref-timer nil  (defvar reftex-auto-view-crossref-timer nil
333    "The timer used for auto-view-crossref.")    "The timer used for auto-view-crossref.")
334    (defvar reftex-toc-auto-recenter-timer nil
335      "The idle timer used to recenter the toc window.")
336    
337  ;;;###autoload  ;;;###autoload
338  (defun turn-on-reftex ()  (defun turn-on-reftex ()
# Line 381  on the menu bar. Line 385  on the menu bar.
385            (and reftex-auto-view-crossref            (and reftex-auto-view-crossref
386                 (reftex-toggle-auto-view-crossref))                 (reftex-toggle-auto-view-crossref))
387            (put 'reftex-auto-view-crossref 'initialized t))            (put 'reftex-auto-view-crossref 'initialized t))
388            (unless (get 'reftex-auto-recenter-toc 'initialized)
389              (and reftex-auto-recenter-toc
390                   (reftex-toggle-auto-toc-recenter))
391              (put 'reftex-auto-recenter-toc 'initialized t))
392    
393          ;; Prepare the special syntax tables.          ;; Prepare the special syntax tables.
394          (setq reftex-syntax-table (copy-syntax-table (syntax-table)))          (setq reftex-syntax-table (copy-syntax-table (syntax-table)))
# Line 695  the label information is recompiled on n Line 703  the label information is recompiled on n
703  (defvar reftex-callback-fwd t)  (defvar reftex-callback-fwd t)
704  (defvar reftex-last-toc-master nil  (defvar reftex-last-toc-master nil
705    "Stores the name of the tex file that `reftex-toc' was last run on.")    "Stores the name of the tex file that `reftex-toc' was last run on.")
 (defvar reftex-auto-view-crossref-timer nil  
   "The timer used for auto-view-crossref.")  
706  ;; Marker for return point from recursive edit  ;; Marker for return point from recursive edit
707  (defvar reftex-recursive-edit-marker (make-marker))  (defvar reftex-recursive-edit-marker (make-marker))
708    
# Line 1641  When DIE is non-nil, throw an error if f Line 1647  When DIE is non-nil, throw an error if f
1647    "Make a fancyref \\Fref reference." t)    "Make a fancyref \\Fref reference." t)
1648  (autoload 'reftex-show-label-location "reftex-ref")  (autoload 'reftex-show-label-location "reftex-ref")
1649  (autoload 'reftex-query-label-type "reftex-ref")  (autoload 'reftex-query-label-type "reftex-ref")
1650    (autoload 'reftex-goto-label "reftex-ref"
1651      "Prompt for label name and go to that location." t)
1652    
1653  ;;; =========================================================================  ;;; =========================================================================
1654  ;;;  ;;;
1655  ;;; Table of contents  ;;; Table of contents
1656    
1657  (autoload 'reftex-toc "reftex-toc"  (autoload 'reftex-toc "reftex-toc"
1658   "Show the table of contents for the current document." t)    "Show the table of contents for the current document." t)
1659    (autoload 'reftex-toc-recenter "reftex-toc"
1660      "Display the TOC window and highlight line corresponding to current position." t)
1661    (autoload 'reftex-toggle-auto-toc-recenter "reftex-toc" t)
1662    
1663    
1664  ;;; =========================================================================  ;;; =========================================================================
# Line 2313  IGNORE-WORDS List of words which should Line 2323  IGNORE-WORDS List of words which should
2323  (if (featurep 'xemacs) (require 'overlay))  (if (featurep 'xemacs) (require 'overlay))
2324    
2325  ;; We keep a vector with several different overlays to do our highlighting.  ;; We keep a vector with several different overlays to do our highlighting.
2326  (defvar reftex-highlight-overlays [nil nil])  (defvar reftex-highlight-overlays [nil nil nil])
2327    
2328  ;; Initialize the overlays  ;; Initialize the overlays
2329  (aset reftex-highlight-overlays 0 (make-overlay 1 1))  (aset reftex-highlight-overlays 0 (make-overlay 1 1))
# Line 2322  IGNORE-WORDS List of words which should Line 2332  IGNORE-WORDS List of words which should
2332  (aset reftex-highlight-overlays 1 (make-overlay 1 1))  (aset reftex-highlight-overlays 1 (make-overlay 1 1))
2333  (overlay-put (aref reftex-highlight-overlays 1)  (overlay-put (aref reftex-highlight-overlays 1)
2334               'face reftex-cursor-selected-face)               'face reftex-cursor-selected-face)
2335    (aset reftex-highlight-overlays 2 (make-overlay 1 1))
2336    (overlay-put (aref reftex-highlight-overlays 2)
2337                 'face reftex-cursor-selected-face)
2338    
2339  ;; Two functions for activating and deactivation highlight overlays  ;; Two functions for activating and deactivation highlight overlays
2340  (defun reftex-highlight (index begin end &optional buffer)  (defun reftex-highlight (index begin end &optional buffer)
# Line 2344  IGNORE-WORDS List of words which should Line 2357  IGNORE-WORDS List of words which should
2357  ;; The default bindings in the mode map.  ;; The default bindings in the mode map.
2358  (loop for x in  (loop for x in
2359        '(("\C-c="  . reftex-toc)        '(("\C-c="  . reftex-toc)
2360            ("\C-c-"  . reftex-toc-recenter)
2361          ("\C-c("  . reftex-label)          ("\C-c("  . reftex-label)
2362          ("\C-c)"  . reftex-reference)          ("\C-c)"  . reftex-reference)
2363          ("\C-c["  . reftex-citation)          ("\C-c["  . reftex-citation)
# Line 2393  IGNORE-WORDS List of words which should Line 2407  IGNORE-WORDS List of words which should
2407   "Menu used in RefTeX mode"   "Menu used in RefTeX mode"
2408   `("Ref"   `("Ref"
2409     ["Table of Contents"       reftex-toc t]     ["Table of Contents"       reftex-toc t]
2410       ["Recenter TOC"            reftex-toc-recenter t]
2411     "--"     "--"
2412     ["\\label"                 reftex-label t]     ["\\label"                 reftex-label t]
2413     ["\\ref"                   reftex-reference t]     ["\\ref"                   reftex-reference t]
# Line 2414  IGNORE-WORDS List of words which should Line 2429  IGNORE-WORDS List of words which should
2429      ["Entire Document"        reftex-parse-all t]      ["Entire Document"        reftex-parse-all t]
2430      ["Save to File"           (reftex-access-parse-file 'write)      ["Save to File"           (reftex-access-parse-file 'write)
2431       (> (length (symbol-value reftex-docstruct-symbol)) 0)]       (> (length (symbol-value reftex-docstruct-symbol)) 0)]
2432      ["Restore from File"      (reftex-access-parse-file 'restore) t]      ["Restore from File"      (reftex-access-parse-file 'restore) t])
     "--"  
     ["Reset RefTeX Mode"       reftex-reset-mode t])  
2433     ("Global Actions"     ("Global Actions"
2434      ["Search Whole Document"  reftex-search-document t]      ["Search Whole Document"  reftex-search-document t]
2435      ["Replace in Document"    reftex-query-replace-document t]      ["Replace in Document"    reftex-query-replace-document t]
2436      ["Grep on Document"       reftex-grep-document t]      ["Grep on Document"       reftex-grep-document t]
2437      "--"      "--"
2438        ["Goto Label"             reftex-goto-label t]
2439      ["Find Duplicate Labels"  reftex-find-duplicate-labels t]      ["Find Duplicate Labels"  reftex-find-duplicate-labels t]
2440      ["Change Label and Refs"  reftex-change-label t]      ["Change Label and Refs"  reftex-change-label t]
2441      ["Renumber Simple Labels" reftex-renumber-simple-labels t]      ["Renumber Simple Labels" reftex-renumber-simple-labels t]
# Line 2439  IGNORE-WORDS List of words which should Line 2453  IGNORE-WORDS List of words which should
2453       (setq reftex-save-parse-info (not reftex-save-parse-info))       (setq reftex-save-parse-info (not reftex-save-parse-info))
2454       :style toggle :selected reftex-save-parse-info]       :style toggle :selected reftex-save-parse-info]
2455      "--"      "--"
2456        "TOC RECENTER"
2457        ["Automatic Recenter" reftex-toggle-auto-toc-recenter
2458         :style toggle :selected reftex-toc-auto-recenter-timer]
2459        "--"
2460      "CROSSREF INFO"      "CROSSREF INFO"
2461      ["Automatic Info" reftex-toggle-auto-view-crossref      ["Automatic Info" reftex-toggle-auto-view-crossref
2462       :style toggle :selected reftex-auto-view-crossref-timer]       :style toggle :selected reftex-auto-view-crossref-timer]
# Line 2492  IGNORE-WORDS List of words which should Line 2510  IGNORE-WORDS List of words which should
2510                        (list 'quote 'reftex-index-macros-style)))))                        (list 'quote 'reftex-index-macros-style)))))
2511         reftex-index-macros-builtin))         reftex-index-macros-builtin))
2512     "--"     "--"
2513        ["Reset RefTeX Mode"       reftex-reset-mode t]
2514       "--"
2515     ("Customize"     ("Customize"
2516      ["Browse RefTeX Group" reftex-customize t]      ["Browse RefTeX Group" reftex-customize t]
2517      "--"      "--"

Legend:
Removed from v.1.45  
changed lines
  Added in v.1.46

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26