diff options
| author | Gerd Moellmann | 2001-07-25 15:04:21 +0000 |
|---|---|---|
| committer | Gerd Moellmann | 2001-07-25 15:04:21 +0000 |
| commit | d2922337c42d6316a34653227c78abf6aca50a02 (patch) | |
| tree | 3dacfbd14d2af36c6a6707260428b8148e516631 | |
| parent | 17635d50f6e2376ccee22aa37ee50f1edff085cd (diff) | |
| download | emacs-d2922337c42d6316a34653227c78abf6aca50a02.tar.gz emacs-d2922337c42d6316a34653227c78abf6aca50a02.zip | |
(find-function-regexp): Add
easy-mmode-define-global-mode to the regexp. Allow newlines
in front of the function name.
| -rw-r--r-- | lisp/emacs-lisp/find-func.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/find-func.el b/lisp/emacs-lisp/find-func.el index f15b92d1507..db5be92b7b1 100644 --- a/lisp/emacs-lisp/find-func.el +++ b/lisp/emacs-lisp/find-func.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; find-func.el --- find the definition of the Emacs Lisp function near point | 1 | ;;; find-func.el --- find the definition of the Emacs Lisp function near point |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1997, 1999 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1997, 1999, 2001 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Author: Jens Petersen <petersen@kurims.kyoto-u.ac.jp> | 5 | ;; Author: Jens Petersen <petersen@kurims.kyoto-u.ac.jp> |
| 6 | ;; Maintainer: petersen@kurims.kyoto-u.ac.jp | 6 | ;; Maintainer: petersen@kurims.kyoto-u.ac.jp |
| @@ -59,7 +59,8 @@ | |||
| 59 | ;; (define-skeleton foo ...), (define-generic-mode 'foo ...), | 59 | ;; (define-skeleton foo ...), (define-generic-mode 'foo ...), |
| 60 | ;; (define-derived-mode foo ...), (define-minor-mode foo) | 60 | ;; (define-derived-mode foo ...), (define-minor-mode foo) |
| 61 | "^\\s-*(\\(def\\(ine-skeleton\\|ine-generic-mode\\|ine-derived-mode\\|\ | 61 | "^\\s-*(\\(def\\(ine-skeleton\\|ine-generic-mode\\|ine-derived-mode\\|\ |
| 62 | \[^cgv\W]\\w+\\*?\\)\\|define-minor-mode\\)\\s-+'?\ | 62 | \[^cgv\W]\\w+\\*?\\)\\|define-minor-mode\ |
| 63 | \\|easy-mmode-define-global-mode\\)\\(\\s-\\|\n\\)+'?\ | ||
| 63 | %s\\(\\s-\\|$\\|\(\\|\)\\)" | 64 | %s\\(\\s-\\|$\\|\(\\|\)\\)" |
| 64 | "The regexp used by `find-function' to search for a function definition. | 65 | "The regexp used by `find-function' to search for a function definition. |
| 65 | Note it must contain a `%s' at the place where `format' | 66 | Note it must contain a `%s' at the place where `format' |