Mercurial > emacs
comparison lisp/term/ns-win.el @ 97541:33164d8e9921
Uncomment 'put backspace ascii-character...' and friends, they are needed for tramp.
author | Adrian Robert <Adrian.B.Robert@gmail.com> |
---|---|
date | Mon, 18 Aug 2008 15:04:37 +0000 |
parents | 378d7afbbe93 |
children | 2b25a461fcb0 |
comparison
equal
deleted
inserted
replaced
97540:af5607f15f32 | 97541:33164d8e9921 |
---|---|
177 (if (match-string 7 geom) | 177 (if (match-string 7 geom) |
178 (list (cons 'width (string-to-number (match-string 7 geom))))))))) | 178 (list (cons 'width (string-to-number (match-string 7 geom))))))))) |
179 | 179 |
180 ;;;; Keyboard mapping. | 180 ;;;; Keyboard mapping. |
181 | 181 |
182 ;;TODO: all terms have these, but they don't seem necessary. | 182 ;; These tell read-char how to convert these special chars to ASCII. |
183 ;;TODO: all terms have these, and at least the return mapping is necessary | |
184 ;; for tramp to recognize the enter key. | |
185 ;; Perhaps they should be moved into common code somewhere | |
186 ;; (when a window system is active). | |
183 ;; Remove if no problems for some time after 2008-08-06. | 187 ;; Remove if no problems for some time after 2008-08-06. |
184 ;; These tell read-char how to convert | 188 (put 'backspace 'ascii-character 127) |
185 ;; these special chars to ASCII. | 189 (put 'delete 'ascii-character 127) |
186 ;;(put 'backspace 'ascii-character 127) | 190 (put 'tab 'ascii-character ?\t) |
187 ;;(put 'delete 'ascii-character 127) | 191 (put 'S-tab 'ascii-character (logior 16 ?\t)) |
188 ;;(put 'tab 'ascii-character ?\t) | 192 (put 'linefeed 'ascii-character ?\n) |
189 ;;(put 'S-tab 'ascii-character (logior 16 ?\t)) | 193 (put 'clear 'ascii-character 12) |
190 ;;(put 'linefeed 'ascii-character ?\n) | 194 (put 'return 'ascii-character 13) |
191 ;;(put 'clear 'ascii-character 12) | 195 (put 'escape 'ascii-character ?\e) |
192 ;;(put 'return 'ascii-character 13) | |
193 ;;(put 'escape 'ascii-character ?\e) | |
194 | 196 |
195 | 197 |
196 (defvar ns-alternatives-map | 198 (defvar ns-alternatives-map |
197 (let ((map (make-sparse-keymap))) | 199 (let ((map (make-sparse-keymap))) |
198 ;; Map certain keypad keys into ASCII characters | 200 ;; Map certain keypad keys into ASCII characters |