From a5f01960473be2b86d3cb4b238aca7a94155f0d3 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sun, 16 Sep 2001 18:03:28 +0000 Subject: [PATCH] (bdf-cache-file) : Use _bdfcache.el, since convert-standard-filename doesn't guarantee that the .el extension is preserved. --- lisp/ChangeLog | 4 ++++ lisp/ps-bdf.el | 7 ++++++- 2 files changed, 10 insertions(+), 1 deletion(-) 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 + * ps-bdf.el (bdf-cache-file) : 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 -- 2.39.2