diff options
| -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 733588185d2..4e19eae6b9e 100644 --- a/lisp/ps-bdf.el +++ b/lisp/ps-bdf.el | |||
| @@ -40,7 +40,8 @@ | |||
| 40 | 40 | ||
| 41 | ;;;###autoload | 41 | ;;;###autoload |
| 42 | (defvar bdf-directory-list | 42 | (defvar bdf-directory-list |
| 43 | (if (memq system-type '(ms-dos windows-nt)) | 43 | (if (and (memq system-type '(ms-dos windows-nt)) |
| 44 | (boundp 'installation-directory)) | ||
| 44 | (list (expand-file-name "fonts/bdf" installation-directory)) | 45 | (list (expand-file-name "fonts/bdf" installation-directory)) |
| 45 | '("/usr/local/share/emacs/fonts/bdf")) | 46 | '("/usr/local/share/emacs/fonts/bdf")) |
| 46 | "*List of directories to search for `BDF' font files. | 47 | "*List of directories to search for `BDF' font files. |
| @@ -48,7 +49,8 @@ The default value is '(\"/usr/local/share/emacs/fonts/bdf\").") | |||
| 48 | 49 | ||
| 49 | ;; MS-DOS and MS-Windows users like to move the binary around after | 50 | ;; MS-DOS and MS-Windows users like to move the binary around after |
| 50 | ;; it's built, but the value above is computed at load-up time. | 51 | ;; it's built, but the value above is computed at load-up time. |
| 51 | (and (memq system-type '(ms-dos windows-nt)) | 52 | (and (and (memq system-type '(ms-dos windows-nt)) |
| 53 | (boundp 'installation-directory)) | ||
| 52 | (setq bdf-directory-list | 54 | (setq bdf-directory-list |
| 53 | (list (expand-file-name "fonts/bdf" installation-directory)))) | 55 | (list (expand-file-name "fonts/bdf" installation-directory)))) |
| 54 | 56 | ||