(fast-lock-cache-name): Replace '\' with '#'.

1998-04-17 05:24:15 +00:00
parent da418b28dc
commit d976a95d4b
1 changed files with 1 additions and 1 deletions
--- a/lisp/fast-lock.el
+++ b/lisp/fast-lock.el
@@ -535,7 +535,7 @@ See `fast-lock-cache-directory'."
      (concat buffer-file-name ".flc")
    (let* ((bufile (expand-file-name buffer-file-truename))
 	   (chars-alist
-	    (if (eq system-type 'emx)
+	    (if (memq system-type '(emx windowsnt))
 		'((?/ . (?#)) (?# . (?# ?#)) (?: . (?\;)) (?\; . (?\; ?\;)))
 	      '((?/ . (?#)) (?# . (?# ?#)))))
 	   (mapchars