;ELC ;;; compiled by jimb@geech.gnu.ai.mit.edu on Mon Jul 5 23:16:13 1993 ;;; from file /gd/gnu/emacs/19.0/lisp/help-macro.el ;;; emacs version 19.15.16. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "This file was compiled for Emacs 19")) (byte-code "ÀÁ!ˆÂÃ!‡" [provide help-macro require backquote] 2) (defalias 'make-help-screen '(macro . #[(fname help-line help-text helped-map) "À  ÄÅÆÇDDCÉÅÊËÌÍÎÌÏÐÑÒÓÔ DDDÕÖ¯EÅ×ØÙÚEDDCÜEEÝEEF¯‡" [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))] 22 "\ 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."]))