/[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.32 by tamm, Thu Jan 20 18:13:48 2005 UTC revision 1.33 by monnier, Mon Feb 21 13:09:58 2005 UTC
# Line 1  Line 1 
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
# Line 1013  XConsortium: rgb.txt,v 10.41 94/02/20 18 Line 1014  XConsortium: rgb.txt,v 10.41 94/02/20 18
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    
# Line 1667  Switch to a buffer editing the last file Line 1668  Switch to a buffer editing the last file
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)
# Line 1675  Switch to a buffer editing the last file Line 1676  Switch to a buffer editing the last file
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 "/")
# Line 1706  Switch to a buffer editing the last file Line 1704  Switch to a buffer editing the last file
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

Legend:
Removed from v.1.32  
changed lines
  Added in v.1.33

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