diff options
| author | Vinicius Jose Latorre <viniciusjl@ig.com.br> | 2005-03-19 04:11:54 +0000 |
|---|---|---|
| committer | Vinicius Jose Latorre <viniciusjl@ig.com.br> | 2005-03-19 04:11:54 +0000 |
| commit | 5d62baca6d9f01e2d527648d47694354e87f5cdf (patch) | |
| tree | 2249e3768cefe8abc0af24f55f2b7dc94fb7566a /lisp/ps-print.el | |
| parent | 951f97e67d904729032b476caf5f7c2e7e303d73 (diff) | |
| download | emacs-5d62baca6d9f01e2d527648d47694354e87f5cdf.tar.gz | |
Use functionp instead symbolp and fboundp.
Diffstat (limited to 'lisp/ps-print.el')
| -rw-r--r-- | lisp/ps-print.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lisp/ps-print.el b/lisp/ps-print.el index d8c8f1f6ded..c99b12acc0e 100644 --- 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))) |