Mercurial > hg > xemacs-beta

comparison lisp/hyper-apropos.el @ 718:29e4e3036b4e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2001-12-28 01:38:41 by youngs] 2001-12-27 David A. Panariti <davep@who.net> * hyper-apropos.el (hyper-apropos-find-variable): Added this function based on hyper-apropos-find-function. * hyper-apropos.el (hyper-apropos-help-map): Added binding of "v" to hyper-apropos-find-variable. 2001-12-27 John Paul Wallington <jpw@shootybangbang.com> * obsolete.el (interactive-form): new compatibility alias for function-interactive.
author youngs
date Fri, 28 Dec 2001 01:38:42 +0000
parents 7039e6323819
children 79940b592197
comparison
equal deleted inserted replaced
717:87c43a431742 718:29e4e3036b4e
172 (define-key map "s" 'hyper-apropos-set-variable) 172 (define-key map "s" 'hyper-apropos-set-variable)
173 (define-key map "t" 'hyper-apropos-find-tag) 173 (define-key map "t" 'hyper-apropos-find-tag)
174 (define-key map "l" 'hyper-apropos-last-help) 174 (define-key map "l" 'hyper-apropos-last-help)
175 (define-key map "c" 'hyper-apropos-customize-variable) 175 (define-key map "c" 'hyper-apropos-customize-variable)
176 (define-key map "f" 'hyper-apropos-find-function) 176 (define-key map "f" 'hyper-apropos-find-function)
177 (define-key map "v" 'hyper-apropos-find-variable)
177 (define-key map [button2] 'hyper-apropos-mouse-get-doc) 178 (define-key map [button2] 'hyper-apropos-mouse-get-doc)
178 (define-key map [button3] 'hyper-apropos-popup-menu) 179 (define-key map [button3] 'hyper-apropos-popup-menu)
179 ;; for the totally hardcore... 180 ;; for the totally hardcore...
180 (define-key map "D" 'hyper-apropos-disassemble) 181 (define-key map "D" 'hyper-apropos-disassemble)
181 ;; administrativa 182 ;; administrativa
1231 (setq fn nil)) 1232 (setq fn nil))
1232 (list fn))) 1233 (list fn)))
1233 (if fn 1234 (if fn
1234 (find-function-other-window fn))) 1235 (find-function-other-window fn)))
1235 1236
1237 (defun hyper-apropos-find-variable (fn)
1238 "Find the variable for the symbol on the current line in other
1239 window. (See also `find-variable'.)"
1240 (interactive
1241 (let ((fn (hyper-apropos-this-symbol)))
1242 (or (boundp fn)
1243 (setq fn nil))
1244 (list fn)))
1245 (if fn
1246 (find-variable-other-window fn)))
1247
1236 ;; ---------------------------------------------------------------------- ;; 1248 ;; ---------------------------------------------------------------------- ;;
1237 1249
1238 (defun hyper-apropos-disassemble (sym) 1250 (defun hyper-apropos-disassemble (sym)
1239 "Disassemble FUN if it is byte-coded. If it's a lambda, prettyprint it." 1251 "Disassemble FUN if it is byte-coded. If it's a lambda, prettyprint it."
1240 (interactive (list (hyper-apropos-this-symbol))) 1252 (interactive (list (hyper-apropos-this-symbol)))