1 |
;;; ps-print.el --- print text from the buffer as PostScript |
;;; ps-print.el --- print text from the buffer as PostScript |
2 |
|
|
3 |
;; Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, |
;; Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, |
4 |
;; 2003, 2004 Free Software Foundation, Inc. |
;; 2003, 2004, 2005 Free Software Foundation, Inc. |
5 |
|
|
6 |
;; Author: Jim Thompson (was <thompson@wg2.waii.com>) |
;; Author: Jim Thompson (was <thompson@wg2.waii.com>) |
7 |
;; Jacques Duthen (was <duthen@cegelec-red.fr>) |
;; Jacques Duthen (was <duthen@cegelec-red.fr>) |
10 |
;; Maintainer: Kenichi Handa <handa@etl.go.jp> (multi-byte characters) |
;; Maintainer: Kenichi Handa <handa@etl.go.jp> (multi-byte characters) |
11 |
;; Vinicius Jose Latorre <viniciusjl@ig.com.br> |
;; Vinicius Jose Latorre <viniciusjl@ig.com.br> |
12 |
;; Keywords: wp, print, PostScript |
;; Keywords: wp, print, PostScript |
13 |
;; Time-stamp: <2004/07/21 23:12:05 vinicius> |
;; Time-stamp: <2005/03/19 00:40:12 vinicius> |
14 |
;; Version: 6.6.5 |
;; Version: 6.6.6 |
15 |
;; X-URL: http://www.cpqd.com.br/~vinicius/emacs/ |
;; X-URL: http://www.cpqd.com.br/~vinicius/emacs/ |
16 |
|
|
17 |
(defconst ps-print-version "6.6.5" |
(defconst ps-print-version "6.6.6" |
18 |
"ps-print.el, v 6.6.5 <2004/07/21 vinicius> |
"ps-print.el, v 6.6.6 <2004/07/21 vinicius> |
19 |
|
|
20 |
Vinicius's last change version -- this file may have been edited as part of |
Vinicius's last change version -- this file may have been edited as part of |
21 |
Emacs without changes to the version number. When reporting bugs, please also |
Emacs without changes to the version number. When reporting bugs, please also |
4831 |
((stringp (car content)) |
((stringp (car content)) |
4832 |
(car content)) |
(car content)) |
4833 |
;; function symbol |
;; function symbol |
4834 |
((and (symbolp (car content)) (fboundp (car content))) |
((functionp (car content)) |
4835 |
(concat "(" (funcall (car content)) ")")) |
(concat "(" (funcall (car content)) ")")) |
4836 |
;; variable symbol |
;; variable symbol |
4837 |
((and (symbolp (car content)) (boundp (car content))) |
((and (symbolp (car content)) (boundp (car content))) |
4869 |
|
|
4870 |
;; Functions are called -- they should return strings; they will be inserted |
;; Functions are called -- they should return strings; they will be inserted |
4871 |
;; as strings and the PS string delimiters added. |
;; as strings and the PS string delimiters added. |
4872 |
((and (symbolp content) (fboundp content)) |
((functionp content) |
4873 |
(ps-output-string (ps-mule-encode-header-string (funcall content) |
(ps-output-string (ps-mule-encode-header-string (funcall content) |
4874 |
fonttag))) |
fonttag))) |
4875 |
|
|