Mercurial > hg > xemacs-beta
changeset 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 | 87c43a431742 |
| children | 4918199aa355 |
| files | lisp/ChangeLog lisp/hyper-apropos.el lisp/obsolete.el |
| diffstat | 3 files changed, 28 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Thu Dec 27 22:52:26 2001 +0000 +++ b/lisp/ChangeLog Fri Dec 28 01:38:42 2001 +0000 @@ -1,3 +1,16 @@ +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. + 2001-12-26 Adrian Aichner <adrian@xemacs.org> * printer.el (generic-print-region): Pass on arguments start, end,
--- 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)
--- a/lisp/obsolete.el Thu Dec 27 22:52:26 2001 +0000 +++ b/lisp/obsolete.el Fri Dec 28 01:38:42 2001 +0000 @@ -257,6 +257,9 @@ (make-obsolete-variable 'executing-macro 'executing-kbd-macro) +(define-compatible-function-alias 'interactive-form + 'function-interactive) ;FSFmacs 21.1 + ;;;;;;;;;;;;;;;;;;;;;;;;;;;; modeline (define-compatible-function-alias 'redraw-mode-line 'redraw-modeline)