From: Glenn Morris <rgm@gnu.org>
Date: Fri, 30 Jan 2009 03:45:51 +0000 (+0000)
Subject: Toby Speight  <streapadair at gmx.net>  (tiny change)
X-Git-Tag: emacs-pretest-23.0.90~72
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d1501442e0e38a084192acacd74ae2c7509f954b;p=emacs.git

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 fe7441cf11b..c009ca435a5 100644
--- 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 410bd99c08d..3677c9732a9 100644
--- 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