[AUCTeX-diffs] Changes to auctex/tex.el,v

[Ralf Angeli]

CVSROOT:        /cvsroot/auctex
Module name:    auctex
Changes by:     Ralf Angeli <angeli>    08/06/28 14:23:08

Index: tex.el
===================================================================
RCS file: /cvsroot/auctex/auctex/tex.el,v
retrieving revision 5.619
retrieving revision 5.620
diff -u -b -r5.619 -r5.620
--- tex.el      25 May 2008 06:50:32 -0000      5.619
+++ tex.el      28 Jun 2008 14:23:08 -0000      5.620
@@ -4176,12 +4176,13 @@
   "Return a syntax table for searching purposes.
 ARGS may be a list of characters.  For each of them the
 respective predefined syntax is set.  Currently the parenthetical
-characters ?{, ?}, ?[, and ?] are supported.  The syntax of each
-of these characters not specified will be reset to \" \"."
-  (let ((char-syntax-alist '((?\{ . "(}")
-                            (?\} . "){")
-                            (?\[ . "(]")
-                            (?\] . ")["))))
+characters ?{, ?}, ?[, ?], ?\(, ?\), ?<, and ?> are supported.
+The syntax of each of these characters not specified will be
+reset to \" \"."
+  (let ((char-syntax-alist '((?\{ . "(}") (?\} . "){")
+                            (?\[ . "(]") (?\] . ")[")
+                            (?\( . "()") (?\) . ")(")
+                            (?\< . "(>") (?\> . ")<"))))
     ;; Clean entries possibly set before.
     (modify-syntax-entry ?\\ " " TeX-search-syntax-table)
     (modify-syntax-entry ?@ " " TeX-search-syntax-table)
@@ -4196,6 +4197,7 @@
       (modify-syntax-entry (car elt) " " TeX-search-syntax-table))
     ;; Now set what we got.
     (dolist (elt args)
+      (unless (assoc elt char-syntax-alist) (error "Char not supported"))
       (modify-syntax-entry elt (cdr (assoc elt char-syntax-alist))
                           TeX-search-syntax-table))
     ;; Return the syntax table.