;;; compiled by rms@mole.gnu.ai.mit.edu on Wed May 26 15:12:26 1993
;;; from file /home/fsf/rms/e19/lisp/help-macro.el
;;; emacs version 19.6.19.
;;; bytecomp version FSF 2.08
;;; optimization is on.

(byte-code "ÀÁ!ˆÂÃ!‡" [provide help-macro require backquote] 2)
(defalias 'make-help-screen '(macro . #[(fname help-line help-text helped-map) "ÀÁ\nÃÅÆÇÈ	DDCÊÆËÌÍÎÏÀÍÐÑÒÓÔÕ\nDDDÖ×&EÆØÙÚÛEDDCÝEEÞEEF&‡" [list defun fname nil help-text (interactive) let line-prompt substitute-command-keys help-line (message line-prompt) ((char (read-event)) config) unwind-protect progn if (or (eq char 63) (eq char help-char)) (setq config (current-window-configuration)) (switch-to-buffer-other-window "*Help*") (erase-buffer) insert documentation quote (goto-char (point-min)) (while (memq char (cons help-char (quote (63 22 32 127 -8388490)))) (if (memq char (quote (22 32))) (scroll-up)) (if (memq char (quote (127 -8388490))) (scroll-down)) (message "%s%s: " line-prompt (if (pos-visible-in-window-p (point-max)) "" " or Space to scroll")) (let ((cursor-in-echo-area t)) (setq char (read-event)))) defn cdr assq (if (integerp char) (downcase char) char) helped-map (if defn (if (keymapp defn) (error "sorry, this command cannot be run from the help screen.  Start over.") (if config (progn (set-window-configuration config) (setq config nil))) (call-interactively defn)) (if (listp char) (setq unread-command-events (cons char unread-command-events) config nil) (ding))) (if config (set-window-configuration config))] 24 "\
Constructs function FNAME that when invoked shows HELP-LINE and if a help
character is requested, shows HELP-TEXT. The user is prompted for a character
from the HELPED-MAP and the corresponding interactive function is executed."]))