;ELC ;;; compiled by cthomp@willow on Wed Aug 25 18:01:34 1993 ;;; from file /era/era-working/editor/lisp/electric/ehelp.el ;;; emacs version 19.8 (beta8) Lucid. ;;; bytecomp version 2.16; 8-aug-93. ;;; 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.")) (require 'electric) (defvar electric-help-map nil "\ Keymap defining commands available in `electric-help-mode'.") (byte-code "# \" W \"# T i)!!#!##########)" [put electric-help-undefined suppress-keymap t electric-help-map make-keymap map set-keymap-name 0 i 128 define-key make-string 1 char-to-string meta-prefix-char copy-keymap help-char electric-help-help "?" " " scroll-up "" scroll-down "." beginning-of-buffer "<" ">" end-of-buffer "q" electric-help-exit "Q" "r" electric-help-retain] 6) (fset 'electric-help-mode #[nil " !" [t buffer-read-only "Help" mode-name help major-mode (" Help: %b") mode-line-buffer-identification use-local-map electric-help-map] 2 "\ `with-electric-help' temporarily places its buffer in this mode. (On exit from `with-electric-help', the buffer is put in `default-major-mode'.)"]) (fset 'with-electric-help #[(thunk &optional buffer noerase) " !!  ʎ !b !) q  )  q!eb !) q! = ĉ-" [get-buffer-create buffer "*Help*" one-window-p t current-window-configuration nil bury config one ((byte-code "!\nqŏ!\n!\n!" [message nil buffer buffer-read-only (byte-code " " [default-major-mode fundamental-mode] 1) ((error)) set-window-configuration config bury replace-buffer-in-windows bury-buffer] 3)) window-start selected-window pop-up-windows pop-to-buffer electric-help-mode buffer-read-only noerase erase-buffer standard-output thunk set-buffer-modified-p shrink-window-if-larger-than-buffer run-hooks electric-help-mode-hook electric-help-command-loop retain] 3 "\ Arguments are THUNK &optional BUFFER NOERASE. BUFFER defaults to \"*Help*\" THUNK is a function of no arguments which is called to initialise 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 the buffer specified by BUFFER After THUNK has been called, this function \"electrically\" pops up a window 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 (ie we use `save-window-excursion') BUFFER is put into `default-major-mode' (or `fundamental-mode') when we exit."]) (fset 'electric-help-command-loop #[nil "" [exit (byte-code "d!! !=\"lj!=!=!=!=#-" [pos-visible-in-window-p message "<<< Press Space to bury the help buffer >>>" event-to-character next-command-event unread-command-event 32 nil throw exit t key-binding " " scroll-up "" scroll-down "Q" electric-help-exit "q" standard neither both down up Electric-command-loop #[nil "e!d! Ī !\n Ȫ ! ˪ ! Ϊ!*" [pos-visible-in-window-p max min standard "Press Q to exit " neither substitute-command-keys "Press \\[scroll-up] to exit " "Press SPC to scroll, Q to exit " up "Press \\[scroll-up] to scroll; \\[electric-help-exit] to exit " "Press DEL to scroll back, Q to exit " down "Press \\[scroll-down] to scroll back, \\[scroll-up] to exit " "Press SPC to scroll, DEL to scroll back, Q to exit " both "Press \\[scroll-up] to scroll, \\[scroll-down] to scroll back, \\[electric-help-exit] to exit "] 4]] 6)] 2]) (fset 'electric-help-exit #[nil "\"" [throw exit t] 3 "\ >>>Doc" nil]) (fset 'electric-help-retain #[nil "\"" [throw exit (retain)] 3 "\ Exit `electric-help', retaining the current window/buffer configuration. (The *Help* buffer will not be selected, but \\[switch-to-buffer-other-window] RET will select it.)" nil]) (byte-code "MMMMMMMMMMM! \"\"\"M*!" [electric-help-undefined #[nil " #!=Ǫ!#" [error "%s is undefined -- Press %s to exit" mapconcat single-key-description this-command-keys " " key-binding "Q" electric-help-exit substitute-command-keys "\\[electric-help-exit]"] 6 nil nil] electric-help-help #[nil "!=!=!=!!!\"!" [key-binding "Q" electric-help-exit " " scroll-up "" scroll-down message "SPC scrolls forward, DEL scrolls back, Q exits and burys help buffer" "Help..." "%s" substitute-command-keys "\\[scroll-up] scrolls forward, \\[scroll-down] scrolls back, \\[electric-help-exit] exits." sit-for 2] 4 nil nil] electric-helpify #[(fun &optional buffer-name) "K! ! !ʎˋ)#+" [buffer-name "*Help*" print-help-return-message p get-buffer b buffer-modified-tick tick get-buffer-window nil ((byte-code " M" [print-help-return-message p] 2)) ((byte-code " !!\"M \" \n  \"*!!=!!=?q V))" [message "%s..." capitalize symbol-name fun print-help-return-message ignore call-interactively lambda a temp-buffer-show-function apply nil get-buffer buffer-name r b tick buffer-modified-tick buffer-size 0] 6)) with-electric-help ignore t] 5] electric-describe-key #[nil "!" [electric-helpify describe-key] 2 nil nil] electric-describe-mode #[nil "!" [electric-helpify describe-mode] 2 nil nil] electric-view-lossage #[nil "!" [electric-helpify view-lossage] 2 nil nil] electric-describe-function #[nil "!" [electric-helpify describe-function] 2 nil nil] electric-describe-variable #[nil "!" [electric-helpify describe-variable] 2 nil nil] electric-describe-bindings #[nil "!" [electric-helpify describe-bindings] 2 nil nil] electric-describe-syntax #[nil "!" [electric-helpify describe-syntax] 2 nil nil] electric-command-apropos #[nil "!" [electric-helpify command-apropos] 2 nil nil] boundp ehelp-map nil ((describe-key . electric-describe-key) (describe-mode . electric-describe-mode) (view-lossage . electric-view-lossage) (describe-function . electric-describe-function) (describe-variable . electric-describe-variable) (describe-bindings . electric-describe-bindings) (describe-syntax . electric-describe-syntax)) make-sparse-keymap map shadow set-keymap-name set-keymap-parent help-map map-keymap #[(key binding) "  \nA#)" [binding shadow tem define-key map key] 5] ehelp-command provide ehelp] 3)