(electric-helpify): Allow NAME to be given as arg.

(electric-command-apropos): Specify *Apropos* as buffer name.

diff --git a/lisp/ehelp.el b/lisp/ehelp.el
index 14401f7c9a50da7d9f1cf7e9e3b4de3c9d608852..c469c3d10f9faa1c08fd1227f0b488157dc1bf37 100644 (file)
--- a/lisp/ehelp.el
+++ b/lisp/ehelp.el
@@ -260,8 +260,8 @@ will select it.)"
 
 \f
 ;;;###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)