Use functionp instead symbolp and fboundp.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 43dc9d7bfbc784b32df767726e3ba2179c460b46..740c82b9059c02b3488fa457013a35b2fa1b9fa9 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/ps-print.el b/lisp/ps-print.el
index d8c8f1f6dedf39b6e42e7bb899ecc56d9af49c71..c99b12acc0e61d3f8a5c0086d556d7384f02343e 100644 (file)
--- a/lisp/ps-print.el
+++ b/lisp/ps-print.el
@@ -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 @@ page-height == ((floor print-height ((th + ls) * zh)) * ((th + ls) * zh)) - th
                       ((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 @@ page-height == ((floor print-height ((th + ls) * zh)) * ((th + ls) * zh)) - th
 
    ;; 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)))