+(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."
)