(dns-mode-font-lock-keywords): Fix faces, reported by Steve Youngs

<steve@youngs.au.com> and suggested by Katsumi Yamaoka
<yamaoka@jpl.org>.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e1d749c..8c5f727 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -3,6 +3,9 @@
        * dns-mode.el (dns-mode): Fix menu for XEmacs, reported by Steve
        Youngs <steve@youngs.au.com> and suggested by Katsumi Yamaoka
        <yamaoka@jpl.org>.
+       (dns-mode-font-lock-keywords): Fix faces, reported by Steve Youngs
+       <steve@youngs.au.com> and suggested by Katsumi Yamaoka
+       <yamaoka@jpl.org>.
 
        * sieve.el (sieve-manage-mode): Ditto.
 

diff --git a/lisp/dns-mode.el b/lisp/dns-mode.el
index d32f12b..a6da37f 100644 (file)
--- a/lisp/dns-mode.el
+++ b/lisp/dns-mode.el
@@ -77,11 +77,11 @@
   "Name of face used for DNS classes, e.g., IN.")
 
 (defcustom dns-mode-font-lock-keywords
-  `(("^$ORIGIN" 0 dns-mode-control-entity-face)
-    ("^$INCLUDE" 0 dns-mode-control-entity-face)
-    ("^$[a-z0-9A-Z]+" 0 dns-mode-bad-control-entity-face)
-    (,(regexp-opt dns-mode-classes) 0 dns-mode-class-face)
-    (,(regexp-opt dns-mode-types) 0 dns-mode-type-face))
+  `(("^$ORIGIN" 0 ,dns-mode-control-entity-face)
+    ("^$INCLUDE" 0 ,dns-mode-control-entity-face)
+    ("^$[a-z0-9A-Z]+" 0 ,dns-mode-bad-control-entity-face)
+    (,(regexp-opt dns-mode-classes) 0 ,dns-mode-class-face)
+    (,(regexp-opt dns-mode-types) 0 ,dns-mode-type-face))
   "Font lock keywords used to highlight text in DNS master file mode."
   :type 'sexp
   :group 'dns-mode)