summaryrefslogtreecommitdiff
path: root/lisp/ehelp.el
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>1996-05-31 15:33:29 +0000
committerRichard M. Stallman <rms@gnu.org>1996-05-31 15:33:29 +0000
commit1676b2982860347489ce9b47dfa6cf06aa21adf9 (patch)
treeb69b37dd1d5d6c9e80bde477a735b63f41150099 /lisp/ehelp.el
parentc4d570b2eee0bd06cf15e316ca38ad7c1cd891ae (diff)
downloademacs-1676b2982860347489ce9b47dfa6cf06aa21adf9.tar.gz
(electric-helpify): Allow NAME to be given as arg.
(electric-command-apropos): Specify *Apropos* as buffer name.
Diffstat (limited to 'lisp/ehelp.el')
-rw-r--r--lisp/ehelp.el6
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)