HOME

Mini Shell 1.0
DIR:/proc/self/root/usr/share/emacs/26.1/lisp/eshell/
Current File : //proc/self/root/usr/share/emacs/26.1/lisp/eshell/em-smart.elc
;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301!\210\302\303\304\305\306\307\310\311&\210\312\313\314\315\316DD\317\320\321\322\323\310\303&	\210\312\324\314\315\325DD\326\322\323\310\303&\210\312\327\314\315\330DD\331\322\332\310\303&\210\312\333\314\315\334DD\335\322\336\310\303&\210\312\337\314\315\340DD\341\322\342\310\303&\210\312\343\314\315\344DD\345\322\346\310\303&\207" [require esh-mode custom-declare-group eshell-smart nil "This module combines the facility of normal, modern shells with\nsome of the edit/review concepts inherent in the design of Plan 9's\n9term.  See the docs for more details.\n\nMost likely you will have to turn this option on and play around with\nit to get a real sense of how it works." :tag "Smart display of output" :group eshell-module custom-declare-variable eshell-smart-load-hook funcall function #[0 "\300\207" [nil] 1] "A list of functions to call when loading `eshell-smart'." :version "24.1" :type hook eshell-smart-unload-hook #[0 "\300C\207" [#[0 "\300\301\302\"\207" [remove-hook window-configuration-change-hook eshell-refresh-windows] 3]] 1] "A hook that gets run when `eshell-smart' is unloaded." eshell-review-quick-commands #[0 "\300\207" [nil] 1] "If t, always review commands.\nReviewing means keeping point on the text of the command that was just\ninvoked, to allow corrections to be made easily.\n\nIf set to nil, quick commands won't be reviewed.  A quick command is a\ncommand that produces no output, and exits successfully.\n\nIf set to `not-even-short-output', then the definition of \"quick\ncommand\" is extended to include commands that produce output, if and\nonly if that output can be presented in its entirely in the Eshell window." (choice (const :tag "No" nil) (const :tag "Yes" t) (const :tag "Not even short output" not-even-short-output)) eshell-smart-display-navigate-list #[0 "\300\207" [(insert-parentheses mouse-yank-at-click mouse-yank-primary mouse-yank-secondary yank-pop yank-rectangle yank)] 1] "A list of commands which cause Eshell to jump to the end of buffer." (repeat function) eshell-smart-space-goes-to-end #[0 "\300\207" [t] 1] "If non-nil, space will go to end of buffer when point-max is visible.\nThat is, if a command is running and the user presses SPACE at a time\nwhen the end of the buffer is visible, point will go to the end of the\nbuffer and smart-display will be turned off (that is, subsequently\npressing backspace will not cause the buffer to scroll down).\n\nThis feature is provided to make it very easy to watch the output of a\nlong-running command, such as make, where it's more desirable to see\nthe output go by than to review it afterward.\n\nSetting this variable to nil means that space and backspace will\nalways have a consistent behavior, which is to move back and forth\nthrough displayed output.  But it also means that enabling output\ntracking requires the user to manually move point to the end of the\nbuffer using \\[end-of-buffer]." boolean eshell-where-to-jump #[0 "\300\207" [begin] 1] "This variable indicates where point should jump to after a command.\nThe options are `begin', `after' or `end'." (radio (const :tag "Beginning of command" begin) (const :tag "After command word" after) (const :tag "End of command" end))] 10)
(defvar eshell-smart-displayed nil)
(defvar eshell-smart-command-done nil)
(defvar eshell-currently-handling-window nil)
#@29 Setup Eshell smart display.
(defalias 'eshell-smart-initialize #[0 "?\205P\305\301!\210\306\305\302!\210\306\305\303!\210\307\310\311\312\306\307$\210\310\313\314\"\210\310\315\314\307\211$\210\310\316\317\306\307$\210\310\320\321\306\307$\210\305\322!\210\310\323\324\307\211$\210\f\307=?\205P\310\323\325\306\307$\207" [eshell-non-interactive-p eshell-scroll-to-bottom-on-output eshell-scroll-to-bottom-on-input eshell-scroll-show-maximum-output eshell-review-quick-commands make-local-variable nil t add-hook window-scroll-functions eshell-smart-scroll-window window-configuration-change-hook eshell-refresh-windows eshell-output-filter-functions after-change-functions eshell-disable-after-change eshell-input-filter-functions eshell-smart-display-setup eshell-smart-command-done eshell-post-command-hook #[0 "\301\211\207" [eshell-smart-command-done t] 2] eshell-smart-maybe-jump-to-end] 5 (#$ . 3773)])
#@62 Scroll the given Eshell window accordingly.

(fn WIND START)
(defalias 'eshell-smart-scroll-window #[514 "?\205%\302\211\303!r\304\305\306\307\310!\311\"\312$\216\313@\314\"\210\315 *\262*\207" [eshell-currently-handling-window inhibit-point-motion-hooks t internal--before-with-selected-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord eshell-smart-redisplay] 9 (#$ . 4695)])
#@59 Refresh all visible Eshell buffers.

(fn &optional FRAME)
(defalias 'eshell-refresh-windows #[256 "\301C\302\303\304\305\306\307!\310\"\311\312%\313#\210\211\242\205*\301\3141'\315\313\211\"0\202)\210\301)\207" [window-scroll-functions nil walk-windows make-byte-code 257 "r\303!q\210	\205\304\305\306 \"\210\300\307\240))\207" vconcat vector [eshell-mode window-scroll-functions window-buffer nil eshell-smart-scroll-window window-start t] 4 "\n\n(fn WIND)" 0 (error) sit-for] 9 (#$ . 5156)])
#@66 Set the point to somewhere in the beginning of the last command.
(defalias 'eshell-smart-display-setup #[0 "\304\267\202'	b\210\202+\305	\306\"b\210`\n\307ZU\203+\310u\210\202+\nSb\210\202+\311\312!\210\310\313\314\315\310\316$\210\317 \207" [eshell-where-to-jump eshell-last-input-start eshell-last-input-end eshell-smart-command-done #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (begin 6 after 12 end 32)) next-single-property-change arg-end 2 nil error "Invalid value for `eshell-where-to-jump'" add-hook pre-command-hook eshell-smart-display-move t eshell-refresh-windows] 5 (#$ . 5668)])
#@74 Disable smart display mode if the buffer changes in any way.

(fn B E L)
(defalias 'eshell-disable-after-change #[771 "\205
\301\302\303\304#\210\305\211\207" [eshell-smart-command-done remove-hook pre-command-hook eshell-smart-display-move t nil] 7 (#$ . 6314)])
#@155 Jump to the end of the input buffer.
This is done whenever a command exits successfully and both the command
and the end of the buffer are still visible.
(defalias 'eshell-smart-maybe-jump-to-end #[0 "\305U\205)	\306=\203\307d!\205)\307\n!\202\310\f\"\305U\205)db\210\311\312\313\314#\207" [eshell-last-command-status eshell-review-quick-commands eshell-last-input-start eshell-last-input-end eshell-last-output-end 0 not-even-short-output pos-visible-in-window-p count-lines remove-hook pre-command-hook eshell-smart-display-move t] 4 (#$ . 6588)])
#@46 Display as much output as possible, smartly.
(defalias 'eshell-smart-redisplay #[0 "m\203\212\303\304!\210\3051\306\307\211\"0\202\210\310)\207`\311>\2034`	Y\2034`\nW\2034\312\313 \314 \315#\210\316d!\205T\212db\210\303\304!\210\316!?\205S\211b\210\312\313 \314 \315#)\207" [pre-command-hook eshell-last-input-start eshell-last-input-end recenter -1 (error) sit-for 0 nil eshell-smart-display-move set-window-start selected-window line-beginning-position t pos-visible-in-window-p] 5 (#$ . 7153)])
#@47 Like `end-of-buffer', but do not push a mark.
(defalias 'eshell-smart-goto-end #[0 "db\207" [] 1 (#$ . 7670) nil])
#@59 Handle self-inserting or movement commands intelligently.
(defalias 'eshell-smart-display-move #[0 "\306\204`	V\203`\nW\204`Y\203\307\262\202\256\f\310=\203Q
\311=\203H\203C\203C\312d!\204>\313\202\256\314\202\256\313\202\256\307\262db\210\202\256\f\315=\203\217\316`	W\203e\317 \210\202\256\312	!\203\200\3201u\321 0\202y\210\202z\210\317 \210\202\256\321 \210\312\n!\203\256\317 \210\202\256\f>\204\250\f\322=\203\256`	Y\203\250`\nW\204\256\307\262db\210\211\205\267\323\324\325\307#\207" [current-prefix-arg eshell-last-input-start eshell-last-input-end eshell-last-output-end this-command last-command-event nil t self-insert-command 32 pos-visible-in-window-p scroll-up eshell-smart-goto-end delete-backward-char ignore eshell-show-output (error) scroll-down eshell-send-input remove-hook pre-command-hook eshell-smart-display-move eshell-smart-space-goes-to-end eshell-current-command eshell-smart-display-navigate-list] 5 (#$ . 7791)])
(provide 'em-smart)