Mercurial > emacs

changeset 39307:9861030de063

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(bdf-cache-file) <ms-dos>: Use _bdfcache.el, since convert-standard-filename doesn't guarantee that the .el extension is preserved.
author Eli Zaretskii <eliz@gnu.org>
date Sun, 16 Sep 2001 18:00:56 +0000
parents b10ad115df7e
children 6841d88a881e
files lisp/ps-bdf.el
diffstat 1 files changed, 6 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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