Mercurial > emacs
annotate lisp/emacs-lisp/find-func.el @ 46533:701fdda31b83
*** empty log message ***
author | Juanma Barranquero <lekktu@gmail.com> |
---|---|
date | Fri, 19 Jul 2002 06:25:06 +0000 |
parents | 892ea515fb3a |
children | cbd462ecc9ad |
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 |
38557
cda1a73acb68
(find-function-regexp): Add
Gerd Moellmann <gerd@gnu.org>
parents:
38436
diff
changeset
|
3 ;; Copyright (C) 1997, 1999, 2001 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 | |
38436
b174db545cfd
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
33198
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 |
45326
892ea515fb3a
(find-function-search-for-symbol): Find funs defined with defun-cvs-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45257
diff
changeset
|
57 (defconst find-function-space-re "\\(?:\\s-\\|\n\\|;.*\n\\)+") |
892ea515fb3a
(find-function-search-for-symbol): Find funs defined with defun-cvs-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45257
diff
changeset
|
58 |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
59 (defcustom find-function-regexp |
24013 | 60 ;; Match things like (defun foo ...), (defmacro foo ...), |
61 ;; (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
|
62 ;; (define-derived-mode foo ...), (define-minor-mode foo) |
45326
892ea515fb3a
(find-function-search-for-symbol): Find funs defined with defun-cvs-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45257
diff
changeset
|
63 (concat |
892ea515fb3a
(find-function-search-for-symbol): Find funs defined with defun-cvs-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45257
diff
changeset
|
64 "^\\s-*(\\(def\\(ine-skeleton\\|ine-generic-mode\\|ine-derived-mode\\|\ |
38557
cda1a73acb68
(find-function-regexp): Add
Gerd Moellmann <gerd@gnu.org>
parents:
38436
diff
changeset
|
65 \[^cgv\W]\\w+\\*?\\)\\|define-minor-mode\ |
45326
892ea515fb3a
(find-function-search-for-symbol): Find funs defined with defun-cvs-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45257
diff
changeset
|
66 \\|easy-mmode-define-global-mode\\)" find-function-space-re |
892ea515fb3a
(find-function-search-for-symbol): Find funs defined with defun-cvs-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45257
diff
changeset
|
67 "\\('\\|\(quote \\)?%s\\(\\s-\\|$\\|\(\\|\)\\)") |
24013 | 68 "The regexp used by `find-function' to search for a function definition. |
69 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
|
70 should insert the function name. The default value avoids `defconst', |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
71 `defgroup', `defvar'. |
20183 | 72 |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
73 Please send improvements and fixes to the maintainer." |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
74 :type 'regexp |
22759
be3e1a724828
(find-function-regexp): Added :version 20.3.
Richard M. Stallman <rms@gnu.org>
parents:
22641
diff
changeset
|
75 :group 'find-function |
26558
2daba92c1033
(find-function-regexp): Use `define-minor-mode' after easy-menu
Dave Love <fx@gnu.org>
parents:
25424
diff
changeset
|
76 :version "21.1") |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
77 |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
78 (defcustom find-variable-regexp |
45326
892ea515fb3a
(find-function-search-for-symbol): Find funs defined with defun-cvs-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45257
diff
changeset
|
79 (concat"^\\s-*(def[^umag]\\(\\w\\|\\s_\\)+\\*?" find-function-space-re "%s\\(\\s-\\|$\\)") |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
80 "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
|
81 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
|
82 avoids `defun', `defmacro', `defalias', `defadvice', `defgroup'. |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
83 |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
84 Please send improvements and fixes to the maintainer." |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
85 :type 'regexp |
22759
be3e1a724828
(find-function-regexp): Added :version 20.3.
Richard M. Stallman <rms@gnu.org>
parents:
22641
diff
changeset
|
86 :group 'find-function |
32226
2af46c6c8bde
(find-function-regexp): Remove spurion.
Dave Love <fx@gnu.org>
parents:
26593
diff
changeset
|
87 :version "21.1") |
20183 | 88 |
20962 | 89 (defcustom find-function-source-path nil |
24013 | 90 "The default list of directories where `find-function' searches. |
20183 | 91 |
24013 | 92 If this variable is nil then `find-function' searches `load-path' by |
20962 | 93 default." |
94 :type '(repeat directory) | |
95 :group 'find-function) | |
20183 | 96 |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
97 (defcustom find-function-recenter-line 1 |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
98 "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
|
99 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
|
100 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
|
101 `find-function' and `find-variable'." |
22759
be3e1a724828
(find-function-regexp): Added :version 20.3.
Richard M. Stallman <rms@gnu.org>
parents:
22641
diff
changeset
|
102 :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
|
103 :version "20.3") |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
104 |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
105 (defcustom find-function-after-hook nil |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
106 "Hook run after finding symbol definition. |
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 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
|
109 :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
|
110 :version "20.3") |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
111 |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
112 ;;; Functions: |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
113 |
45190
9c3195b605f7
(find-function-search-for-symbol): Add autoload cookie.
Markus Rost <rost@math.uni-bielefeld.de>
parents:
45150
diff
changeset
|
114 ;;;###autoload |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
115 (defun find-function-search-for-symbol (symbol variable-p library) |
24013 | 116 "Search for SYMBOL. |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
117 If VARIABLE-P is nil, `find-function-regexp' is used, otherwise |
24013 | 118 `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
|
119 (if (null library) |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
120 (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
|
121 (save-match-data |
d0e08cc0aa3d
(find-function-search-for-symbol):
Dave Love <fx@gnu.org>
parents:
23737
diff
changeset
|
122 (if (string-match "\\.el\\(c\\)\\'" library) |
d0e08cc0aa3d
(find-function-search-for-symbol):
Dave Love <fx@gnu.org>
parents:
23737
diff
changeset
|
123 (setq library (substring library 0 (match-beginning 1)))) |
d0e08cc0aa3d
(find-function-search-for-symbol):
Dave Love <fx@gnu.org>
parents:
23737
diff
changeset
|
124 (let* ((path find-function-source-path) |
d0e08cc0aa3d
(find-function-search-for-symbol):
Dave Love <fx@gnu.org>
parents:
23737
diff
changeset
|
125 (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
|
126 (member 'crypt-find-file-hook find-file-hooks))) |
d0e08cc0aa3d
(find-function-search-for-symbol):
Dave Love <fx@gnu.org>
parents:
23737
diff
changeset
|
127 (filename (progn |
d0e08cc0aa3d
(find-function-search-for-symbol):
Dave Love <fx@gnu.org>
parents:
23737
diff
changeset
|
128 ;; 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
|
129 (if (string-match "\\(\\.el\\)\\'" library) |
d0e08cc0aa3d
(find-function-search-for-symbol):
Dave Love <fx@gnu.org>
parents:
23737
diff
changeset
|
130 (setq library (substring library 0 |
d0e08cc0aa3d
(find-function-search-for-symbol):
Dave Love <fx@gnu.org>
parents:
23737
diff
changeset
|
131 (match-beginning 1)))) |
d0e08cc0aa3d
(find-function-search-for-symbol):
Dave Love <fx@gnu.org>
parents:
23737
diff
changeset
|
132 (or (locate-library (concat library ".el") t path) |
d0e08cc0aa3d
(find-function-search-for-symbol):
Dave Love <fx@gnu.org>
parents:
23737
diff
changeset
|
133 (locate-library library t path) |
d0e08cc0aa3d
(find-function-search-for-symbol):
Dave Love <fx@gnu.org>
parents:
23737
diff
changeset
|
134 (if compression |
d0e08cc0aa3d
(find-function-search-for-symbol):
Dave Love <fx@gnu.org>
parents:
23737
diff
changeset
|
135 (or (locate-library (concat library ".el.gz") |
d0e08cc0aa3d
(find-function-search-for-symbol):
Dave Love <fx@gnu.org>
parents:
23737
diff
changeset
|
136 t path) |
d0e08cc0aa3d
(find-function-search-for-symbol):
Dave Love <fx@gnu.org>
parents:
23737
diff
changeset
|
137 (locate-library (concat library ".gz") |
d0e08cc0aa3d
(find-function-search-for-symbol):
Dave Love <fx@gnu.org>
parents:
23737
diff
changeset
|
138 t path))))))) |
d0e08cc0aa3d
(find-function-search-for-symbol):
Dave Love <fx@gnu.org>
parents:
23737
diff
changeset
|
139 (if (not filename) |
d0e08cc0aa3d
(find-function-search-for-symbol):
Dave Love <fx@gnu.org>
parents:
23737
diff
changeset
|
140 (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
|
141 (with-current-buffer (find-file-noselect filename) |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
142 (let ((regexp (format (if variable-p |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
143 find-variable-regexp |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
144 find-function-regexp) |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
145 (regexp-quote (symbol-name symbol)))) |
45120
254bce531056
(find-function-search-for-symbol): Bind case-fold-search when searching.
Markus Rost <rost@math.uni-bielefeld.de>
parents:
40480
diff
changeset
|
146 (case-fold-search)) |
45150
4a2bcce6b13a
(find-function-search-for-symbol): Use with-syntax-table.
Markus Rost <rost@math.uni-bielefeld.de>
parents:
45120
diff
changeset
|
147 (with-syntax-table emacs-lisp-mode-syntax-table |
4a2bcce6b13a
(find-function-search-for-symbol): Use with-syntax-table.
Markus Rost <rost@math.uni-bielefeld.de>
parents:
45120
diff
changeset
|
148 (goto-char (point-min)) |
4a2bcce6b13a
(find-function-search-for-symbol): Use with-syntax-table.
Markus Rost <rost@math.uni-bielefeld.de>
parents:
45120
diff
changeset
|
149 (if (or (re-search-forward regexp nil t) |
4a2bcce6b13a
(find-function-search-for-symbol): Use with-syntax-table.
Markus Rost <rost@math.uni-bielefeld.de>
parents:
45120
diff
changeset
|
150 (re-search-forward |
45326
892ea515fb3a
(find-function-search-for-symbol): Find funs defined with defun-cvs-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45257
diff
changeset
|
151 (concat "^([^ ]+" find-function-space-re "['(]" |
45150
4a2bcce6b13a
(find-function-search-for-symbol): Use with-syntax-table.
Markus Rost <rost@math.uni-bielefeld.de>
parents:
45120
diff
changeset
|
152 (regexp-quote (symbol-name symbol)) |
4a2bcce6b13a
(find-function-search-for-symbol): Use with-syntax-table.
Markus Rost <rost@math.uni-bielefeld.de>
parents:
45120
diff
changeset
|
153 "\\>") |
4a2bcce6b13a
(find-function-search-for-symbol): Use with-syntax-table.
Markus Rost <rost@math.uni-bielefeld.de>
parents:
45120
diff
changeset
|
154 nil t)) |
4a2bcce6b13a
(find-function-search-for-symbol): Use with-syntax-table.
Markus Rost <rost@math.uni-bielefeld.de>
parents:
45120
diff
changeset
|
155 (progn |
4a2bcce6b13a
(find-function-search-for-symbol): Use with-syntax-table.
Markus Rost <rost@math.uni-bielefeld.de>
parents:
45120
diff
changeset
|
156 (beginning-of-line) |
4a2bcce6b13a
(find-function-search-for-symbol): Use with-syntax-table.
Markus Rost <rost@math.uni-bielefeld.de>
parents:
45120
diff
changeset
|
157 (cons (current-buffer) (point))) |
4a2bcce6b13a
(find-function-search-for-symbol): Use with-syntax-table.
Markus Rost <rost@math.uni-bielefeld.de>
parents:
45120
diff
changeset
|
158 (error "Cannot find definition of `%s' in library `%s'" |
4a2bcce6b13a
(find-function-search-for-symbol): Use with-syntax-table.
Markus Rost <rost@math.uni-bielefeld.de>
parents:
45120
diff
changeset
|
159 symbol library)))))))) |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
160 |
22851
2c2eb47ec8e3
(find-function-noselect): Autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
22759
diff
changeset
|
161 ;;;###autoload |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
162 (defun find-function-noselect (function) |
24013 | 163 "Return a pair (BUFFER . POINT) pointing to the definition of FUNCTION. |
20183 | 164 |
165 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
|
166 in a buffer and the point of the definition. The buffer is |
20183 | 167 not selected. |
168 | |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
169 If the file where FUNCTION is defined is not known, then it is |
24013 | 170 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
|
171 in `load-path'." |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
172 (if (not function) |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
173 (error "You didn't specify a function")) |
20183 | 174 (and (subrp (symbol-function function)) |
175 (error "%s is a primitive function" function)) | |
176 (let ((def (symbol-function function)) | |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
177 aliases) |
20183 | 178 (while (symbolp def) |
179 (or (eq def function) | |
180 (if aliases | |
181 (setq aliases (concat aliases | |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
182 (format ", which is an alias for `%s'" |
20183 | 183 (symbol-name def)))) |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
184 (setq aliases (format "`%s' an alias for `%s'" |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
185 function (symbol-name def))))) |
20183 | 186 (setq function (symbol-function function) |
187 def (symbol-function function))) | |
188 (if aliases | |
189 (message aliases)) | |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
190 (let ((library |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
191 (cond ((eq (car-safe def) 'autoload) |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
192 (nth 1 def)) |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
193 ((symbol-file function))))) |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
194 (find-function-search-for-symbol function nil library)))) |
20183 | 195 |
32226
2af46c6c8bde
(find-function-regexp): Remove spurion.
Dave Love <fx@gnu.org>
parents:
26593
diff
changeset
|
196 (defalias 'function-at-point 'function-called-at-point) |
20183 | 197 |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
198 (defun find-function-read (&optional variable-p) |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
199 "Read and return an interned symbol, defaulting to the one near point. |
20183 | 200 |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
201 If the optional VARIABLE-P is nil, then a function is gotten |
24013 | 202 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
|
203 a variable is asked for, with the default coming from |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
204 `variable-at-point'." |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
205 (let ((symb (funcall (if variable-p |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
206 'variable-at-point |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
207 'function-at-point))) |
20183 | 208 (enable-recursive-minibuffers t) |
209 val) | |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
210 (if (equal symb 0) |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
211 (setq symb nil)) |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
212 (setq val (if variable-p |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
213 (completing-read |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
214 (concat "Find variable" |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
215 (if symb |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
216 (format " (default %s)" symb)) |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
217 ": ") |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
218 obarray 'boundp t nil) |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
219 (completing-read |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
220 (concat "Find function" |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
221 (if symb |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
222 (format " (default %s)" symb)) |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
223 ": ") |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
224 obarray 'fboundp t nil))) |
20183 | 225 (list (if (equal val "") |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
226 symb |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
227 (intern val))))) |
20183 | 228 |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
229 (defun find-function-do-it (symbol variable-p switch-fn) |
24013 | 230 "Find Emacs Lisp SYMBOL in a buffer and display it. |
231 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
|
232 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
|
233 centered according to the variable `find-function-recenter-line'. |
24013 | 234 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
|
235 |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
236 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
|
237 (let* ((orig-point (point)) |
be3e1a724828
(find-function-regexp): Added :version 20.3.
Richard M. Stallman <rms@gnu.org>
parents:
22641
diff
changeset
|
238 (orig-buf (window-buffer)) |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
239 (orig-buffers (buffer-list)) |
22759
be3e1a724828
(find-function-regexp): Added :version 20.3.
Richard M. Stallman <rms@gnu.org>
parents:
22641
diff
changeset
|
240 (buffer-point (save-excursion |
be3e1a724828
(find-function-regexp): Added :version 20.3.
Richard M. Stallman <rms@gnu.org>
parents:
22641
diff
changeset
|
241 (funcall (if variable-p |
be3e1a724828
(find-function-regexp): Added :version 20.3.
Richard M. Stallman <rms@gnu.org>
parents:
22641
diff
changeset
|
242 'find-variable-noselect |
be3e1a724828
(find-function-regexp): Added :version 20.3.
Richard M. Stallman <rms@gnu.org>
parents:
22641
diff
changeset
|
243 'find-function-noselect) |
be3e1a724828
(find-function-regexp): Added :version 20.3.
Richard M. Stallman <rms@gnu.org>
parents:
22641
diff
changeset
|
244 symbol))) |
be3e1a724828
(find-function-regexp): Added :version 20.3.
Richard M. Stallman <rms@gnu.org>
parents:
22641
diff
changeset
|
245 (new-buf (car buffer-point)) |
be3e1a724828
(find-function-regexp): Added :version 20.3.
Richard M. Stallman <rms@gnu.org>
parents:
22641
diff
changeset
|
246 (new-point (cdr buffer-point))) |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
247 (when buffer-point |
22759
be3e1a724828
(find-function-regexp): Added :version 20.3.
Richard M. Stallman <rms@gnu.org>
parents:
22641
diff
changeset
|
248 (when (memq new-buf orig-buffers) |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
249 (push-mark orig-point)) |
22759
be3e1a724828
(find-function-regexp): Added :version 20.3.
Richard M. Stallman <rms@gnu.org>
parents:
22641
diff
changeset
|
250 (funcall switch-fn new-buf) |
be3e1a724828
(find-function-regexp): Added :version 20.3.
Richard M. Stallman <rms@gnu.org>
parents:
22641
diff
changeset
|
251 (goto-char new-point) |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
252 (recenter find-function-recenter-line) |
33198
167dad6064bf
(find-function-do-it): Quote the hook.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
33155
diff
changeset
|
253 (run-hooks 'find-function-after-hook)))) |
20183 | 254 |
20184
c8d4024e07de
(find-function, find-function-other-window, find-function-other-frame,
Dave Love <fx@gnu.org>
parents:
20183
diff
changeset
|
255 ;;;###autoload |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
256 (defun find-function (function) |
24021 | 257 "Find the definition of the FUNCTION near point. |
20183 | 258 |
259 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
|
260 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
|
261 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
|
262 it is one of the current buffers. |
20183 | 263 |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
264 The library where FUNCTION is defined is searched for in |
24013 | 265 `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
|
266 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
|
267 (interactive (find-function-read)) |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
268 (find-function-do-it function nil 'switch-to-buffer)) |
20183 | 269 |
20184
c8d4024e07de
(find-function, find-function-other-window, find-function-other-frame,
Dave Love <fx@gnu.org>
parents:
20183
diff
changeset
|
270 ;;;###autoload |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
271 (defun find-function-other-window (function) |
24021 | 272 "Find, in another window, the definition of FUNCTION near point. |
20183 | 273 |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
274 See `find-function' for more details." |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
275 (interactive (find-function-read)) |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
276 (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
|
277 |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
278 ;;;###autoload |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
279 (defun find-function-other-frame (function) |
24021 | 280 "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
|
281 |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
282 See `find-function' for more details." |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
283 (interactive (find-function-read)) |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
284 (find-function-do-it function nil 'switch-to-buffer-other-frame)) |
20183 | 285 |
23659
e221aa952b5b
(find-variable-noselect): Autoload.
Karl Heuer <kwzh@gnu.org>
parents:
23287
diff
changeset
|
286 ;;;###autoload |
40480
5ebd79883369
(find-function-search-for-symbol):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38557
diff
changeset
|
287 (defun find-variable-noselect (variable &optional file) |
5ebd79883369
(find-function-search-for-symbol):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38557
diff
changeset
|
288 "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
|
289 |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
290 Finds the Emacs Lisp library containing the definition of SYMBOL |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
291 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
|
292 not selected. |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
293 |
40480
5ebd79883369
(find-function-search-for-symbol):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38557
diff
changeset
|
294 The library where VARIABLE is defined is searched for in FILE or |
24013 | 295 `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
|
296 (if (not variable) |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
297 (error "You didn't specify a variable")) |
40480
5ebd79883369
(find-function-search-for-symbol):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38557
diff
changeset
|
298 (let ((library (or file (symbol-file variable)))) |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
299 (find-function-search-for-symbol variable 'variable library))) |
20183 | 300 |
20184
c8d4024e07de
(find-function, find-function-other-window, find-function-other-frame,
Dave Love <fx@gnu.org>
parents:
20183
diff
changeset
|
301 ;;;###autoload |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
302 (defun find-variable (variable) |
24021 | 303 "Find the definition of the VARIABLE near point. |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
304 |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
305 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
|
306 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
|
307 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
|
308 it is one of the current buffers. |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
309 |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
310 The library where VARIABLE is defined is searched for in |
24013 | 311 `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
|
312 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
|
313 (interactive (find-function-read 'variable)) |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
314 (find-function-do-it variable t 'switch-to-buffer)) |
20183 | 315 |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
316 ;;;###autoload |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
317 (defun find-variable-other-window (variable) |
24021 | 318 "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
|
319 |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
320 See `find-variable' for more details." |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
321 (interactive (find-function-read 'variable)) |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
322 (find-function-do-it variable t 'switch-to-buffer-other-window)) |
20183 | 323 |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
324 ;;;###autoload |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
325 (defun find-variable-other-frame (variable) |
24021 | 326 "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
|
327 |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
328 See `find-variable' for more details." |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
329 (interactive (find-function-read 'variable)) |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
330 (find-function-do-it variable t 'switch-to-buffer-other-frame)) |
20183 | 331 |
20184
c8d4024e07de
(find-function, find-function-other-window, find-function-other-frame,
Dave Love <fx@gnu.org>
parents:
20183
diff
changeset
|
332 ;;;###autoload |
20183 | 333 (defun find-function-on-key (key) |
334 "Find the function that KEY invokes. KEY is a string. | |
335 Point is saved if FUNCTION is in the current buffer." | |
336 (interactive "kFind function on key: ") | |
24034
25a9e0ae5c91
(find-function-on-key): DTRT for mouse
Dave Love <fx@gnu.org>
parents:
24021
diff
changeset
|
337 (save-excursion |
24062
dd143e80ffcf
(find-function-on-key): Fix previous
Dave Love <fx@gnu.org>
parents:
24034
diff
changeset
|
338 (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
|
339 (start (event-start event)) |
25a9e0ae5c91
(find-function-on-key): DTRT for mouse
Dave Love <fx@gnu.org>
parents:
24021
diff
changeset
|
340 (modifiers (event-modifiers event)) |
25a9e0ae5c91
(find-function-on-key): DTRT for mouse
Dave Love <fx@gnu.org>
parents:
24021
diff
changeset
|
341 (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
|
342 (memq 'drag modifiers)) |
25a9e0ae5c91
(find-function-on-key): DTRT for mouse
Dave Love <fx@gnu.org>
parents:
24021
diff
changeset
|
343 (posn-window start)))) |
25a9e0ae5c91
(find-function-on-key): DTRT for mouse
Dave Love <fx@gnu.org>
parents:
24021
diff
changeset
|
344 ;; 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
|
345 ;; 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
|
346 ;; 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
|
347 (when (windowp window) |
25a9e0ae5c91
(find-function-on-key): DTRT for mouse
Dave Love <fx@gnu.org>
parents:
24021
diff
changeset
|
348 (set-buffer (window-buffer window)) |
25a9e0ae5c91
(find-function-on-key): DTRT for mouse
Dave Love <fx@gnu.org>
parents:
24021
diff
changeset
|
349 (goto-char (posn-point start))) |
25a9e0ae5c91
(find-function-on-key): DTRT for mouse
Dave Love <fx@gnu.org>
parents:
24021
diff
changeset
|
350 (let ((defn (key-binding key)) |
25a9e0ae5c91
(find-function-on-key): DTRT for mouse
Dave Love <fx@gnu.org>
parents:
24021
diff
changeset
|
351 (key-desc (key-description key))) |
25a9e0ae5c91
(find-function-on-key): DTRT for mouse
Dave Love <fx@gnu.org>
parents:
24021
diff
changeset
|
352 (if (or (null defn) (integerp defn)) |
25a9e0ae5c91
(find-function-on-key): DTRT for mouse
Dave Love <fx@gnu.org>
parents:
24021
diff
changeset
|
353 (message "%s is unbound" key-desc) |
25a9e0ae5c91
(find-function-on-key): DTRT for mouse
Dave Love <fx@gnu.org>
parents:
24021
diff
changeset
|
354 (if (consp defn) |
25a9e0ae5c91
(find-function-on-key): DTRT for mouse
Dave Love <fx@gnu.org>
parents:
24021
diff
changeset
|
355 (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
|
356 (find-function-other-window defn))))))) |
22641
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
357 |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
358 ;;;###autoload |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
359 (defun find-function-at-point () |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
360 "Find directly the function at point in the other window." |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
361 (interactive) |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
362 (let ((symb (function-at-point))) |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
363 (when symb |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
364 (find-function-other-window symb)))) |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
365 |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
366 ;;;###autoload |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
367 (defun find-variable-at-point () |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
368 "Find directly the function at point in the other window." |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
369 (interactive) |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
370 (let ((symb (variable-at-point))) |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
371 (when (and symb (not (equal symb 0))) |
1c5197790616
Require `loadhist'. Variable
Richard M. Stallman <rms@gnu.org>
parents:
22487
diff
changeset
|
372 (find-variable-other-window symb)))) |
20183 | 373 |
22759
be3e1a724828
(find-function-regexp): Added :version 20.3.
Richard M. Stallman <rms@gnu.org>
parents:
22641
diff
changeset
|
374 ;;;###autoload |
be3e1a724828
(find-function-regexp): Added :version 20.3.
Richard M. Stallman <rms@gnu.org>
parents:
22641
diff
changeset
|
375 (defun find-function-setup-keys () |
be3e1a724828
(find-function-regexp): Added :version 20.3.
Richard M. Stallman <rms@gnu.org>
parents:
22641
diff
changeset
|
376 "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
|
377 (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
|
378 (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
|
379 (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
|
380 (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
|
381 (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
|
382 (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
|
383 (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
|
384 |
20183 | 385 (provide 'find-func) |
386 | |
387 ;;; find-func.el ends here |