mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-05 20:43:08 +00:00
Code Issues Releases Activity

(command-line): Keep the first regexp of auto-save-file-name-transforms intact.

Browse Source
This commit is contained in:
Stefan Monnier 2004-05-28 21:04:52 +00:00
parent 50a27de260
commit a82456f080
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/startup.el
View File

@ -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)))