# HG changeset patch # User Vinicius Jose Latorre # Date 1057969238 0 # Node ID 5488bfe4b6bea49a687649e13d1d483ca87ae7e1 # Parent 866902969d2828449d30bef9c17709019d3aeceb copyright line fix & bdf-directory-list init fix diff -r 866902969d28 -r 5488bfe4b6be lisp/ChangeLog --- a/lisp/ChangeLog Fri Jul 11 21:53:43 2003 +0000 +++ b/lisp/ChangeLog Sat Jul 12 00:20:38 2003 +0000 @@ -1,3 +1,8 @@ +2003-07-11 Vinicius Jose Latorre + + * ps-bdf.el: Fix copyright line. + (bdf-directory-list): Fix initialization code. + 2003-07-11 John Paul Wallington * emacs-lisp/ring.el (ring-empty-p): Use `zerop'. diff -r 866902969d28 -r 5488bfe4b6be lisp/ps-bdf.el --- a/lisp/ps-bdf.el Fri Jul 11 21:53:43 2003 +0000 +++ b/lisp/ps-bdf.el Sat Jul 12 00:20:38 2003 +0000 @@ -1,11 +1,11 @@ ;;; ps-bdf.el --- BDF font file handler for ps-print -;; Copyright (C) 1998,99,2001 Electrotechnical Laboratory, JAPAN. +;; Copyright (C) 1998, 1999, 2001, 2003 Electrotechnical Laboratory, JAPAN. ;; Licensed to the Free Software Foundation. ;; Keywords: wp, BDF, font, PostScript ;; Maintainer: Kenichi Handa -;; Time-stamp: <2001-07-15 12:25:51 pavel> +;; Time-stamp: <2003/07/11 21:13:44 vinicius> ;; This file is part of GNU Emacs. @@ -40,8 +40,7 @@ ;;;###autoload (defvar bdf-directory-list - (if (and (memq system-type '(ms-dos windows-nt)) - (boundp 'installation-directory)) + (if (memq system-type '(ms-dos windows-nt)) (list (expand-file-name "fonts/bdf" installation-directory)) '("/usr/local/share/emacs/fonts/bdf")) "*List of directories to search for `BDF' font files. @@ -49,8 +48,7 @@ ;; 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 (and (memq system-type '(ms-dos windows-nt)) - (boundp 'installation-directory)) +(and (memq system-type '(ms-dos windows-nt)) (setq bdf-directory-list (list (expand-file-name "fonts/bdf" installation-directory))))