1085 |
(put 'escape 'ascii-character ?\e) |
(put 'escape 'ascii-character ?\e) |
1086 |
|
|
1087 |
|
|
1088 |
;;;; Keyboard layout/language change events |
;;;; Script codes and coding systems |
1089 |
(defconst mac-script-code-coding-systems |
(defconst mac-script-code-coding-systems |
1090 |
'((0 . mac-roman) ; smRoman |
'((0 . mac-roman) ; smRoman |
1091 |
(1 . japanese-shift-jis) ; smJapanese |
(1 . japanese-shift-jis) ; smJapanese |
1097 |
) |
) |
1098 |
"Alist of Mac script codes vs Emacs coding systems.") |
"Alist of Mac script codes vs Emacs coding systems.") |
1099 |
|
|
1100 |
|
(defconst mac-system-coding-system |
1101 |
|
(let ((base (or (cdr (assq mac-system-script-code |
1102 |
|
mac-script-code-coding-systems)) |
1103 |
|
'mac-roman))) |
1104 |
|
(if (eq system-type 'darwin) |
1105 |
|
base |
1106 |
|
(coding-system-change-eol-conversion base 'mac))) |
1107 |
|
"Coding system derived from the system script code.") |
1108 |
|
|
1109 |
;;;; Keyboard layout/language change events |
;;;; Keyboard layout/language change events |
1110 |
(defun mac-handle-language-change (event) |
(defun mac-handle-language-change (event) |
1111 |
(interactive "e") |
(interactive "e") |
1748 |
;; started (see run_mac_command in sysdep.c). |
;; started (see run_mac_command in sysdep.c). |
1749 |
(setq shell-file-name "sh") |
(setq shell-file-name "sh") |
1750 |
|
|
1751 |
;; To display filenames in Chinese or Japanese, replace mac-roman with |
;; Some system variables are encoded with the system script code. |
1752 |
;; big5 or sjis |
(dolist (v '(system-name |
1753 |
(setq file-name-coding-system 'mac-roman)) |
emacs-build-system ; Mac OS 9 version cannot dump |
1754 |
|
user-login-name user-real-login-name user-full-name)) |
1755 |
;; X Window emulation in macterm.c is not complete enough to start a |
(set v (decode-coding-string (symbol-value v) mac-system-coding-system)))) |
|
;; frame without a minibuffer properly. Call this to tell ediff |
|
|
;; library to use a single frame. |
|
|
; (ediff-toggle-multiframe) |
|
1756 |
|
|
1757 |
;; If Emacs is started from the Finder, change the default directory |
;; If Emacs is started from the Finder, change the default directory |
1758 |
;; to the user's home directory. |
;; to the user's home directory. |
1769 |
;; or bold bitmap versions will not display these variants correctly. |
;; or bold bitmap versions will not display these variants correctly. |
1770 |
(setq scalable-fonts-allowed t) |
(setq scalable-fonts-allowed t) |
1771 |
|
|
|
;; (prefer-coding-system 'mac-roman) |
|
|
|
|
1772 |
;; arch-tag: 71dfcd14-cde8-4d66-b05c-85ec94fb23a6 |
;; arch-tag: 71dfcd14-cde8-4d66-b05c-85ec94fb23a6 |
1773 |
;;; mac-win.el ends here |
;;; mac-win.el ends here |