(bdf-cache-file) <ms-dos>: Use _bdfcache.el, since

convert-standard-filename doesn't guarantee that the .el extension
is preserved.

2 files changed, 10 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9d618fe0c5b..a7bf2228b8b 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2001-09-16  Eli Zaretskii  <eliz@is.elta.co.il>
 
+        * ps-bdf.el (bdf-cache-file) <ms-dos>: Use _bdfcache.el, since
+        convert-standard-filename doesn't guarantee that the .el extension
+        is preserved.
+
         * dos-fns.el (convert-standard-filename): Replace invalid
         characters only after converting dash/underscore to a period.
         (original-make-auto-save-file-name): New.
diff --git a/lisp/ps-bdf.el b/lisp/ps-bdf.el
index 66c3faf3cb1..34c65d55aa4 100644
--- a/lisp/ps-bdf.el
+++ b/lisp/ps-bdf.el
@@ -104,7 +104,12 @@ If BDFNAME doesn't exist, return nil."
              (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