summaryrefslogtreecommitdiff
path: root/lisp/term
diff options
context:
space:
mode:
authorSteven Tamm <steventamm@mac.com>2004-09-02 16:59:18 +0000
committerSteven Tamm <steventamm@mac.com>2004-09-02 16:59:18 +0000
commit2ca75b4224d8b99fb948a1a27e7fb92ec28db5a3 (patch)
tree975abf4fecb13693a4db4dda0db50387f659a828 /lisp/term
parentf02069102bdac8ff32609518de0d48c0861cad0c (diff)
downloademacs-2ca75b4224d8b99fb948a1a27e7fb92ec28db5a3.tar.gz
Add ASCII equivalents for some function keys.
(mode-line-frame-identification): Sync with x-win.el.
Diffstat (limited to 'lisp/term')
-rw-r--r--lisp/term/mac-win.el6
1 files changed, 6 insertions, 0 deletions
diff --git a/lisp/term/mac-win.el b/lisp/term/mac-win.el
index e42c2151701..c0ea7a9385e 100644
--- a/lisp/term/mac-win.el
+++ b/lisp/term/mac-win.el
@@ -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 @@ ascii:-*-Monaco-*-*-*-*-12-*-*-*-*-*-mac-roman")
;; 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