;ELC ;;; Compiled by rms@psilocin.gnu.org on Mon Mar 9 00:27:03 1998 ;;; from file /gd/gnu/emacs/lisp/help-macro.el ;;; in Emacs version 20.2.89.6 ;;; with bytecomp version 2.38 ;;; with all optimizations. ;;; This file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`help-macro.el' was compiled for Emacs 19.29 or later")) (byte-code "\300\301!\210\302\303!\207" [provide help-macro require backquote] 2) #@297 *Non-nil means give more info about Help command in three steps. The three steps are simple prompt, prompt with all options, and window listing and describing the options. A value of nil means skip the middle step, so that \[help-command] \[help-command] gives the window that lists the options. (defvar three-step-help nil (#$ . -618)) #@318 Construct help-menu function name FNAME. When invoked, FNAME shows HELP-LINE and reads a command using HELPED-MAP. If the command is the help character, FNAME displays HELP-TEXT and continues trying to read a command using HELPED-MAP. When FNAME finally does get a command, it executes that command and then returns. (defalias 'make-help-screen '(macro . #[(fname help-line help-text helped-map) "\304\305 \306\307\310\311\nDDC\312\313\314\315\316DDD\317B\320\321\322\323 E\324BB\325BBEF\257\207" [fname help-text help-line helped-map defun nil (interactive) let line-prompt substitute-command-keys (if three-step-help (message "%s" line-prompt)) let* help-screen documentation quote ((local-map (make-sparse-keymap)) (minor-mode-map-alist nil) (prev-frame (selected-frame)) config new-frame key char) unwind-protect progn setcdr local-map ((define-key local-map [t] 'undefined) (define-key local-map [vertical-scroll-bar] (lookup-key global-map [vertical-scroll-bar])) (if three-step-help (progn (setq key (let ((overriding-local-map local-map)) (read-key-sequence nil))) (if (lookup-key function-key-map key) (setq key (lookup-key function-key-map key))) (setq char (aref key 0))) (setq char 63)) (if (or (eq char 63) (eq char help-char) (memq char help-event-list)) (progn (setq config (current-window-configuration)) (switch-to-buffer-other-window "*Help*") (and (fboundp 'make-frame) (not (eq (window-frame (selected-window)) prev-frame)) (setq new-frame (window-frame (selected-window)) config nil)) (setq buffer-read-only nil) (erase-buffer) (insert help-screen) (help-mode) (goto-char (point-min)) (while (or (memq char (append help-event-list (cons help-char '(63 22 32 127 delete backspace vertical-scroll-bar -134217610)))) (eq (car-safe char) 'switch-frame) (equal key "\366")) (condition-case nil (progn (if (eq (car-safe char) 'switch-frame) (handle-switch-frame char)) (if (memq char '(22 32)) (scroll-up)) (if (or (memq char '(127 -134217610 delete backspace)) (equal key "\366")) (scroll-down))) (error nil)) (let ((cursor-in-echo-area t) (overriding-local-map local-map)) (setq key (read-key-sequence (format "Type one of the options listed%s: " (if (pos-visible-in-window-p (point-max)) "" ", or SPACE or DEL to scroll"))) char (aref key 0))) (when (eq char 'vertical-scroll-bar) (command-execute (lookup-key local-map key) nil key))))) (message "") (if (listp char) (setq unread-command-events (cons char unread-command-events) config nil) (let ((defn (lookup-key local-map key))) (if defn (progn (if config (progn (set-window-configuration config) (setq config nil))) (if new-frame (progn (iconify-frame new-frame) (setq new-frame nil))) (call-interactively defn)) (ding))))) ((if new-frame (iconify-frame new-frame)) (if config (set-window-configuration config)))] 15 (#$ . 962)]))