From: Eli Zaretskii <eliz@gnu.org>
Date: Sun, 7 Mar 1999 14:12:35 +0000 (+0000)
Subject: (bdf-directory-list): Fix last change.
X-Git-Tag: emacs-20.4~499
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0a51cf3d98e4d135f9fcd1e9f2975c6d74643a73;p=emacs.git

(bdf-directory-list): Fix last change.
---

diff --git a/lisp/ps-bdf.el b/lisp/ps-bdf.el
index 7ef0ad30d6b..bf9b69ddef5 100644
--- a/lisp/ps-bdf.el
+++ b/lisp/ps-bdf.el
@@ -36,11 +36,17 @@
 ;;;###autoload
 (defvar bdf-directory-list
   (if (eq system-type 'ms-dos)
-      (list (expand-file-name "../fonts/bdf" invocation-directory))
+      (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.
 It searches directories listed in the variable `bdf-directory-list'