# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 1095221050 0
# Node ID 5bd3a1e1dfe5236643784bea891001f429ceb005
# Parent  4c14357ffc27fa0ab5057bf2325697579177351d
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-549

Use symbol-matching for generic-mode keywords

2004-09-15  Miles Bader  <miles@gnu.org>

   * lisp/generic.el (generic-make-keywords-list): Use symbol rather than
   word anchors in regexp.

diff -r 4c14357ffc27 -r 5bd3a1e1dfe5 lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Sep 15 00:28:04 2004 +0000
+++ b/lisp/ChangeLog	Wed Sep 15 04:04:10 2004 +0000
@@ -1,3 +1,8 @@
+2004-09-15  Miles Bader  <miles@gnu.org>
+
+	* generic.el (generic-make-keywords-list): Use symbol rather than
+	word anchors in regexp.
+
 2004-09-14  Sean O'Rourke  <sorourke@cs.ucsd.edu>
 
 	* ibuf-ext.el (define-ibuffer-filter filename): If buffer has
diff -r 4c14357ffc27 -r 5bd3a1e1dfe5 lisp/generic.el
--- a/lisp/generic.el	Wed Sep 15 00:28:04 2004 +0000
+++ b/lisp/generic.el	Wed Sep 15 04:04:10 2004 +0000
@@ -405,10 +405,10 @@
 The regexp is highlighted with FACE."
   (unless (listp keywords-list)
     (error "Keywords argument must be a list of strings"))
-  (list (concat prefix "\\<"
+  (list (concat prefix "\\_<"
 		;; Use an optimized regexp.
 		(regexp-opt keywords-list t)
-		"\\>" suffix)
+		"\\_>" suffix)
 	1
 	face))