;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:40 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/term/sun.el
;;; in Emacs version 24.3.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.

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


(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"])
#@67 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 (#$ . 718) "r"])
#@34 Repeat Previous-complex-command.
(defalias 'rerun-prev-command #[nil "\301@!\207" [command-history eval] 2 (#$ . 965) nil])
#@27 Default arg for RE-search
(defvar grep-arg nil (#$ . 1096))
(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 (#$ . 1505) nil])
#@28 Repeat RE search backward.
(defalias 'research-backward #[nil "\300\301 !\207" [re-search-backward grep-arg] 2 (#$ . 1637) 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))
#@57 List of forms to evaluate after setting sun-raw-prefix.
(defvar sun-raw-prefix-hooks nil (#$ . 2681))
(make-obsolete-variable 'sun-raw-prefix-hooks 'term-setup-hook "21.1")
#@43 Terminal initialization function for sun.
(defalias 'terminal-init-sun #[nil "\304\305	#\210\306\307\310\"\210\306\311\312\"\210\306\313\314\"\210\306\315\316\"\210\306\317\320\"\210\306\321\322\"\210\306\323\324\"\210\306\325\326\"\210\306\327\330\"\210\306\331\332\"\210\306\333\334\"\210\306\335\336\"\210\306\337\340\"\210\306\341\342\"\210\306\343\344\"\210\306\345\346\"\210\n\205r\347\350!\210\n\211\205q\351@!\210A\211\204d\352)\207" [input-decode-map sun-raw-prefix sun-raw-prefix-hooks hooks 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 message "sun-raw-prefix-hooks is obsolete!  Use term-setup-hook instead!" eval nil] 5 (#$ . 2860)])