Mercurial > emacs

changeset 24450:60d1fad41645

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(bdf-directory-list): Fix last change.
author Eli Zaretskii <eliz@gnu.org>
date Sun, 07 Mar 1999 14:12:35 +0000
parents 2428731823fd
children 4e77e063fc79
files lisp/ps-bdf.el
diffstat 1 files changed, 7 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ps-bdf.el	Sun Mar 07 13:31:58 1999 +0000
+++ b/lisp/ps-bdf.el	Sun Mar 07 14:12:35 1999 +0000
@@ -36,11 +36,17 @@
 ;;;###autoload
 (defvar bdf-directory-list
   (if (eq system-type 'ms-dos)
-      (list (expand-file-name "../fonts/bdf" invocation-directory))
+      (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 loadup time.
+(and (eq system-type 'ms-dos)
+     (setq bdf-directory-list
+	   (list (expand-file-name "fonts/bdf" installation-directory))))
+
 (defun bdf-expand-file-name (bdfname)
   "Return an abosolute path name of a `BDF' font file BDFNAME.
 It searches directories listed in the variable `bdf-directory-list'