;ELC ;;; Compiled by cyd@localhost on Mon Apr 23 22:25:13 2007 ;;; from file /home/cyd/emacs/lisp/term/sun.el ;;; in Emacs version 22.0.99 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`sun.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defalias 'scroll-down-in-place #[(n) "\301!\210\302!\207" [n previous-line scroll-down] 2 nil "p"]) (defalias 'scroll-up-in-place #[(n) "\301!\210\302!\207" [n next-line 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 (#$ . 756) "r"]) #@33 Select Previous-complex-command (defalias 'select-previous-complex-command #[nil "\300\301 !\203 \302\303!\207\304\303!\207" [zerop minibuffer-depth repeat-complex-command 1 previous-complex-command] 2 (#$ . 1003) nil]) #@34 Repeat Previous-complex-command. (defalias 'rerun-prev-command #[nil "\301@!\207" [command-history eval] 2 (#$ . 1230) nil]) #@27 Default arg for RE-search (defvar grep-arg nil (#$ . 1362)) (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 (#$ . 1771) nil]) #@28 Repeat RE search backward. (defalias 'research-backward #[nil "\300\301 !\207" [re-search-backward grep-arg] 2 (#$ . 1903) nil]) (byte-code "\301B\302\301!\204\303\301\304 \"\210\301\207" [current-load-list sun-raw-prefix default-boundp set-default make-sparse-keymap] 3) #@57 List of forms to evaluate after setting sun-raw-prefix. (defvar sun-raw-prefix-hooks nil (#$ . 2185)) #@33 *Keymap for Emacstool bindings. (defvar suntool-map (make-sparse-keymap) (#$ . -2293)) #@54 List of forms to evaluate after setting suntool-map. (defvar suntool-map-hooks nil (#$ . 2386)) #@53 Sun Emacstool handler for mouse blips (not loaded). (autoload 'sun-mouse-handler "sun-mouse" '(#$ . 2488) t) #@43 Terminal initialization function for sun. (defalias 'terminal-init-sun #[nil "\306\307 #\210\306 \310\311#\210\306 \312\313#\210\306 \314\315#\210\306 \316\317#\210\306 \320\321#\210\306 \322\323#\210\306 \324\325#\210\306 \326\327#\210\306 \330\331#\210\306 \332\333#\210\306 \334\335#\210\306 \336\337#\210\306 \340\341#\210\306 \342\343#\210\306 \344\345#\210\306 \346\347#\210\306 \350\351#\210\306 \352\353#\210\306 \354\355#\210\306 \356\357#\210\306 \360\361#\210\306 \362\363#\210\306 \364\365#\210\306 \366\367#\210\306 \370\371#\210\306 \372\373#\210\306 \374\375#\210\376\377\201A\"\210\376\201B\201C\"\210\376\201D\201E\"\210\376\201F\201G\"\210\376\201H\201I\"\210\376\201J\201K\"\210\376\201L\201M\"\210\376\201N\201O\"\210\376\201P\201Q\"\210\376\201R\201S\"\210\376\201T\201U\"\210\376\201V\201W\"\210\376\201X\201Y\"\210\376\201Z\201[\"\210\376\201\\\201]\"\210\376\201^\201_\"\210\n\203W\201`\201a!\210\n\211\203V\201b @!\210 A\211\204H)\306\f\201c\201E#\210\306\f\201d\201A#\210\306\f\201e\201G#\210\306\f\201f\201I#\210\306\f\201g\201K#\210\306\f\201h\201C#\210\306\f\201i\201M#\210\306\f\201j\201k#\210\306\f\201l\201m#\210\306\f\201n\201O#\210\306\f\201o\201Q#\210\306\f\201p\201q#\210\306\f\201r\201s#\210\306\f\201t\201S#\210\306\f\201u\201v#\210\306\f\201w\201s#\210\306\f\201x\201U#\210\306\f\201y\201z#\210\306\f\201{\201|#\210\306\f\201}\201~#\210\306\f\201\201\200#\210\306\f\201\201\201\202#\210\306\f\201\203\201z#\210\306\f\201\204\201\205#\210\306\f\201\206\201W#\210\306\f\201\207\201\210#\210\306\f\201\211\201\212#\210\306\f\201\213\201\214#\210\306\f\201\215\201]#\210\306\f\201\216\201_#\210\306\f\201\217\201\220#\210\306\f\201\221\201\222#\210\306\f\201\223\201Y#\210\306\f\201\224\201[#\210\306 \201\225\f#\210@\203\326\201`\201\226!\210@\211\203\325\201b @!\210 A\211\204\307)\306 \201\227\201\230#\207" [function-key-map sun-raw-prefix sun-raw-prefix-hooks hooks suntool-map ctl-x-map 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] global-set-key [r3] suntool-map-hooks 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 "gr" "iR" "ir" "kr" "mr" "oR" "or" "b\314" rerun-prev-command "b\354" prev-complex-command "bl" "cl" "dl" undo "el" ignore "fl" "f," copy-region-as-kill "gl" "hl" "h," yank "il" research-forward "i," re-search-forward "i\354" research-backward "i\254" re-search-backward "jL" "jl" kill-region-and-unmark "j\354" "j," #[nil "\300 \207" [pop-mark] 1 nil nil] "fT" shrink-window-horizontally "gT" enlarge-window-horizontally "ft" "gt" "cT" #[(n) "\301!\207" [n scroll-down] 2 nil "p"] "dT" #[(n) "\301!\207" [n scroll-up] 2 nil "p"] "ct" "dt" "*" "suntool-map-hooks is obsolete! Use term-setup-hook instead!" "" sun-mouse-once] 5 (#$ . 2603)]) #@63 Set up Emacstool window, if you know you are in an emacstool. (defalias 'emacstool-init #[nil "\304\305!\210\306\307\310#\210\311 \312W\203\313\314!\207\315\316\317 #\210\315\316\317\n#\210\315\316\317#\210\320\321 \322Q!\207" [ctl-x-map global-map esc-map emacs-version require sun-fns define-key "" sun-mouse-handler sun-window-init 0 message "Not a Sun Window" substitute-key-definition suspend-emacs suspend-emacstool send-string-to-terminal "]lEmacstool - GNU Emacs " "\\"] 4 (#$ . 6108)]) #@65 Converts to emacstool and sun-mouse-handler on first mouse hit. (defalias 'sun-mouse-once #[nil "\300 \210\301 \207" [emacstool-init sun-mouse-handler] 1 (#$ . 6616) nil])