Mercurial > emacs
changeset 58261:212733e53508
(find-function-regexp): Optimize `define-minor-mode'. Add `defun-cvs-mode'.
Add `deffoo'. Add `f' to [^cgv] to exclude `defface'.
Remove invalid `\W' from [^cgv\W]. Doc fix.
(find-function-search-for-symbol): Replace "\\>" with "\\_>".
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Tue, 16 Nov 2004 15:25:08 +0000 |
| parents | 4a90dc7f2941 |
| children | 769412d0cd5e |
| files | lisp/emacs-lisp/find-func.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/find-func.el Tue Nov 16 14:21:37 2004 +0000 +++ b/lisp/emacs-lisp/find-func.el Tue Nov 16 15:25:08 2004 +0000 @@ -62,13 +62,13 @@ ;; (define-derived-mode foo ...), (define-minor-mode foo) (concat "^\\s-*(\\(def\\(ine-skeleton\\|ine-generic-mode\\|ine-derived-mode\\|\ -\[^cgv\W]\\w+\\*?\\)\\|define-minor-mode\ +ine-minor-mode\\|un-cvs-mode\\|foo\\|[^cfgv]\\w+\\*?\\)\ \\|easy-mmode-define-global-mode\\)" find-function-space-re "\\('\\|\(quote \\)?%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', -`defgroup', `defvar'. +`defgroup', `defvar', `defface'. Please send improvements and fixes to the maintainer." :type 'regexp @@ -202,7 +202,7 @@ (re-search-forward (concat "^([^ ]+" find-function-space-re "['(]" (regexp-quote (symbol-name symbol)) - "\\>") + "\\_>") nil t)) (progn (beginning-of-line)