Mercurial > emacs
changeset 38240:572b220c4c8c
Make last change compatible with XEmacs. From Christoph Wedler
<christoph.wedler@sap.com>.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Fri, 29 Jun 2001 18:09:44 +0000 |
| parents | 89d2ae7e4c1f |
| children | c3737c213380 |
| files | lisp/ps-bdf.el |
| diffstat | 1 files changed, 4 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ps-bdf.el Fri Jun 29 17:57:36 2001 +0000 +++ b/lisp/ps-bdf.el Fri Jun 29 18:09:44 2001 +0000 @@ -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 @@ ;; 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))))