From: Eli Zaretskii <eliz@gnu.org>
Date: Fri, 29 Jun 2001 17:50:27 +0000 (+0000)
Subject: (bdf-directory-list): Use the value relative to
X-Git-Tag: emacs-pretest-21.0.104~111
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3f4f2289db728fb5e521a45b152ec02f9518e48f;p=emacs.git

(bdf-directory-list): Use the value relative to
installation-directory for MS-Windows as well.
---

diff --git a/lisp/ps-bdf.el b/lisp/ps-bdf.el
index 241f4d9aaa4..733588185d2 100644
--- a/lisp/ps-bdf.el
+++ b/lisp/ps-bdf.el
@@ -40,15 +40,15 @@
 
 ;;;###autoload
 (defvar bdf-directory-list
-  (if (eq system-type 'ms-dos)
+  (if (memq system-type '(ms-dos windows-nt))
       (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 load-up time.
-(and (eq system-type 'ms-dos)
+;; MS-DOS and MS-Windows users like to move the binary around after
+;; it's built, but the value above is computed at load-up time.
+(and (memq system-type '(ms-dos windows-nt))
      (setq bdf-directory-list
 	   (list (expand-file-name "fonts/bdf" installation-directory))))