/[emacs]/emacs/lisp/term/mac-win.el
ViewVC logotype

Diff of /emacs/lisp/term/mac-win.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.38 by mituharu, Tue Apr 12 10:27:29 2005 UTC revision 1.39 by mituharu, Thu Apr 14 09:28:21 2005 UTC
# Line 1085  XConsortium: rgb.txt,v 10.41 94/02/20 18 Line 1085  XConsortium: rgb.txt,v 10.41 94/02/20 18
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
# Line 1097  XConsortium: rgb.txt,v 10.41 94/02/20 18 Line 1097  XConsortium: rgb.txt,v 10.41 94/02/20 18
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")
# Line 1739  Switch to a buffer editing the last file Line 1748  Switch to a buffer editing the last file
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.
# Line 1763  Switch to a buffer editing the last file Line 1769  Switch to a buffer editing the last file
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

Legend:
Removed from v.1.38  
changed lines
  Added in v.1.39

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26