62 |
;; (define-derived-mode foo ...), (define-minor-mode foo) |
;; (define-derived-mode foo ...), (define-minor-mode foo) |
63 |
(concat |
(concat |
64 |
"^\\s-*(\\(def\\(ine-skeleton\\|ine-generic-mode\\|ine-derived-mode\\|\ |
"^\\s-*(\\(def\\(ine-skeleton\\|ine-generic-mode\\|ine-derived-mode\\|\ |
65 |
\[^cgv\W]\\w+\\*?\\)\\|define-minor-mode\ |
ine-minor-mode\\|un-cvs-mode\\|foo\\|[^cfgv]\\w+\\*?\\)\ |
66 |
\\|easy-mmode-define-global-mode\\)" find-function-space-re |
\\|easy-mmode-define-global-mode\\)" find-function-space-re |
67 |
"\\('\\|\(quote \\)?%s\\(\\s-\\|$\\|\(\\|\)\\)") |
"\\('\\|\(quote \\)?%s\\(\\s-\\|$\\|\(\\|\)\\)") |
68 |
"The regexp used by `find-function' to search for a function definition. |
"The regexp used by `find-function' to search for a function definition. |
69 |
Note it must contain a `%s' at the place where `format' |
Note it must contain a `%s' at the place where `format' |
70 |
should insert the function name. The default value avoids `defconst', |
should insert the function name. The default value avoids `defconst', |
71 |
`defgroup', `defvar'. |
`defgroup', `defvar', `defface'. |
72 |
|
|
73 |
Please send improvements and fixes to the maintainer." |
Please send improvements and fixes to the maintainer." |
74 |
:type 'regexp |
:type 'regexp |
202 |
(re-search-forward |
(re-search-forward |
203 |
(concat "^([^ ]+" find-function-space-re "['(]" |
(concat "^([^ ]+" find-function-space-re "['(]" |
204 |
(regexp-quote (symbol-name symbol)) |
(regexp-quote (symbol-name symbol)) |
205 |
"\\>") |
"\\_>") |
206 |
nil t)) |
nil t)) |
207 |
(progn |
(progn |
208 |
(beginning-of-line) |
(beginning-of-line) |