mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-26 00:01:47 -07:00
Code Issues Projects Releases Wiki Activity

(find-function-regexp):

Browse source 
Add define-global-minor-mode.  Replace `easy-mmode-define-global-mode'
with `easy-mmode-define-[a-z-]+'.  Add easy-menu-define.
(find-variable-regexp): Add easy-mmode-defmap, easy-mmode-defsyntax
and easy-menu-define.
This commit is contained in:
Juri Linkov 2005-12-04 02:35:20 +00:00
parent d5ba8197bb
commit aa4a1bf805
1 changed files with 8 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -63,8 +63,9 @@
;; (define-derived-mode foo ...), (define-minor-mode foo)
(concat
"^\\s-*(\\(def\\(ine-skeleton\\|ine-generic-mode\\|ine-derived-mode\\|\
ine-minor-mode\\|ine-compilation-mode\\|un-cvs-mode\\|foo\\|[^cfgv]\\w+\\*?\\)\
\\|easy-mmode-define-global-mode\\|menu-bar-make-toggle\\)"
ine\\(?:-global\\)?-minor-mode\\|ine-compilation-mode\\|un-cvs-mode\\|\
foo\\|[^cfgv]\\w+\\*?\\)\\|easy-mmode-define-[a-z-]+\\|easy-menu-define\\|\
menu-bar-make-toggle\\)"
find-function-space-re
"\\('\\|\(quote \\)?%s\\(\\s-\\|$\\|\(\\|\)\\)")
"The regexp used by `find-function' to search for a function definition.
@ -78,7 +79,11 @@ Please send improvements and fixes to the maintainer."
:version "21.1")
(defcustom find-variable-regexp
(concat"^\\s-*(def[^fumag]\\(\\w\\|\\s_\\)+\\*?" find-function-space-re "%s\\(\\s-\\|$\\)")
(concat
"^\\s-*(\\(def[^fumag]\\(\\w\\|\\s_\\)+\\*?\\|\
easy-mmode-def\\(map\\|syntax\\)\\|easy-menu-define\\)"
find-function-space-re
"%s\\(\\s-\\|$\\)")
"The regexp used by `find-variable' to search for a variable definition.
Note it must contain a `%s' at the place where `format'
should insert the variable name. The default value