diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-05-31 15:33:29 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-05-31 15:33:29 +0000 |
| commit | 0fefc86a6e3d49d08d6cde96843664794172242e (patch) | |
| tree | 2dc7aae8414cc8d4aee94c94ff8f1375419e9bc7 | |
| parent | 3acfba017179c1bd7b673ed0e804699e63579528 (diff) | |
| download | emacs-0fefc86a6e3d49d08d6cde96843664794172242e.tar.gz | |
(electric-helpify): Allow NAME to be given as arg.
(electric-command-apropos): Specify *Apropos* as buffer name.
| -rw-r--r-- | lisp/ehelp.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/ehelp.el b/lisp/ehelp.el index 14401f7c9a5..c469c3d10f9 100644 --- a/lisp/ehelp.el +++ b/lisp/ehelp.el @@ -260,8 +260,8 @@ will select it.)" ;;;###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 @@ will select it.)" (defun electric-command-apropos () (interactive) - (electric-helpify 'command-apropos)) + (electric-helpify 'command-apropos "*Apropos*")) ;(define-key help-map "a" 'electric-command-apropos) |