Mercurial > emacs
changeset 67294:36d05049ff37
(find-function-regexp):
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.
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Sun, 04 Dec 2005 02:35:20 +0000 |
| parents | 32fa638322e0 |
| children | df35219b6508 |
| files | lisp/emacs-lisp/find-func.el |
| diffstat | 1 files changed, 8 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/find-func.el Sun Dec 04 02:34:33 2005 +0000 +++ b/lisp/emacs-lisp/find-func.el Sun Dec 04 02:35:20 2005 +0000 @@ -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 @@ :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