Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-23 13:27:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

(find-function-regexp): Optimize define-minor-mode'. Add defun-cvs-mode'.

Browse source 
Add `deffoo'.  Add `f' to [^cgv] to exclude `defface'.
Remove invalid `\W' from [^cgv\W].  Doc fix.
(find-function-search-for-symbol): Replace "\\>" with "\\_>".
This commit is contained in:
Juri Linkov 2004-11-16 15:26:30 +00:00
parent 9305b0e795
commit b0339ffd83
2 changed files with 11 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/ChangeLog
View file

@ -1,3 +1,11 @@
2004-11-16 Juri Linkov <juri@jurta.org>
* emacs-lisp/find-func.el (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 "\\_>".
2004-11-15 Luc Teirlinck <teirllm@auburn.edu>
* play/life.el: Maintainer is now FSF.

6
lisp/emacs-lisp/find-func.el
View file

@ -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)