From: Bill Wohler <wohler@newt.com>
Date: Mon, 10 Apr 2006 22:33:51 +0000 (+0000)
Subject: (find-function-regexp): Allow dashes in defun name, in similar fashion
X-Git-Tag: emacs-pretest-22.0.90~3227
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1d22fabd46ebbb3e2af5cdea011b42c7a0331463;p=emacs.git

(find-function-regexp): Allow dashes in defun name, in similar fashion
to find-variable-regexp.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 558af5fab0b..59d12a7f41b 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2006-04-10  Bill Wohler  <wohler@newt.com>
+
+	* emacs-lisp/find-func.el (find-function-regexp): Allow dashes in
+	defun name, in similar fashion to find-variable-regexp.
+
 2006-04-10  Eli Zaretskii  <eliz@gnu.org>
 
 	* international/mule-cmds.el (set-locale-environment): Fix last
diff --git a/lisp/emacs-lisp/find-func.el b/lisp/emacs-lisp/find-func.el
index 0738444c9ec..754ad9fdf19 100644
--- a/lisp/emacs-lisp/find-func.el
+++ b/lisp/emacs-lisp/find-func.el
@@ -64,7 +64,7 @@
   (concat
    "^\\s-*(\\(def\\(ine-skeleton\\|ine-generic-mode\\|ine-derived-mode\\|\
 ine\\(?:-global\\)?-minor-mode\\|ine-compilation-mode\\|un-cvs-mode\\|\
-foo\\|[^cfgv]\\w+\\*?\\)\\|easy-mmode-define-[a-z-]+\\|easy-menu-define\\|\
+foo\\|[^cfgv]\\(\\w\\|\\s_\\)+\\*?\\)\\|easy-mmode-define-[a-z-]+\\|easy-menu-define\\|\
 menu-bar-make-toggle\\)"
    find-function-space-re
    "\\('\\|\(quote \\)?%s\\(\\s-\\|$\\|\(\\|\)\\)")