diff options
| author | Markus Rost | 2002-05-12 19:05:37 +0000 |
|---|---|---|
| committer | Markus Rost | 2002-05-12 19:05:37 +0000 |
| commit | 4562c2e45fb02c82eb71da418c44402c7d235873 (patch) | |
| tree | ff81806afc8925bc1bb2a6be75160b1535ede464 | |
| parent | 89e7ad59461ab7c95c02c3972982a8058b0c1423 (diff) | |
| download | emacs-4562c2e45fb02c82eb71da418c44402c7d235873.tar.gz emacs-4562c2e45fb02c82eb71da418c44402c7d235873.zip | |
(find-function-search-for-symbol): Handle more whitespace/newline
combinations in symbol definitions.
| -rw-r--r-- | lisp/emacs-lisp/find-func.el | 2 |
1 files changed, 1 insertions, 1 deletions
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 | |||
| 145 | (goto-char (point-min)) | 145 | (goto-char (point-min)) |
| 146 | (if (or (re-search-forward regexp nil t) | 146 | (if (or (re-search-forward regexp nil t) |
| 147 | (re-search-forward | 147 | (re-search-forward |
| 148 | (concat "^([^ ]+ +" | 148 | (concat "^([^ ]+\\(\\s-\\|\n\\)+" |
| 149 | (regexp-quote (symbol-name symbol)) | 149 | (regexp-quote (symbol-name symbol)) |
| 150 | "\\>") | 150 | "\\>") |
| 151 | nil t)) | 151 | nil t)) |