diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/startup.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/startup.el b/lisp/startup.el index 9192b60971c..2f0ca4b2c19 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -1,6 +1,6 @@ ;;; startup.el --- process Emacs shell arguments -;; 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 ;; Free Software Foundation, Inc. ;; Maintainer: FSF @@ -575,7 +575,7 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'." (if (eq system-type 'ms-dos) (getenv "TMPDIR"))) (setq auto-save-file-name-transforms - (list (list "\\`/[^/]*:\\(.+/\\)*\\(.*\\)" + (list (list (car (car auto-save-file-name-transforms)) ;; Don't put "\\2" inside expand-file-name, since ;; it will be transformed to "/2" on DOS/Windows. (concat temporary-file-directory "\\2") t))) |