From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 31 May 1996 15:33:29 +0000 (+0000)
Subject: (electric-helpify): Allow NAME to be given as arg.
X-Git-Tag: emacs-19.34~552
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1676b2982860347489ce9b47dfa6cf06aa21adf9;p=emacs.git

(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 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)