Commits

Anonymous committed 09b17bb

(fast-lock-cache-name): Treat Windows path separator.
Tomonori's patch "fast-lock-cache-directories under Windows",
<200004021224.VAA20902@uct010.urawa.cabletv.ne.jp>

Comments (0)

Files changed (2)

+2000-04-02  IKEYAMA Tomonori  <tomonori@suiyokai.org>
+
+	* fast-lock.el (fast-lock-cache-name): Treat Windows path
+	separator.
+
 2000-02-23  Andreas Jaeger  <aj@suse.de>
 
 	* mic-paren.el: Version 2.3 from Klaus Berndl.
       (concat buffer-file-name ".flc")
     (let* ((bufile (expand-file-name buffer-file-truename))
 	   (chars-alist
-	    (if (eq system-type 'emx)
-		'((?/ . (?#)) (?# . (?# ?#)) (?: . (?\;)) (?\; . (?\; ?\;)))
-	      '((?/ . (?#)) (?# . (?# ?#)))))
+	    (cond 
+	     ((eq system-type 'emx)
+	      '((?/ . (?#)) (?# . (?# ?#)) (?: . (?\;)) (?\; . (?\; ?\;))))
+	     ((eq system-type 'windows-nt)
+	      '((?\\ . (?#)) (?# . (?# ?#)) (?: . (?\;)) (?\; . (?\; ?\;))))
+	     (t
+	      '((?/ . (?#)) (?# . (?# ?#))))))
 	   (mapchars
 	    (function (lambda (c) (or (cdr (assq c chars-alist)) (list c))))))
       (concat