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

[Vinicius Jose Latorre]

Index: emacs/lisp/ps-print.el
diff -c emacs/lisp/ps-print.el:1.153 emacs/lisp/ps-print.el:1.154
*** emacs/lisp/ps-print.el:1.153        Tue Feb 22 06:18:38 2005
--- emacs/lisp/ps-print.el      Sat Mar 19 04:11:54 2005
***************
*** 1,7 ****
  ;;; ps-print.el --- print text from the buffer as PostScript
  
  ;; Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002,
! ;; 2003, 2004 Free Software Foundation, Inc.
  
  ;; Author: Jim Thompson (was <address@hidden>)
  ;;    Jacques Duthen (was <address@hidden>)
--- 1,7 ----
  ;;; ps-print.el --- print text from the buffer as PostScript
  
  ;; Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002,
! ;; 2003, 2004, 2005 Free Software Foundation, Inc.
  
  ;; Author: Jim Thompson (was <address@hidden>)
  ;;    Jacques Duthen (was <address@hidden>)
***************
*** 10,21 ****
  ;; Maintainer: Kenichi Handa <address@hidden> (multi-byte characters)
  ;;    Vinicius Jose Latorre <address@hidden>
  ;; Keywords: wp, print, PostScript
! ;; Time-stamp: <2004/07/21 23:12:05 vinicius>
! ;; Version: 6.6.5
  ;; X-URL: http://www.cpqd.com.br/~vinicius/emacs/
  
! (defconst ps-print-version "6.6.5"
!   "ps-print.el, v 6.6.5 <2004/07/21 vinicius>
  
  Vinicius's last change version -- this file may have been edited as part of
  Emacs without changes to the version number.  When reporting bugs, please also
--- 10,21 ----
  ;; Maintainer: Kenichi Handa <address@hidden> (multi-byte characters)
  ;;    Vinicius Jose Latorre <address@hidden>
  ;; Keywords: wp, print, PostScript
! ;; Time-stamp: <2005/03/19 00:40:12 vinicius>
! ;; Version: 6.6.6
  ;; X-URL: http://www.cpqd.com.br/~vinicius/emacs/
  
! (defconst ps-print-version "6.6.6"
!   "ps-print.el, v 6.6.6 <2004/07/21 vinicius>
  
  Vinicius's last change version -- this file may have been edited as part of
  Emacs without changes to the version number.  When reporting bugs, please also
***************
*** 4831,4837 ****
                       ((stringp (car content))
                        (car content))
                       ;; function symbol
!                      ((and (symbolp (car content)) (fboundp (car content)))
                        (concat "(" (funcall (car content)) ")"))
                       ;; variable symbol
                       ((and (symbolp (car content)) (boundp (car content)))
--- 4831,4837 ----
                       ((stringp (car content))
                        (car content))
                       ;; function symbol
!                      ((functionp (car content))
                        (concat "(" (funcall (car content)) ")"))
                       ;; variable symbol
                       ((and (symbolp (car content)) (boundp (car content)))
***************
*** 4869,4875 ****
  
     ;; Functions are called -- they should return strings; they will be 
inserted
     ;; as strings and the PS string delimiters added.
!    ((and (symbolp content) (fboundp content))
      (ps-output-string (ps-mule-encode-header-string (funcall content)
                                                    fonttag)))
  
--- 4869,4875 ----
  
     ;; Functions are called -- they should return strings; they will be 
inserted
     ;; as strings and the PS string delimiters added.
!    ((functionp content)
      (ps-output-string (ps-mule-encode-header-string (funcall content)
                                                    fonttag)))