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

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9d618fe0c5b26de57a0e7b9d397372e3195abdc5..a7bf2228b8baf5ad5b74a48c0291aaa9bd4930fe 100644 (file)
--- 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 66c3faf3cb1a25f72f4ee9e6e89d00bbd50a65ad..34c65d55aa47fe35a674dc3127ba09407e46c1d8 100644 (file)
--- 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