1 |
;;; startup.el --- process Emacs shell arguments |
;;; startup.el --- process Emacs shell arguments |
2 |
|
|
3 |
;; Copyright (C) 1985, 86, 92, 94, 95, 96, 97, 98, 99, 2000, 2001, 2002 |
;; Copyright (C) 1985, 86, 92, 94, 95, 96, 97, 98, 99, 2000, 01, 02, 2004 |
4 |
;; Free Software Foundation, Inc. |
;; Free Software Foundation, Inc. |
5 |
|
|
6 |
;; Maintainer: FSF |
;; Maintainer: FSF |
575 |
(if (eq system-type 'ms-dos) |
(if (eq system-type 'ms-dos) |
576 |
(getenv "TMPDIR"))) |
(getenv "TMPDIR"))) |
577 |
(setq auto-save-file-name-transforms |
(setq auto-save-file-name-transforms |
578 |
(list (list "\\`/[^/]*:\\(.+/\\)*\\(.*\\)" |
(list (list (car (car auto-save-file-name-transforms)) |
579 |
;; Don't put "\\2" inside expand-file-name, since |
;; Don't put "\\2" inside expand-file-name, since |
580 |
;; it will be transformed to "/2" on DOS/Windows. |
;; it will be transformed to "/2" on DOS/Windows. |
581 |
(concat temporary-file-directory "\\2") t))) |
(concat temporary-file-directory "\\2") t))) |