[Emacs-diffs] Changes to emacs/lisp/ps-bdf.el

[Vinicius Jose Latorre]

Index: emacs/lisp/ps-bdf.el
diff -c emacs/lisp/ps-bdf.el:1.16 emacs/lisp/ps-bdf.el:1.17
*** emacs/lisp/ps-bdf.el:1.16   Tue Feb  4 06:58:07 2003
--- emacs/lisp/ps-bdf.el        Fri Jul 11 20:20:38 2003
***************
*** 1,11 ****
  ;;; ps-bdf.el --- BDF font file handler for ps-print
  
! ;; Copyright (C) 1998,99,2001 Electrotechnical Laboratory, JAPAN.
  ;; Licensed to the Free Software Foundation.
  
  ;; Keywords: wp, BDF, font, PostScript
  ;; Maintainer: Kenichi Handa <address@hidden>
! ;; Time-stamp: <2001-07-15 12:25:51 pavel>
  
  ;; This file is part of GNU Emacs.
  
--- 1,11 ----
  ;;; ps-bdf.el --- BDF font file handler for ps-print
  
! ;; Copyright (C) 1998, 1999, 2001, 2003 Electrotechnical Laboratory, JAPAN.
  ;; Licensed to the Free Software Foundation.
  
  ;; Keywords: wp, BDF, font, PostScript
  ;; Maintainer: Kenichi Handa <address@hidden>
! ;; Time-stamp: <2003/07/11 21:13:44 vinicius>
  
  ;; This file is part of GNU Emacs.
  
***************
*** 40,47 ****
  
  ;;;###autoload
  (defvar bdf-directory-list
!   (if (and (memq system-type '(ms-dos windows-nt))
!          (boundp 'installation-directory))
        (list (expand-file-name "fonts/bdf" installation-directory))
      '("/usr/local/share/emacs/fonts/bdf"))
    "*List of directories to search for `BDF' font files.
--- 40,46 ----
  
  ;;;###autoload
  (defvar bdf-directory-list
!   (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,56 ****
  
  ;; 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))
       (setq bdf-directory-list
           (list (expand-file-name "fonts/bdf" installation-directory))))
  
--- 48,54 ----
  
  ;; 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 (memq system-type '(ms-dos windows-nt))
       (setq bdf-directory-list
           (list (expand-file-name "fonts/bdf" installation-directory))))