;ELC   
;;; compiled by rms@mole.gnu.ai.mit.edu on Sun Aug  8 03:57:22 1993
;;; from file /home/fsf/rms/e19/lisp/ehelp.el
;;; emacs version 19.17.7.
;;; 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"))

(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)
(defalias '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'.)"])
(defalias 'with-electric-help #[(thunk &optional buffer noerase) "А	† В!ГД!Е Ж	КЋЉ	ѓ\" ЛМ !b€ДО	!€)Љ	q€П €Ж„< Т €)	 „Z 	q€ХЖ!€eb€	ѓZ ЦМ !€)	q€ЧШ!€Щ ўЪ=ѓr Е ‰‚v Д‰-‡" [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 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"])
(defalias (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])
(defalias 'electric-help-exit #[nil "АБВ\"‡" [throw exit t] 3 "\
>>>Doc" nil])
(defalias '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€)жз!‡" [defalias 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)