Mercurial > emacs
changeset 60726:d1b7b92f7057
Use functionp instead symbolp and fboundp.
| author | Vinicius Jose Latorre <viniciusjl@ig.com.br> |
|---|---|
| date | Sat, 19 Mar 2005 04:11:54 +0000 |
| parents | 086d1f41fbb3 |
| children | ff7181a543b6 |
| files | lisp/ChangeLog lisp/ps-print.el |
| diffstat | 2 files changed, 14 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- 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.
--- 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)))