1 |
;;; mac-win.el --- parse switches controlling interface with Mac window system |
;;; mac-win.el --- parse switches controlling interface with Mac window system |
2 |
|
|
3 |
;; Copyright (C) 1999, 2000, 2002, 2003, 2004 Free Software Foundation, Inc. |
;; Copyright (C) 1999, 2000, 2002, 2003, 2004, 2005 |
4 |
|
;; Free Software Foundation, Inc. |
5 |
|
|
6 |
;; Author: Andrew Choi <akochoi@mac.com> |
;; Author: Andrew Choi <akochoi@mac.com> |
7 |
;; Keywords: terminals |
;; Keywords: terminals |
1014 |
(define-key function-key-map [M-return] [?\M-\C-m]) |
(define-key function-key-map [M-return] [?\M-\C-m]) |
1015 |
(define-key function-key-map [tab] [?\t]) |
(define-key function-key-map [tab] [?\t]) |
1016 |
(define-key function-key-map [M-tab] [?\M-\t]) |
(define-key function-key-map [M-tab] [?\M-\t]) |
1017 |
(define-key function-key-map [backspace] [127]) |
(define-key function-key-map [backspace] [?\d]) |
1018 |
(define-key function-key-map [M-backspace] [?\M-\d]) |
(define-key function-key-map [M-backspace] [?\M-\d]) |
1019 |
(define-key function-key-map [escape] [?\e]) |
(define-key function-key-map [escape] [?\e]) |
1020 |
(define-key function-key-map [M-escape] [?\M-\e]) |
(define-key function-key-map [M-escape] [?\M-\e]) |
1021 |
|
|
1022 |
;; These tell read-char how to convert |
;; These tell read-char how to convert |
1023 |
;; these special chars to ASCII. |
;; these special chars to ASCII. |
1024 |
(put 'return 'ascii-character 13) |
(put 'return 'ascii-character ?\C-m) |
1025 |
(put 'tab 'ascii-character ?\t) |
(put 'tab 'ascii-character ?\t) |
1026 |
(put 'backspace 'ascii-character 127) |
(put 'backspace 'ascii-character ?\d) |
1027 |
(put 'escape 'ascii-character ?\e) |
(put 'escape 'ascii-character ?\e) |
1028 |
|
|
1029 |
|
|
1668 |
|
|
1669 |
(unless (eq system-type 'darwin) |
(unless (eq system-type 'darwin) |
1670 |
;; This variable specifies the Unix program to call (as a process) to |
;; This variable specifies the Unix program to call (as a process) to |
1671 |
;; deteremine the amount of free space on a file system (defaults to |
;; determine the amount of free space on a file system (defaults to |
1672 |
;; df). If it is not set to nil, ls-lisp will not work correctly |
;; df). If it is not set to nil, ls-lisp will not work correctly |
1673 |
;; unless an external application df is implemented on the Mac. |
;; unless an external application df is implemented on the Mac. |
1674 |
(setq directory-free-space-program nil) |
(setq directory-free-space-program nil) |
1676 |
;; Set this so that Emacs calls subprocesses with "sh" as shell to |
;; Set this so that Emacs calls subprocesses with "sh" as shell to |
1677 |
;; expand filenames Note no subprocess for the shell is actually |
;; expand filenames Note no subprocess for the shell is actually |
1678 |
;; started (see run_mac_command in sysdep.c). |
;; started (see run_mac_command in sysdep.c). |
1679 |
(setq shell-file-name "sh")) |
(setq shell-file-name "sh") |
1680 |
|
|
1681 |
|
;; To display filenames in Chinese or Japanese, replace mac-roman with |
1682 |
|
;; big5 or sjis |
1683 |
|
(setq file-name-coding-system 'mac-roman)) |
1684 |
|
|
1685 |
;; X Window emulation in macterm.c is not complete enough to start a |
;; X Window emulation in macterm.c is not complete enough to start a |
1686 |
;; frame without a minibuffer properly. Call this to tell ediff |
;; frame without a minibuffer properly. Call this to tell ediff |
1687 |
;; library to use a single frame. |
;; library to use a single frame. |
1688 |
; (ediff-toggle-multiframe) |
; (ediff-toggle-multiframe) |
1689 |
|
|
|
(if (eq system-type 'darwin) |
|
|
;; On Darwin filenames are encoded in UTF-8 |
|
|
(setq file-name-coding-system 'utf-8) |
|
|
;; To display filenames in Chinese or Japanese, replace mac-roman with |
|
|
;; big5 or sjis |
|
|
(setq file-name-coding-system 'mac-roman)) |
|
|
|
|
1690 |
;; If Emacs is started from the Finder, change the default directory |
;; If Emacs is started from the Finder, change the default directory |
1691 |
;; to the user's home directory. |
;; to the user's home directory. |
1692 |
(if (string= default-directory "/") |
(if (string= default-directory "/") |
1704 |
|
|
1705 |
;; (prefer-coding-system 'mac-roman) |
;; (prefer-coding-system 'mac-roman) |
1706 |
|
|
1707 |
;;; arch-tag: 71dfcd14-cde8-4d66-b05c-85ec94fb23a6 |
;; arch-tag: 71dfcd14-cde8-4d66-b05c-85ec94fb23a6 |
1708 |
;;; mac-win.el ends here |
;;; mac-win.el ends here |