/[emacs]/emacs/lisp/emacs-lisp/find-func.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/find-func.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.35.2.3 by miles, Sat May 1 23:46:16 2004 UTC revision 1.35.2.4 by miles, Wed Dec 8 23:31:40 2004 UTC
# Line 62  Line 62 
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
# Line 202  If VARIABLE-P is nil, `find-function-reg Line 202  If VARIABLE-P is nil, `find-function-reg
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)

Legend:
Removed from v.1.35.2.3  
changed lines
  Added in v.1.35.2.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26