/[emacs]/emacs/lisp/startup.el
ViewVC logotype

Diff of /emacs/lisp/startup.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.293 by pj, Wed Mar 20 23:15:33 2002 UTC revision 1.294 by eliz, Fri Mar 29 14:03:27 2002 UTC
# Line 653  or `CVS', and any subdirectory that cont Line 653  or `CVS', and any subdirectory that cont
653    (setq small-temporary-file-directory    (setq small-temporary-file-directory
654          (if (eq system-type 'ms-dos)          (if (eq system-type 'ms-dos)
655              (getenv "TMPDIR")))              (getenv "TMPDIR")))
656      (setq auto-save-file-name-transforms
657            (list (list "\\`/[^/]*:\\(.+/\\)*\\(.*\\)"
658                        ;; Don't put "\\2" inside expand-file-name, since
659                        ;; it will be transformed to "/2" on DOS/Windows.
660                        (concat (expand-file-name temporary-file-directory)
661                                "\\2"))))
662    
663    ;; See if we should import version-control from the environment variable.    ;; See if we should import version-control from the environment variable.
664    (let ((vc (getenv "VERSION_CONTROL")))    (let ((vc (getenv "VERSION_CONTROL")))

Legend:
Removed from v.1.293  
changed lines
  Added in v.1.294

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26