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 --git a/lisp/ChangeLog b/lisp/ChangeLog
index dfd96e19fe39ed247fb17ddae22833e42c8e598a..6edfb46824154ec3f6b562886125d0d8df46e6e3 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/generic.el b/lisp/generic.el
index ca4b47ff4b1a767e7bdbf3df961198bc0b0229ce..57937be6c0bc52a0874c4affba93dad84b10059b 100644 (file)
--- a/lisp/generic.el
+++ b/lisp/generic.el
@@ -405,10 +405,10 @@ INI file.  This hook is NOT installed by default."
 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))