From: Richard M. Stallman Date: Sat, 7 Dec 1996 20:26:25 +0000 (+0000) Subject: Fixed syntax table for quotes since they messed up X-Git-Tag: emacs-20.1~3326 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0f6db76a85f1a118bb3f3b5773a5aa8628414c18;p=emacs.git Fixed syntax table for quotes since they messed up highlighting in comments and other constructions. --- diff --git a/lisp/progmodes/m4-mode.el b/lisp/progmodes/m4-mode.el index c1bf89582e4..a9177ea91e0 100644 --- a/lisp/progmodes/m4-mode.el +++ b/lisp/progmodes/m4-mode.el @@ -59,6 +59,8 @@ ("\\\$\\\*" . font-lock-variable-name-face) ("\\\$[0-9]" . font-lock-variable-name-face) ("\\\$\\\#" . font-lock-variable-name-face) + ("\\\$\\\@" . font-lock-variable-name-face) + ("\\\$\\\*" . font-lock-variable-name-face) ("\\b\\(builtin\\|change\\(com\\|quote\\|word\\)\\|d\\(e\\(bug\\(file\\|mode\\)\\|cr\\|f\\(ine\\|n\\)\\)\\|iv\\(ert\\|num\\)\\|nl\\|umpdef\\)\\|e\\(rrprint\\|syscmd\\|val\\)\\|f\\(ile\\|ormat\\)\\|gnu\\|i\\(f\\(def\\|else\\)\\|n\\(c\\(lude\\|r\\)\\|d\\(ex\\|ir\\)\\)\\)\\|l\\(en\\|ine\\)\\|m\\(4\\(exit\\|wrap\\)\\|aketemp\\)\\|p\\(atsubst\\|opdef\\|ushdef\\)\\|regexp\\|s\\(hift\\|include\\|ubstr\\|ys\\(cmd\\|val\\)\\)\\|tra\\(ceo\\(ff\\|n\\)\\|nslit\\)\\|un\\(d\\(efine\\|ivert\\)\\|ix\\)\\)\\b" . font-lock-keyword-face) ("\\b\\(m4_\\(builtin\\|change\\(com\\|quote\\|word\\)\\|d\\(e\\(bug\\(file\\|mode\\)\\|cr\\|f\\(ine\\|n\\)\\)\\|iv\\(ert\\|num\\)\\|nl\\|umpdef\\)\\|e\\(rrprint\\|syscmd\\|val\\)\\|f\\(ile\\|ormat\\)\\|i\\(f\\(def\\|else\\)\\|n\\(c\\(lude\\|r\\)\\|d\\(ex\\|ir\\)\\)\\)\\|l\\(en\\|ine\\)\\|m\\(4\\(_undefine\\|exit\\|wrap\\)\\|aketemp\\)\\|p\\(atsubst\\|opdef\\|ushdef\\)\\|regexp\\|s\\(hift\\|include\\|ubstr\\|ys\\(cmd\\|val\\)\\)\\|tra\\(ceo\\(ff\\|n\\)\\|nslit\\)\\|undivert\\)\\)\\b" . font-lock-keyword-face) "default font-lock-keywords") @@ -76,6 +78,7 @@ (modify-syntax-entry ?} "_" m4-mode-syntax-table) (modify-syntax-entry ?* "w" m4-mode-syntax-table) (modify-syntax-entry ?_ "w" m4-mode-syntax-table) +(modify-syntax-entry ?\" "w" m4-mode-syntax-table) (defvar m4-mode-map (let ((map (make-sparse-keymap)))