From 848e837103d40ba1bbcefa500fa000f6f4c9364a Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Sun, 29 Aug 1999 18:15:29 +0000
Subject: [PATCH] (find-function-regexp): Allow a ) or ( to end a function
 name.

---
 lisp/emacs-lisp/find-func.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/emacs-lisp/find-func.el b/lisp/emacs-lisp/find-func.el
index 3ae98c08a39..e7607494d04 100644
--- a/lisp/emacs-lisp/find-func.el
+++ b/lisp/emacs-lisp/find-func.el
@@ -60,7 +60,7 @@
   ;;  (define-derived-mode foo ...), (easy-mmode-define-minor-mode foo)
   "^\\s-*(\\(def\\(ine-skeleton\\|ine-generic-mode\\|ine-derived-mode\\|\
 \[^cgv\W]\\w+\\*?\\)\\|easy-mmode-define-minor-mode\\)\\s-+'?\
-%s\\(\\s-\\|$\\)"
+%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',
-- 
2.39.5