Mercurial > emacs
changeset 15310:f1e444468043
(electric-helpify): Allow NAME to be given as arg.
(electric-command-apropos): Specify *Apropos* as buffer name.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 31 May 1996 15:33:29 +0000 |
| parents | 577024cb8653 |
| children | a9ed91ec0700 |
| files | lisp/ehelp.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ehelp.el Fri May 31 04:17:17 1996 +0000 +++ b/lisp/ehelp.el Fri May 31 15:33:29 1996 +0000 @@ -260,8 +260,8 @@ ;;;###autoload -(defun electric-helpify (fun) - (let ((name "*Help*")) +(defun electric-helpify (fun &optional name) + (let ((name (or name "*Help*"))) (if (save-window-excursion ;; kludge-o-rama (let* ((p (symbol-function 'print-help-return-message)) @@ -363,7 +363,7 @@ (defun electric-command-apropos () (interactive) - (electric-helpify 'command-apropos)) + (electric-helpify 'command-apropos "*Apropos*")) ;(define-key help-map "a" 'electric-command-apropos)