;ELC ;;; compiled by rms@psilocin.gnu.ai.mit.edu on Thu Jun 6 10:23:33 1996 ;;; from file /home/fsf/rms/e19/lisp/ehelp.el ;;; emacs version 19.31.2. ;;; 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.29"))) (error "`ehelp.el' was compiled for Emacs 19.29 or later")) (require (quote electric)) #@61 Keymap defining commands available in `electric-help-mode'. (defvar electric-help-map nil (#$ . 496)) (byte-code "! B# \n\n!\n#\n#\n#\n#\n#\n#\n#\n#\n#\n#\n#\n!#\n#\n#\n#\n#\n#\n#\n#\n#\n#\n#\n#\n#\n)‡" [boundp electric-help-form-to-execute nil current-load-list put electric-help-undefined suppress-keymap t electric-help-map make-keymap map define-key "" [67108912] [67108913] [67108914] [67108915] [67108916] [67108917] [67108918] [67108919] [67108920] [67108921] 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" "x" electric-help-execute-extended "" electric-help-ctrl-x-prefix] 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 add-hook mouse-leave-buffer-hook electric-help-retain view-mode -1] 3 (#$ . 1373)]) #@1159 Pop up an "electric" help buffer. The arguments are THUNK &optional BUFFER NOERASE MINHEIGHT. THUNK is a function of no arguments which is called to initialize the contents of BUFFER. BUFFER defaults to `*Help*'. BUFFER will be erased before THUNK is called unless NOERASE is non-nil. THUNK will be called while BUFFER is current and with `standard-output' bound to the buffer specified by BUFFER. If THUNK returns nil, we display BUFFER starting at the top, and shrink the window to fit. If THUNK returns non-nil, we don't do those things. 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. The window's height will be at least MINHEIGHT if this value is non-nil. If THUNK returns nil, we display BUFFER starting at the top, and shrink the window to fit. If THUNK returns non-nil, we don't do those things. 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 minheight) " !! Ɖ \nˎ\n% !b !) qF WF Z! T )  r q!eb\nr !) q! =  ĉ." [get-buffer-create buffer "*Help*" one-window-p t current-window-configuration nil electric-help-form-to-execute 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 eval electric-help-form-to-execute] 3)) window-start selected-window pop-up-windows pop-to-buffer minheight window-height enlarge-window 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] 4 (#$ . 1805)]) (defalias 'electric-help-command-loop #[nil "" [exit (byte-code "d! !\" Cǚ \"ȉ!=A!=A!=A!=#-" [pos-visible-in-window-p message "%s" 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! Ƃ}\f3 3%Ȃ} }! }\fN@̂} }! } i[ς}}!}r҂}}!*" [sit-for 0 pos-visible-in-window-p max min isearch-mode noprompt 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, r to retain " 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, r to retain " both "Press \\[scroll-up] to scroll, \\[scroll-down] to scroll back, \\[electric-help-exit] to exit, \\[electric-help-retain] to retain "] 3]] 6)] 2]) #@8 >>>Doc (defalias 'electric-help-exit #[nil "\"" [throw exit t] 3 (#$ . 5318) 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 " >\"\"" [electric-help-retain mouse-leave-buffer-hook remove-hook throw exit (retain)] 3 (#$ . 5412) 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 &optional name) "‹#)" [name "*Help*" ((byte-code "K !\f!\f\f!Ɏ!!\"\f1\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-help-execute-extended #[(prefixarg) " " [(execute-extended-command nil) electric-help-form-to-execute electric-help-retain] 1 nil "p"]) (defalias 'electric-help-ctrl-x-prefix #[(prefixarg) " " [(progn (message nil) (setq unread-command-char 24)) electric-help-form-to-execute electric-help-retain] 1 nil "p"]) (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 "*Apropos*"] 3 nil nil]) (defalias 'electric-apropos #[nil "!" [electric-helpify apropos] 2 nil nil]) (byte-code "! B ] !#########M)!" [boundp ehelp-map nil current-load-list copy-keymap help-map map substitute-key-definition apropos electric-apropos 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)