/[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.298.2.5 by miles, Wed Apr 14 00:01:05 2004 UTC revision 1.298.2.6 by miles, Tue Jul 6 09:31:49 2004 UTC
# Line 1  Line 1 
1  ;;; startup.el --- process Emacs shell arguments  ;;; startup.el --- process Emacs shell arguments
2    
3  ;; 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
4  ;;   Free Software Foundation, Inc.  ;;   Free Software Foundation, Inc.
5    
6  ;; Maintainer: FSF  ;; Maintainer: FSF
# Line 575  or `CVS', and any subdirectory that cont Line 575  or `CVS', and any subdirectory that cont
575          (if (eq system-type 'ms-dos)          (if (eq system-type 'ms-dos)
576              (getenv "TMPDIR")))              (getenv "TMPDIR")))
577    (setq auto-save-file-name-transforms    (setq auto-save-file-name-transforms
578          (list (list "\\`/[^/]*:\\(.+/\\)*\\(.*\\)"          (list (list (car (car auto-save-file-name-transforms))
579                      ;; Don't put "\\2" inside expand-file-name, since                      ;; Don't put "\\2" inside expand-file-name, since
580                      ;; it will be transformed to "/2" on DOS/Windows.                      ;; it will be transformed to "/2" on DOS/Windows.
581                      (concat temporary-file-directory "\\2") t)))                      (concat temporary-file-directory "\\2") t)))

Legend:
Removed from v.1.298.2.5  
changed lines
  Added in v.1.298.2.6

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