(find-function-search-for-symbol): Handle more whitespace/newline

[gnu-emacs] / lisp / emacs-lisp / find-func.el

diff --git a/lisp/emacs-lisp/find-func.el b/lisp/emacs-lisp/find-func.el
index 660ad019a98eaac7acf73fe933b60234ee0bdcbf..82f3ee2116dcf03ce45617f5c0f732f0d9fe5f39 100644 (file)
--- a/lisp/emacs-lisp/find-func.el
+++ b/lisp/emacs-lisp/find-func.el
@@ -145,7 +145,7 @@ If VARIABLE-P is nil, `find-function-regexp' is used, otherwise
            (goto-char (point-min))
            (if (or (re-search-forward regexp nil t)
                    (re-search-forward
-                    (concat "^([^ ]+ +"
+                    (concat "^([^ ]+\\(\\s-\\|\n\\)+"
                             (regexp-quote (symbol-name symbol))
                             "\\>")
                     nil t))