Mercurial > emacs

comparison lisp/startup.el @ 44716:f5af14e5f5a3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(command-line): Add third element to auto-save-file-name-transforms.
author Glenn Morris <rgm@gnu.org>
date Sat, 20 Apr 2002 22:25:55 +0000
parents 71d51af13f8a
children 19a685f604ee
comparison
equal deleted inserted replaced
44715:dd2e1ea680ae 44716:f5af14e5f5a3
655 (getenv "TMPDIR"))) 655 (getenv "TMPDIR")))
656 (setq auto-save-file-name-transforms 656 (setq auto-save-file-name-transforms
657 (list (list "\\`/[^/]*:\\(.+/\\)*\\(.*\\)" 657 (list (list "\\`/[^/]*:\\(.+/\\)*\\(.*\\)"
658 ;; Don't put "\\2" inside expand-file-name, since 658 ;; Don't put "\\2" inside expand-file-name, since
659 ;; it will be transformed to "/2" on DOS/Windows. 659 ;; it will be transformed to "/2" on DOS/Windows.
660 (concat temporary-file-directory "\\2")))) 660 (concat temporary-file-directory "\\2") t)))
661 661
662 ;; See if we should import version-control from the environment variable. 662 ;; See if we should import version-control from the environment variable.
663 (let ((vc (getenv "VERSION_CONTROL"))) 663 (let ((vc (getenv "VERSION_CONTROL")))
664 (cond ((eq vc nil)) ;don't do anything if not set 664 (cond ((eq vc nil)) ;don't do anything if not set
665 ((or (string= vc "t") 665 ((or (string= vc "t")