diff options
author | Eli Zaretskii <[email protected]> | 2001-06-29 18:09:44 +0000 |
---|---|---|
committer | Eli Zaretskii <[email protected]> | 2001-06-29 18:09:44 +0000 |
commit | fc83ff0ddec4ef86eb9d8f4b6137c8ff330a4dbf (patch) | |
tree | c280954ace85fe69f49d66cef558dc6ef04437c5 /lisp | |
parent | 3024d92027ec37e2afa3c176f81827f7e95b3962 (diff) |
Make last change compatible with XEmacs. From Christoph Wedler
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/ps-bdf.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/ps-bdf.el b/lisp/ps-bdf.el index 733588185d..4e19eae6b9 100644 --- a/lisp/ps-bdf.el +++ b/lisp/ps-bdf.el @@ -40,7 +40,8 @@ ;;;###autoload (defvar bdf-directory-list - (if (memq system-type '(ms-dos windows-nt)) + (if (and (memq system-type '(ms-dos windows-nt)) + (boundp 'installation-directory)) (list (expand-file-name "fonts/bdf" installation-directory)) '("/usr/local/share/emacs/fonts/bdf")) "*List of directories to search for `BDF' font files. @@ -48,7 +49,8 @@ The default value is '(\"/usr/local/share/emacs/fonts/bdf\").") ;; 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)) +(and (and (memq system-type '(ms-dos windows-nt)) + (boundp 'installation-directory)) (setq bdf-directory-list (list (expand-file-name "fonts/bdf" installation-directory)))) |