[Emacs-diffs] Changes to emacs/lisp/startup.el

[Eli Zaretskii]

Index: emacs/lisp/startup.el
diff -c emacs/lisp/startup.el:1.293 emacs/lisp/startup.el:1.294
*** emacs/lisp/startup.el:1.293 Wed Mar 20 18:15:33 2002
--- emacs/lisp/startup.el       Fri Mar 29 09:03:27 2002
***************
*** 653,658 ****
--- 653,664 ----
    (setq small-temporary-file-directory
        (if (eq system-type 'ms-dos)
            (getenv "TMPDIR")))
+   (setq auto-save-file-name-transforms
+       (list (list "\\`/[^/]*:\\(.+/\\)*\\(.*\\)"
+                   ;; Don't put "\\2" inside expand-file-name, since
+                   ;; it will be transformed to "/2" on DOS/Windows.
+                   (concat (expand-file-name temporary-file-directory)
+                           "\\2"))))
  
    ;; See if we should import version-control from the environment variable.
    (let ((vc (getenv "VERSION_CONTROL")))