CVSROOT: /cvsroot/auctex
Module name: auctex
Changes by: Ralf Angeli <angeli> 08/05/25 06:50:33
Index: texmathp.el
===================================================================
RCS file: /cvsroot/auctex/auctex/texmathp.el,v
retrieving revision 5.22
retrieving revision 5.23
diff -u -b -r5.22 -r5.23
--- texmathp.el 3 Feb 2008 14:53:32 -0000 5.22
+++ texmathp.el 25 May 2008 06:50:32 -0000 5.23
@@ -233,14 +233,15 @@
;; We need our own syntax table to play with the syntax of () [] and {}
;; For speed reasons we define it statically instead of copying it each time.
-(defvar texmathp-syntax-table (make-syntax-table)
- "Syntax table used while texmathp is parsing.")
-(mapcar (lambda (x) (modify-syntax-entry (car x) (cdr x)
texmathp-syntax-table))
+(defvar texmathp-syntax-table
+ (let ((table (make-syntax-table)))
+ (mapc (lambda (x) (modify-syntax-entry (car x) (cdr x) table))
'((?\\ . "\\") (?\f .">") (?\n . ">") (?% . "<")
(?\[ . ".") (?\] . ".") (?\{ . "(}") (?\} . "){")
(?\( . ".") (?\) . ".") (?\" . ".") (?& . ".") (?_ . ".")
- (?@ . "_") (?~ . " ") (?$ . "$") (?' . "w")
- ))
+ (?@ . "_") (?~ . " ") (?$ . "$") (?' . "w")))
+ table)
+ "Syntax table used while texmathp is parsing.")
;;;###autoload
(defun texmathp ()
_______________________________________________
auctex-diffs mailing list
[EMAIL PROTECTED]
http://lists.gnu.org/mailman/listinfo/auctex-diffs
