aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorJuri Linkov2005-12-04 02:35:20 +0000
committerJuri Linkov2005-12-04 02:35:20 +0000
commitaa4a1bf8050d6130e2e66534d040edbd9d601544 (patch)
tree2e8987ab073a8c2430011928f6150587ab1a3449 /lisp
parentd5ba8197bb42f638ea34be66954002b1623cb46b (diff)
downloademacs-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.el11
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\\|\
66ine-minor-mode\\|ine-compilation-mode\\|un-cvs-mode\\|foo\\|[^cfgv]\\w+\\*?\\)\ 66ine\\(?:-global\\)?-minor-mode\\|ine-compilation-mode\\|un-cvs-mode\\|\
67\\|easy-mmode-define-global-mode\\|menu-bar-make-toggle\\)" 67foo\\|[^cfgv]\\w+\\*?\\)\\|easy-mmode-define-[a-z-]+\\|easy-menu-define\\|\
68menu-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_\\)+\\*?\\|\
84easy-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.
83Note it must contain a `%s' at the place where `format' 88Note it must contain a `%s' at the place where `format'
84should insert the variable name. The default value 89should insert the variable name. The default value