From: Markus Rost <rost@math.uni-bielefeld.de>
Date: Sun, 12 May 2002 19:05:37 +0000 (+0000)
Subject: (find-function-search-for-symbol): Handle more whitespace/newline
X-Git-Tag: ttn-vms-21-2-B4~15087
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4562c2e45fb02c82eb71da418c44402c7d235873;p=emacs.git

(find-function-search-for-symbol): Handle more whitespace/newline
combinations in symbol definitions.
---

diff --git a/lisp/emacs-lisp/find-func.el b/lisp/emacs-lisp/find-func.el
index 660ad019a98..82f3ee2116d 100644
--- 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))