Mercurial > emacs

comparison lisp/ps-bdf.el @ 24449:2428731823fd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(bdf-directory-list): Different value for ms-dos.
author Eli Zaretskii <eliz@gnu.org>
date Sun, 07 Mar 1999 13:31:58 +0000
parents 3d446442b6a0
children 60d1fad41645
comparison
equal deleted inserted replaced
24448:54fa245dc776 24449:2428731823fd
32 ;;; Code: 32 ;;; Code:
33 33
34 (eval-when-compile (require 'ps-mule)) 34 (eval-when-compile (require 'ps-mule))
35 35
36 ;;;###autoload 36 ;;;###autoload
37 (defvar bdf-directory-list '("/usr/local/share/emacs/fonts/bdf") 37 (defvar bdf-directory-list
38 (if (eq system-type 'ms-dos)
39 (list (expand-file-name "../fonts/bdf" invocation-directory))
40 '("/usr/local/share/emacs/fonts/bdf"))
38 "*List of directories to search for `BDF' font files. 41 "*List of directories to search for `BDF' font files.
39 The default value is '("/usr/local/share/emacs/fonts/bdf").") 42 The default value is '("/usr/local/share/emacs/fonts/bdf").")
40 43
41 (defun bdf-expand-file-name (bdfname) 44 (defun bdf-expand-file-name (bdfname)
42 "Return an abosolute path name of a `BDF' font file BDFNAME. 45 "Return an abosolute path name of a `BDF' font file BDFNAME.