232 |
(if (string= default-directory "/") |
(if (string= default-directory "/") |
233 |
(cd "~")) |
(cd "~")) |
234 |
|
|
235 |
(unless (eq system-type 'darwin) |
;; Tell Emacs to use pipes instead of pty's for processes because the |
236 |
;; Tell Emacs to use pipes instead of pty's for processes because the |
;; latter sometimes lose characters. Pty support is compiled in since |
237 |
;; latter sometimes lose characters. Pty support is compiled in since |
;; ange-ftp will not work without it. |
238 |
;; ange-ftp will not work without it. |
(setq process-connection-type nil) |
|
(setq process-connection-type nil)) |
|
239 |
|
|
240 |
;; Assume that fonts are always scalable on the Mac. This sometimes |
;; Assume that fonts are always scalable on the Mac. This sometimes |
241 |
;; results in characters with jagged edges. However, without it, |
;; results in characters with jagged edges. However, without it, |