# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1100618708 0
# Node ID 212733e5350838069cd781b89c9b2333d8d60016
# Parent  4a90dc7f29415fe4906078216f9fa10efa3b7252
(find-function-regexp): Optimize `define-minor-mode'.  Add `defun-cvs-mode'.
Add `deffoo'.  Add `f' to [^cgv] to exclude `defface'.
Remove invalid `\W' from [^cgv\W].  Doc fix.
(find-function-search-for-symbol): Replace "\\>" with "\\_>".

diff -r 4a90dc7f2941 -r 212733e53508 lisp/emacs-lisp/find-func.el
--- a/lisp/emacs-lisp/find-func.el	Tue Nov 16 14:21:37 2004 +0000
+++ b/lisp/emacs-lisp/find-func.el	Tue Nov 16 15:25:08 2004 +0000
@@ -62,13 +62,13 @@
   ;;  (define-derived-mode foo ...), (define-minor-mode foo)
   (concat
    "^\\s-*(\\(def\\(ine-skeleton\\|ine-generic-mode\\|ine-derived-mode\\|\
-\[^cgv\W]\\w+\\*?\\)\\|define-minor-mode\
+ine-minor-mode\\|un-cvs-mode\\|foo\\|[^cfgv]\\w+\\*?\\)\
 \\|easy-mmode-define-global-mode\\)" find-function-space-re
    "\\('\\|\(quote \\)?%s\\(\\s-\\|$\\|\(\\|\)\\)")
   "The regexp used by `find-function' to search for a function definition.
 Note it must contain a `%s' at the place where `format'
 should insert the function name.  The default value avoids `defconst',
-`defgroup', `defvar'.
+`defgroup', `defvar', `defface'.
 
 Please send improvements and fixes to the maintainer."
   :type 'regexp
@@ -202,7 +202,7 @@
 		    (re-search-forward
 		     (concat "^([^ ]+" find-function-space-re "['(]"
 			     (regexp-quote (symbol-name symbol))
-			     "\\>")
+			     "\\_>")
 		     nil t))
 		(progn
 		  (beginning-of-line)