/[emacs]/emacs/lisp/term/mac-win.el
ViewVC logotype

Diff of /emacs/lisp/term/mac-win.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.33 by monnier, Mon Feb 21 13:09:58 2005 UTC revision 1.34 by mituharu, Tue Mar 15 07:45:58 2005 UTC
# Line 1010  XConsortium: rgb.txt,v 10.41 94/02/20 18 Line 1010  XConsortium: rgb.txt,v 10.41 94/02/20 18
1010    
1011  ;; Map certain keypad keys into ASCII characters  ;; Map certain keypad keys into ASCII characters
1012  ;; that people usually expect.  ;; that people usually expect.
 (define-key function-key-map [return] [?\C-m])  
 (define-key function-key-map [M-return] [?\M-\C-m])  
 (define-key function-key-map [tab] [?\t])  
 (define-key function-key-map [M-tab] [?\M-\t])  
1013  (define-key function-key-map [backspace] [?\d])  (define-key function-key-map [backspace] [?\d])
1014  (define-key function-key-map [M-backspace] [?\M-\d])  (define-key function-key-map [delete] [?\d])
1015    (define-key function-key-map [tab] [?\t])
1016    (define-key function-key-map [linefeed] [?\n])
1017    (define-key function-key-map [clear] [?\C-l])
1018    (define-key function-key-map [return] [?\C-m])
1019  (define-key function-key-map [escape] [?\e])  (define-key function-key-map [escape] [?\e])
1020    (define-key function-key-map [M-backspace] [?\M-\d])
1021    (define-key function-key-map [M-delete] [?\M-\d])
1022    (define-key function-key-map [M-tab] [?\M-\t])
1023    (define-key function-key-map [M-linefeed] [?\M-\n])
1024    (define-key function-key-map [M-clear] [?\M-\C-l])
1025    (define-key function-key-map [M-return] [?\M-\C-m])
1026  (define-key function-key-map [M-escape] [?\M-\e])  (define-key function-key-map [M-escape] [?\M-\e])
1027    
1028  ;; These tell read-char how to convert  ;; These tell read-char how to convert
1029  ;; these special chars to ASCII.  ;; these special chars to ASCII.
 (put 'return 'ascii-character ?\C-m)  
 (put 'tab 'ascii-character ?\t)  
1030  (put 'backspace 'ascii-character ?\d)  (put 'backspace 'ascii-character ?\d)
1031    (put 'delete 'ascii-character ?\d)
1032    (put 'tab 'ascii-character ?\t)
1033    (put 'linefeed 'ascii-character ?\n)
1034    (put 'clear 'ascii-character ?\C-l)
1035    (put 'return 'ascii-character ?\C-m)
1036  (put 'escape 'ascii-character ?\e)  (put 'escape 'ascii-character ?\e)
1037    
1038    

Legend:
Removed from v.1.33  
changed lines
  Added in v.1.34

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26