comparison lisp/ps-print.el @ 60726:d1b7b92f7057

Use functionp instead symbolp and fboundp.

60725:086d1f41fbb3

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

;; Author: Jim Thompson (was <[e-mail]>)
;;	Jacques Duthen (was <[e-mail]>)
;;	Vinicius Jose Latorre <[e-mail]>
;;	Kenichi Handa <[e-mail]> (multi-byte characters)
;; Maintainer: Kenichi Handa <[e-mail]> (multi-byte characters)
;;	Vinicius Jose Latorre <[e-mail]>
;; Keywords: wp, print, PostScript
;; Time-stamp: <2004/07/21 23:12:05 vinicius>
;; Version: 6.6.5
;; 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>

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
report the version of Emacs, if any, that ps-print was distributed with.

      (setq str (cons (cond
		       ;; string
		       ((stringp (car content))
			(car content))
		       ;; function symbol
		       ((and (symbolp (car content)) (fboundp (car content)))
			(concat "(" (funcall (car content)) ")"))
		       ;; variable symbol
		       ((and (symbolp (car content)) (boundp (car content)))
			(concat "(" (symbol-value (car content)) ")"))
		       ;; otherwise, empty string

   ((stringp content)
    (ps-output (ps-mule-encode-header-string content fonttag)))

   ;; Functions are called -- they should return strings; they will be inserted
   ;; as strings and the PS string delimiters added.
   ((and (symbolp content) (fboundp content))
    (ps-output-string (ps-mule-encode-header-string (funcall content)
						    fonttag)))

   ;; Variables will have their contents inserted.  They should contain
   ;; strings, and will be inserted as strings.

60726:d1b7b92f7057

;;; ps-print.el --- print text from the buffer as PostScript

;; Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002,
;; 2003, 2004, 2005 Free Software Foundation, Inc.

;; Author: Jim Thompson (was <[e-mail]>)
;;	Jacques Duthen (was <[e-mail]>)
;;	Vinicius Jose Latorre <[e-mail]>
;;	Kenichi Handa <[e-mail]> (multi-byte characters)
;; Maintainer: Kenichi Handa <[e-mail]> (multi-byte characters)
;;	Vinicius Jose Latorre <[e-mail]>
;; Keywords: wp, print, PostScript
;; 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.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
report the version of Emacs, if any, that ps-print was distributed with.

      (setq str (cons (cond
		       ;; string
		       ((stringp (car content))
			(car content))
		       ;; function symbol
		       ((functionp (car content))
			(concat "(" (funcall (car content)) ")"))
		       ;; variable symbol
		       ((and (symbolp (car content)) (boundp (car content)))
			(concat "(" (symbol-value (car content)) ")"))
		       ;; otherwise, empty string

   ((stringp content)
    (ps-output (ps-mule-encode-header-string content fonttag)))

   ;; Functions are called -- they should return strings; they will be inserted
   ;; as strings and the PS string delimiters added.
   ((functionp content)
    (ps-output-string (ps-mule-encode-header-string (funcall content)
						    fonttag)))

   ;; Variables will have their contents inserted.  They should contain
   ;; strings, and will be inserted as strings.