# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 920815955 0
# Node ID 60d1fad416459dd585e92bdd5961c448aed238b3
# Parent  2428731823fd10c9a6afd9370418c1d5c09c6d58
(bdf-directory-list): Fix last change.

diff -r 2428731823fd -r 60d1fad41645 lisp/ps-bdf.el
--- a/lisp/ps-bdf.el	Sun Mar 07 13:31:58 1999 +0000
+++ b/lisp/ps-bdf.el	Sun Mar 07 14:12:35 1999 +0000
@@ -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'