diff lisp/ps-bdf.el @ 39307:9861030de063

(bdf-cache-file) <ms-dos>: Use _bdfcache.el, since convert-standard-filename doesn't guarantee that the .el extension is preserved.

--- a/lisp/ps-bdf.el	Sun Sep 16 17:59:35 2001 +0000
+++ b/lisp/ps-bdf.el	Sun Sep 16 18:00:56 2001 +0000
@@ -104,7 +104,12 @@
 	     (insert-file-contents file-name)
 	     buf)))))
 
-(defvar bdf-cache-file (convert-standard-filename "~/.bdfcache.el")
+(defvar bdf-cache-file (if (eq system-type 'ms-dos)
+			   ;; convert-standard-filename doesn't
+			   ;; guarantee that the .el extension will be
+			   ;; preserved.
+			   "~/_bdfcache.el"
+			 (convert-standard-filename "~/.bdfcache.el"))
   "Name of cache file which contains information of `BDF' font files.")
 
 (defvar bdf-cache nil