Mercurial > emacs
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 |