[Emacs-diffs] Changes to emacs/lisp/term/mac-win.el

[YAMAMOTO Mitsuharu]

Index: emacs/lisp/term/mac-win.el
diff -c emacs/lisp/term/mac-win.el:1.33 emacs/lisp/term/mac-win.el:1.34
*** emacs/lisp/term/mac-win.el:1.33     Mon Feb 21 13:09:58 2005
--- emacs/lisp/term/mac-win.el  Tue Mar 15 07:45:58 2005
***************
*** 1010,1029 ****
  
  ;; Map certain keypad keys into ASCII characters
  ;; 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])
  (define-key function-key-map [backspace] [?\d])
! (define-key function-key-map [M-backspace] [?\M-\d])
  (define-key function-key-map [escape] [?\e])
  (define-key function-key-map [M-escape] [?\M-\e])
  
  ;; These tell read-char how to convert
  ;; these special chars to ASCII.
- (put 'return 'ascii-character ?\C-m)
- (put 'tab 'ascii-character ?\t)
  (put 'backspace 'ascii-character ?\d)
  (put 'escape 'ascii-character ?\e)
  
  
--- 1010,1038 ----
  
  ;; Map certain keypad keys into ASCII characters
  ;; that people usually expect.
  (define-key function-key-map [backspace] [?\d])
! (define-key function-key-map [delete] [?\d])
! (define-key function-key-map [tab] [?\t])
! (define-key function-key-map [linefeed] [?\n])
! (define-key function-key-map [clear] [?\C-l])
! (define-key function-key-map [return] [?\C-m])
  (define-key function-key-map [escape] [?\e])
+ (define-key function-key-map [M-backspace] [?\M-\d])
+ (define-key function-key-map [M-delete] [?\M-\d])
+ (define-key function-key-map [M-tab] [?\M-\t])
+ (define-key function-key-map [M-linefeed] [?\M-\n])
+ (define-key function-key-map [M-clear] [?\M-\C-l])
+ (define-key function-key-map [M-return] [?\M-\C-m])
  (define-key function-key-map [M-escape] [?\M-\e])
  
  ;; These tell read-char how to convert
  ;; these special chars to ASCII.
  (put 'backspace 'ascii-character ?\d)
+ (put 'delete 'ascii-character ?\d)
+ (put 'tab 'ascii-character ?\t)
+ (put 'linefeed 'ascii-character ?\n)
+ (put 'clear 'ascii-character ?\C-l)
+ (put 'return 'ascii-character ?\C-m)
  (put 'escape 'ascii-character ?\e)