;ELC ;;; Compiled by buildd@akateko.buildd on Fri Oct 25 13:52:56 2013 ;;; from file /build/buildd/emacs23-23.4+1/debian/build-x/lisp/term/sun.el ;;; in Emacs version 23.4.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 (#$ . 705) "r"]) #@34 Repeat Previous-complex-command. (defalias 'rerun-prev-command #[nil "\301@!\207" [command-history eval] 2 (#$ . 952) nil]) #@27 Default arg for RE-search (defvar grep-arg nil (#$ . 1083)) (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 (#$ . 1492) nil]) #@28 Repeat RE search backward. (defalias 'research-backward #[nil "\300\301 !\207" [re-search-backward grep-arg] 2 (#$ . 1624) nil]) (byte-code "\302B\303\302!\204\265\304\302\305 \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\306 \347\350#\210\306 \351\352#\210\306 \353\354#\210\306 \355\356#\210\306 \357\360#\210\306 \361\362#\210\306 \363\364#\210\306 \365\366#\210\306 \367\370#\210\306 \371\372#\210\306 \373\374#\210 )\"\210\302\207" [current-load-list map sun-raw-prefix default-boundp set-default 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]] 6) #@57 List of forms to evaluate after setting sun-raw-prefix. (defvar sun-raw-prefix-hooks nil (#$ . 2747)) #@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 @!\210 A\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 [r11] recenter [r13] end-of-buffer [r15] scroll-up [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 (#$ . 2855)])