diff options
| author | Richard M. Stallman | 1996-05-31 15:33:29 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1996-05-31 15:33:29 +0000 |
| commit | 1676b2982860347489ce9b47dfa6cf06aa21adf9 (patch) | |
| tree | b69b37dd1d5d6c9e80bde477a735b63f41150099 /lisp | |
| parent | c4d570b2eee0bd06cf15e316ca38ad7c1cd891ae (diff) | |
| download | emacs-1676b2982860347489ce9b47dfa6cf06aa21adf9.tar.gz emacs-1676b2982860347489ce9b47dfa6cf06aa21adf9.zip | |
(electric-helpify): Allow NAME to be given as arg.
(electric-command-apropos): Specify *Apropos* as buffer name.
Diffstat (limited to 'lisp')
| -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.)" | |||
| 260 | 260 | ||
| 261 | 261 | ||
| 262 | ;;;###autoload | 262 | ;;;###autoload |
| 263 | (defun electric-helpify (fun) | 263 | (defun electric-helpify (fun &optional name) |
| 264 | (let ((name "*Help*")) | 264 | (let ((name (or name "*Help*"))) |
| 265 | (if (save-window-excursion | 265 | (if (save-window-excursion |
| 266 | ;; kludge-o-rama | 266 | ;; kludge-o-rama |
| 267 | (let* ((p (symbol-function 'print-help-return-message)) | 267 | (let* ((p (symbol-function 'print-help-return-message)) |
| @@ -363,7 +363,7 @@ will select it.)" | |||
| 363 | 363 | ||
| 364 | (defun electric-command-apropos () | 364 | (defun electric-command-apropos () |
| 365 | (interactive) | 365 | (interactive) |
| 366 | (electric-helpify 'command-apropos)) | 366 | (electric-helpify 'command-apropos "*Apropos*")) |
| 367 | 367 | ||
| 368 | ;(define-key help-map "a" 'electric-command-apropos) | 368 | ;(define-key help-map "a" 'electric-command-apropos) |
| 369 | 369 | ||