;;; compiled by eric@geech.gnu.ai.mit.edu on Mon Mar 22 13:32:47 1993 ;;; from file /gd/gnu/emacs/19.0/lisp/ehelp.el ;;; emacs version 19.0.506. ;;; bytecomp version FSF 2.08 ;;; optimization is on. (require (quote electric)) (defvar electric-help-map nil "\ Keymap defining commands available in `electric-help-mode'.") (byte-code "ÀÁÂÃ#ˆ „pÅ ÇA@Á\"ˆÈÉ\n!Ë!#ˆÈÉ !Í#ˆÈÎÍ#ˆÈÏÐ#ˆÈÑÒ#ˆÈÓÔ#ˆÈÕÔ#ˆÈÖ×#ˆÈØÙ#ˆÈÚÙ#ˆÈÛÜ#ˆ)À‡" [put electric-help-undefined suppress-keymap t electric-help-map make-keymap map fillarray define-key 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] 5) (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ˆÏ ˆÆ„<Ò ˆ)  „Z qˆÕÆ!ˆebˆ ƒZÖÌ !ˆ) qˆ×Ø!ˆÙÚ !Û=ƒsÅ ‰‚wĉ-‡" [get-buffer-create buffer "*Help*" one-window-p t current-window-configuration nil bury config one ((byte-code "ÀÁ!ˆ\nqˆÃÃÅƈÇ!ˆ ƒ Ê\n!ˆË\n!ˆÃ‡" [message "" buffer nil 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 car-safe 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 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 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 (i.e., we use `save-window-excursion') BUFFER is put into `default-major-mode' (or `fundamental-mode') when we exit"]) (fset (quote electric-help-command-loop) #[nil "ÀÁ‡" [exit (byte-code "Àd!ƒÁÂ!ˆÃ C‰Å=ƒÆÇÈÉ\"ˆÆ‰‰‰ÊË!Ì=…<ÊÍ!Î=…<ÊÏ!Ð=…<ÊÑ!Ð=×ÈØÉ#-‡" [pos-visible-in-window-p message "<<< Press Space to bury the help buffer >>>" read-event unread-command-events 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!‰ƒ$ ƒ$ ƒÄ‚k †kÆÇ!‰‚k\nƒ> ƒ0È‚k †kÆÊ!‰ ‚k ƒX ƒJË‚k †kÆÍ!‰ ‚k ƒ`΂k†kÆÐ!‰*‡" [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 "ÀÁMˆÂÃMˆÄÅMˆÆÇMˆÈÉMˆÊËMˆÌÍMˆÎÏMˆÐÑMˆÒÓMˆÔÕMˆÖ×!„5Ø„{Ù!ÜÝÆ#ˆÜÞÈ#ˆÜßÊ#ˆÜàÌ#ˆÜáÎ#ˆÜâÐ#ˆÜãÒ#ˆä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) "À‹… ÃÄ Å#)‡" ["*Help*" name ((byte-code "ÀK !Å ! ƒÇ !„ÈÉŽÊËÌÍ!!\"ˆ ƒ1Š qˆÏÐ!ˆ)ÀÑMˆÒ!ˆÂ !…ZÇ !!…Z ?†Z  !=?†ZÅ !?,‡" [print-help-return-message p get-buffer name b buffer-modified-p m get-buffer-window nil ((byte-code "À Mˆ\nƒÃ\n!ƒŠ\nqˆÄ !ˆ)À‡" [print-help-return-message p b buffer-name set-buffer-modified-p m] 2)) message "%s..." capitalize symbol-name fun set-buffer-modified-p t ignore call-interactively] 5)) with-electric-help ignore t] 4] 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 copy-keymap help-map map substitute-key-definition describe-key describe-mode view-lossage describe-function describe-variable describe-bindings describe-syntax ehelp-command provide ehelp] 4)