Mercurial > emacs

changeset 101660:782b6464073e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Toby Speight <streapadair at gmx.net> (tiny change) (hosts-generic-mode, named-database-generic-mode): Fix regexp quoting.
author Glenn Morris <rgm@gnu.org>
date Fri, 30 Jan 2009 03:45:51 +0000
parents a631ca2570b2
children 26b8d12cf7a4
files lisp/ChangeLog lisp/generic-x.el
diffstat 2 files changed, 8 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Thu Jan 29 19:23:24 2009 +0000
+++ b/lisp/ChangeLog	Fri Jan 30 03:45:51 2009 +0000
@@ -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
--- a/lisp/generic-x.el	Thu Jan 29 19:23:24 2009 +0000
+++ b/lisp/generic-x.el	Fri Jan 30 03:45:51 2009 +0000
@@ -376,7 +376,7 @@
 (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 @@
   '("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 @@
   ;; 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