1 |
;;; find-func.el --- find the definition of the Emacs Lisp function near point |
;;; find-func.el --- find the definition of the Emacs Lisp function near point |
2 |
|
|
3 |
;; Copyright (C) 1997, 1999, 2001, 2004 Free Software Foundation, Inc. |
;; Copyright (C) 1997, 1999, 2001, 2004, 2005 Free Software Foundation, Inc. |
4 |
|
|
5 |
;; Author: Jens Petersen <petersen@kurims.kyoto-u.ac.jp> |
;; Author: Jens Petersen <petersen@kurims.kyoto-u.ac.jp> |
6 |
;; Maintainer: petersen@kurims.kyoto-u.ac.jp |
;; Maintainer: petersen@kurims.kyoto-u.ac.jp |
76 |
:version "21.1") |
:version "21.1") |
77 |
|
|
78 |
(defcustom find-variable-regexp |
(defcustom find-variable-regexp |
79 |
(concat"^\\s-*(def[^umag]\\(\\w\\|\\s_\\)+\\*?" find-function-space-re "%s\\(\\s-\\|$\\)") |
(concat"^\\s-*(def[^fumag]\\(\\w\\|\\s_\\)+\\*?" find-function-space-re "%s\\(\\s-\\|$\\)") |
80 |
"The regexp used by `find-variable' to search for a variable definition. |
"The regexp used by `find-variable' to search for a variable definition. |
81 |
It should match right up to the variable name. The default value |
It should match right up to the variable name. The default value |
82 |
avoids `defun', `defmacro', `defalias', `defadvice', `defgroup'. |
avoids `defun', `defmacro', `defalias', `defadvice', `defgroup', `defface'. |
83 |
|
|
84 |
Please send improvements and fixes to the maintainer." |
Please send improvements and fixes to the maintainer." |
85 |
:type 'regexp |
:type 'regexp |
437 |
|
|
438 |
(provide 'find-func) |
(provide 'find-func) |
439 |
|
|
440 |
;;; arch-tag: 43ecd81c-74dc-4d9a-8f63-a61e55670d64 |
;; arch-tag: 43ecd81c-74dc-4d9a-8f63-a61e55670d64 |
441 |
;;; find-func.el ends here |
;;; find-func.el ends here |