diff options
| author | Steven Tamm <steventamm@mac.com> | 2004-09-02 16:59:18 +0000 |
|---|---|---|
| committer | Steven Tamm <steventamm@mac.com> | 2004-09-02 16:59:18 +0000 |
| commit | 9969573785bccb7b48fce2e82606e7f294d69542 (patch) | |
| tree | 35edde5e1fd4fd0b66078565df6231daf6387dac /lisp | |
| parent | c251031429c039f37f7387a35fa7231517961596 (diff) | |
| download | emacs-9969573785bccb7b48fce2e82606e7f294d69542.tar.gz | |
Add ASCII equivalents for some function keys.
(mode-line-frame-identification): Sync with x-win.el.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/term/mac-win.el | 6 |
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 |