diff options
| author | Markus Rost | 2002-05-08 16:42:09 +0000 |
|---|---|---|
| committer | Markus Rost | 2002-05-08 16:42:09 +0000 |
| commit | a4f430482b3043b849fb99f3b1294847359ba4e1 (patch) | |
| tree | 99b49f2236029f313aa3802cd08ae0c1dca3845b | |
| parent | 26f42fe4c4e7b16447e084af8434ea80cbec4b0c (diff) | |
| download | emacs-a4f430482b3043b849fb99f3b1294847359ba4e1.tar.gz emacs-a4f430482b3043b849fb99f3b1294847359ba4e1.zip | |
(find-function-search-for-symbol): Add autoload cookie.
(find-function-regexp): Include "\(quote " to match the defaliases in
loaddefs.el.
| -rw-r--r-- | lisp/emacs-lisp/find-func.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/find-func.el b/lisp/emacs-lisp/find-func.el index 78dece5b47d..660ad019a98 100644 --- a/lisp/emacs-lisp/find-func.el +++ b/lisp/emacs-lisp/find-func.el | |||
| @@ -60,7 +60,7 @@ | |||
| 60 | ;; (define-derived-mode foo ...), (define-minor-mode foo) | 60 | ;; (define-derived-mode foo ...), (define-minor-mode foo) |
| 61 | "^\\s-*(\\(def\\(ine-skeleton\\|ine-generic-mode\\|ine-derived-mode\\|\ | 61 | "^\\s-*(\\(def\\(ine-skeleton\\|ine-generic-mode\\|ine-derived-mode\\|\ |
| 62 | \[^cgv\W]\\w+\\*?\\)\\|define-minor-mode\ | 62 | \[^cgv\W]\\w+\\*?\\)\\|define-minor-mode\ |
| 63 | \\|easy-mmode-define-global-mode\\)\\(\\s-\\|\n\\)+'?\ | 63 | \\|easy-mmode-define-global-mode\\)\\(\\s-\\|\n\\)+\\('\\|\(quote \\)?\ |
| 64 | %s\\(\\s-\\|$\\|\(\\|\)\\)" | 64 | %s\\(\\s-\\|$\\|\(\\|\)\\)" |
| 65 | "The regexp used by `find-function' to search for a function definition. | 65 | "The regexp used by `find-function' to search for a function definition. |
| 66 | Note it must contain a `%s' at the place where `format' | 66 | Note it must contain a `%s' at the place where `format' |
| @@ -108,6 +108,7 @@ See the functions `find-function' and `find-variable'." | |||
| 108 | 108 | ||
| 109 | ;;; Functions: | 109 | ;;; Functions: |
| 110 | 110 | ||
| 111 | ;;;###autoload | ||
| 111 | (defun find-function-search-for-symbol (symbol variable-p library) | 112 | (defun find-function-search-for-symbol (symbol variable-p library) |
| 112 | "Search for SYMBOL. | 113 | "Search for SYMBOL. |
| 113 | If VARIABLE-P is nil, `find-function-regexp' is used, otherwise | 114 | If VARIABLE-P is nil, `find-function-regexp' is used, otherwise |