X-Git-Url: https://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=nagios-mode.el;h=7a699b73ca23e6b5534fa5a9407add53d41ba61e;hb=9f789827b613bf9efcec7e7925b61eb51caa6be1;hp=6b1bd3beac87315bcb43ce67fdcdb3271af18e5e;hpb=2506187c2e73f110af2f09e4f6e410652cc4cc44;p=nagios-mode.git diff --git a/nagios-mode.el b/nagios-mode.el index 6b1bd3b..7a699b7 100644 --- a/nagios-mode.el +++ b/nagios-mode.el @@ -268,18 +268,28 @@ +(defconst nagios-string + (eval-when-compile + "\\(\".*?\"\\)")) + + ;; The One True Font Locking Variable (defvar nagios-font-lock-keywords (list + ;; Font lock the comments first. + (cons nagios-comments font-lock-comment-delimiter-face) + + ;; Strings have the highest priority. For now, this is broken, + ;; but I guess I would rather have strings miscolored within + ;; comments than the other way around. + (cons nagios-string '(0 font-lock-string-face t)) + (cons nagios-special font-lock-keyword-face) (cons nagios-directives font-lock-variable-name-face) (cons nagios-macros font-lock-constant-face) - (cons nagios-definitions '(1 font-lock-function-name-face)) - - ;; And comments take precedence over everything else. - (cons nagios-comments '(0 font-lock-comment-delimiter-face t))) + (cons nagios-definitions '(1 font-lock-function-name-face))) "Rules for highlighting Nagios configuration files." )