(reftex-mode): Moved creation of special syntax tables to top-level.
authorCarsten Dominik <dominik@science.uva.nl>
Thu, 15 Aug 2002 11:28:50 +0000 (11:28 +0000)
committerCarsten Dominik <dominik@science.uva.nl>
Thu, 15 Aug 2002 11:28:50 +0000 (11:28 +0000)
lisp/textmodes/reftex.el

index 0ccaff9..3d469d5 100644 (file)
 (defvar reftex-syntax-table nil)
 (defvar reftex-syntax-table-for-bib nil)
 
+;; Prepare the special syntax tables.
+(unless reftex-syntax-table
+  (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))
+
 (defvar reftex-auto-view-crossref-timer nil
   "The timer used for auto-view-crossref.")
 
@@ -368,16 +381,6 @@ on the menu bar.
          (and reftex-auto-view-crossref
               (reftex-toggle-auto-view-crossref))
          (put 'reftex-auto-view-crossref 'initialized t))
-       (unless reftex-syntax-table
-         (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)))