Toby Speight <streapadair at gmx.net> (tiny change)

(hosts-generic-mode, named-database-generic-mode): Fix regexp quoting.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fe7441cf11b2415a5e5c164a812ce2b205cbb1fe..c009ca435a51d920f2fe84e3a8f2a4e8366065ca 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2009-01-30  Toby Speight  <streapadair@gmx.net>  (tiny change)
+
+       * generic-x.el (hosts-generic-mode, named-database-generic-mode):
+       Fix regexp quoting.
+
 2009-01-29  Michael Albinus  <michael.albinus@gmx.de>
 
        * net/tramp.el (tramp-process-actions, tramp-read-passwd): Allow

diff --git a/lisp/generic-x.el b/lisp/generic-x.el
index 410bd99c08d6acba0b3efcb4c124e491b9ed5a59..3677c9732a9a254f66e9b90112c9323f85345b10 100644 (file)
--- a/lisp/generic-x.el
+++ b/lisp/generic-x.el
@@ -376,7 +376,7 @@ your changes into effect."
 (define-generic-mode hosts-generic-mode
   '(?#)
   '("localhost")
-  '(("\\([0-9]+\.[0-9]+\.[0-9]+\.[0-9]+\\)" 1 font-lock-constant-face))
+  '(("\\([0-9]+\\.[0-9]+\\.[0-9]+\\.[0-9]+\\)" 1 font-lock-constant-face))
   '("[hH][oO][sS][tT][sS]\\'")
   nil
   "Generic mode for HOSTS files."))
@@ -1811,7 +1811,7 @@ like an INI file.  You can add this hook to `find-file-hook'."
   '("cache" "primary" "secondary" "forwarders" "limit" "options"
     "directory" "check-names")
   ;; List of additional font-lock-expressions
-  '(("\\([0-9]+\.[0-9]+\.[0-9]+\.[0-9]+\\)" 1 font-lock-constant-face)
+  '(("\\([0-9]+\\.[0-9]+\\.[0-9]+\\.[0-9]+\\)" 1 font-lock-constant-face)
     ("^directory\\s-+\\(.*\\)"              1 font-lock-variable-name-face)
     ("^\\(primary\\|cache\\)\\s-+\\([.A-Za-z]+\\)\\s-+\\(.*\\)"
      (2 font-lock-variable-name-face)
@@ -1829,7 +1829,7 @@ like an INI file.  You can add this hook to `find-file-hook'."
   ;; List of keywords
   '("IN" "NS" "CNAME" "SOA" "PTR" "MX" "A")
   ;; List of additional font-lock-expressions
-  '(("\\([0-9]+\.[0-9]+\.[0-9]+\.[0-9]+\\)" 1 font-lock-constant-face)
+  '(("\\([0-9]+\\.[0-9]+\\.[0-9]+\\.[0-9]+\\)" 1 font-lock-constant-face)
     ("^\\([.A-Za-z0-9]+\\)"                 1 font-lock-variable-name-face))
   ;; List of additional auto-mode-alist expressions
   nil