;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



#@10 

(fn N)
(defalias 'scroll-down-in-place #[257 "\211[y\210\300
!\207" [scroll-down] 3 (#$ . 84) "p"])
#@10 

(fn N)
(defalias 'scroll-up-in-place #[257 "\211y\210\300
!\207" [scroll-up] 3 (#$ . 192) "p"])
#@83 Like `kill-region', but pops the mark [which equals point, anyway].

(fn BEG END)
(defalias 'kill-region-and-unmark #[514 "\301\"\210\302\303\304!\207" [this-command kill-region kill-region-and-unmark set-mark-command t] 5 (#$ . 296) "r"])
#@34 Repeat Previous-complex-command.
(defalias 'rerun-prev-command #[0 "\301@!\207" [command-history eval] 2 (#$ . 545) nil])
#@28 Default arg for RE-search.
(defvar grep-arg nil (#$ . 674))
(defalias 'grep-arg #[0 "\304>\203	\207\n@\305
@!
A@
\205\306\307\"\211\203&
;\203&
\211\207\262
\310\311	\"\211	\207" [last-command grep-arg command-history this-command (research-forward research-backward) symbol-name string-match "search" read-string "REsearch: "] 7])
#@27 Repeat RE search forward.
(defalias 'research-forward #[0 "\300\301 !\207" [re-search-forward grep-arg] 2 (#$ . 1024) nil])
#@28 Repeat RE search backward.
(defalias 'research-backward #[0 "\300\301 !\207" [re-search-backward grep-arg] 2 (#$ . 1154) nil])
(defvar sun-raw-prefix (byte-code "\300 \301
\302\303#\210\301
\304\305#\210\301
\306\307#\210\301
\310\311#\210\301
\312\313#\210\301
\314\315#\210\301
\316\317#\210\301
\320\321#\210\301
\322\323#\210\301
\324\325#\210\301
\326\327#\210\301
\330\331#\210\301
\332\333#\210\301
\334\335#\210\301
\336\337#\210\301
\340\341#\210\301
\342\343#\210\301
\344\345#\210\301
\346\347#\210\301
\350\351#\210\301
\352\353#\210\301
\354\355#\210\301
\356\357#\210\301
\360\361#\210\301
\362\363#\210\301
\364\365#\210\301
\366\367#\210\207" [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]] 5))
#@43 Terminal initialization function for sun.
(defalias 'terminal-init-sun #[0 "\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 (#$ . 2189)])
(provide 'term/sun)