;ELC   
;;; compiled by kwzh@hal.gnu.ai.mit.edu on Mon Apr 17 19:37:30 1995
;;; from file /gd/gnu/emacs/19.0/lisp/ehelp.el
;;; emacs version 19.28.90.26.
;;; 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 "`/gd/gnu/emacs/19.0/lisp/ehelp.el' was compiled for Emacs 19"))


(require (quote electric))
#@61 Keymap defining commands available in `electric-help-mode'.
(defvar electric-help-map nil (#$ . 506))
(byte-code "АБВГ#€\f„g Е В!€ЗИ	!К#€ЗЛК#€ЗМН#€ЗОП#€ЗРС#€ЗТС#€ЗУФ#€ЗХЦ#€ЗЧЦ#€ЗШЩ#€ЗЪЩ#€)А‡" [put electric-help-undefined suppress-keymap t electric-help-map make-keymap map define-key char-to-string help-char electric-help-help "?" " " scroll-up "" scroll-down "." beginning-of-buffer "<" ">" end-of-buffer "q" electric-help-exit "Q" "r" electric-help-retain "R"] 4)
#@146 `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 '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 (#$ . 1011)])
#@716 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 '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 (#$ . 1365)])
(defalias 'electric-help-command-loop #[nil "АБЌ‡" [exit (byte-code "Аd!ѓ БВГ!!€Д C‰Жљѓ ЗИЙК\"€З‰‰‰ЛМ!Н=…> ЛО!П=…> ЛР!С=…> ЛТ!У=ЩЙЪК#-‡" [pos-visible-in-window-p message substitute-command-keys "<<< Press Space to bury the help buffer, Press \\[electric-help-retain] to retain it >>>" read-event unread-command-events (32) nil throw exit t key-binding " " scroll-up "" scroll-down "q" electric-help-exit "r" electric-help-retain standard neither both down up Electric-command-loop #[nil "Аe!Аd!‰ѓ$ 	ѓ$ ѓ Д‚k †k ЖЗ!‰‚k \nѓ> ѓ0 И‚k 	†k ЖК!‰	‚k 	ѓX ѓJ Л‚k \f†k ЖН!‰\f‚k ѓ` О‚k †k ЖР!‰*‡" [pos-visible-in-window-p max min standard "Press q to exit, r to retain " neither substitute-command-keys "Press \\[electric-help-exit] to exit, \\[electric-help-retain] to retain " "Press SPC to scroll, q to exit, r to retain " up "Press \\[scroll-up] to scroll, \\[electric-help-exit] to exit, \\[electric-help-retain] to retain " "Press DEL to scroll back, q to exit " down "Press \\[scroll-down] to scroll back, \\[electric-help-exit] to exit, \\[electric-help-retain] to retain " "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, \\[electric-help-retain] to retain "] 4]] 6)] 2])
#@8 >>>Doc
(defalias 'electric-help-exit #[nil "АБВ\"‡" [throw exit t] 3 (#$ . 4204) nil])
#@173 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.)
(defalias 'electric-help-retain #[nil "АБВ\"‡" [throw exit (retain)] 3 (#$ . 4298) nil])
(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])
(defalias 'electric-help-help #[nil "АБ!В=ѓ' АГ!Д=ѓ' АЕ!Ж=ѓ' АЗ!И=ѓ' ЙК!€‚. ЙЛМН!\"€ОП!‡" [key-binding "q" electric-help-exit " " scroll-up "" scroll-down "r" electric-help-retain message "SPC scrolls up, DEL scrolls down, q exits burying help buffer, r exits" "%s" substitute-command-keys "\\[scroll-up] scrolls up, \\[scroll-down] scrolls down, \\[electric-help-exit] exits burying help buffer, \\[electric-help-retain] exits" sit-for 2] 4 nil nil])
(defalias 'electric-helpify #[(fun) "АВ‹…\f ГД	Е#)‡" ["*Help*" name ((byte-code "АKВ!Е\f!\fѓ З\f!„ ИЙЋКЛМН!!\"€\fѓ1 Љ\fq€ПР!€)АСM€Т!€В!…Z ЗВ!!…Z \f?†Z \fВ!=?†Z Е\f!?,‡" [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])
(defalias 'electric-describe-key #[nil "АБ!‡" [electric-helpify describe-key] 2 nil nil])
(defalias 'electric-describe-mode #[nil "АБ!‡" [electric-helpify describe-mode] 2 nil nil])
(defalias 'electric-view-lossage #[nil "АБ!‡" [electric-helpify view-lossage] 2 nil nil])
(defalias 'electric-describe-function #[nil "АБ!‡" [electric-helpify describe-function] 2 nil nil])
(defalias 'electric-describe-variable #[nil "АБ!‡" [electric-helpify describe-variable] 2 nil nil])
(defalias 'electric-describe-bindings #[nil "АБ!‡" [electric-helpify describe-bindings] 2 nil nil])
(defalias 'electric-describe-syntax #[nil "АБ!‡" [electric-helpify describe-syntax] 2 nil nil])
(defalias 'electric-command-apropos #[nil "АБ!‡" [electric-helpify command-apropos] 2 nil nil])
(defalias 'electric-apropos #[nil "АБ!‡" [electric-helpify apropos] 2 nil nil])
(byte-code "АБ!„ ВБB	„V Д!ЗИЙ#€ЗКЛ#€ЗМН#€ЗОП#€ЗРС#€ЗТУ#€ЗФХ#€ЗЦЧ#€ШM€)ЩЪ!‡" [boundp ehelp-map nil current-load-list copy-keymap help-map map substitute-key-definition command-apropos electric-command-apropos 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 ehelp-command provide ehelp] 4)