;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:52:18 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/term/sun.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; 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 (#$ . 811) "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 (#$ . 1058) nil]) #@34 Repeat Previous-complex-command. (defalias 'rerun-prev-command #[nil "\301@!\207" [command-history eval] 2 (#$ . 1285) nil]) #@27 Default arg for RE-search (defvar grep-arg nil (#$ . 1417)) (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 (#$ . 1826) nil]) #@28 Repeat RE search backward. (defalias 'research-backward #[nil "\300\301 !\207" [re-search-backward grep-arg] 2 (#$ . 1958) nil]) (byte-code "\301B\303\301!\204 \304 \305\n\306 #\210\305 \307\310#\210\305 \311\312#\210\305 \313\314#\210\305 \315\316#\210\305 \317\320#\210\305 \321\322#\210\305 \323\324#\210\305 \325\326#\210\305 \327\330#\210\305 \331\332#\210\305 \333\334#\210\305 \335\336#\210\305 \337\340#\210\305 \341\342#\210\305 \343\344#\210\305 \345\346#\210\305 \347\350#\210\305 \351\352#\210\305 \353\354#\210\305 \355\356#\210\305 \357\360#\210\305 \361\362#\210\305 \363\364#\210\305 \365\366#\210\305 \367\370#\210\305 \371\372#\210\305 \373\374#\210\375\376\377\"\210\375\201@\201A\"\210\375\201B\201C\"\210\375\201D\201E\"\210\375\201F\201G\"\210\375\201H\201I\"\210\375\201J\201K\"\210\375\201L\201M\"\210\375\201N\201O\"\210\375\201P\201Q\"\210\375\201R\201S\"\210\375\201T\201U\"\210\375\201V\201W\"\210\375\201X\201Y\"\210\375\201Z\201[\"\210\375\201\\\201]\"\207" [current-load-list sun-raw-prefix function-key-map boundp 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] 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] 4) #@57 List of forms to evaluate after setting sun-raw-prefix. (defvar sun-raw-prefix-hooks nil (#$ . 3774)) (byte-code "\203\302\303!\210\211\203\304 @!\210 A\211\204)\302\207" [sun-raw-prefix-hooks hooks message "sun-raw-prefix-hooks is obsolete! Use term-setup-hook instead!" eval] 3) #@33 *Keymap for Emacstool bindings. (defvar suntool-map (make-sparse-keymap) (#$ . -4072)) (byte-code "\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\334#\210\302\342\343#\210\302\344\345#\210\302\346\347#\210\302\350\351#\210\302\352\353#\210\302\354\355#\210\302\356\345#\210\302\357\360#\210\302\361\362#\210\302\363\364#\210\302\365\366#\210\302\367\370#\210\302\371\372#\210\302\373\374#\210\302\375\376#\210\302\377\201@#\210\302\201A\201B#\210\302\201C\201D#\210\302 \201E#\207" [suntool-map ctl-x-map define-key "gr" beginning-of-buffer "iR" backward-page "ir" scroll-down "kr" recenter "mr" end-of-buffer "oR" forward-page "or" scroll-up "b\314" rerun-prev-command "b\354" prev-complex-command "bl" redraw-display "cl" list-buffers "dl" undo "el" ignore "fl" sun-select-region "f," copy-region-as-kill "gl" "hl" sun-yank-selection "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" exchange-point-and-mark "j," #[nil "\300 \207" [pop-mark] 1 nil nil] "fT" shrink-window-horizontally "gT" enlarge-window-horizontally "ft" shrink-window "gt" enlarge-window "cT" #[(n) "\301!\207" [n scroll-down] 2 nil "p"] "dT" #[(n) "\301!\207" [n scroll-up] 2 nil "p"] "ct" scroll-down-in-place "dt" scroll-up-in-place "*"] 4) #@54 List of forms to evaluate after setting suntool-map. (defvar suntool-map-hooks nil (#$ . 5652)) (byte-code "\203\302\303!\210\211\203\304 @!\210 A\211\204)\302\207" [suntool-map-hooks hooks message "suntool-map-hooks is obsolete! Use term-setup-hook instead!" eval] 3) #@53 Sun Emacstool handler for mouse blips (not loaded). (autoload 'sun-mouse-handler "sun-mouse" '(#$ . 5938) t) #@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 (#$ . 6053)]) #@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 (#$ . 6561) nil]) (define-key ctl-x-map "" 'sun-mouse-once)