;ELC ;;; compiled by rms@mole.gnu.ai.mit.edu on Mon Nov 15 05:51:24 1993 ;;; from file /home/fsf/rms/e19/lisp/term/sun.el ;;; emacs version 19.20.9.2. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "This file was compiled for Emacs 19")) (defalias 'ignore-key #[nil " " [ignore] 1 "\ interactive version of ignore" nil]) (byte-code "\"\"" [defalias scroll-down-in-place #[(n) " ! !" [previous-line n scroll-down] 2 nil "p"] scroll-up-in-place #[(n) " ! !" [next-line n scroll-up] 2 nil "p"]] 3) (defalias 'kill-region-and-unmark #[(beg end) " \n\"!" [kill-region beg end kill-region-and-unmark this-command set-mark-command t] 3 "\ Like kill-region, but pops the mark [which equals point, anyway.]" "r"]) (defalias 'select-previous-complex-command #[nil " U !!" [minibuffer-depth 0 repeat-complex-command 1 previous-complex-command] 2 "\ Select Previous-complex-command" nil]) (defalias 'rerun-prev-command #[nil " @!" [eval command-history] 2 "\ Repeat Previous-complex-command." nil]) (defvar grep-arg nil "\ Default arg for RE-search") (defalias (quote grep-arg) #[nil ">\n @ @! A@ \"\n3;3A \n\n\"\n \n," [last-command (research-forward research-backward) grep-arg command-history command symbol-name command-name search-arg string-match "search" search-command this-command read-string "REsearch: "] 4]) (defalias 'research-forward #[nil " !" [re-search-forward grep-arg] 2 "\ Repeat RE search forward." nil]) (defalias 'research-backward #[nil " !" [re-search-backward grep-arg] 2 "\ Repeat RE search backward." nil]) (defvar sun-esc-bracket nil "\ *If non-nil, rebind ESC [ as prefix for Sun function keys.") (byte-code "!  # # # # # # # # # # # # # # # # # # # #\"\"\"\"\"\"\"\"\"@\"AB\"CD\"EF\"GH\"IJ\"KL\"MN\"OP!" [boundp sun-raw-prefix make-sparse-keymap define-key function-key-map "[" "210z" [r3] "213z" [r6] "214z" [r7] "216z" [r9] "218z" [r11] "220z" [r13] "222z" [r15] "193z" [redo] "194z" [props] "195z" [undo] "200z" [find] "226z" [t3] "227z" [t4] "229z" [t6] "230z" [t7] "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 [undo] undo [put] sun-select-region [get] sun-yank-selection [find] exchange-point-and-mark [t3] scroll-down-in-place [t4] scroll-up-in-place [t6] shrink-window [t7] enlarge-window sun-esc-bracket global-unset-key] 4) (defvar sun-raw-prefix-hooks nil "\ List of forms to evaluate after setting sun-raw-prefix.") (byte-code " @! A)!‡" [sun-raw-prefix-hooks hooks eval boundp meta-flag t] 3) (defvar suntool-map (make-sparse-keymap) "\ *Keymap for Emacstool bindings.") (byte-code " # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # @A# BC#DE #" [define-key suntool-map "gr" beginning-of-buffer "iR" backward-page "ir" scroll-down "kr" recenter "mr" end-of-buffer "oR" forward-page "or" scroll-up "b" rerun-prev-command "b" prev-complex-command "bl" redraw-display "cl" list-buffers "dl" undo "el" ignore-key "fl" sun-select-region "f," copy-region-as-kill "gl" "hl" sun-yank-selection "h," yank "il" research-forward "i," re-search-forward "i" research-backward "i" re-search-backward "jL" "jl" kill-region-and-unmark "j" exchange-point-and-mark "j," (lambda nil (interactive) (pop-mark 1)) "fT" shrink-window-horizontally "gT" enlarge-window-horizontally "ft" shrink-window "gt" enlarge-window "cT" (lambda (n) (interactive "p") (scroll-down n)) "dT" (lambda (n) (interactive "p") (scroll-up n)) "ct" scroll-down-in-place "dt" scroll-up-in-place ctl-x-map "*"] 4) (defvar suntool-map-hooks nil "\ List of forms to evaluate after setting suntool-map.") (byte-code " @! A)‡" [suntool-map-hooks hooks eval] 3) (autoload (quote sun-mouse-handler) "sun-mouse" "\ Sun Emacstool handler for mouse blips (not loaded)." t) (defalias 'emacstool-init #[nil "! # W! ## #Q!" [require sun-fns define-key ctl-x-map "" sun-mouse-handler sun-window-init 0 message "Not a Sun Window" substitute-key-definition suspend-emacs suspend-emacstool global-map esc-map send-string-to-terminal "]lEmacstool - GNU Emacs " emacs-version "\\"] 4 "\ Set up Emacstool window, if you know you are in an emacstool."]) (defalias 'sun-mouse-once #[nil " " [emacstool-init sun-mouse-handler] 1 "\ Converts to emacstool and sun-mouse-handler on first mouse hit." nil]) (define-key ctl-x-map "" (quote sun-mouse-once))