comparison lisp/term/mac-win.el @ 44890:01b93e5e53a7

Patch for building Emacs on Mac OS X. April 26, 2002. See ChangeLog, lisp/ChangeLog, and src/ChangeLog for list of changes.
author Andrew Choi <akochoi@shaw.ca>
date Fri, 26 Apr 2002 23:39:06 +0000
parents 6e45d26a2555
children 39cdf9669519
comparison
equal deleted inserted replaced
44889:e3b9f45140a5 44890:01b93e5e53a7
1 ;;; mac-win.el --- support for "Macintosh windows" 1 ;;; mac-win.el --- support for "Macintosh windows"
2 2
3 ;; Copyright (C) 1999, 2000 Free Software Foundation, Inc. 3 ;; Copyright (C) 1999, 2000 Free Software Foundation, Inc.
4 4
5 ;; Author: Andrew Choi <akochoi@i-cable.com> 5 ;; Author: Andrew Choi <akochoi@mac.com>
6 6
7 ;; This file is part of GNU Emacs. 7 ;; This file is part of GNU Emacs.
8 8
9 ;; GNU Emacs is free software; you can redistribute it and/or modify 9 ;; GNU Emacs is free software; you can redistribute it and/or modify
10 ;; it under the terms of the GNU General Public License as published by 10 ;; it under the terms of the GNU General Public License as published by
118 (setq shell-file-name "sh") 118 (setq shell-file-name "sh")
119 119
120 ;; X Window emulation in macterm.c is not complete enough to start a 120 ;; X Window emulation in macterm.c is not complete enough to start a
121 ;; frame without a minibuffer properly. Call this to tell ediff 121 ;; frame without a minibuffer properly. Call this to tell ediff
122 ;; library to use a single frame. 122 ;; library to use a single frame.
123 (ediff-toggle-multiframe) 123 ; (ediff-toggle-multiframe)
124 124
125 ;; Setup to use the Mac clipboard. The functions mac-cut-function and 125 ;; Setup to use the Mac clipboard. The functions mac-cut-function and
126 ;; mac-paste-function are defined in mac.c. 126 ;; mac-paste-function are defined in mac.c.
127 (set-selection-coding-system 'compound-text-mac) 127 (set-selection-coding-system 'compound-text-mac)
128 128
212 (get 'mac-roman-encoder 'translation-table))))) 212 (get 'mac-roman-encoder 'translation-table)))))
213 213
214 ;; To display filenames in Chinese or Japanese, replace mac-roman with 214 ;; To display filenames in Chinese or Japanese, replace mac-roman with
215 ;; big5 or sjis 215 ;; big5 or sjis
216 (setq file-name-coding-system 'mac-roman) 216 (setq file-name-coding-system 'mac-roman)
217
218 ;; If Emacs is started from the Finder, change the default directory
219 ;; to the user's home directory.
220 (if (string= default-directory "/")
221 (cd "~"))
222
223 ;; Tell Emacs to use pipes instead of pty's for processes because the
224 ;; latter sometimes lose characters. Pty support is compiled in since
225 ;; ange-ftp will not work without it.
226 (setq process-connection-type nil)
217 227
218 ;; (prefer-coding-system 'mac-roman) 228 ;; (prefer-coding-system 'mac-roman)
219 229
220 ;; 230 ;;
221 ;; Available colors 231 ;; Available colors