# HG changeset patch
# User Steven Tamm <steventamm@mac.com>
# Date 1094144358 0
# Node ID 25a1d37d22fb8bb1d4e81f4fceda8e9ab7847e96
# Parent  2d8aa6e59b6b02e17e9d863c8a672b5db50d85a4
Add ASCII equivalents for some function keys.
(mode-line-frame-identification): Sync with x-win.el.

diff -r 2d8aa6e59b6b -r 25a1d37d22fb lisp/term/mac-win.el
--- a/lisp/term/mac-win.el	Thu Sep 02 16:40:38 2004 +0000
+++ b/lisp/term/mac-win.el	Thu Sep 02 16:59:18 2004 +0000
@@ -141,6 +141,9 @@
 	   (if clipboard
 	       (decode-coding-string clipboard selection-coding-system t)))))
 
+;; Don't show the frame name; that's redundant.
+(setq-default mode-line-frame-identification "  ")
+
 (defun mac-drag-n-drop (event)
   "Edit the files listed in the drag-n-drop event.\n\
 Switch to a buffer editing the last file dropped."
@@ -262,6 +265,9 @@
 
 ;; Tell read-char how to convert special chars to ASCII
 (put 'return 'ascii-character 13)
+(put 'tab 'ascii-character ?\t)
+(put 'backspace 'ascii-character 127)
+(put 'escape 'ascii-character ?\e)
 
 ;;
 ;; Available colors