diff options
author | Eli Zaretskii <eliz@gnu.org> | 2001-06-29 17:50:27 +0000 |
---|---|---|
committer | Eli Zaretskii <eliz@gnu.org> | 2001-06-29 17:50:27 +0000 |
commit | 3f4f2289db728fb5e521a45b152ec02f9518e48f (patch) | |
tree | 249511dd0134b90a51a578b215db5a2f84488fc0 | |
parent | 546cf5b0f92557f78dbd2121fa1e7c77ea4f3c9a (diff) | |
download | emacs-3f4f2289db728fb5e521a45b152ec02f9518e48f.tar.gz |
(bdf-directory-list): Use the value relative to
installation-directory for MS-Windows as well.
-rw-r--r-- | lisp/ps-bdf.el | 8 |
1 files changed, 4 insertions, 4 deletions
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)))) |