From: Richard M. Stallman Date: Tue, 18 Jul 1995 23:31:41 +0000 (+0000) Subject: (electric-helpify): Autoload with-electric-help, electric-helpify. X-Git-Tag: emacs-19.34~3258 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9dd2b34edf2aefd90dddb511e5a72450a6b88572;p=emacs.git (electric-helpify): Autoload with-electric-help, electric-helpify. --- diff --git a/lisp/ehelp.el b/lisp/ehelp.el index b5d32ad851f..fb2cd370239 100644 --- a/lisp/ehelp.el +++ b/lisp/ehelp.el @@ -25,7 +25,7 @@ ;; This package provides a pre-packaged `Electric Help Mode' for ;; browsing on-line help screens. There is one entry point, -;; `with-electric-help'; All you have to give it is a no-argument +;; `with-electric-help'; all you have to give it is a no-argument ;; function that generates the actual text of the help into the current ;; buffer. @@ -69,8 +69,9 @@ ;(run-hooks 'electric-help-mode-hook) ) +;;;###autoload (defun with-electric-help (thunk &optional buffer noerase) - "Arguments are THUNK &optional BUFFER NOERASE. BUFFER defaults to \"*Help*\" + "Arguments are THUNK &optional BUFFER NOERASE. BUFFER defaults to `*Help*'. THUNK is a function of no arguments which is called to initialize the contents of BUFFER. BUFFER will be erased before THUNK is called unless NOERASE is non-nil. THUNK will be called with `standard-output' bound to @@ -81,7 +82,7 @@ in which BUFFER is displayed and allows the user to scroll through that buffer in electric-help-mode. When the user exits (with `electric-help-exit', or otherwise) the help buffer's window disappears (i.e., we use `save-window-excursion') -BUFFER is put into `default-major-mode' (or `fundamental-mode') when we exit" +BUFFER is put into `default-major-mode' (or `fundamental-mode') when we exit." (setq buffer (get-buffer-create (or buffer "*Help*"))) (let ((one (one-window-p t)) (config (current-window-configuration)) @@ -207,6 +208,7 @@ will select it.)" (sit-for 2)) +;;;###autoload (defun electric-helpify (fun) (let ((name "*Help*")) (if (save-window-excursion