;;; ps-bdf.el --- BDF font file handler for ps-print.
-;; Copyright (C) 1998 Electrotechnical Laboratory, JAPAN.
+;; Copyright (C) 1998, 1999 Electrotechnical Laboratory, JAPAN.
;; Licensed to the Free Software Foundation.
-;; Keywords: BDF, font, PostScript
+;; Keywords: wp, BDF, font, PostScript
;; Maintainer: Kenichi Handa <handa@etl.go.jp>
-;; Time-stamp: <98/11/26 15:09:23 kenichi>
+;; Time-stamp: <99/02/27 11:14:07 kenichi>
;; This file is part of GNU Emacs.
;;;###autoload
(defvar bdf-directory-list
- nil
- "*List of directories to search for `BDF' font files.")
+ (if (eq system-type 'ms-dos)
+ (list (expand-file-name "fonts/bdf" installation-directory))
+ '("/usr/local/share/emacs/fonts/bdf"))
+ "*List of directories to search for `BDF' font files.
+The default value is '(\"/usr/local/share/emacs/fonts/bdf\").")
+
+;; MS-DOS users like to move the binary around after it's built, but
+;; the value above is computed at loadup time.
+(and (eq system-type 'ms-dos)
+ (setq bdf-directory-list
+ (list (expand-file-name "fonts/bdf" installation-directory))))
(defun bdf-expand-file-name (bdfname)
"Return an abosolute path name of a `BDF' font file BDFNAME.