%PDF-
%PDF-
Mini Shell
Mini Shell
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defalias 'scroll-down-in-place #[(n) "[y\210\301!\207" [n scroll-down] 2 nil "p"])
(defalias 'scroll-up-in-place #[(n) "y\210\301!\207" [n scroll-up] 2 nil "p"])
#@69 Like `kill-region', but pops the mark [which equals point, anyway.]
(defalias 'kill-region-and-unmark #[(beg end) "\303 \"\210\304\305\306!\207" [beg end this-command kill-region kill-region-and-unmark set-mark-command t] 3 (#$ . 575) "r"])
#@34 Repeat Previous-complex-command.
(defalias 'rerun-prev-command #[nil "\301@!\207" [command-history eval] 2 (#$ . 824) nil])
#@27 Default arg for RE-search
(defvar grep-arg nil (#$ . 955))
(defalias 'grep-arg #[nil "\306>\203 \207\n@\307 @! A@ \f\205 \310\311\f\"\211 \f\203-
;\203-
\211\202;
\f\312\313 \"\f
,\207" [last-command grep-arg command-history command command-name search-arg (research-forward research-backward) symbol-name string-match "search" read-string "REsearch: " search-command this-command] 4])
#@27 Repeat RE search forward.
(defalias 'research-forward #[nil "\300\301 !\207" [re-search-forward grep-arg] 2 (#$ . 1363) nil])
#@28 Repeat RE search backward.
(defalias 'research-backward #[nil "\300\301 !\207" [re-search-backward grep-arg] 2 (#$ . 1495) nil])
(defvar sun-raw-prefix (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210\302\317\320#\210\302\321\322#\210\302\323\324#\210\302\325\326#\210\302\327\330#\210\302\331\332#\210\302\333\334#\210\302\335\336#\210\302\337\340#\210\302\341\342#\210\302\343\344#\210\302\345\346#\210\302\347\350#\210\302\351\352#\210\302\353\354#\210\302\355\356#\210\302\357\360#\210\302\361\362#\210\302\363\364#\210\302\365\366#\210\302\367\370#\210)\207" [map make-sparse-keymap define-key "210z" [r3] "213z" [r6] "214z" [r7] "216z" [r9] "218z" [r11] "220z" [r13] "222z" [r15] "193z" [redo] "194z" [props] "195z" [undo] "200z" [find] "224z" [f1] "225z" [f2] "226z" [f3] "227z" [f4] "228z" [f5] "229z" [f6] "230z" [f7] "231z" [f8] "232z" [f9] "233z" [f10] "234z" [f11] "235z" [f12] "A" [up] "B" [down] "C" [right] "D" [left]] 4))
#@43 Terminal initialization function for sun.
(defalias 'terminal-init-sun #[nil "\302\303 #\210\304\305\306\"\210\304\307\310\"\210\304\311\312\"\210\304\313\314\"\210\304\315\316\"\210\304\317\320\"\210\304\321\322\"\210\304\323\324\"\210\304\325\326\"\210\304\327\330\"\210\304\331\332\"\210\304\333\334\"\210\304\335\336\"\210\304\337\340\"\210\304\341\342\"\210\304\343\344\"\207" [input-decode-map sun-raw-prefix define-key "[" global-set-key [r3] backward-page [r6] forward-page [r7] beginning-of-buffer [r9] scroll-down-command [r11] recenter [r13] end-of-buffer [r15] scroll-up-command [redo] redraw-display [props] list-buffers [put] sun-select-region [get] sun-yank-selection [find] exchange-point-and-mark [f3] scroll-down-in-place [f4] scroll-up-in-place [f6] shrink-window [f7] enlarge-window] 4 (#$ . 2539)])
(provide 'term/sun)
Zerion Mini Shell 1.0