Mercurial > emacs

changeset 16859:2a3cc82fa1ea

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(make-auto-save-file-name): Replace occurrences of all invalid filename characters.
author Geoff Voelker <voelker@cs.washington.edu>
date Mon, 13 Jan 1997 01:23:21 +0000
parents 06857a0ecebb
children 247f0b107588
files lisp/w32-fns.el
diffstat 1 files changed, 6 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/w32-fns.el	Mon Jan 13 01:10:49 1997 +0000
+++ b/lisp/w32-fns.el	Mon Jan 13 01:23:21 1997 +0000
@@ -50,8 +50,7 @@
 (add-hook 'shell-mode-hook 
 	  '(lambda () (setq comint-completion-addsuffix '("\\" . " "))))
 
-;;; Avoid creating auto-save file names containing invalid characters
-;;; (primarily "*", eg. for the *mail* buffer).
+;; Avoid creating auto-save file names containing invalid characters.
 (fset 'original-make-auto-save-file-name
       (symbol-function 'make-auto-save-file-name))
 
@@ -62,8 +61,11 @@
 See also `auto-save-file-name-p'."
   (let ((name (original-make-auto-save-file-name))
 	(start 0))
-    ;; destructively replace occurences of * or ? with $
-    (while (string-match "[?*]" name start)
+    ;; Skip drive letter if present.
+    (if (string-match "^[\/]?[a-zA-`]:" name)
+	(setq start (- (match-end 0) (match-beginning 0))))
+    ;; Destructively replace occurrences of *?"<>|: with $
+    (while (string-match "[?*\"<>|:]" name start)
       (aset name (match-beginning 0) ?$)
       (setq start (1+ (match-end 0))))
     name))