[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[AUCTeX-diffs] Changes to auctex/font-latex.el,v
From: |
Ralf Angeli |
Subject: |
[AUCTeX-diffs] Changes to auctex/font-latex.el,v |
Date: |
Sat, 26 Dec 2009 15:35:30 +0000 |
CVSROOT: /cvsroot/auctex
Module name: auctex
Changes by: Ralf Angeli <angeli> 09/12/26 15:35:30
Index: font-latex.el
===================================================================
RCS file: /cvsroot/auctex/auctex/font-latex.el,v
retrieving revision 5.188
retrieving revision 5.189
diff -u -b -r5.188 -r5.189
--- font-latex.el 2 Nov 2008 14:02:10 -0000 5.188
+++ font-latex.el 26 Dec 2009 15:35:29 -0000 5.189
@@ -1077,6 +1077,29 @@
All specified functions will be called and the region extended
backwards to the minimum over their return values.")
+(defvar font-latex-syntax-alist
+ ;; Use word syntax for @ because we use \> for matching macros and
+ ;; we don't want address@hidden to be found if we search for \foo.
+ '((?\( . ".") (?\) . ".") (?$ . "\"") (?@ . "w"))
+ "List of specifiers for the syntax alist of `font-lock-defaults'.")
+
+(defun font-latex-add-to-syntax-alist (list)
+ "Activate syntactic font locking for the entries in LIST.
+The entries are added to `font-latex-syntax-alist' and eventually
+end up in `font-lock-defaults'. Each entry in LIST should be a
+cons pair as expected by `font-lock-defaults'. The function also
+triggers Font Lock to recognize the change."
+ (make-local-variable 'font-latex-syntax-alist)
+ (nconc font-latex-syntax-alist list)
+;; FIXME: Are there situations where we need to alter `font-lock-defaults'
+;; directly?
+;; (dolist (entry list)
+;; (setcar (cdddr font-lock-defaults)
+;; (cons entry (cadddr font-lock-defaults))))
+ ;; Tell font-lock about the update.
+ (setq font-lock-set-defaults nil)
+ (font-lock-set-defaults))
+
;;;###autoload
(defun font-latex-setup ()
"Setup this buffer for LaTeX font-lock. Usually called from a hook."
@@ -1119,10 +1142,8 @@
;; `VirTeX-common-initialization' and place it in the different
;; `xxx-mode' calls instead, but _after_ `major-mode' is set.
(let ((defaults
- '((font-latex-keywords font-latex-keywords-1 font-latex-keywords-2)
- ;; Use word syntax for @ because we use \> for matching macros
- ;; and we don't want address@hidden to be found if we search for
\foo.
- nil nil ((?\( . ".") (?\) . ".") (?$ . "\"") (?@ . "w")) nil))
+ `((font-latex-keywords font-latex-keywords-1 font-latex-keywords-2)
+ nil nil ,font-latex-syntax-alist nil))
(variables
'((font-lock-comment-start-regexp . "%")
(font-lock-mark-block-function . mark-paragraph)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [AUCTeX-diffs] Changes to auctex/font-latex.el,v,
Ralf Angeli <=