Mercurial > emacs
changeset 55801:6fe3d9ff80b9
(command-line): Keep the first regexp of auto-save-file-name-transforms intact.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Fri, 28 May 2004 21:04:52 +0000 |
| parents | c9243f2a022c |
| children | 7bb617df33db |
| files | lisp/startup.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/startup.el Fri May 28 21:03:53 2004 +0000 +++ b/lisp/startup.el Fri May 28 21:04:52 2004 +0000 @@ -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 @@ (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)))