# HG changeset patch
# User Vinicius Jose Latorre <viniciusjl@ig.com.br>
# Date 1111205514 0
# Node ID d1b7b92f7057a068159854ae391d4fc2c20efd8c
# Parent  086d1f41fbb30e51767fb9caac7e0d750e186fc3
Use functionp instead symbolp and fboundp.

diff -r 086d1f41fbb3 -r d1b7b92f7057 lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Mar 18 23:17:34 2005 +0000
+++ b/lisp/ChangeLog	Sat Mar 19 04:11:54 2005 +0000
@@ -1,3 +1,10 @@
+2005-03-19  Vinicius Jose Latorre  <viniciusjl@ig.com.br>
+
+	* ps-print.el (ps-generate-string-list, ps-generate-header-line): Use
+	functionp instead of symbolp and fboundp.  Reported by Drkm
+	<darkman_spam@yahoo.fr>.
+	(ps-print-version): New version 6.6.6.
+
 2005-03-18  Tak Ota  <Takaaki.Ota@am.sony.com>
 
 	* textmodes/table.el (table--line-column-position): New idiom.
diff -r 086d1f41fbb3 -r d1b7b92f7057 lisp/ps-print.el
--- a/lisp/ps-print.el	Fri Mar 18 23:17:34 2005 +0000
+++ b/lisp/ps-print.el	Sat Mar 19 04:11:54 2005 +0000
@@ -1,7 +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.
+;; 2003, 2004, 2005 Free Software Foundation, Inc.
 
 ;; Author: Jim Thompson (was <thompson@wg2.waii.com>)
 ;;	Jacques Duthen (was <duthen@cegelec-red.fr>)
@@ -10,12 +10,12 @@
 ;; Maintainer: Kenichi Handa <handa@etl.go.jp> (multi-byte characters)
 ;;	Vinicius Jose Latorre <viniciusjl@ig.com.br>
 ;; Keywords: wp, print, PostScript
-;; Time-stamp: <2004/07/21 23:12:05 vinicius>
-;; Version: 6.6.5
+;; 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.5"
-  "ps-print.el, v 6.6.5 <2004/07/21 vinicius>
+(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,7 +4831,7 @@
 		       ((stringp (car content))
 			(car content))
 		       ;; function symbol
-		       ((and (symbolp (car content)) (fboundp (car content)))
+		       ((functionp (car content))
 			(concat "(" (funcall (car content)) ")"))
 		       ;; variable symbol
 		       ((and (symbolp (car content)) (boundp (car content)))
@@ -4869,7 +4869,7 @@
 
    ;; Functions are called -- they should return strings; they will be inserted
    ;; as strings and the PS string delimiters added.
-   ((and (symbolp content) (fboundp content))
+   ((functionp content)
     (ps-output-string (ps-mule-encode-header-string (funcall content)
 						    fonttag)))