diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/ps-bdf.el | 7 |
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 |