Mercurial > emacs

comparison lisp/term/sun.el @ 85548:a91afd109e55

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(sun-raw-prefix): Fill as part of declaration. (terminal-init-sun): Use it and input-decode-map.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Mon, 22 Oct 2007 15:20:21 +0000
parents 6aed7b3522e4
children 56cec281e296 4bc33ffdda1a
comparison
equal deleted inserted replaced
85547:aa63a97d09ff 85548:a91afd109e55
91 ;; 91 ;;
92 ;; sunview picks up expose and open on the way UP, 92 ;; sunview picks up expose and open on the way UP,
93 ;; so we ignore them on the way down 93 ;; so we ignore them on the way down
94 ;; 94 ;;
95 95
96 (defvar sun-raw-prefix (make-sparse-keymap)) 96 (defvar sun-raw-prefix
97 (let ((map (make-sparse-keymap)))
98 (define-key map "210z" [r3])
99 (define-key map "213z" [r6])
100 (define-key map "214z" [r7])
101 (define-key map "216z" [r9])
102 (define-key map "218z" [r11])
103 (define-key map "220z" [r13])
104 (define-key map "222z" [r15])
105 (define-key map "193z" [redo])
106 (define-key map "194z" [props])
107 (define-key map "195z" [undo])
108 ;; (define-key map "196z" 'ignore) ; Expose-down
109 ;; (define-key map "197z" [put])
110 ;; (define-key map "198z" 'ignore) ; Open-down
111 ;; (define-key map "199z" [get])
112 (define-key map "200z" [find])
113 ;; (define-key map "201z" 'kill-region-and-unmark) ; Delete
114 (define-key map "224z" [f1])
115 (define-key map "225z" [f2])
116 (define-key map "226z" [f3])
117 (define-key map "227z" [f4])
118 (define-key map "228z" [f5])
119 (define-key map "229z" [f6])
120 (define-key map "230z" [f7])
121 (define-key map "231z" [f8])
122 (define-key map "232z" [f9])
123 (define-key map "233z" [f10])
124 (define-key map "234z" [f11])
125 (define-key map "235z" [f12])
126 (define-key map "A" [up]) ; R8
127 (define-key map "B" [down]) ; R14
128 (define-key map "C" [right]) ; R12
129 (define-key map "D" [left]) ; R10
130 map))
97 131
98 ;; Since .emacs gets loaded before this file, a hook is supplied 132 ;; Since .emacs gets loaded before this file, a hook is supplied
99 ;; for you to put your own bindings in. 133 ;; for you to put your own bindings in.
100 134
101 (defvar sun-raw-prefix-hooks nil 135 (defvar sun-raw-prefix-hooks nil
103 137
104 138
105 139
106 (defun terminal-init-sun () 140 (defun terminal-init-sun ()
107 "Terminal initialization function for sun." 141 "Terminal initialization function for sun."
108 (define-key local-function-key-map "\e[" sun-raw-prefix) 142 (define-key input-decode-map "\e[" sun-raw-prefix)
109
110 (define-key sun-raw-prefix "210z" [r3])
111 (define-key sun-raw-prefix "213z" [r6])
112 (define-key sun-raw-prefix "214z" [r7])
113 (define-key sun-raw-prefix "216z" [r9])
114 (define-key sun-raw-prefix "218z" [r11])
115 (define-key sun-raw-prefix "220z" [r13])
116 (define-key sun-raw-prefix "222z" [r15])
117 (define-key sun-raw-prefix "193z" [redo])
118 (define-key sun-raw-prefix "194z" [props])
119 (define-key sun-raw-prefix "195z" [undo])
120 ;; (define-key sun-raw-prefix "196z" 'ignore) ; Expose-down
121 ;; (define-key sun-raw-prefix "197z" [put])
122 ;; (define-key sun-raw-prefix "198z" 'ignore) ; Open-down
123 ;; (define-key sun-raw-prefix "199z" [get])
124 (define-key sun-raw-prefix "200z" [find])
125 ;; (define-key sun-raw-prefix "201z" 'kill-region-and-unmark) ; Delete
126 (define-key sun-raw-prefix "224z" [f1])
127 (define-key sun-raw-prefix "225z" [f2])
128 (define-key sun-raw-prefix "226z" [f3])
129 (define-key sun-raw-prefix "227z" [f4])
130 (define-key sun-raw-prefix "228z" [f5])
131 (define-key sun-raw-prefix "229z" [f6])
132 (define-key sun-raw-prefix "230z" [f7])
133 (define-key sun-raw-prefix "231z" [f8])
134 (define-key sun-raw-prefix "232z" [f9])
135 (define-key sun-raw-prefix "233z" [f10])
136 (define-key sun-raw-prefix "234z" [f11])
137 (define-key sun-raw-prefix "235z" [f12])
138 (define-key sun-raw-prefix "A" [up]) ; R8
139 (define-key sun-raw-prefix "B" [down]) ; R14
140 (define-key sun-raw-prefix "C" [right]) ; R12
141 (define-key sun-raw-prefix "D" [left]) ; R10
142 143
143 (global-set-key [r3] 'backward-page) 144 (global-set-key [r3] 'backward-page)
144 (global-set-key [r6] 'forward-page) 145 (global-set-key [r6] 'forward-page)
145 (global-set-key [r7] 'beginning-of-buffer) 146 (global-set-key [r7] 'beginning-of-buffer)
146 (global-set-key [r9] 'scroll-down) 147 (global-set-key [r9] 'scroll-down)
162 (let ((hooks sun-raw-prefix-hooks)) 163 (let ((hooks sun-raw-prefix-hooks))
163 (while hooks 164 (while hooks
164 (eval (car hooks)) 165 (eval (car hooks))
165 (setq hooks (cdr hooks)))))) 166 (setq hooks (cdr hooks))))))
166 167
167 ;;; arch-tag: db761d47-fd7d-42b4-aae1-04fa116b6ba6 168 ;; arch-tag: db761d47-fd7d-42b4-aae1-04fa116b6ba6
168 ;;; sun.el ends here 169 ;;; sun.el ends here