diff options
| author | Juri Linkov | 2005-12-04 02:35:20 +0000 |
|---|---|---|
| committer | Juri Linkov | 2005-12-04 02:35:20 +0000 |
| commit | aa4a1bf8050d6130e2e66534d040edbd9d601544 (patch) | |
| tree | 2e8987ab073a8c2430011928f6150587ab1a3449 /lisp | |
| parent | d5ba8197bb42f638ea34be66954002b1623cb46b (diff) | |
| download | emacs-aa4a1bf8050d6130e2e66534d040edbd9d601544.tar.gz emacs-aa4a1bf8050d6130e2e66534d040edbd9d601544.zip | |
(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.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/emacs-lisp/find-func.el | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/find-func.el b/lisp/emacs-lisp/find-func.el index 2f394c2c470..5ac5d70626d 100644 --- a/lisp/emacs-lisp/find-func.el +++ b/lisp/emacs-lisp/find-func.el | |||
| @@ -63,8 +63,9 @@ | |||
| 63 | ;; (define-derived-mode foo ...), (define-minor-mode foo) | 63 | ;; (define-derived-mode foo ...), (define-minor-mode foo) |
| 64 | (concat | 64 | (concat |
| 65 | "^\\s-*(\\(def\\(ine-skeleton\\|ine-generic-mode\\|ine-derived-mode\\|\ | 65 | "^\\s-*(\\(def\\(ine-skeleton\\|ine-generic-mode\\|ine-derived-mode\\|\ |
| 66 | ine-minor-mode\\|ine-compilation-mode\\|un-cvs-mode\\|foo\\|[^cfgv]\\w+\\*?\\)\ | 66 | ine\\(?:-global\\)?-minor-mode\\|ine-compilation-mode\\|un-cvs-mode\\|\ |
| 67 | \\|easy-mmode-define-global-mode\\|menu-bar-make-toggle\\)" | 67 | foo\\|[^cfgv]\\w+\\*?\\)\\|easy-mmode-define-[a-z-]+\\|easy-menu-define\\|\ |
| 68 | menu-bar-make-toggle\\)" | ||
| 68 | find-function-space-re | 69 | find-function-space-re |
| 69 | "\\('\\|\(quote \\)?%s\\(\\s-\\|$\\|\(\\|\)\\)") | 70 | "\\('\\|\(quote \\)?%s\\(\\s-\\|$\\|\(\\|\)\\)") |
| 70 | "The regexp used by `find-function' to search for a function definition. | 71 | "The regexp used by `find-function' to search for a function definition. |
| @@ -78,7 +79,11 @@ Please send improvements and fixes to the maintainer." | |||
| 78 | :version "21.1") | 79 | :version "21.1") |
| 79 | 80 | ||
| 80 | (defcustom find-variable-regexp | 81 | (defcustom find-variable-regexp |
| 81 | (concat"^\\s-*(def[^fumag]\\(\\w\\|\\s_\\)+\\*?" find-function-space-re "%s\\(\\s-\\|$\\)") | 82 | (concat |
| 83 | "^\\s-*(\\(def[^fumag]\\(\\w\\|\\s_\\)+\\*?\\|\ | ||
| 84 | easy-mmode-def\\(map\\|syntax\\)\\|easy-menu-define\\)" | ||
| 85 | find-function-space-re | ||
| 86 | "%s\\(\\s-\\|$\\)") | ||
| 82 | "The regexp used by `find-variable' to search for a variable definition. | 87 | "The regexp used by `find-variable' to search for a variable definition. |
| 83 | Note it must contain a `%s' at the place where `format' | 88 | Note it must contain a `%s' at the place where `format' |
| 84 | should insert the variable name. The default value | 89 | should insert the variable name. The default value |