Mercurial > emacs
changeset 51875:5488bfe4b6be
copyright line fix & bdf-directory-list init fix
author | Vinicius Jose Latorre <viniciusjl@ig.com.br> |
---|---|
date | Sat, 12 Jul 2003 00:20:38 +0000 |
parents | 866902969d28 |
children | ca63e0b1c55c |
files | lisp/ChangeLog lisp/ps-bdf.el |
diffstat | 2 files changed, 9 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- 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 <viniciusjl@ig.com.br> + + * ps-bdf.el: Fix copyright line. + (bdf-directory-list): Fix initialization code. + 2003-07-11 John Paul Wallington <jpw@gnu.org> * emacs-lisp/ring.el (ring-empty-p): Use `zerop'.
--- 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 <handa@etl.go.jp> -;; 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))))