diff options
author | Juri Linkov <juri@jurta.org> | 2004-11-16 15:26:30 +0000 |
---|---|---|
committer | Juri Linkov <juri@jurta.org> | 2004-11-16 15:26:30 +0000 |
commit | b0339ffd835406b87caf8d0065b60e2d38f63396 (patch) | |
tree | 0edc91ff33496ba5bc9113e792d476234ddf3d47 /lisp/emacs-lisp/find-func.el | |
parent | 9305b0e7958823501430967de756d0227df69cd6 (diff) | |
download | emacs-b0339ffd835406b87caf8d0065b60e2d38f63396.tar.gz |
(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 "\\_>".
Diffstat (limited to 'lisp/emacs-lisp/find-func.el')
-rw-r--r-- | lisp/emacs-lisp/find-func.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/find-func.el b/lisp/emacs-lisp/find-func.el index 54efd14b358..2a58c10f827 100644 --- a/lisp/emacs-lisp/find-func.el +++ b/lisp/emacs-lisp/find-func.el @@ -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 @@ If VARIABLE-P is nil, `find-function-regexp' is used, otherwise (re-search-forward (concat "^([^ ]+" find-function-space-re "['(]" (regexp-quote (symbol-name symbol)) - "\\>") + "\\_>") nil t)) (progn (beginning-of-line) |