mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-25 10:47:00 +00:00
Code Issues Releases Activity

Use functionp instead symbolp and fboundp.

Browse Source
This commit is contained in:
Vinicius Jose Latorre 2005-03-19 04:11:54 +00:00
parent 951f97e67d
commit 5d62baca6d
2 changed files with 14 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/ChangeLog
View File

@ -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.

14
lisp/ps-print.el
View File

@ -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)))