CVSROOT: /cvsroot/auctex
Module name: auctex
Changes by: Ralf Angeli <angeli> 07/08/19 20:23:13
Index: babel.el
===================================================================
RCS file: /cvsroot/auctex/auctex/style/babel.el,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -b -r1.6 -r1.7
--- babel.el 25 May 2006 07:50:56 -0000 1.6
+++ babel.el 19 Aug 2007 20:23:13 -0000 1.7
@@ -91,23 +91,18 @@
;; Fontification
(when (and (featurep 'font-latex)
(eq TeX-install-font-lock 'font-latex-setup))
- (mapcar (lambda (keyword)
- (add-to-list 'font-latex-match-function-keywords-local keyword))
- '("selectlanguage"
- ;; "foreignlanguage" ; Enable once we support proper
- ;; "iflanguage" ; highlighting of multiple arguments.
- "languagename"
- "useshorthands"
- "languageshorthands"
- "shorthandon"
- "shorthandoff"))
- (font-latex-match-function-make)
- (add-to-list 'font-latex-match-variable-keywords-local "defineshorthand")
- (add-to-list 'font-latex-match-variable-keywords-local "aliasshorthand")
- (add-to-list 'font-latex-match-variable-keywords-local
"languageattribute")
- (font-latex-match-variable-make)
- ;; Tell font-lock about the update.
- (setq font-lock-set-defaults nil)
- (font-lock-set-defaults))))
+ (font-latex-add-keywords '(("selectlanguage" "{")
+ ("foreignlanguage" "{{")
+ ("iflanguage" "{{{")
+ ("languagename" "")
+ ("useshorthands" "{")
+ ("languageshorthands" "{")
+ ("shorthandon" "{")
+ ("shorthandoff" "{"))
+ 'function)
+ (font-latex-add-keywords '(("defineshorthand" "{{")
+ ("aliasshorthand" "{{")
+ ("languageattribute" "{{"))
+ 'variable))))
;;; babel.el ends here
_______________________________________________
auctex-diffs mailing list
[EMAIL PROTECTED]
http://lists.gnu.org/mailman/listinfo/auctex-diffs
