comparison lisp/ps-bdf.el @ 24416:3d446442b6a0

(bdf-directory-list): Initialize it to '("/usr/local/share/emacs/fonts/bdf").

24415:48003e436759

;; Copyright (C) 1998 Electrotechnical Laboratory, JAPAN.
;; Licensed to the Free Software Foundation.

;; Keywords: BDF, font, PostScript
;; Maintainer:	Kenichi Handa <[e-mail]>
;; Time-stamp:	<98/11/26 15:09:23 kenichi>

;; This file is part of GNU Emacs.

;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by

;;; Code:

(eval-when-compile (require 'ps-mule))

;;;###autoload
(defvar bdf-directory-list
  nil
  "*List of directories to search for `BDF' font files.")

(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'
for BDFNAME."

24416:3d446442b6a0

;; Copyright (C) 1998 Electrotechnical Laboratory, JAPAN.
;; Licensed to the Free Software Foundation.

;; Keywords: BDF, font, PostScript
;; Maintainer:	Kenichi Handa <[e-mail]>
;; Time-stamp:	<99/02/27 11:14:07 kenichi>

;; This file is part of GNU Emacs.

;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by

;;; Code:

(eval-when-compile (require 'ps-mule))

;;;###autoload
(defvar bdf-directory-list '("/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").")

(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'
for BDFNAME."