Mercurial > emacs
annotate lisp/emacs-lisp/find-func.el @ 34395:2f4a4d355834
(time-stamp-old-format-warn): reorder custom
choices to match documentation string.
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Sat, 09 Dec 2000 13:22:51 +0000 |
parents | 167dad6064bf |
children | b174db545cfd |
rev | line source |
---|---|
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
1 ;;; find-func.el --- find the definition of the Emacs Lisp function near point |
20183 | 2 |
24034
25a9e0ae5c91
(find-function-on-key): DTRT for mouse
Dave Love <fx@gnu.org>
parents:
24021
diff
changeset
|
3 ;; Copyright (C) 1997, 1999 Free Software Foundation, Inc. |
20183 | 4 |
5 ;; Author: Jens Petersen <petersen@kurims.kyoto-u.ac.jp> | |
6 ;; Maintainer: petersen@kurims.kyoto-u.ac.jp | |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
7 ;; Keywords: emacs-lisp, functions, variables |
20183 | 8 ;; Created: 97/07/25 |
9 | |
10 ;; This file is part of GNU Emacs. | |
11 | |
12 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
13 ;; it under the terms of the GNU General Public License as published by | |
14 ;; the Free Software Foundation; either version 2, or (at your option) | |
15 ;; any later version. | |
16 | |
17 ;; GNU Emacs is distributed in the hope that it will be useful, | |
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
20 ;; GNU General Public License for more details. | |
21 | |
22 ;; You should have received a copy of the GNU General Public License | |
23 ;; along with GNU Emacs; see the file COPYING. If not, write to the | |
24 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
25 ;; Boston, MA 02111-1307, USA. | |
26 | |
27 ;;; Commentary: | |
28 ;; | |
29 ;; The funniest thing about this is that I can't imagine why a package | |
30 ;; so obviously useful as this hasn't been written before!! | |
31 ;; ;;; find-func | |
22759
be3e1a724828
(find-function-regexp): Added :version 20.3.
Richard M. Stallman <rms@gnu.org>
parents:
22641
diff
changeset
|
32 ;; (find-function-setup-keys) |
be3e1a724828
(find-function-regexp): Added :version 20.3.
Richard M. Stallman <rms@gnu.org>
parents:
22641
diff
changeset
|
33 ;; |
be3e1a724828
(find-function-regexp): Added :version 20.3.
Richard M. Stallman <rms@gnu.org>
parents:
22641
diff
changeset
|
34 ;; or just: |
be3e1a724828
(find-function-regexp): Added :version 20.3.
Richard M. Stallman <rms@gnu.org>
parents:
22641
diff
changeset
|
35 ;; |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
36 ;; (load "find-func") |
20183 | 37 ;; |
22759
be3e1a724828
(find-function-regexp): Added :version 20.3.
Richard M. Stallman <rms@gnu.org>
parents:
22641
diff
changeset
|
38 ;; if you don't like the given keybindings and away you go! It does |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
39 ;; pretty much what you would expect, putting the cursor at the |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
40 ;; definition of the function or variable at point. |
20183 | 41 ;; |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
42 ;; The code started out from `describe-function', `describe-key' |
20183 | 43 ;; ("help.el") and `fff-find-loaded-emacs-lisp-function' (Noah Friedman's |
44 ;; "fff.el"). | |
45 | |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
46 ;;;; Code: |
20183 | 47 |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
48 (require 'loadhist) |
20183 | 49 |
50 ;;; User variables: | |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
51 |
20962 | 52 (defgroup find-function nil |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
53 "Finds the definition of the Emacs Lisp symbol near point." |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
54 ;; :prefix "find-function" |
20962 | 55 :group 'lisp) |
20183 | 56 |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
57 (defcustom find-function-regexp |
24013 | 58 ;; Match things like (defun foo ...), (defmacro foo ...), |
59 ;; (define-skeleton foo ...), (define-generic-mode 'foo ...), | |
26558
2daba92c1033
(find-function-regexp): Use `define-minor-mode' after easy-menu
Dave Love <fx@gnu.org>
parents:
25424
diff
changeset
|
60 ;; (define-derived-mode foo ...), (define-minor-mode foo) |
24013 | 61 "^\\s-*(\\(def\\(ine-skeleton\\|ine-generic-mode\\|ine-derived-mode\\|\ |
26593 | 62 \[^cgv\W]\\w+\\*?\\)\\|define-minor-mode\\)\\s-+'?\ |
25424
93dbc4684ddf
(find-function-regexp): Allow a ) or ( to end a function name.
Richard M. Stallman <rms@gnu.org>
parents:
24062
diff
changeset
|
63 %s\\(\\s-\\|$\\|\(\\|\)\\)" |
24013 | 64 "The regexp used by `find-function' to search for a function definition. |
65 Note it must contain a `%s' at the place where `format' | |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
66 should insert the function name. The default value avoids `defconst', |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
67 `defgroup', `defvar'. |
20183 | 68 |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
69 Please send improvements and fixes to the maintainer." |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
70 :type 'regexp |
22759
be3e1a724828
(find-function-regexp): Added :version 20.3.
Richard M. Stallman <rms@gnu.org>
parents:
22641
diff
changeset
|
71 :group 'find-function |
26558
2daba92c1033
(find-function-regexp): Use `define-minor-mode' after easy-menu
Dave Love <fx@gnu.org>
parents:
25424
diff
changeset
|
72 :version "21.1") |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
73 |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
74 (defcustom find-variable-regexp |
33155
02b0153b79a7
(find-variable-regexp): Avoid defgroup.
Dave Love <fx@gnu.org>
parents:
32226
diff
changeset
|
75 "^\\s-*(def[^umag]\\(\\w\\|\\s_\\)+\\*?\\s-+%s\\(\\s-\\|$\\)" |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
76 "The regexp used by `find-variable' to search for a variable definition. |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
77 It should match right up to the variable name. The default value |
33155
02b0153b79a7
(find-variable-regexp): Avoid defgroup.
Dave Love <fx@gnu.org>
parents:
32226
diff
changeset
|
78 avoids `defun', `defmacro', `defalias', `defadvice', `defgroup'. |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
79 |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
80 Please send improvements and fixes to the maintainer." |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
81 :type 'regexp |
22759
be3e1a724828
(find-function-regexp): Added :version 20.3.
Richard M. Stallman <rms@gnu.org>
parents:
22641
diff
changeset
|
82 :group 'find-function |
32226
2af46c6c8bde
(find-function-regexp): Remove spurion.
Dave Love <fx@gnu.org>
parents:
26593
diff
changeset
|
83 :version "21.1") |
20183 | 84 |
20962 | 85 (defcustom find-function-source-path nil |
24013 | 86 "The default list of directories where `find-function' searches. |
20183 | 87 |
24013 | 88 If this variable is nil then `find-function' searches `load-path' by |
20962 | 89 default." |
90 :type '(repeat directory) | |
91 :group 'find-function) | |
20183 | 92 |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
93 (defcustom find-function-recenter-line 1 |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
94 "The window line-number from which to start displaying a symbol definition. |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
95 A value of nil implies center the beginning of the definition. |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
96 See the function `center-to-window-line' for more information, and |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
97 `find-function' and `find-variable'." |
22759
be3e1a724828
(find-function-regexp): Added :version 20.3.
Richard M. Stallman <rms@gnu.org>
parents:
22641
diff
changeset
|
98 :group 'find-function |
23100
043247d0ced9
Fix :version tags to have a string value, not a float.
Andreas Schwab <schwab@suse.de>
parents:
22867
diff
changeset
|
99 :version "20.3") |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
100 |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
101 (defcustom find-function-after-hook nil |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
102 "Hook run after finding symbol definition. |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
103 |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
104 See the functions `find-function' and `find-variable'." |
22759
be3e1a724828
(find-function-regexp): Added :version 20.3.
Richard M. Stallman <rms@gnu.org>
parents:
22641
diff
changeset
|
105 :group 'find-function |
23100
043247d0ced9
Fix :version tags to have a string value, not a float.
Andreas Schwab <schwab@suse.de>
parents:
22867
diff
changeset
|
106 :version "20.3") |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
107 |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
108 ;;; Functions: |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
109 |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
110 (defun find-function-search-for-symbol (symbol variable-p library) |
24013 | 111 "Search for SYMBOL. |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
112 If VARIABLE-P is nil, `find-function-regexp' is used, otherwise |
24013 | 113 `find-variable-regexp' is used. The search is done in library LIBRARY." |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
114 (if (null library) |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
115 (error "Don't know where `%s' is defined" symbol)) |
23862
d0e08cc0aa3d
(find-function-search-for-symbol):
Dave Love <fx@gnu.org>
parents:
23737
diff
changeset
|
116 (save-match-data |
d0e08cc0aa3d
(find-function-search-for-symbol):
Dave Love <fx@gnu.org>
parents:
23737
diff
changeset
|
117 (if (string-match "\\.el\\(c\\)\\'" library) |
d0e08cc0aa3d
(find-function-search-for-symbol):
Dave Love <fx@gnu.org>
parents:
23737
diff
changeset
|
118 (setq library (substring library 0 (match-beginning 1)))) |
d0e08cc0aa3d
(find-function-search-for-symbol):
Dave Love <fx@gnu.org>
parents:
23737
diff
changeset
|
119 (let* ((path find-function-source-path) |
d0e08cc0aa3d
(find-function-search-for-symbol):
Dave Love <fx@gnu.org>
parents:
23737
diff
changeset
|
120 (compression (or (rassq 'jka-compr-handler file-name-handler-alist) |
d0e08cc0aa3d
(find-function-search-for-symbol):
Dave Love <fx@gnu.org>
parents:
23737
diff
changeset
|
121 (member 'crypt-find-file-hook find-file-hooks))) |
d0e08cc0aa3d
(find-function-search-for-symbol):
Dave Love <fx@gnu.org>
parents:
23737
diff
changeset
|
122 (filename (progn |
d0e08cc0aa3d
(find-function-search-for-symbol):
Dave Love <fx@gnu.org>
parents:
23737
diff
changeset
|
123 ;; use `file-name-sans-extension' here? (if it gets fixed) |
d0e08cc0aa3d
(find-function-search-for-symbol):
Dave Love <fx@gnu.org>
parents:
23737
diff
changeset
|
124 (if (string-match "\\(\\.el\\)\\'" library) |
d0e08cc0aa3d
(find-function-search-for-symbol):
Dave Love <fx@gnu.org>
parents:
23737
diff
changeset
|
125 (setq library (substring library 0 |
d0e08cc0aa3d
(find-function-search-for-symbol):
Dave Love <fx@gnu.org>
parents:
23737
diff
changeset
|
126 (match-beginning 1)))) |
d0e08cc0aa3d
(find-function-search-for-symbol):
Dave Love <fx@gnu.org>
parents:
23737
diff
changeset
|
127 (or (locate-library (concat library ".el") t path) |
d0e08cc0aa3d
(find-function-search-for-symbol):
Dave Love <fx@gnu.org>
parents:
23737
diff
changeset
|
128 (locate-library library t path) |
d0e08cc0aa3d
(find-function-search-for-symbol):
Dave Love <fx@gnu.org>
parents:
23737
diff
changeset
|
129 (if compression |
d0e08cc0aa3d
(find-function-search-for-symbol):
Dave Love <fx@gnu.org>
parents:
23737
diff
changeset
|
130 (or (locate-library (concat library ".el.gz") |
d0e08cc0aa3d
(find-function-search-for-symbol):
Dave Love <fx@gnu.org>
parents:
23737
diff
changeset
|
131 t path) |
d0e08cc0aa3d
(find-function-search-for-symbol):
Dave Love <fx@gnu.org>
parents:
23737
diff
changeset
|
132 (locate-library (concat library ".gz") |
d0e08cc0aa3d
(find-function-search-for-symbol):
Dave Love <fx@gnu.org>
parents:
23737
diff
changeset
|
133 t path))))))) |
d0e08cc0aa3d
(find-function-search-for-symbol):
Dave Love <fx@gnu.org>
parents:
23737
diff
changeset
|
134 (if (not filename) |
d0e08cc0aa3d
(find-function-search-for-symbol):
Dave Love <fx@gnu.org>
parents:
23737
diff
changeset
|
135 (error "The library `%s' is not in the path" library)) |
d0e08cc0aa3d
(find-function-search-for-symbol):
Dave Love <fx@gnu.org>
parents:
23737
diff
changeset
|
136 (with-current-buffer (find-file-noselect filename) |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
137 (let ((regexp (format (if variable-p |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
138 find-variable-regexp |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
139 find-function-regexp) |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
140 (regexp-quote (symbol-name symbol)))) |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
141 (syn-table (syntax-table))) |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
142 (unwind-protect |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
143 (progn |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
144 (set-syntax-table emacs-lisp-mode-syntax-table) |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
145 (goto-char (point-min)) |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
146 (if (re-search-forward regexp nil t) |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
147 (progn |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
148 (beginning-of-line) |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
149 (cons (current-buffer) (point))) |
24013 | 150 (error "Cannot find definition of `%s' in library `%s'" |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
151 symbol library))) |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
152 (set-syntax-table syn-table))))))) |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
153 |
22851
2c2eb47ec8e3
(find-function-noselect): Autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
22759
diff
changeset
|
154 ;;;###autoload |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
155 (defun find-function-noselect (function) |
24013 | 156 "Return a pair (BUFFER . POINT) pointing to the definition of FUNCTION. |
20183 | 157 |
158 Finds the Emacs Lisp library containing the definition of FUNCTION | |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
159 in a buffer and the point of the definition. The buffer is |
20183 | 160 not selected. |
161 | |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
162 If the file where FUNCTION is defined is not known, then it is |
24013 | 163 searched for in `find-function-source-path' if non nil, otherwise |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
164 in `load-path'." |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
165 (if (not function) |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
166 (error "You didn't specify a function")) |
20183 | 167 (and (subrp (symbol-function function)) |
168 (error "%s is a primitive function" function)) | |
169 (let ((def (symbol-function function)) | |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
170 aliases) |
20183 | 171 (while (symbolp def) |
172 (or (eq def function) | |
173 (if aliases | |
174 (setq aliases (concat aliases | |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
175 (format ", which is an alias for `%s'" |
20183 | 176 (symbol-name def)))) |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
177 (setq aliases (format "`%s' an alias for `%s'" |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
178 function (symbol-name def))))) |
20183 | 179 (setq function (symbol-function function) |
180 def (symbol-function function))) | |
181 (if aliases | |
182 (message aliases)) | |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
183 (let ((library |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
184 (cond ((eq (car-safe def) 'autoload) |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
185 (nth 1 def)) |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
186 ((symbol-file function))))) |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
187 (find-function-search-for-symbol function nil library)))) |
20183 | 188 |
32226
2af46c6c8bde
(find-function-regexp): Remove spurion.
Dave Love <fx@gnu.org>
parents:
26593
diff
changeset
|
189 (defalias 'function-at-point 'function-called-at-point) |
20183 | 190 |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
191 (defun find-function-read (&optional variable-p) |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
192 "Read and return an interned symbol, defaulting to the one near point. |
20183 | 193 |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
194 If the optional VARIABLE-P is nil, then a function is gotten |
24013 | 195 defaulting to the value of the function `function-at-point', otherwise |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
196 a variable is asked for, with the default coming from |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
197 `variable-at-point'." |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
198 (let ((symb (funcall (if variable-p |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
199 'variable-at-point |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
200 'function-at-point))) |
20183 | 201 (enable-recursive-minibuffers t) |
202 val) | |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
203 (if (equal symb 0) |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
204 (setq symb nil)) |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
205 (setq val (if variable-p |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
206 (completing-read |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
207 (concat "Find variable" |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
208 (if symb |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
209 (format " (default %s)" symb)) |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
210 ": ") |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
211 obarray 'boundp t nil) |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
212 (completing-read |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
213 (concat "Find function" |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
214 (if symb |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
215 (format " (default %s)" symb)) |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
216 ": ") |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
217 obarray 'fboundp t nil))) |
20183 | 218 (list (if (equal val "") |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
219 symb |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
220 (intern val))))) |
20183 | 221 |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
222 (defun find-function-do-it (symbol variable-p switch-fn) |
24013 | 223 "Find Emacs Lisp SYMBOL in a buffer and display it. |
224 If VARIABLE-P is nil, a function definition is searched for, otherwise | |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
225 a variable definition is searched for. The start of a definition is |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
226 centered according to the variable `find-function-recenter-line'. |
24013 | 227 See also `find-function-after-hook' It is displayed with function SWITCH-FN. |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
228 |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
229 Point is saved in the buffer if it is one of the current buffers." |
22759
be3e1a724828
(find-function-regexp): Added :version 20.3.
Richard M. Stallman <rms@gnu.org>
parents:
22641
diff
changeset
|
230 (let* ((orig-point (point)) |
be3e1a724828
(find-function-regexp): Added :version 20.3.
Richard M. Stallman <rms@gnu.org>
parents:
22641
diff
changeset
|
231 (orig-buf (window-buffer)) |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
232 (orig-buffers (buffer-list)) |
22759
be3e1a724828
(find-function-regexp): Added :version 20.3.
Richard M. Stallman <rms@gnu.org>
parents:
22641
diff
changeset
|
233 (buffer-point (save-excursion |
be3e1a724828
(find-function-regexp): Added :version 20.3.
Richard M. Stallman <rms@gnu.org>
parents:
22641
diff
changeset
|
234 (funcall (if variable-p |
be3e1a724828
(find-function-regexp): Added :version 20.3.
Richard M. Stallman <rms@gnu.org>
parents:
22641
diff
changeset
|
235 'find-variable-noselect |
be3e1a724828
(find-function-regexp): Added :version 20.3.
Richard M. Stallman <rms@gnu.org>
parents:
22641
diff
changeset
|
236 'find-function-noselect) |
be3e1a724828
(find-function-regexp): Added :version 20.3.
Richard M. Stallman <rms@gnu.org>
parents:
22641
diff
changeset
|
237 symbol))) |
be3e1a724828
(find-function-regexp): Added :version 20.3.
Richard M. Stallman <rms@gnu.org>
parents:
22641
diff
changeset
|
238 (new-buf (car buffer-point)) |
be3e1a724828
(find-function-regexp): Added :version 20.3.
Richard M. Stallman <rms@gnu.org>
parents:
22641
diff
changeset
|
239 (new-point (cdr buffer-point))) |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
240 (when buffer-point |
22759
be3e1a724828
(find-function-regexp): Added :version 20.3.
Richard M. Stallman <rms@gnu.org>
parents:
22641
diff
changeset
|
241 (when (memq new-buf orig-buffers) |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
242 (push-mark orig-point)) |
22759
be3e1a724828
(find-function-regexp): Added :version 20.3.
Richard M. Stallman <rms@gnu.org>
parents:
22641
diff
changeset
|
243 (funcall switch-fn new-buf) |
be3e1a724828
(find-function-regexp): Added :version 20.3.
Richard M. Stallman <rms@gnu.org>
parents:
22641
diff
changeset
|
244 (goto-char new-point) |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
245 (recenter find-function-recenter-line) |
33198
167dad6064bf
(find-function-do-it): Quote the hook.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
33155
diff
changeset
|
246 (run-hooks 'find-function-after-hook)))) |
20183 | 247 |
20184
c8d4024e07de
(find-function, find-function-other-window, find-function-other-frame,
Dave Love <fx@gnu.org>
parents:
20183
diff
changeset
|
248 ;;;###autoload |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
249 (defun find-function (function) |
24021 | 250 "Find the definition of the FUNCTION near point. |
20183 | 251 |
252 Finds the Emacs Lisp library containing the definition of the function | |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
253 near point (selected by `function-at-point') in a buffer and |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
254 places point before the definition. Point is saved in the buffer if |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
255 it is one of the current buffers. |
20183 | 256 |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
257 The library where FUNCTION is defined is searched for in |
24013 | 258 `find-function-source-path', if non nil, otherwise in `load-path'. |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
259 See also `find-function-recenter-line' and `find-function-after-hook'." |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
260 (interactive (find-function-read)) |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
261 (find-function-do-it function nil 'switch-to-buffer)) |
20183 | 262 |
20184
c8d4024e07de
(find-function, find-function-other-window, find-function-other-frame,
Dave Love <fx@gnu.org>
parents:
20183
diff
changeset
|
263 ;;;###autoload |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
264 (defun find-function-other-window (function) |
24021 | 265 "Find, in another window, the definition of FUNCTION near point. |
20183 | 266 |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
267 See `find-function' for more details." |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
268 (interactive (find-function-read)) |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
269 (find-function-do-it function nil 'switch-to-buffer-other-window)) |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
270 |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
271 ;;;###autoload |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
272 (defun find-function-other-frame (function) |
24021 | 273 "Find, in ananother frame, the definition of FUNCTION near point. |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
274 |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
275 See `find-function' for more details." |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
276 (interactive (find-function-read)) |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
277 (find-function-do-it function nil 'switch-to-buffer-other-frame)) |
20183 | 278 |
23659
e221aa952b5b
(find-variable-noselect): Autoload.
Karl Heuer <kwzh@gnu.org>
parents:
23287
diff
changeset
|
279 ;;;###autoload |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
280 (defun find-variable-noselect (variable) |
24013 | 281 "Return a pair `(buffer . point)' pointing to the definition of SYMBOL. |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
282 |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
283 Finds the Emacs Lisp library containing the definition of SYMBOL |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
284 in a buffer and the point of the definition. The buffer is |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
285 not selected. |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
286 |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
287 The library where VARIABLE is defined is searched for in |
24013 | 288 `find-function-source-path', if non nil, otherwise in `load-path'." |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
289 (if (not variable) |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
290 (error "You didn't specify a variable")) |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
291 (let ((library (symbol-file variable))) |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
292 (find-function-search-for-symbol variable 'variable library))) |
20183 | 293 |
20184
c8d4024e07de
(find-function, find-function-other-window, find-function-other-frame,
Dave Love <fx@gnu.org>
parents:
20183
diff
changeset
|
294 ;;;###autoload |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
295 (defun find-variable (variable) |
24021 | 296 "Find the definition of the VARIABLE near point. |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
297 |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
298 Finds the Emacs Lisp library containing the definition of the variable |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
299 near point (selected by `variable-at-point') in a buffer and |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
300 places point before the definition. Point is saved in the buffer if |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
301 it is one of the current buffers. |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
302 |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
303 The library where VARIABLE is defined is searched for in |
24013 | 304 `find-function-source-path', if non nil, otherwise in `load-path'. |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
305 See also `find-function-recenter-line' and `find-function-after-hook'." |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
306 (interactive (find-function-read 'variable)) |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
307 (find-function-do-it variable t 'switch-to-buffer)) |
20183 | 308 |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
309 ;;;###autoload |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
310 (defun find-variable-other-window (variable) |
24021 | 311 "Find, in another window, the definition of VARIABLE near point. |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
312 |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
313 See `find-variable' for more details." |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
314 (interactive (find-function-read 'variable)) |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
315 (find-function-do-it variable t 'switch-to-buffer-other-window)) |
20183 | 316 |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
317 ;;;###autoload |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
318 (defun find-variable-other-frame (variable) |
24021 | 319 "Find, in annother frame, the definition of VARIABLE near point. |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
320 |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
321 See `find-variable' for more details." |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
322 (interactive (find-function-read 'variable)) |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
323 (find-function-do-it variable t 'switch-to-buffer-other-frame)) |
20183 | 324 |
20184
c8d4024e07de
(find-function, find-function-other-window, find-function-other-frame,
Dave Love <fx@gnu.org>
parents:
20183
diff
changeset
|
325 ;;;###autoload |
20183 | 326 (defun find-function-on-key (key) |
327 "Find the function that KEY invokes. KEY is a string. | |
328 Point is saved if FUNCTION is in the current buffer." | |
329 (interactive "kFind function on key: ") | |
24034
25a9e0ae5c91
(find-function-on-key): DTRT for mouse
Dave Love <fx@gnu.org>
parents:
24021
diff
changeset
|
330 (save-excursion |
24062
dd143e80ffcf
(find-function-on-key): Fix previous
Dave Love <fx@gnu.org>
parents:
24034
diff
changeset
|
331 (let* ((event (and (eventp key) (aref key 0))) ; Null event OK below. |
24034
25a9e0ae5c91
(find-function-on-key): DTRT for mouse
Dave Love <fx@gnu.org>
parents:
24021
diff
changeset
|
332 (start (event-start event)) |
25a9e0ae5c91
(find-function-on-key): DTRT for mouse
Dave Love <fx@gnu.org>
parents:
24021
diff
changeset
|
333 (modifiers (event-modifiers event)) |
25a9e0ae5c91
(find-function-on-key): DTRT for mouse
Dave Love <fx@gnu.org>
parents:
24021
diff
changeset
|
334 (window (and (or (memq 'click modifiers) (memq 'down modifiers) |
25a9e0ae5c91
(find-function-on-key): DTRT for mouse
Dave Love <fx@gnu.org>
parents:
24021
diff
changeset
|
335 (memq 'drag modifiers)) |
25a9e0ae5c91
(find-function-on-key): DTRT for mouse
Dave Love <fx@gnu.org>
parents:
24021
diff
changeset
|
336 (posn-window start)))) |
25a9e0ae5c91
(find-function-on-key): DTRT for mouse
Dave Love <fx@gnu.org>
parents:
24021
diff
changeset
|
337 ;; For a mouse button event, go to the button it applies to |
25a9e0ae5c91
(find-function-on-key): DTRT for mouse
Dave Love <fx@gnu.org>
parents:
24021
diff
changeset
|
338 ;; to get the right key bindings. And go to the right place |
25a9e0ae5c91
(find-function-on-key): DTRT for mouse
Dave Love <fx@gnu.org>
parents:
24021
diff
changeset
|
339 ;; in case the keymap depends on where you clicked. |
25a9e0ae5c91
(find-function-on-key): DTRT for mouse
Dave Love <fx@gnu.org>
parents:
24021
diff
changeset
|
340 (when (windowp window) |
25a9e0ae5c91
(find-function-on-key): DTRT for mouse
Dave Love <fx@gnu.org>
parents:
24021
diff
changeset
|
341 (set-buffer (window-buffer window)) |
25a9e0ae5c91
(find-function-on-key): DTRT for mouse
Dave Love <fx@gnu.org>
parents:
24021
diff
changeset
|
342 (goto-char (posn-point start))) |
25a9e0ae5c91
(find-function-on-key): DTRT for mouse
Dave Love <fx@gnu.org>
parents:
24021
diff
changeset
|
343 (let ((defn (key-binding key)) |
25a9e0ae5c91
(find-function-on-key): DTRT for mouse
Dave Love <fx@gnu.org>
parents:
24021
diff
changeset
|
344 (key-desc (key-description key))) |
25a9e0ae5c91
(find-function-on-key): DTRT for mouse
Dave Love <fx@gnu.org>
parents:
24021
diff
changeset
|
345 (if (or (null defn) (integerp defn)) |
25a9e0ae5c91
(find-function-on-key): DTRT for mouse
Dave Love <fx@gnu.org>
parents:
24021
diff
changeset
|
346 (message "%s is unbound" key-desc) |
25a9e0ae5c91
(find-function-on-key): DTRT for mouse
Dave Love <fx@gnu.org>
parents:
24021
diff
changeset
|
347 (if (consp defn) |
25a9e0ae5c91
(find-function-on-key): DTRT for mouse
Dave Love <fx@gnu.org>
parents:
24021
diff
changeset
|
348 (message "%s runs %s" key-desc (prin1-to-string defn)) |
25a9e0ae5c91
(find-function-on-key): DTRT for mouse
Dave Love <fx@gnu.org>
parents:
24021
diff
changeset
|
349 (find-function-other-window defn))))))) |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
350 |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
351 ;;;###autoload |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
352 (defun find-function-at-point () |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
353 "Find directly the function at point in the other window." |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
354 (interactive) |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
355 (let ((symb (function-at-point))) |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
356 (when symb |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
357 (find-function-other-window symb)))) |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
358 |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
359 ;;;###autoload |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
360 (defun find-variable-at-point () |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
361 "Find directly the function at point in the other window." |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
362 (interactive) |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
363 (let ((symb (variable-at-point))) |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
364 (when (and symb (not (equal symb 0))) |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
365 (find-variable-other-window symb)))) |
20183 | 366 |
22759
be3e1a724828
(find-function-regexp): Added :version 20.3.
Richard M. Stallman <rms@gnu.org>
parents:
22641
diff
changeset
|
367 ;;;###autoload |
be3e1a724828
(find-function-regexp): Added :version 20.3.
Richard M. Stallman <rms@gnu.org>
parents:
22641
diff
changeset
|
368 (defun find-function-setup-keys () |
be3e1a724828
(find-function-regexp): Added :version 20.3.
Richard M. Stallman <rms@gnu.org>
parents:
22641
diff
changeset
|
369 "Define some key bindings for the find-function family of functions." |
be3e1a724828
(find-function-regexp): Added :version 20.3.
Richard M. Stallman <rms@gnu.org>
parents:
22641
diff
changeset
|
370 (define-key ctl-x-map "F" 'find-function) |
be3e1a724828
(find-function-regexp): Added :version 20.3.
Richard M. Stallman <rms@gnu.org>
parents:
22641
diff
changeset
|
371 (define-key ctl-x-4-map "F" 'find-function-other-window) |
be3e1a724828
(find-function-regexp): Added :version 20.3.
Richard M. Stallman <rms@gnu.org>
parents:
22641
diff
changeset
|
372 (define-key ctl-x-5-map "F" 'find-function-other-frame) |
be3e1a724828
(find-function-regexp): Added :version 20.3.
Richard M. Stallman <rms@gnu.org>
parents:
22641
diff
changeset
|
373 (define-key ctl-x-map "K" 'find-function-on-key) |
be3e1a724828
(find-function-regexp): Added :version 20.3.
Richard M. Stallman <rms@gnu.org>
parents:
22641
diff
changeset
|
374 (define-key ctl-x-map "V" 'find-variable) |
be3e1a724828
(find-function-regexp): Added :version 20.3.
Richard M. Stallman <rms@gnu.org>
parents:
22641
diff
changeset
|
375 (define-key ctl-x-4-map "V" 'find-variable-other-window) |
be3e1a724828
(find-function-regexp): Added :version 20.3.
Richard M. Stallman <rms@gnu.org>
parents:
22641
diff
changeset
|
376 (define-key ctl-x-5-map "V" 'find-variable-other-frame)) |
be3e1a724828
(find-function-regexp): Added :version 20.3.
Richard M. Stallman <rms@gnu.org>
parents:
22641
diff
changeset
|
377 |
20183 | 378 (provide 'find-func) |
379 | |
380 ;;; find-func.el ends here |