Lines Matching defs:sun
0 ;;; sun.el --- keybinding for standard default sunterm keys
6 ;; Author: Jeff Peck <peck@sun.com>
90 ;; handle sun's extra function keys
97 (defvar sun-raw-prefix (make-sparse-keymap))
102 (defvar sun-raw-prefix-hooks nil
103 "List of forms to evaluate after setting sun-raw-prefix.")
150 (autoload 'sun-mouse-handler "sun-mouse"
153 (defun terminal-init-sun ()
154 "Terminal initialization function for sun."
155 (define-key function-key-map "\e[" sun-raw-prefix)
157 (define-key sun-raw-prefix "210z" [r3])
158 (define-key sun-raw-prefix "213z" [r6])
159 (define-key sun-raw-prefix "214z" [r7])
160 (define-key sun-raw-prefix "216z" [r9])
161 (define-key sun-raw-prefix "218z" [r11])
162 (define-key sun-raw-prefix "220z" [r13])
163 (define-key sun-raw-prefix "222z" [r15])
164 (define-key sun-raw-prefix "193z" [redo])
165 (define-key sun-raw-prefix "194z" [props])
166 (define-key sun-raw-prefix "195z" [undo])
167 ;; (define-key sun-raw-prefix "196z" 'ignore) ; Expose-down
168 ;; (define-key sun-raw-prefix "197z" [put])
169 ;; (define-key sun-raw-prefix "198z" 'ignore) ; Open-down
170 ;; (define-key sun-raw-prefix "199z" [get])
171 (define-key sun-raw-prefix "200z" [find])
172 ;; (define-key sun-raw-prefix "201z" 'kill-region-and-unmark) ; Delete
173 (define-key sun-raw-prefix "224z" [f1])
174 (define-key sun-raw-prefix "225z" [f2])
175 (define-key sun-raw-prefix "226z" [f3])
176 (define-key sun-raw-prefix "227z" [f4])
177 (define-key sun-raw-prefix "228z" [f5])
178 (define-key sun-raw-prefix "229z" [f6])
179 (define-key sun-raw-prefix "230z" [f7])
180 (define-key sun-raw-prefix "231z" [f8])
181 (define-key sun-raw-prefix "232z" [f9])
182 (define-key sun-raw-prefix "233z" [f10])
183 (define-key sun-raw-prefix "234z" [f11])
184 (define-key sun-raw-prefix "235z" [f12])
185 (define-key sun-raw-prefix "A" [up]) ; R8
186 (define-key sun-raw-prefix "B" [down]) ; R14
187 (define-key sun-raw-prefix "C" [right]) ; R12
188 (define-key sun-raw-prefix "D" [left]) ; R10
199 (global-set-key [put] 'sun-select-region)
200 (global-set-key [get] 'sun-yank-selection)
207 (when sun-raw-prefix-hooks
208 (message "sun-raw-prefix-hooks is obsolete! Use term-setup-hook instead!")
209 (let ((hooks sun-raw-prefix-hooks))
227 (define-key suntool-map "fl" 'sun-select-region) ; Put
230 (define-key suntool-map "hl" 'sun-yank-selection) ; Get
260 (define-key ctl-x-map "\C-@" 'sun-mouse-once))
264 ;; Make sure sun-mouse and sun-fns are loaded.
265 (require 'sun-fns)
266 (define-key ctl-x-map "\C-@" 'sun-mouse-handler)
269 (if (< (sun-window-init) 0)
278 (defun sun-mouse-once ()
279 "Converts to emacstool and sun-mouse-handler on first mouse hit."
282 (sun-mouse-handler)) ; Now, execute this mouse blip.
285 ;;; sun.el ends here