comparison lisp/term/mac-win.el @ 46094:f6354f8039bc

Use directory-free-space-program instead of obsolete variable dired-free-space-program. On Darwin, don't set directory-free-space-program, shell-file-name and process-connection-type; set directory-free-space-args to not include `-P' and use utf-8 for file name coding system.

46093:070dab19fecf

;;; mac-win.el --- support for "Macintosh windows"

;; Copyright (C) 1999, 2000 Free Software Foundation, Inc.

;; Author: Andrew Choi <[e-mail]>

;; This file is part of GNU Emacs.

    defined-colors))

;; Don't have this yet.
(fset 'x-get-resource 'ignore)

;; This variable specifies the Unix program to call (as a process) to
;; deteremine the amount of free space on a file system (defaults to
;; df).  If it is not set to nil, ls-lisp will not work correctly
;; unless an external application df is implemented on the Mac.
(require 'dired)

(setq dired-free-space-program nil)

;; Set this so that Emacs calls subprocesses with "sh" as shell to
;; expand filenames Note no subprocess for the shell is actually
;; started (see run_mac_command in sysdep.c).
(setq shell-file-name "sh")

;; X Window emulation in macterm.c is not complete enough to start a
;; frame without a minibuffer properly.  Call this to tell ediff
;; library to use a single frame.
; (ediff-toggle-multiframe)

		(memq (char-charset key)
		      '(ascii eight-bit-control eight-bit-graphic))
		(set-fontset-font "fontset-mac" key monaco-font))))
	 (get 'mac-roman-encoder 'translation-table)))))

;; To display filenames in Chinese or Japanese, replace mac-roman with
;; big5 or sjis
(setq file-name-coding-system 'mac-roman)

;; If Emacs is started from the Finder, change the default directory
;; to the user's home directory.
(if (string= default-directory "/")
    (cd "~"))

;; Tell Emacs to use pipes instead of pty's for processes because the
;; latter sometimes lose characters.  Pty support is compiled in since
;; ange-ftp will not work without it.
(setq process-connection-type nil)

;; Assume that fonts are always scalable on the Mac.  This sometimes
;; results in characters with jagged edges.  However, without it,
;; fonts with both truetype and bitmap representations but no italic
;; or bold bitmap versions will not display these variants correctly.

46094:f6354f8039bc

;;; mac-win.el --- support for "Macintosh windows"

;; Copyright (C) 1999, 2000, 2002 Free Software Foundation, Inc.

;; Author: Andrew Choi <[e-mail]>

;; This file is part of GNU Emacs.

    defined-colors))

;; Don't have this yet.
(fset 'x-get-resource 'ignore)

(if (eq system-type 'darwin)
    ;; df on Darwin does not understand -P
    (setq directory-free-space-args "-k")

  ;; This variable specifies the Unix program to call (as a process) to
  ;; deteremine the amount of free space on a file system (defaults to
  ;; df).  If it is not set to nil, ls-lisp will not work correctly
  ;; unless an external application df is implemented on the Mac.
  (setq directory-free-space-program nil)

  ;; Set this so that Emacs calls subprocesses with "sh" as shell to
  ;; expand filenames Note no subprocess for the shell is actually
  ;; started (see run_mac_command in sysdep.c).
  (setq shell-file-name "sh"))

;; X Window emulation in macterm.c is not complete enough to start a
;; frame without a minibuffer properly.  Call this to tell ediff
;; library to use a single frame.
; (ediff-toggle-multiframe)

		(memq (char-charset key)
		      '(ascii eight-bit-control eight-bit-graphic))
		(set-fontset-font "fontset-mac" key monaco-font))))
	 (get 'mac-roman-encoder 'translation-table)))))

(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))

;; If Emacs is started from the Finder, change the default directory
;; to the user's home directory.
(if (string= default-directory "/")
    (cd "~"))

(unless (eq system-type 'darwin)
  ;; Tell Emacs to use pipes instead of pty's for processes because the
  ;; latter sometimes lose characters.  Pty support is compiled in since
  ;; ange-ftp will not work without it.
  (setq process-connection-type nil))

;; Assume that fonts are always scalable on the Mac.  This sometimes
;; results in characters with jagged edges.  However, without it,
;; fonts with both truetype and bitmap representations but no italic
;; or bold bitmap versions will not display these variants correctly.