Mercurial > hg > xemacs-beta
diff lisp/hyper-apropos.el @ 718:29e4e3036b4e
[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 |
line wrap: on
line diff
--- a/lisp/hyper-apropos.el Thu Dec 27 22:52:26 2001 +0000 +++ b/lisp/hyper-apropos.el Fri Dec 28 01:38:42 2001 +0000 @@ -174,6 +174,7 @@ (define-key map "l" 'hyper-apropos-last-help) (define-key map "c" 'hyper-apropos-customize-variable) (define-key map "f" 'hyper-apropos-find-function) + (define-key map "v" 'hyper-apropos-find-variable) (define-key map [button2] 'hyper-apropos-mouse-get-doc) (define-key map [button3] 'hyper-apropos-popup-menu) ;; for the totally hardcore... @@ -1233,6 +1234,17 @@ (if fn (find-function-other-window fn))) +(defun hyper-apropos-find-variable (fn) + "Find the variable for the symbol on the current line in other +window. (See also `find-variable'.)" + (interactive + (let ((fn (hyper-apropos-this-symbol))) + (or (boundp fn) + (setq fn nil)) + (list fn))) + (if fn + (find-variable-other-window fn))) + ;; ---------------------------------------------------------------------- ;; (defun hyper-apropos-disassemble (sym)