annotate lisp/ps-print.el @ 87008:888320f5e3f7

*** empty log message ***
author Juanma Barranquero <lekktu@gmail.com>
date Mon, 03 Dec 2007 09:28:15 +0000
parents 2256fea11eb1
children 5a01a0bdd017
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
38445
d91aa21f1e78 Author header fix.
Pavel Janík <Pavel@Janik.cz>
parents: 38436
diff changeset
1 ;;; ps-print.el --- print text from the buffer as PostScript
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2
64762
41bb365f41c4 Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 64546
diff changeset
3 ;; Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001,
75347
e3694f1cb928 Add 2007 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 74417
diff changeset
4 ;; 2002, 2003, 2004, 2005, 2006, 2007 Free Software Foundation, Inc.
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
5
38445
d91aa21f1e78 Author header fix.
Pavel Janík <Pavel@Janik.cz>
parents: 38436
diff changeset
6 ;; Author: Jim Thompson (was <thompson@wg2.waii.com>)
d91aa21f1e78 Author header fix.
Pavel Janík <Pavel@Janik.cz>
parents: 38436
diff changeset
7 ;; Jacques Duthen (was <duthen@cegelec-red.fr>)
50032
c919f0375a3e Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 49763
diff changeset
8 ;; Vinicius Jose Latorre <viniciusjl@ig.com.br>
74327
78c65b1a07f6 Fix maintainer email. Emacs 20/21 compatibility.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 73027
diff changeset
9 ;; Kenichi Handa <handa@m17n.org> (multi-byte characters)
78c65b1a07f6 Fix maintainer email. Emacs 20/21 compatibility.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 73027
diff changeset
10 ;; Maintainer: Kenichi Handa <handa@m17n.org> (multi-byte characters)
50032
c919f0375a3e Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 49763
diff changeset
11 ;; Vinicius Jose Latorre <viniciusjl@ig.com.br>
38445
d91aa21f1e78 Author header fix.
Pavel Janík <Pavel@Janik.cz>
parents: 38436
diff changeset
12 ;; Keywords: wp, print, PostScript
85987
6a97e5e13b22 If ps-lpr-switches is not a list, force it to be one.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85763
diff changeset
13 ;; Version: 6.8.1
73027
575850f5bd53 Adjust X-URL
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 68651
diff changeset
14 ;; X-URL: http://www.emacswiki.org/cgi-bin/wiki/ViniciusJoseLatorre
32619
c09b494a5f49 Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents: 31253
diff changeset
15
85987
6a97e5e13b22 If ps-lpr-switches is not a list, force it to be one.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85763
diff changeset
16 (defconst ps-print-version "6.8.1"
86282
6fd01916efe1 ps-lpr-switches docstring fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 86033
diff changeset
17 "ps-print.el, v 6.8.1 <2007/11/21 vinicius>
16870
4a5fa29f79d6 (ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents: 16361
diff changeset
18
19485
eab8baa19dfa (ps-zebra-stripes): Renamed from ps-zebra-stripe.
Richard M. Stallman <rms@gnu.org>
parents: 19446
diff changeset
19 Vinicius's last change version -- this file may have been edited as part of
28760
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
20 Emacs without changes to the version number. When reporting bugs, please also
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
21 report the version of Emacs, if any, that ps-print was distributed with.
16870
4a5fa29f79d6 (ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents: 16361
diff changeset
22
4a5fa29f79d6 (ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents: 16361
diff changeset
23 Please send all bug fixes and enhancements to
50032
c919f0375a3e Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 49763
diff changeset
24 Vinicius Jose Latorre <viniciusjl@ig.com.br>.")
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
25
10493
ed52763e77d6 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 10492
diff changeset
26 ;; This file is part of GNU Emacs.
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
27
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
28 ;; GNU Emacs is free software; you can redistribute it and/or modify it under
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
29 ;; the terms of the GNU General Public License as published by the Free
78236
9355f9b7bbff Switch license to GPLv3 or later.
Glenn Morris <rgm@gnu.org>
parents: 78214
diff changeset
30 ;; Software Foundation; either version 3, or (at your option) any later
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
31 ;; version.
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
32
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
33 ;; GNU Emacs is distributed in the hope that it will be useful, but WITHOUT ANY
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
34 ;; WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
35 ;; FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
36 ;; details.
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
37
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
38 ;; You should have received a copy of the GNU General Public License along with
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
39 ;; GNU Emacs; see the file COPYING. If not, write to the Free Software
64091
6fb026ad601f Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 64019
diff changeset
40 ;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
41
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
42 ;;; Commentary:
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
43
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
44 ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
45 ;;
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
46 ;; About ps-print
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
47 ;; --------------
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
48 ;;
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
49 ;; This package provides printing of Emacs buffers on PostScript printers; the
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
50 ;; buffer's bold and italic text attributes are preserved in the printer
47674
330113e9df2b (ps-print-emacs-type): Error if ps-print is
Richard M. Stallman <rms@gnu.org>
parents: 47426
diff changeset
51 ;; output. ps-print is intended for use with Emacs or XEmacs, together with a
330113e9df2b (ps-print-emacs-type): Error if ps-print is
Richard M. Stallman <rms@gnu.org>
parents: 47426
diff changeset
52 ;; fontifying package such as font-lock or hilit.
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
53 ;;
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
54 ;; ps-print uses the same face attributes defined through font-lock or hilit to
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
55 ;; print a PostScript file, but some faces are better seeing on the screen than
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
56 ;; on paper, specially when you have a black/white PostScript printer.
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
57 ;;
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
58 ;; ps-print allows a remap of face to another one that it is better to print,
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
59 ;; for example, the face font-lock-comment-face (if you are using font-lock)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
60 ;; could have bold or italic attribute when printing, besides foreground color.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
61 ;; This remap improves printing look (see How Ps-Print Maps Faces).
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
62 ;;
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
63 ;;
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
64 ;; Using ps-print
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
65 ;; --------------
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
66 ;;
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
67 ;; ps-print provides eight commands for generating PostScript images of Emacs
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
68 ;; buffers:
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
69 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
70 ;; ps-print-buffer
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
71 ;; ps-print-buffer-with-faces
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
72 ;; ps-print-region
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
73 ;; ps-print-region-with-faces
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
74 ;; ps-spool-buffer
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
75 ;; ps-spool-buffer-with-faces
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
76 ;; ps-spool-region
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
77 ;; ps-spool-region-with-faces
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
78 ;;
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
79 ;; These commands all perform essentially the same function: they generate
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
80 ;; PostScript images suitable for printing on a PostScript printer or
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
81 ;; displaying with GhostScript. These commands are collectively referred to as
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
82 ;; "ps-print- commands".
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
83 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
84 ;; The word "print" or "spool" in the command name determines when the
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
85 ;; PostScript image is sent to the printer:
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
86 ;;
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
87 ;; print - The PostScript image is immediately sent to the printer;
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
88 ;;
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
89 ;; spool - The PostScript image is saved temporarily in an Emacs
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
90 ;; buffer. Many images may be spooled locally before
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
91 ;; printing them. To send the spooled images to the
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
92 ;; printer, use the command `ps-despool'.
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
93 ;;
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
94 ;; The spooling mechanism was designed for printing lots of small files (mail
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
95 ;; messages or netnews articles) to save paper that would otherwise be wasted
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
96 ;; on banner pages, and to make it easier to find your output at the printer
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
97 ;; (it's easier to pick up one 50-page printout than to find 50 single-page
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
98 ;; printouts).
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
99 ;;
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
100 ;; ps-print has a hook in the `kill-emacs-hook' so that you won't accidentally
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
101 ;; quit from Emacs while you have unprinted PostScript waiting in the spool
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
102 ;; buffer. If you do attempt to exit with spooled PostScript, you'll be asked
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
103 ;; if you want to print it, and if you decline, you'll be asked to confirm the
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
104 ;; exit; this is modeled on the confirmation that Emacs uses for modified
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
105 ;; buffers.
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
106 ;;
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
107 ;; The word "buffer" or "region" in the command name determines how much of the
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
108 ;; buffer is printed:
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
109 ;;
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
110 ;; buffer - Print the entire buffer.
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
111 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
112 ;; region - Print just the current region.
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
113 ;;
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
114 ;; The -with-faces suffix on the command name means that the command will
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
115 ;; include font, color, and underline information in the PostScript image, so
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
116 ;; the printed image can look as pretty as the buffer. The ps-print- commands
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
117 ;; without the -with-faces suffix don't include font, color, or underline
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
118 ;; information; images printed with these commands aren't as pretty, but are
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
119 ;; faster to generate.
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
120 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
121 ;; Two ps-print- command examples:
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
122 ;;
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
123 ;; ps-print-buffer - print the entire buffer, without font,
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
124 ;; color, or underline information, and
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
125 ;; send it immediately to the printer.
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
126 ;;
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
127 ;; ps-spool-region-with-faces - print just the current region; include
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
128 ;; font, color, and underline information,
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
129 ;; and spool the image in Emacs to send to
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
130 ;; the printer later.
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
131 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
132 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
133 ;; Invoking Ps-Print
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
134 ;; -----------------
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
135 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
136 ;; To print your buffer, type
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
137 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
138 ;; M-x ps-print-buffer
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
139 ;;
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
140 ;; or substitute one of the other seven ps-print- commands. The command will
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
141 ;; generate the PostScript image and print or spool it as specified. By giving
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
142 ;; the command a prefix argument
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
143 ;;
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
144 ;; C-u M-x ps-print-buffer
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
145 ;;
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
146 ;; it will save the PostScript image to a file instead of sending it to the
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
147 ;; printer; you will be prompted for the name of the file to save the image to.
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
148 ;; The prefix argument is ignored by the commands that spool their images, but
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
149 ;; you may save the spooled images to a file by giving a prefix argument to
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
150 ;; `ps-despool':
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
151 ;;
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
152 ;; C-u M-x ps-despool
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
153 ;;
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
154 ;; When invoked this way, `ps-despool' will prompt you for the name of the file
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
155 ;; to save to.
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
156 ;;
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
157 ;; Any of the `ps-print-' commands can be bound to keys; I recommend binding
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
158 ;; `ps-spool-buffer-with-faces', `ps-spool-region-with-faces', and
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
159 ;; `ps-despool'. Here are the bindings I use on my Sun 4 keyboard:
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
160 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
161 ;; (global-set-key 'f22 'ps-spool-buffer-with-faces) ;f22 is prsc
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
162 ;; (global-set-key '(shift f22) 'ps-spool-region-with-faces)
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
163 ;; (global-set-key '(control f22) 'ps-despool)
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
164 ;;
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
165 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
166 ;; The Printer Interface
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
167 ;; ---------------------
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
168 ;;
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
169 ;; The variables `ps-lpr-command' and `ps-lpr-switches' determine what command
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
170 ;; is used to send the PostScript images to the printer, and what arguments to
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
171 ;; give the command. These are analogous to `lpr-command' and `lpr-switches'.
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
172 ;;
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
173 ;; Make sure that they contain appropriate values for your system;
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
174 ;; see the usage notes below and the documentation of these variables.
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
175 ;;
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
176 ;; The variable `ps-printer-name' determines the name of a local printer for
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
177 ;; printing PostScript files.
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
178 ;;
32619
c09b494a5f49 Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents: 31253
diff changeset
179 ;; The variable `ps-printer-name-option' determines the option used by some
c09b494a5f49 Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents: 31253
diff changeset
180 ;; utilities to indicate the printer name, it's used only when
c09b494a5f49 Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents: 31253
diff changeset
181 ;; `ps-printer-name' is a non-empty string. If you're using lpr utility to
c09b494a5f49 Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents: 31253
diff changeset
182 ;; print, for example, `ps-printer-name-option' should be set to "-P".
c09b494a5f49 Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents: 31253
diff changeset
183 ;;
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
184 ;; NOTE: `ps-lpr-command' and `ps-lpr-switches' take their initial values from
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
185 ;; the variables `lpr-command' and `lpr-switches'. If you have
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
186 ;; `lpr-command' set to invoke a pretty-printer such as `enscript', then
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
187 ;; ps-print won't work properly. `ps-lpr-command' must name a program
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
188 ;; that does not format the files it prints.
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
189 ;; `ps-printer-name' takes its initial value from the variable
32619
c09b494a5f49 Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents: 31253
diff changeset
190 ;; `printer-name'. `ps-printer-name-option' tries to guess which system
c09b494a5f49 Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents: 31253
diff changeset
191 ;; Emacs is running and takes its initial value in accordance with this
c09b494a5f49 Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents: 31253
diff changeset
192 ;; guess.
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
193 ;;
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
194 ;; The variable `ps-print-region-function' specifies a function to print the
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
195 ;; region on a PostScript printer.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
196 ;; See definition of `call-process-region' for calling conventions. The fourth
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
197 ;; and the sixth arguments are both nil.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
198 ;;
29494
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
199 ;; The variable `ps-manual-feed' indicates if the printer will manually feed
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
200 ;; paper. If it's nil, automatic feeding takes place. If it's non-nil, manual
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
201 ;; feeding takes place. The default is nil (automatic feeding).
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
202 ;;
34045
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
203 ;; The variable `ps-end-with-control-d' specifies whether C-d (\x04) should be
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
204 ;; inserted at end of PostScript generated. Non-nil means do so. The default
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
205 ;; is nil (don't insert).
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
206 ;;
28979
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
207 ;; If you're using Emacs for Windows 95/98/NT or MS-DOS, don't forget to
32619
c09b494a5f49 Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents: 31253
diff changeset
208 ;; customize the following variables: `ps-printer-name',
c09b494a5f49 Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents: 31253
diff changeset
209 ;; `ps-printer-name-option', `ps-lpr-command', `ps-lpr-switches' and
c09b494a5f49 Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents: 31253
diff changeset
210 ;; `ps-spool-config'. See these variables documentation in the code or by
c09b494a5f49 Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents: 31253
diff changeset
211 ;; typing, for example, C-h v ps-printer-name RET.
28576
1694ed739e69 Customization fix, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28426
diff changeset
212 ;;
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
213 ;;
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
214 ;; The Page Layout
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
215 ;; ---------------
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
216 ;;
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
217 ;; All dimensions are floats in PostScript points.
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
218 ;; 1 inch == 2.54 cm == 72 points
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
219 ;; 1 cm == (/ 1 2.54) inch == (/ 72 2.54) points
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
220 ;;
28760
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
221 ;; The variable `ps-paper-type' determines the size of paper ps-print formats
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
222 ;; for; it should contain one of the symbols: `a4' `a3' `letter' `legal'
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
223 ;; `letter-small' `tabloid' `ledger' `statement' `executive' `a4small' `b4'
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
224 ;; `b5'.
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
225 ;;
29494
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
226 ;; If variable `ps-warn-paper-type' is nil, it's *not* given an error if
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
227 ;; PostScript printer doesn't have a paper with the size indicated by
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
228 ;; `ps-paper-type', instead it uses the default paper size. If variable
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
229 ;; `ps-warn-paper-type' is non-nil, it's given an error if PostScript printer
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
230 ;; doesn't have a paper with the size indicated by `ps-paper-type'. It's used
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
231 ;; when `ps-spool-config' is set to `setpagedevice' (see section Duplex
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
232 ;; Printers). The default value is non-nil (it gives an error).
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
233 ;;
28760
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
234 ;; The variable `ps-landscape-mode' determines the orientation of the printing
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
235 ;; on the page: nil means `portrait' mode, non-nil means `landscape' mode.
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
236 ;; There is no oblique mode yet, though this is easy to do in ps.
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
237 ;;
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
238 ;; In landscape mode, the text is NOT scaled: you may print 70 lines in
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
239 ;; portrait mode and only 50 lines in landscape mode. The margins represent
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
240 ;; margins in the printed paper: the top margin is the margin between the top
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
241 ;; of the page and the printed header, whatever the orientation is.
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
242 ;;
28760
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
243 ;; The variable `ps-number-of-columns' determines the number of columns both in
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
244 ;; landscape and portrait mode.
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
245 ;; You can use:
28760
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
246 ;; - (the standard) one column portrait mode.
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
247 ;; - (my favorite) two columns landscape mode (which spares trees).
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
248 ;; but also:
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
249 ;; - one column landscape mode for files with very long lines.
28760
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
250 ;; - multi-column portrait or landscape mode.
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
251 ;;
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
252 ;; The variable `ps-print-upside-down' determines other orientation for
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
253 ;; printing page: nil means `normal' printing, non-nil means `upside-down'
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
254 ;; printing (that is, the page is rotated by 180 grades). The default value is
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
255 ;; nil (`normal' printing).
28760
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
256 ;;
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
257 ;; The `upside-down' orientation can be used in portrait or landscape mode.
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
258 ;;
29848
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
259 ;; The variable `ps-selected-pages' specifies which pages to print. If it's
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
260 ;; nil, all pages are printed. If it's a list, the list element may be an
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
261 ;; integer or a cons cell (FROM . TO) designating FROM page to TO page; any
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
262 ;; invalid element is ignored, that is, an integer lesser than one or if FROM
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
263 ;; is greater than TO. Otherwise, it's treated as nil. The default value is
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
264 ;; nil (print all pages). After ps-print processing `ps-selected-pages' is set
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
265 ;; to nil. But the latest `ps-selected-pages' is saved in
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
266 ;; `ps-last-selected-pages' (see it for documentation). So you can restore the
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
267 ;; latest selected pages by using `ps-last-selected-pages' or by calling
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
268 ;; `ps-restore-selected-pages' command (see it for documentation).
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
269 ;;
31253
4c40c1171b8b Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 30522
diff changeset
270 ;; The variable `ps-even-or-odd-pages' specifies if it prints even/odd pages.
4c40c1171b8b Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 30522
diff changeset
271 ;;
4c40c1171b8b Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 30522
diff changeset
272 ;; Valid values are:
4c40c1171b8b Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 30522
diff changeset
273 ;;
4c40c1171b8b Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 30522
diff changeset
274 ;; nil print all pages.
4c40c1171b8b Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 30522
diff changeset
275 ;;
33143
94d9ccbb780e Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33090
diff changeset
276 ;; even-page print only even pages.
94d9ccbb780e Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33090
diff changeset
277 ;;
94d9ccbb780e Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33090
diff changeset
278 ;; odd-page print only odd pages.
94d9ccbb780e Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33090
diff changeset
279 ;;
94d9ccbb780e Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33090
diff changeset
280 ;; even-sheet print only even sheets.
94d9ccbb780e Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33090
diff changeset
281 ;;
94d9ccbb780e Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33090
diff changeset
282 ;; odd-sheet print only odd sheets.
31253
4c40c1171b8b Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 30522
diff changeset
283 ;;
4c40c1171b8b Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 30522
diff changeset
284 ;; Any other value is treated as nil. The default value is nil.
4c40c1171b8b Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 30522
diff changeset
285 ;;
33143
94d9ccbb780e Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33090
diff changeset
286 ;; See `ps-even-or-odd-pages' for more detailed documentation.
94d9ccbb780e Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33090
diff changeset
287 ;;
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
288 ;;
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
289 ;; Horizontal layout
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
290 ;; -----------------
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
291 ;;
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
292 ;; The horizontal layout is determined by the variables
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
293 ;; `ps-left-margin' `ps-inter-column' `ps-right-margin'
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
294 ;; as follows:
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
295 ;;
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
296 ;; ------------------------------------------
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
297 ;; | | | | | | | |
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
298 ;; | lm | text | ic | text | ic | text | rm |
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
299 ;; | | | | | | | |
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
300 ;; ------------------------------------------
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
301 ;;
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
302 ;; If `ps-number-of-columns' is 1, `ps-inter-column' is not relevant.
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
303 ;; Usually, lm = rm > 0 and ic = lm
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
304 ;; If (ic < 0), the text of adjacent columns can overlap.
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
305 ;;
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
306 ;;
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
307 ;; Vertical layout
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
308 ;; ---------------
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
309 ;;
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
310 ;; The vertical layout is determined by the variables
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
311 ;; `ps-bottom-margin' `ps-top-margin' `ps-header-offset' `ps-footer-offset'
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
312 ;; as follows:
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
313 ;;
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
314 ;; |--------| |--------| |--------| |--------|
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
315 ;; | tm | | tm | | tm | | tm |
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
316 ;; |--------| |--------| |--------| |--------|
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
317 ;; | header | | | | header | | |
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
318 ;; |--------| | | |--------| | |
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
319 ;; | ho | | | | ho | | |
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
320 ;; |--------| | | |--------| | |
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
321 ;; | | | | | | | |
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
322 ;; | text | or | text | or | text | or | text |
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
323 ;; | | | | | | | |
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
324 ;; | | |--------| |--------| | |
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
325 ;; | | | fo | | fo | | |
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
326 ;; | | |--------| |--------| | |
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
327 ;; | | | footer | | footer | | |
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
328 ;; |--------| |--------| |--------| |--------|
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
329 ;; | bm | | bm | | bm | | bm |
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
330 ;; |--------| |--------| |--------| |--------|
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
331 ;;
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
332 ;; If `ps-print-header' is nil, `ps-header-offset' is not relevant.
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
333 ;; If `ps-print-footer' is nil, `ps-footer-offset' is not relevant.
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
334 ;; The margins represent margins in the printed paper:
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
335 ;; the top margin is the margin between the top of the page and the printed
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
336 ;; header, whatever the orientation is;
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
337 ;; the bottom margin is the margin between the bottom of the page and the
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
338 ;; printed footer, whatever the orientation is.
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
339 ;;
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
340 ;;
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
341 ;; Headers & Footers
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
342 ;; -----------------
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
343 ;;
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
344 ;; ps-print can print headers at the top of each column or at the top of each
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
345 ;; page; the default headers contain the following four items: on the left, the
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
346 ;; name of the buffer and, if the buffer is visiting a file, the file's
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
347 ;; directory; on the right, the page number and date of printing. The default
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
348 ;; headers look something like this:
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
349 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
350 ;; ps-print.el 1/21
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
351 ;; /home/jct/emacs-lisp/ps/new 94/12/31
19879
87952270ceeb (ps-emacs-face-kind-p): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents: 19843
diff changeset
352 ;;
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
353 ;; When printing on duplex printers, left and right are reversed so that the
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
354 ;; page numbers are toward the outside (cf. `ps-spool-duplex').
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
355 ;;
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
356 ;; Headers are configurable:
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
357 ;; To turn them off completely, set `ps-print-header' to nil.
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
358 ;; To turn off the header's gaudy framing box,
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
359 ;; set `ps-print-header-frame' to nil.
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
360 ;;
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
361 ;; The variable `ps-header-frame-alist' specifies header frame properties
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
362 ;; alist. Valid frame properties are:
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
363 ;;
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
364 ;; fore-color Specify the foreground frame color.
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
365 ;; It should be a float number between 0.0 (black color)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
366 ;; and 1.0 (white color), a string which is a color name,
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
367 ;; or a list of 3 float numbers which corresponds to the
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
368 ;; Red Green Blue color scale, each float number between
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
369 ;; 0.0 (dark color) and 1.0 (bright color).
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
370 ;; The default is 0 ("black").
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
371 ;;
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
372 ;; back-color Specify the background frame color (similar to
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
373 ;; fore-color). The default is 0.9 ("gray90").
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
374 ;;
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
375 ;; shadow-color Specify the shadow color (similar to fore-color).
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
376 ;; The default is 0 ("black").
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
377 ;;
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
378 ;; border-color Specify the border color (similar to fore-color).
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
379 ;; The default is 0 ("black").
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
380 ;;
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
381 ;; border-width Specify the border width.
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
382 ;; The default is 0.4.
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
383 ;;
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
384 ;; Any other property is ignored.
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
385 ;;
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
386 ;; Don't change this alist directly, instead use customization, or `ps-value',
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
387 ;; `ps-get', `ps-put' and `ps-del' functions (see them for documentation).
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
388 ;;
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
389 ;; To print only one header at the top of each page, set
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
390 ;; `ps-print-only-one-header' to t.
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
391 ;;
29494
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
392 ;; To switch headers, set `ps-switch-header' to:
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
393 ;;
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
394 ;; nil Never switch headers.
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
395 ;;
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
396 ;; t Always switch headers.
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
397 ;;
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
398 ;; duplex Switch headers only when duplexing is on, that is, when
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
399 ;; `ps-spool-duplex' is non-nil (see Duplex Printers).
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
400 ;;
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
401 ;; Any other value is treated as t. The default value is `duplex'.
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
402 ;;
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
403 ;; The font family and size of text in the header are determined by the
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
404 ;; variables `ps-header-font-family', `ps-header-font-size' and
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
405 ;; `ps-header-title-font-size' (see below).
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
406 ;;
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
407 ;; The variable `ps-header-line-pad' determines the portion of a header title
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
408 ;; line height to insert between the header frame and the text it contains,
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
409 ;; both in the vertical and horizontal directions: .5 means half a line.
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
410 ;;
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
411 ;; Page numbers are printed in `n/m' format, indicating page n of m pages; to
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
412 ;; omit the total page count and just print the page number, set
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
413 ;; `ps-show-n-of-n' to nil.
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
414 ;;
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
415 ;; The amount of information in the header can be changed by changing the
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
416 ;; number of lines. To show less, set `ps-header-lines' to 1, and the header
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
417 ;; will show only the buffer name and page number. To show more, set
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
418 ;; `ps-header-lines' to 3, and the header will show the time of printing below
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
419 ;; the date.
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
420 ;;
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
421 ;; To change the content of the headers, change the variables `ps-left-header'
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
422 ;; and `ps-right-header'.
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
423 ;; These variables are lists, specifying top-to-bottom the text to display on
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
424 ;; the left or right side of the header. Each element of the list should be a
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
425 ;; string or a symbol. Strings are inserted directly into the PostScript
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
426 ;; arrays, and should contain the PostScript string delimiters '(' and ')'.
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
427 ;;
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
428 ;; Symbols in the header format lists can either represent functions or
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
429 ;; variables. Functions are called, and should return a string to show in the
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
430 ;; header. Variables should contain strings to display in the header. In
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
431 ;; either case, function or variable, the PostScript string delimiters are
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
432 ;; added by ps-print, and should not be part of the returned value.
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
433 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
434 ;; Here's an example: say we want the left header to display the text
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
435 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
436 ;; Moe
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
437 ;; Larry
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
438 ;; Curly
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
439 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
440 ;; where we have a function to return "Moe"
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
441 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
442 ;; (defun moe-func ()
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
443 ;; "Moe")
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
444 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
445 ;; a variable specifying "Larry"
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
446 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
447 ;; (setq larry-var "Larry")
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
448 ;;
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
449 ;; and a literal for "Curly". Here's how `ps-left-header' should be set:
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
450 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
451 ;; (setq ps-left-header (list 'moe-func 'larry-var "(Curly)"))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
452 ;;
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
453 ;; Note that Curly has the PostScript string delimiters inside his quotes --
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
454 ;; those aren't misplaced lisp delimiters!
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
455 ;;
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
456 ;; Without them, PostScript would attempt to call the undefined function Curly,
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
457 ;; which would result in a PostScript error.
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
458 ;;
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
459 ;; Since most printers don't report PostScript errors except by aborting the
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
460 ;; print job, this kind of error can be hard to track down.
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
461 ;;
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
462 ;; Consider yourself warned!
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
463 ;;
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
464 ;; ps-print also print footers. The footer variables are: `ps-print-footer',
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
465 ;; `ps-footer-offset', `ps-print-footer-frame', `ps-footer-font-family',
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
466 ;; `ps-footer-font-size', `ps-footer-line-pad', `ps-footer-lines',
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
467 ;; `ps-left-footer', `ps-right-footer' and `ps-footer-frame-alist'. These
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
468 ;; variables are similar to those one that control headers.
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
469 ;;
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
470 ;; The variables `ps-print-only-one-header' and `ps-switch-header' also control
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
471 ;; the footer (The same way that control header).
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
472 ;;
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
473 ;; As a footer example, if you want to have a centered page number in the
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
474 ;; footer but without headers, set:
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
475 ;;
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
476 ;; (setq ps-print-header nil
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
477 ;; ps-print-footer t
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
478 ;; ps-print-footer-frame nil
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
479 ;; ps-footer-lines 1
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
480 ;; ps-right-footer nil
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
481 ;; ps-left-footer
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
482 ;; (list (concat "{pagenumberstring dup stringwidth pop"
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
483 ;; " 2 div PrintWidth 2 div exch sub 0 rmoveto}")))
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
484 ;;
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
485 ;;
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
486 ;; PostScript Prologue Header
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
487 ;; --------------------------
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
488 ;;
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
489 ;; It is possible to add PostScript prologue header comments besides that
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
490 ;; ps-print generates by setting the variable `ps-print-prologue-header'.
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
491 ;;
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
492 ;; `ps-print-prologue-header' may be a string or a symbol function which
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
493 ;; returns a string. Note that this string is inserted on PostScript prologue
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
494 ;; header section which is used to define some document characteristic through
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
495 ;; PostScript special comments, like "%%Requirements: jog\n".
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
496 ;;
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
497 ;; By default `ps-print-prologue-header' is nil.
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
498 ;;
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
499 ;; ps-print always inserts the %%Requirements: comment, so if you need to
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
500 ;; insert more requirements put them first in `ps-print-prologue-header' using
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
501 ;; the "%%+" comment. For example, if you need to set numcopies to 3 and jog
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
502 ;; on requirements and set %%LanguageLevel: to 2, do:
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
503 ;;
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
504 ;; (setq ps-print-prologue-header
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
505 ;; "%%+ numcopies(3) jog\n%%LanguageLevel: 2\n")
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
506 ;;
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
507 ;; The duplex requirement is inserted by ps-print (see section Duplex
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
508 ;; Printers).
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
509 ;;
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
510 ;; Do not forget to terminate the string with "\n".
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
511 ;;
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
512 ;; For more information about PostScript document comments, see:
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
513 ;; PostScript Language Reference Manual (2nd edition)
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
514 ;; Adobe Systems Incorporated
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
515 ;; Appendix G: Document Structuring Conventions -- Version 3.0
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
516 ;;
28153
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
517 ;; It is also possible to add an user defined PostScript prologue code before
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
518 ;; all generated prologue code by setting the variable
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
519 ;; `ps-user-defined-prologue'.
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
520 ;;
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
521 ;; `ps-user-defined-prologue' may be a string or a symbol function which
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
522 ;; returns a string. Note that this string is inserted after `ps-adobe-tag'
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
523 ;; and PostScript prologue comments, and before ps-print PostScript prologue
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
524 ;; code section. That is, this string is inserted after error handler
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
525 ;; initialization and before ps-print settings.
28153
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
526 ;;
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
527 ;; By default `ps-user-defined-prologue' is nil.
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
528 ;;
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
529 ;; It's strongly recommended only insert PostScript code and/or comments
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
530 ;; specific for your printing system particularities. For example, some
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
531 ;; special initialization that only your printing system needs.
28153
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
532 ;;
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
533 ;; Do not insert code for duplex printing, n-up printing or error handler,
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
534 ;; ps-print handles this in a suitable way.
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
535 ;;
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
536 ;; For more information about PostScript, see:
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
537 ;; PostScript Language Reference Manual (2nd edition)
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
538 ;; Adobe Systems Incorporated
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
539 ;;
31253
4c40c1171b8b Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 30522
diff changeset
540 ;; As an example for `ps-user-defined-prologue' setting:
4c40c1171b8b Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 30522
diff changeset
541 ;;
4c40c1171b8b Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 30522
diff changeset
542 ;; ;; Setting for HP PostScript printer
4c40c1171b8b Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 30522
diff changeset
543 ;; (setq ps-user-defined-prologue
4c40c1171b8b Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 30522
diff changeset
544 ;; (concat "<</DeferredMediaSelection true /PageSize [612 792] "
4c40c1171b8b Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 30522
diff changeset
545 ;; "/MediaPosition 2 /MediaType (Plain)>> setpagedevice"))
4c40c1171b8b Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 30522
diff changeset
546 ;;
28153
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
547 ;;
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
548 ;; PostScript Error Handler
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
549 ;; ------------------------
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
550 ;;
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
551 ;; ps-print instruments generated PostScript code with an error handler.
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
552 ;;
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
553 ;; The variable `ps-error-handler-message' specifies where the error handler
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
554 ;; message should be sent.
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
555 ;;
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
556 ;; Valid values are:
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
557 ;;
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
558 ;; none catch the error and *DON'T* send any message.
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
559 ;;
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
560 ;; paper catch the error and print on paper the error message.
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
561 ;; This is the default value.
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
562 ;;
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
563 ;; system catch the error and send back the error message to
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
564 ;; printing system. This is useful only if printing
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
565 ;; system send back an email reporting the error, or if
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
566 ;; there is some other alternative way to report back the
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
567 ;; error from the system to you.
28153
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
568 ;;
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
569 ;; paper-and-system catch the error, print on paper the error message and
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
570 ;; send back the error message to printing system.
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
571 ;;
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
572 ;; Any other value is treated as `paper'.
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
573 ;;
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
574 ;;
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
575 ;; Duplex Printers
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
576 ;; ---------------
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
577 ;;
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
578 ;; If you have a duplex-capable printer (one that prints both sides of the
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
579 ;; paper), set `ps-spool-duplex' to t.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
580 ;; ps-print will insert blank pages to make sure each buffer starts on the
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
581 ;; correct side of the paper.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
582 ;;
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
583 ;; The variable `ps-spool-config' specifies who is the responsible for setting
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
584 ;; duplex and page size. Valid values are:
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
585 ;;
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
586 ;; lpr-switches duplex and page size are configured by `ps-lpr-switches'.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
587 ;; Don't forget to set `ps-lpr-switches' to select duplex
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
588 ;; printing for your printer.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
589 ;;
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
590 ;; setpagedevice duplex and page size are configured by ps-print using the
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
591 ;; setpagedevice PostScript operator.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
592 ;;
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
593 ;; nil duplex and page size are configured by ps-print *not* using
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
594 ;; the setpagedevice PostScript operator.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
595 ;;
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
596 ;; Any other value is treated as nil.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
597 ;;
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
598 ;; The default value is `lpr-switches'.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
599 ;;
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
600 ;; WARNING: The setpagedevice PostScript operator affects ghostview utility
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
601 ;; when viewing file generated using landscape. Also on some
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
602 ;; printers, setpagedevice affects zebra stripes; on other printers,
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
603 ;; setpagedevice affects the left margin.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
604 ;; Besides all that, if your printer does not have the paper size
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
605 ;; specified by setpagedevice, your printing will be aborted.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
606 ;; So, if you need to use setpagedevice, set `ps-spool-config' to
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
607 ;; `setpagedevice', generate a test file and send it to your printer;
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
608 ;; if the printed file isn't ok, set `ps-spool-config' to nil.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
609 ;;
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
610 ;; The variable `ps-spool-tumble' specifies how the page images on opposite
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
611 ;; sides of a sheet are oriented with respect to each other. If
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
612 ;; `ps-spool-tumble' is nil, produces output suitable for binding on the left
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
613 ;; or right. If `ps-spool-tumble' is non-nil, produces output suitable for
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
614 ;; binding at the top or bottom. It has effect only when `ps-spool-duplex' is
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
615 ;; non-nil. The default value is nil.
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
616 ;;
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
617 ;; Some printer system prints a header page and forces the first page be
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
618 ;; printed on header page back, when using duplex. If your printer system has
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
619 ;; this behavior, set variable `ps-banner-page-when-duplexing' to t.
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
620 ;;
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
621 ;; When `ps-banner-page-when-duplexing' is non-nil, it prints a blank page as
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
622 ;; the very first printed page. So, it behaves as the very first character of
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
623 ;; buffer (or region) is ^L (\014).
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
624 ;;
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
625 ;; The default for `ps-banner-page-when-duplexing' is nil (*don't* skip the
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
626 ;; very first page).
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
627 ;;
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
628 ;;
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
629 ;; N-up Printing
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
630 ;; -------------
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
631 ;;
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
632 ;; The variable `ps-n-up-printing' specifies the number of pages per sheet of
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
633 ;; paper. The value specified must be between 1 and 100. The default is 1.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
634 ;;
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
635 ;; NOTE: some PostScript printer may crash printing if `ps-n-up-printing' is
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
636 ;; set to a high value (for example, 23). If this happens, set a lower value.
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
637 ;;
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
638 ;; The variable `ps-n-up-margin' specifies the margin in points between the
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
639 ;; sheet border and the n-up printing. The default is 1 cm (or 0.3937 inches,
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
640 ;; or 28.35 points).
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
641 ;;
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
642 ;; If variable `ps-n-up-border-p' is non-nil a border is drawn around each
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
643 ;; page. The default is t.
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
644 ;;
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
645 ;; The variable `ps-n-up-filling' specifies how page matrix is filled on each
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
646 ;; sheet of paper. Following are the valid values for `ps-n-up-filling' with a
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
647 ;; filling example using a 3x4 page matrix:
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
648 ;;
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
649 ;; left-top 1 2 3 4 left-bottom 9 10 11 12
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
650 ;; 5 6 7 8 5 6 7 8
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
651 ;; 9 10 11 12 1 2 3 4
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
652 ;;
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
653 ;; right-top 4 3 2 1 right-bottom 12 11 10 9
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
654 ;; 8 7 6 5 8 7 6 5
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
655 ;; 12 11 10 9 4 3 2 1
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
656 ;;
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
657 ;; top-left 1 4 7 10 bottom-left 3 6 9 12
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
658 ;; 2 5 8 11 2 5 8 11
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
659 ;; 3 6 9 12 1 4 7 10
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
660 ;;
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
661 ;; top-right 10 7 4 1 bottom-right 12 9 6 3
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
662 ;; 11 8 5 2 11 8 5 2
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
663 ;; 12 9 6 3 10 7 4 1
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
664 ;;
39327
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
665 ;; Any other value is treated as `left-top'.
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
666 ;;
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
667 ;; The default value is left-top.
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
668 ;;
19879
87952270ceeb (ps-emacs-face-kind-p): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents: 19843
diff changeset
669 ;;
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
670 ;; Control And 8-bit Characters
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
671 ;; ----------------------------
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
672 ;;
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
673 ;; The variable `ps-print-control-characters' specifies whether you want to see
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
674 ;; a printable form for control and 8-bit characters, that is, instead of
21954
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
675 ;; sending, for example, a ^D (\004) to printer, it is sent the string "^D".
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
676 ;;
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
677 ;; Valid values for `ps-print-control-characters' are:
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
678 ;;
23307
5d6530954ece Skip invisible overlay.
Karl Heuer <kwzh@gnu.org>
parents: 23273
diff changeset
679 ;; 8-bit This is the value to use when you want an ASCII encoding of
5d6530954ece Skip invisible overlay.
Karl Heuer <kwzh@gnu.org>
parents: 23273
diff changeset
680 ;; any control or non-ASCII character. Control characters are
5d6530954ece Skip invisible overlay.
Karl Heuer <kwzh@gnu.org>
parents: 23273
diff changeset
681 ;; encoded as "^D", and non-ASCII characters have an
21954
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
682 ;; octal encoding.
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
683 ;;
23307
5d6530954ece Skip invisible overlay.
Karl Heuer <kwzh@gnu.org>
parents: 23273
diff changeset
684 ;; control-8-bit This is the value to use when you want an ASCII encoding of
21954
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
685 ;; any control character, whether it is 7 or 8-bit.
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
686 ;; European 8-bits accented characters are printed according
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
687 ;; the current font.
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
688 ;;
23307
5d6530954ece Skip invisible overlay.
Karl Heuer <kwzh@gnu.org>
parents: 23273
diff changeset
689 ;; control Only ASCII control characters have an ASCII encoding.
21954
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
690 ;; European 8-bits accented characters are printed according
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
691 ;; the current font.
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
692 ;;
23307
5d6530954ece Skip invisible overlay.
Karl Heuer <kwzh@gnu.org>
parents: 23273
diff changeset
693 ;; nil No ASCII encoding. Any character is printed according the
21954
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
694 ;; current font.
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
695 ;;
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
696 ;; Any other value is treated as nil.
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
697 ;;
21955
c4de7c7bc14a (ps-header-title-font-size): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 21954
diff changeset
698 ;; The default is `control-8-bit'.
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
699 ;;
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
700 ;; Characters TAB, NEWLINE and FORMFEED are always treated by ps-print engine.
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
701 ;;
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
702 ;;
23551
385d7c586ad2 Doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 23550
diff changeset
703 ;; Printing Multi-byte Buffer
385d7c586ad2 Doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 23550
diff changeset
704 ;; --------------------------
385d7c586ad2 Doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 23550
diff changeset
705 ;;
23892
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
706 ;; See ps-mule.el for documentation.
23091
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
707 ;;
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
708 ;;
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
709 ;; Line Number
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
710 ;; -----------
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
711 ;;
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
712 ;; The variable `ps-line-number' specifies whether to number each line;
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
713 ;; non-nil means do so. The default is nil (don't number each line).
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
714 ;;
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
715 ;; The variable `ps-line-number-color' specifies the color for line number.
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
716 ;; See `ps-zebra-color' for documentation. The default is "black" (or 0.0, or
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
717 ;; '(0.0 0.0 0.0)).
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
718 ;;
34045
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
719 ;; The variable `ps-line-number-font' specifies the font for line number.
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
720 ;; The default is "Times-Italic".
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
721 ;;
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
722 ;; The variable `ps-line-number-font-size' specifies the font size in points
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
723 ;; for line number. See `ps-font-size' for documentation. The default is 6.
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
724 ;;
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
725 ;; The variable `ps-line-number-step' specifies the interval that line number
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
726 ;; is printed. For example, if `ps-line-number-step' is set to 2, the printing
28760
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
727 ;; will look like:
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
728 ;;
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
729 ;; 1 one line
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
730 ;; one line
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
731 ;; 3 one line
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
732 ;; one line
28979
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
733 ;; 5 one line
28760
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
734 ;; one line
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
735 ;; ...
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
736 ;;
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
737 ;; Valid values are:
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
738 ;;
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
739 ;; integer an integer that specifies the interval that line number is
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
740 ;; printed. If it's lesser than or equal to zero, it's used the
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
741 ;; value 1.
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
742 ;;
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
743 ;; `zebra' specifies that only the line number of the first line in a
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
744 ;; zebra stripe is to be printed.
28760
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
745 ;;
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
746 ;; Any other value is treated as `zebra'.
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
747 ;; The default value is 1, so each line number is printed.
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
748 ;;
28979
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
749 ;; The variable `ps-line-number-start' specifies the starting point in the
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
750 ;; interval given by `ps-line-number-step'. For example, if
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
751 ;; `ps-line-number-step' is set to 3 and `ps-line-number-start' is set to 3,
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
752 ;; the printing will look like:
28979
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
753 ;;
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
754 ;; one line
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
755 ;; one line
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
756 ;; 3 one line
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
757 ;; one line
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
758 ;; one line
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
759 ;; 6 one line
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
760 ;; one line
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
761 ;; one line
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
762 ;; 9 one line
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
763 ;; one line
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
764 ;; ...
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
765 ;;
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
766 ;; The values for `ps-line-number-start':
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
767 ;;
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
768 ;; * If `ps-line-number-step' is an integer, must be between 1 and the value
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
769 ;; of `ps-line-number-step' inclusive.
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
770 ;;
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
771 ;; * If `ps-line-number-step' is set to `zebra', must be between 1 and the
31253
4c40c1171b8b Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 30522
diff changeset
772 ;; value of `ps-zebra-stripe-height' inclusive.
28979
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
773 ;;
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
774 ;; The default value is 1, so the line number of the first line of each
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
775 ;; interval is printed.
28979
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
776 ;;
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
777 ;;
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
778 ;; Zebra Stripes
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
779 ;; -------------
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
780 ;;
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
781 ;; Zebra stripes are a kind of background that appear "underneath" the text and
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
782 ;; can make the text easier to read. They look like this:
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
783 ;;
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
784 ;; XXXXXXXXXXXXXXXXXXXXXXXX
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
785 ;; XXXXXXXXXXXXXXXXXXXXXXXX
19485
eab8baa19dfa (ps-zebra-stripes): Renamed from ps-zebra-stripe.
Richard M. Stallman <rms@gnu.org>
parents: 19446
diff changeset
786 ;; XXXXXXXXXXXXXXXXXXXXXXXX
eab8baa19dfa (ps-zebra-stripes): Renamed from ps-zebra-stripe.
Richard M. Stallman <rms@gnu.org>
parents: 19446
diff changeset
787 ;;
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
788 ;;
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
789 ;;
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
790 ;; XXXXXXXXXXXXXXXXXXXXXXXX
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
791 ;; XXXXXXXXXXXXXXXXXXXXXXXX
19485
eab8baa19dfa (ps-zebra-stripes): Renamed from ps-zebra-stripe.
Richard M. Stallman <rms@gnu.org>
parents: 19446
diff changeset
792 ;; XXXXXXXXXXXXXXXXXXXXXXXX
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
793 ;;
19879
87952270ceeb (ps-emacs-face-kind-p): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents: 19843
diff changeset
794 ;; The blocks of X's represent rectangles filled with a light gray color.
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
795 ;; Each rectangle extends all the way across the page.
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
796 ;;
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
797 ;; The height, in lines, of each rectangle is controlled by the variable
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
798 ;; `ps-zebra-stripe-height', which is 3 by default. The distance between
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
799 ;; stripes equals the height of a stripe.
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
800 ;;
19787
4ea00387fb08 (ps-setup): ps-zebra-stripe => ps-zebra-stripes.
Richard M. Stallman <rms@gnu.org>
parents: 19773
diff changeset
801 ;; The variable `ps-zebra-stripes' controls whether to print zebra stripes.
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
802 ;; Non-nil means yes, nil means no. The default is nil.
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
803 ;;
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
804 ;; The variable `ps-zebra-color' controls the zebra stripes gray scale or RGB
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
805 ;; color. It should be a float number between 0.0 (black color) and 1.0 (white
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
806 ;; color), a string which is a color name, or a list of 3 numbers which
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
807 ;; corresponds to the Red Green Blue color scale.
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
808 ;; The default is 0.95 (or "gray95", or '(0.95 0.95 0.95)).
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
809 ;;
36215
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
810 ;; The variable `ps-zebra-stripe-follow' specifies how zebra stripes continue
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
811 ;; on next page. Visually, valid values are (the character `+' at right of
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
812 ;; each column indicates that a line is printed):
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
813 ;;
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
814 ;; `nil' `follow' `full' `full-follow'
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
815 ;; Current Page -------- ----------- --------- ----------------
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
816 ;; 1 XXXXX + 1 XXXXXXXX + 1 XXXXXX + 1 XXXXXXXXXXXXX +
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
817 ;; 2 XXXXX + 2 XXXXXXXX + 2 XXXXXX + 2 XXXXXXXXXXXXX +
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
818 ;; 3 XXXXX + 3 XXXXXXXX + 3 XXXXXX + 3 XXXXXXXXXXXXX +
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
819 ;; 4 + 4 + 4 + 4 +
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
820 ;; 5 + 5 + 5 + 5 +
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
821 ;; 6 + 6 + 6 + 6 +
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
822 ;; 7 XXXXX + 7 XXXXXXXX + 7 XXXXXX + 7 XXXXXXXXXXXXX +
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
823 ;; 8 XXXXX + 8 XXXXXXXX + 8 XXXXXX + 8 XXXXXXXXXXXXX +
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
824 ;; 9 XXXXX + 9 XXXXXXXX + 9 XXXXXX + 9 XXXXXXXXXXXXX +
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
825 ;; 10 + 10 +
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
826 ;; 11 + 11 +
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
827 ;; -------- ----------- --------- ----------------
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
828 ;; Next Page -------- ----------- --------- ----------------
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
829 ;; 12 XXXXX + 12 + 10 XXXXXX + 10 +
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
830 ;; 13 XXXXX + 13 XXXXXXXX + 11 XXXXXX + 11 +
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
831 ;; 14 XXXXX + 14 XXXXXXXX + 12 XXXXXX + 12 +
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
832 ;; 15 + 15 XXXXXXXX + 13 + 13 XXXXXXXXXXXXX +
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
833 ;; 16 + 16 + 14 + 14 XXXXXXXXXXXXX +
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
834 ;; 17 + 17 + 15 + 15 XXXXXXXXXXXXX +
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
835 ;; 18 XXXXX + 18 + 16 XXXXXX + 16 +
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
836 ;; 19 XXXXX + 19 XXXXXXXX + 17 XXXXXX + 17 +
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
837 ;; 20 XXXXX + 20 XXXXXXXX + 18 XXXXXX + 18 +
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
838 ;; 21 + 21 XXXXXXXX +
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
839 ;; 22 + 22 +
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
840 ;; -------- ----------- --------- ----------------
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
841 ;;
51007
c3f9aa88ed68 Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 50871
diff changeset
842 ;; Any other value is treated as nil.
29494
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
843 ;;
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
844 ;; See also section How Ps-Print Has A Text And/Or Image On Background.
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
845 ;;
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
846 ;;
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
847 ;; Hooks
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
848 ;; -----
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
849 ;;
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
850 ;; ps-print has the following hook variables:
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
851 ;;
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
852 ;; `ps-print-hook'
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
853 ;; It is evaluated once before any printing process. This is the right
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
854 ;; place to initialize ps-print global data.
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
855 ;; For an example, see section Adding a New Font Family.
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
856 ;;
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
857 ;; `ps-print-begin-sheet-hook'
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
858 ;; It is evaluated on each beginning of sheet of paper.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
859 ;; If `ps-n-up-printing' is equal to 1, `ps-print-begin-page-hook' is never
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
860 ;; evaluated.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
861 ;;
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
862 ;; `ps-print-begin-page-hook'
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
863 ;; It is evaluated on each beginning of page, except in the beginning of
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
864 ;; page that `ps-print-begin-sheet-hook' is evaluated.
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
865 ;;
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
866 ;; `ps-print-begin-column-hook'
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
867 ;; It is evaluated on each beginning of column, except in the beginning of
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
868 ;; column that `ps-print-begin-page-hook' is evaluated or that
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
869 ;; `ps-print-begin-sheet-hook' is evaluated.
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
870 ;;
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
871 ;;
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
872 ;; Font Managing
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
873 ;; -------------
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
874 ;;
24414
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
875 ;; ps-print now knows rather precisely some fonts: the variable
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
876 ;; `ps-font-info-database' contains information for a list of font families
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
877 ;; (currently mainly `Courier' `Helvetica' `Times' `Palatino'
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
878 ;; `Helvetica-Narrow' `NewCenturySchlbk'). Each font family contains the font
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
879 ;; names for standard, bold, italic and bold-italic characters, a reference
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
880 ;; size (usually 10) and the corresponding line height, width of a space and
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
881 ;; average character width.
24414
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
882 ;;
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
883 ;; The variable `ps-font-family' determines which font family is to be used for
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
884 ;; ordinary text. If its value does not correspond to a known font family, an
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
885 ;; error message is printed into the `*Messages*' buffer, which lists the
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
886 ;; currently available font families.
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
887 ;;
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
888 ;; The variable `ps-font-size' determines the size (in points) of the font for
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
889 ;; ordinary text, when generating PostScript. Its value is a float or a cons
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
890 ;; of floats which has the following form:
24414
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
891 ;;
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
892 ;; (LANDSCAPE-SIZE . PORTRAIT-SIZE)
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
893 ;;
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
894 ;; Similarly, the variable `ps-header-font-family' determines which font family
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
895 ;; is to be used for text in the header.
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
896 ;;
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
897 ;; The variable `ps-header-font-size' determines the font size, in points, for
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
898 ;; text in the header (similar to `ps-font-size').
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
899 ;;
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
900 ;; The variable `ps-header-title-font-size' determines the font size, in
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
901 ;; points, for the top line of text in the header (similar to `ps-font-size').
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
902 ;;
37135
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
903 ;; The variable `ps-line-spacing' determines the line spacing, in points, for
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
904 ;; ordinary text, when generating PostScript (similar to `ps-font-size'). The
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
905 ;; default value is 0 (zero = no line spacing).
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
906 ;;
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
907 ;; The variable `ps-paragraph-spacing' determines the paragraph spacing, in
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
908 ;; points, for ordinary text, when generating PostScript (similar to
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
909 ;; `ps-font-size'). The default value is 0 (zero = no paragraph spacing).
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
910 ;;
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
911 ;; To get all lines with some spacing set both `ps-line-spacing' and
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
912 ;; `ps-paragraph-spacing' variables.
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
913 ;;
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
914 ;; The variable `ps-paragraph-regexp' specifies the paragraph delimiter. It
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
915 ;; should be a regexp or nil. The default value is "[ \t]*$", that is, an
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
916 ;; empty line or a line containing only spaces and tabs.
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
917 ;;
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
918 ;; The variable `ps-begin-cut-regexp' and `ps-end-cut-regexp' specify the start
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
919 ;; and end of a region to cut out when printing.
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
920 ;;
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
921 ;; As an example, variables `ps-begin-cut-regexp' and `ps-end-cut-regexp' may
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
922 ;; be set to "^Local Variables:" and "^End:", respectively, in order to leave
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
923 ;; out some special printing instructions from the actual print. Special
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
924 ;; printing instructions may be appended to the end of the file just like any
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
925 ;; other buffer-local variables. See section "Local Variables in Files" on
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
926 ;; Emacs manual for more information.
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
927 ;;
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
928 ;; Variables `ps-begin-cut-regexp' and `ps-end-cut-regexp' control together
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
929 ;; what actually gets printed. Both variables may be set to nil in which case
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
930 ;; no cutting occurs. By default, both variables are set to nil.
37135
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
931 ;;
10738
e7d5b119b583 (ps-print-version): Add caveat about version number.
Richard M. Stallman <rms@gnu.org>
parents: 10683
diff changeset
932 ;;
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
933 ;; Adding a New Font Family
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
934 ;; ------------------------
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
935 ;;
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
936 ;; To use a new font family, you MUST first teach ps-print this font, i.e., add
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
937 ;; its information to `ps-font-info-database', otherwise ps-print cannot
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
938 ;; correctly place line and page breaks.
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
939 ;;
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
940 ;; For example, assuming `Helvetica' is unknown, you first need to do the
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
941 ;; following ONLY ONCE:
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
942 ;;
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
943 ;; - create a new buffer
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
944 ;; - generate the PostScript image to a file (C-u M-x ps-print-buffer)
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
945 ;; - open this file and find the line:
29848
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
946 ;; `% 3 cm 20 cm moveto 10/Courier ReportFontInfo showpage'
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
947 ;; - delete the leading `%' (which is the PostScript comment character)
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
948 ;; - replace in this line `Courier' by the new font (say `Helvetica') to get
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
949 ;; the line:
29848
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
950 ;; `3 cm 20 cm moveto 10/Helvetica ReportFontInfo showpage'
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
951 ;; - send this file to the printer (or to ghostscript).
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
952 ;; You should read the following on the output page:
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
953 ;;
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
954 ;; For Helvetica 10 point, the line height is 11.56, the space width is 2.78
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
955 ;; and a crude estimate of average character width is 5.09243
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
956 ;;
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
957 ;; - Add these values to the `ps-font-info-database':
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
958 ;; (setq ps-font-info-database
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
959 ;; (append
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
960 ;; '((Helvetica ; the family key
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
961 ;; (fonts (normal . "Helvetica")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
962 ;; (bold . "Helvetica-Bold")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
963 ;; (italic . "Helvetica-Oblique")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
964 ;; (bold-italic . "Helvetica-BoldOblique"))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
965 ;; (size . 10.0)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
966 ;; (line-height . 11.56)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
967 ;; (space-width . 2.78)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
968 ;; (avg-char-width . 5.09243)))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
969 ;; ps-font-info-database))
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
970 ;; - Now you can use this font family with any size:
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
971 ;; (setq ps-font-family 'Helvetica)
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
972 ;; - if you want to use this family in another emacs session, you must put into
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
973 ;; your `~/.emacs':
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
974 ;; (require 'ps-print)
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
975 ;; (setq ps-font-info-database (append ...)))
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
976 ;; if you don't want to load ps-print, you have to copy the whole value:
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
977 ;; (setq ps-font-info-database '(<your stuff> <the standard stuff>))
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
978 ;; or, use `ps-print-hook' (see section Hooks):
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
979 ;; (add-hook 'ps-print-hook
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
980 ;; '(lambda ()
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
981 ;; (or (assq 'Helvetica ps-font-info-database)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
982 ;; (setq ps-font-info-database (append ...)))))
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
983 ;;
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
984 ;; You can create new `mixed' font families like:
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
985 ;; (my-mixed-family
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
986 ;; (fonts (normal . "Courier-Bold")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
987 ;; (bold . "Helvetica")
60137
697126c8e9d4 (ps-font-info-database): New entry
Kenichi Handa <handa@m17n.org>
parents: 58407
diff changeset
988 ;; (italic . "ZapfChancery-MediumItalic")
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
989 ;; (bold-italic . "NewCenturySchlbk-BoldItalic")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
990 ;; (w3-table-hack-x-face . "LineDrawNormal"))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
991 ;; (size . 10.0)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
992 ;; (line-height . 10.55)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
993 ;; (space-width . 6.0)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
994 ;; (avg-char-width . 6.0))
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
995 ;;
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
996 ;; Now you can use your new font family with any size:
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
997 ;; (setq ps-font-family 'my-mixed-family)
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
998 ;;
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
999 ;; Note that on above example the `w3-table-hack-x-face' entry refers to a face
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1000 ;; symbol, so when printing this face it'll be used the font `LineDrawNormal'.
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1001 ;; If the face `w3-table-hack-x-face' is remapped to use bold and/or italic
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1002 ;; attribute, the corresponding entry (bold, italic or bold-italic) will be
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1003 ;; used instead of `w3-table-hack-x-face' entry.
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1004 ;;
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1005 ;; Note also that the font family entry order is irrelevant, so the above
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1006 ;; example could also be written:
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1007 ;; (my-mixed-family
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1008 ;; (size . 10.0)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1009 ;; (fonts (w3-table-hack-x-face . "LineDrawNormal")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1010 ;; (bold . "Helvetica")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1011 ;; (bold-italic . "NewCenturySchlbk-BoldItalic")
60137
697126c8e9d4 (ps-font-info-database): New entry
Kenichi Handa <handa@m17n.org>
parents: 58407
diff changeset
1012 ;; (italic . "ZapfChancery-MediumItalic")
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1013 ;; (normal . "Courier-Bold"))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1014 ;; (avg-char-width . 6.0)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1015 ;; (space-width . 6.0)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1016 ;; (line-height . 10.55))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1017 ;;
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1018 ;; Despite the note above, it is recommended that some convention about
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1019 ;; entry order be used.
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1020 ;;
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1021 ;; You can get information on all the fonts resident in YOUR printer
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1022 ;; by uncommenting the line:
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1023 ;; % 3 cm 20 cm moveto ReportAllFontInfo showpage
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1024 ;;
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
1025 ;; The PostScript file should be sent to YOUR PostScript printer.
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1026 ;; If you send it to ghostscript or to another PostScript printer, you may get
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1027 ;; slightly different results.
31253
4c40c1171b8b Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 30522
diff changeset
1028 ;; Anyway, as ghostscript fonts are autoload, you won't get much font info.
4c40c1171b8b Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 30522
diff changeset
1029 ;;
4c40c1171b8b Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 30522
diff changeset
1030 ;; Note also that ps-print DOESN'T download any font to your printer, instead
4c40c1171b8b Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 30522
diff changeset
1031 ;; it uses the fonts resident in your printer.
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1032 ;;
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1033 ;;
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1034 ;; How Ps-Print Deals With Faces
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1035 ;; -----------------------------
10738
e7d5b119b583 (ps-print-version): Add caveat about version number.
Richard M. Stallman <rms@gnu.org>
parents: 10683
diff changeset
1036 ;;
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1037 ;; The ps-print-*-with-faces commands attempt to determine which faces should
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1038 ;; be printed in bold or italic, but their guesses aren't always right. For
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1039 ;; example, you might want to map colors into faces so that blue faces print in
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1040 ;; bold, and red faces in italic.
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1041 ;;
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1042 ;; It is possible to force ps-print to consider specific faces bold, italic or
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1043 ;; underline, no matter what font they are displayed in, by setting the
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1044 ;; variables `ps-bold-faces', `ps-italic-faces' and `ps-underlined-faces'.
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
1045 ;; These variables contain lists of faces that ps-print should consider bold,
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
1046 ;; italic or underline; to set them, put code like the following into your
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
1047 ;; .emacs file:
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1048 ;;
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1049 ;; (setq ps-bold-faces '(my-blue-face))
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1050 ;; (setq ps-italic-faces '(my-red-face))
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
1051 ;; (setq ps-underlined-faces '(my-green-face))
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1052 ;;
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1053 ;; Faces like bold-italic that are both bold and italic should go in *both*
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1054 ;; lists.
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1055 ;;
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1056 ;; ps-print keeps internal lists of which fonts are bold and which are italic;
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1057 ;; these lists are built the first time you invoke ps-print.
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1058 ;; For the sake of efficiency, the lists are built only once; the same lists
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1059 ;; are referred in later invocations of ps-print.
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1060 ;;
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1061 ;; Because these lists are built only once, it's possible for them to get out
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1062 ;; of sync, if a face changes, or if new faces are added. To get the lists
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1063 ;; back in sync, you can set the variable `ps-build-face-reference' to t, and
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1064 ;; the lists will be rebuilt the next time ps-print is invoked. If you need
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1065 ;; that the lists always be rebuilt when ps-print is invoked, set the variable
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
1066 ;; `ps-always-build-face-reference' to t.
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1067 ;;
28760
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
1068 ;; If you need to print without worrying about face background color, set the
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
1069 ;; variable `ps-use-face-background' which specifies if face background should
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
1070 ;; be used. Valid values are:
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
1071 ;;
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
1072 ;; t always use face background color.
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
1073 ;; nil never use face background color.
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
1074 ;; (face...) list of faces whose background color will be used.
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
1075 ;;
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
1076 ;; Any other value will be treated as t.
50032
c919f0375a3e Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 49763
diff changeset
1077 ;; The default value is nil.
28760
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
1078 ;;
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1079 ;;
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1080 ;; How Ps-Print Deals With Color
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1081 ;; -----------------------------
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1082 ;;
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1083 ;; ps-print detects faces with foreground and background colors defined and
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1084 ;; embeds color information in the PostScript image.
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1085 ;; The default foreground and background colors are defined by the variables
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1086 ;; `ps-default-fg' and `ps-default-bg'.
39327
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
1087 ;; On black/white printers, colors are displayed in gray scale.
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1088 ;; To turn off color output, set `ps-print-color-p' to nil.
39327
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
1089 ;; You can also set `ps-print-color-p' to 'black-white to have a better looking
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
1090 ;; on black/white printers. See also `ps-black-white-faces' for documentation.
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1091 ;;
85711
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
1092 ;; ps-print also detects if the text foreground and background colors are
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
1093 ;; equals when `ps-fg-validate-p' is non-nil. In this case, if these colors
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
1094 ;; are used, no text will appear. You can use `ps-fg-list' to give a list of
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
1095 ;; foreground colors to be used when text foreground and background colors are
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
1096 ;; equals. It'll be used the first foreground color in `ps-fg-list' which is
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
1097 ;; different from the background color. If `ps-fg-list' is nil, the default
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
1098 ;; foreground color is used.
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
1099 ;;
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1100 ;;
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1101 ;; How Ps-Print Maps Faces
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1102 ;; -----------------------
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1103 ;;
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1104 ;; As ps-print uses PostScript to print buffers, it is possible to have other
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1105 ;; attributes associated with faces. So the new attributes used by ps-print
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1106 ;; are:
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1107 ;;
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1108 ;; strikeout - like underline, but the line is in middle of text.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1109 ;; overline - like underline, but the line is over the text.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1110 ;; shadow - text will have a shadow.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1111 ;; box - text will be surrounded by a box.
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
1112 ;; outline - print characters as hollow outlines.
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1113 ;;
19879
87952270ceeb (ps-emacs-face-kind-p): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents: 19843
diff changeset
1114 ;; See the documentation for `ps-extend-face'.
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1115 ;;
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1116 ;; Let's, for example, remap `font-lock-keyword-face' to another foreground
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1117 ;; color and bold attribute:
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1118 ;;
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
1119 ;; (ps-extend-face '(font-lock-keyword-face "RoyalBlue" nil bold) 'MERGE)
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1120 ;;
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1121 ;; If you want to use a new face, define it first with `defface', and then call
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1122 ;; `ps-extend-face' to specify how to print it.
19446
15ecd855fec8 (ps-print-face-extension-alist): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 19445
diff changeset
1123 ;;
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1124 ;;
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1125 ;; How Ps-Print Has A Text And/Or Image On Background
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1126 ;; --------------------------------------------------
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1127 ;;
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
1128 ;; ps-print can print texts and/or EPS PostScript images on background; it is
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1129 ;; possible to define the following text attributes: font name, font size,
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1130 ;; initial position, angle, gray scale and pages to print.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1131 ;;
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1132 ;; It has the following EPS PostScript images attributes: file name containing
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1133 ;; the image, initial position, X and Y scales, angle and pages to print.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1134 ;;
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1135 ;; See documentation for `ps-print-background-text' and
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1136 ;; `ps-print-background-image'.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1137 ;;
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1138 ;; For example, if we wish to print text "preliminary" on all pages and text
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1139 ;; "special" on page 5 and from page 11 to page 17, we could specify:
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1140 ;;
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1141 ;; (setq ps-print-background-text
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1142 ;; '(("preliminary")
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1143 ;; ("special"
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1144 ;; "LeftMargin" "BottomMargin PrintHeight add" ; X and Y position
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1145 ;; ; (upper left corner)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1146 ;; nil nil nil
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1147 ;; "PrintHeight neg PrintPageWidth atan" ; angle
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1148 ;; 5 (11 . 17)) ; page list
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1149 ;; ))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1150 ;;
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1151 ;; Similarly, we could print image "~/images/EPS-image1.ps" on all pages and
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1152 ;; image "~/images/EPS-image2.ps" on page 5 and from page 11 to page 17, we
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1153 ;; specify:
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1154 ;;
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1155 ;; (setq ps-print-background-image
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1156 ;; '(("~/images/EPS-image1.ps"
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1157 ;; "LeftMargin" "BottomMargin") ; X and Y position (lower left corner)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1158 ;; ("~/images/EPS-image2.ps"
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1159 ;; "LeftMargin" "BottomMargin PrintHeight 2 div add" ; X and Y pos.
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1160 ;; ; (upper left corner)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1161 ;; nil nil nil
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1162 ;; 5 (11 . 17)) ; page list
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1163 ;; ))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1164 ;;
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1165 ;; If it is not possible to read (or does not exist) an image file, that file
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1166 ;; is ignored.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1167 ;;
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1168 ;; The printing order is:
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1169 ;;
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
1170 ;; 1. Print background color
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
1171 ;; 2. Print zebra stripes
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
1172 ;; 3. Print background texts that it should be on all pages
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
1173 ;; 4. Print background images that it should be on all pages
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
1174 ;; 5. Print background texts only for current page (if any)
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
1175 ;; 6. Print background images only for current page (if any)
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
1176 ;; 7. Print header
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
1177 ;; 8. Print buffer text (with faces, if specified) and line number
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1178 ;;
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1179 ;;
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1180 ;; Utilities
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1181 ;; ---------
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1182 ;;
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1183 ;; Some tools are provided to help you customize your font setup.
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1184 ;;
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1185 ;; `ps-setup' returns (some part of) the current setup.
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1186 ;;
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1187 ;; To avoid wrapping too many lines, you may want to adjust the left and right
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1188 ;; margins and the font size. On UN*X systems, do:
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1189 ;; pr -t file | awk '{printf "%3d %s\n", length($0), $0}' | sort -r | head
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1190 ;; to determine the longest lines of your file.
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1191 ;; Then, the command `ps-line-lengths' will give you the correspondence between
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1192 ;; a line length (number of characters) and the maximum font size which doesn't
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1193 ;; wrap such a line with the current ps-print setup.
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1194 ;;
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1195 ;; The commands `ps-nb-pages-buffer' and `ps-nb-pages-region' display the
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1196 ;; correspondence between a number of pages and the maximum font size which
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1197 ;; allow the number of lines of the current buffer or of its current region to
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1198 ;; fit in this number of pages.
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
1199 ;;
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
1200 ;; NOTE: line folding is not taken into account in this process and could
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
1201 ;; change the results.
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1202 ;;
27161
0a2452a20c74 ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 26883
diff changeset
1203 ;; The command `ps-print-customize' activates a customization buffer for
0a2452a20c74 ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 26883
diff changeset
1204 ;; ps-print options.
0a2452a20c74 ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 26883
diff changeset
1205 ;;
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1206 ;;
10738
e7d5b119b583 (ps-print-version): Add caveat about version number.
Richard M. Stallman <rms@gnu.org>
parents: 10683
diff changeset
1207 ;; New since version 1.5
e7d5b119b583 (ps-print-version): Add caveat about version number.
Richard M. Stallman <rms@gnu.org>
parents: 10683
diff changeset
1208 ;; ---------------------
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1209 ;;
10738
e7d5b119b583 (ps-print-version): Add caveat about version number.
Richard M. Stallman <rms@gnu.org>
parents: 10683
diff changeset
1210 ;; Color output capability.
e7d5b119b583 (ps-print-version): Add caveat about version number.
Richard M. Stallman <rms@gnu.org>
parents: 10683
diff changeset
1211 ;; Automatic detection of font attributes (bold, italic).
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1212 ;; Configurable headers with page numbers.
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1213 ;; Slightly faster.
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1214 ;; Support for different paper sizes.
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1215 ;; Better conformance to PostScript Document Structure Conventions.
10738
e7d5b119b583 (ps-print-version): Add caveat about version number.
Richard M. Stallman <rms@gnu.org>
parents: 10683
diff changeset
1216 ;;
e7d5b119b583 (ps-print-version): Add caveat about version number.
Richard M. Stallman <rms@gnu.org>
parents: 10683
diff changeset
1217 ;;
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1218 ;; New since version 2.8
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1219 ;; ---------------------
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1220 ;;
50032
c919f0375a3e Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 49763
diff changeset
1221 ;; [vinicius] Vinicius Jose Latorre <viniciusjl@ig.com.br>
29848
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
1222 ;;
85711
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
1223 ;; 2007-10-27
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
1224 ;; `ps-fg-validate-p', `ps-fg-list'
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
1225 ;;
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
1226 ;; 2004-02-29
54233
4da084c4e7a7 Doc fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 52401
diff changeset
1227 ;; `ps-time-stamp-yyyy-mm-dd', `ps-time-stamp-iso8601'
4da084c4e7a7 Doc fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 52401
diff changeset
1228 ;;
85711
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
1229 ;; 2001-06-19
38302
baa7f44697de Use locale dependant date to print date in header. Doc
Gerd Moellmann <gerd@gnu.org>
parents: 37967
diff changeset
1230 ;; `ps-time-stamp-locale-default'
baa7f44697de Use locale dependant date to print date in header. Doc
Gerd Moellmann <gerd@gnu.org>
parents: 37967
diff changeset
1231 ;;
85711
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
1232 ;; 2001-05-30
38302
baa7f44697de Use locale dependant date to print date in header. Doc
Gerd Moellmann <gerd@gnu.org>
parents: 37967
diff changeset
1233 ;; Handle before-string and after-string overlay properties.
baa7f44697de Use locale dependant date to print date in header. Doc
Gerd Moellmann <gerd@gnu.org>
parents: 37967
diff changeset
1234 ;;
85711
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
1235 ;; 2001-04-07
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1236 ;; `ps-line-number-color', `ps-print-footer', `ps-footer-offset',
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1237 ;; `ps-print-footer-frame', `ps-footer-font-family',
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1238 ;; `ps-footer-font-size', `ps-footer-line-pad', `ps-footer-lines',
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1239 ;; `ps-left-footer', `ps-right-footer', `ps-footer-frame-alist' and
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1240 ;; `ps-header-frame-alist'.
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1241 ;;
85711
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
1242 ;; 2001-03-28
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1243 ;; `ps-line-spacing', `ps-paragraph-spacing', `ps-paragraph-regexp',
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1244 ;; `ps-begin-cut-regexp' and `ps-end-cut-regexp'.
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1245 ;;
85711
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
1246 ;; 2000-11-22
34045
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
1247 ;; `ps-line-number-font', `ps-line-number-font-size' and
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
1248 ;; `ps-end-with-control-d'.
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
1249 ;;
85711
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
1250 ;; 2000-08-21
31253
4c40c1171b8b Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 30522
diff changeset
1251 ;; `ps-even-or-odd-pages'
4c40c1171b8b Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 30522
diff changeset
1252 ;;
85711
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
1253 ;; 2000-06-17
29848
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
1254 ;; `ps-manual-feed', `ps-warn-paper-type', `ps-print-upside-down',
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
1255 ;; `ps-selected-pages', `ps-last-selected-pages',
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
1256 ;; `ps-restore-selected-pages', `ps-switch-header',
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
1257 ;; `ps-line-number-step', `ps-line-number-start',
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
1258 ;; `ps-zebra-stripe-follow' and `ps-use-face-background'.
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
1259 ;;
85711
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
1260 ;; 2000-03-10
29848
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
1261 ;; PostScript error handler.
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
1262 ;; `ps-user-defined-prologue' and `ps-error-handler-message'.
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
1263 ;;
85711
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
1264 ;; 1999-12-11
29848
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
1265 ;; `ps-print-customize'.
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
1266 ;;
85711
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
1267 ;; 1999-07-03
29848
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
1268 ;; Better customization.
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
1269 ;; `ps-banner-page-when-duplexing' and `ps-zebra-color'.
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
1270 ;;
85711
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
1271 ;; 1999-05-13
29848
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
1272 ;; N-up printing.
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
1273 ;; Hook: `ps-print-begin-sheet-hook'.
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1274 ;;
85711
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
1275 ;; [kenichi] 1999-05-09 Ken'ichi Handa <handa@m17n.org>
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1276 ;;
54233
4da084c4e7a7 Doc fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 52401
diff changeset
1277 ;; `ps-print-region-function'
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1278 ;;
50032
c919f0375a3e Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 49763
diff changeset
1279 ;; [vinicius] Vinicius Jose Latorre <viniciusjl@ig.com.br>
29848
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
1280 ;;
85711
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
1281 ;; 1999-03-01
29848
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
1282 ;; PostScript tumble and setpagedevice.
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
1283 ;;
85711
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
1284 ;; 1998-09-22
29848
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
1285 ;; PostScript prologue header comment insertion.
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
1286 ;; Skip invisible text better.
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
1287 ;;
85711
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
1288 ;; [kenichi] 1998-08-19 Ken'ichi Handa <handa@m17n.org>
23091
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
1289 ;;
54233
4da084c4e7a7 Doc fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 52401
diff changeset
1290 ;; Multi-byte buffer handling.
23091
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
1291 ;;
50032
c919f0375a3e Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 49763
diff changeset
1292 ;; [vinicius] Vinicius Jose Latorre <viniciusjl@ig.com.br>
29848
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
1293 ;;
85711
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
1294 ;; 1998-03-06
29848
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
1295 ;; Skip invisible text.
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
1296 ;;
85711
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
1297 ;; 1997-11-30
29848
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
1298 ;; Hooks: `ps-print-hook', `ps-print-begin-page-hook' and
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
1299 ;; `ps-print-begin-column-hook'.
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
1300 ;; Put one header per page over the columns.
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
1301 ;; Better database font management.
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
1302 ;; Better control characters handling.
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
1303 ;;
85711
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
1304 ;; 1997-11-21
29848
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
1305 ;; Dynamic evaluation at print time of `ps-lpr-switches'.
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
1306 ;; Handle control characters.
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
1307 ;; Face remapping.
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
1308 ;; New face attributes.
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
1309 ;; Line number.
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
1310 ;; Zebra stripes.
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
1311 ;; Text and/or image on background.
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1312 ;;
85711
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
1313 ;; [jack] 1996-05-17 Jacques Duthen <duthen@cegelec-red.fr>
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
1314 ;;
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
1315 ;; Font family and float size for text and header.
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
1316 ;; Landscape mode.
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
1317 ;; Multiple columns.
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
1318 ;; Tools for page setup.
10738
e7d5b119b583 (ps-print-version): Add caveat about version number.
Richard M. Stallman <rms@gnu.org>
parents: 10683
diff changeset
1319 ;;
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1320 ;;
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
1321 ;; Known bugs and limitations of ps-print
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1322 ;; --------------------------------------
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1323 ;;
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1324 ;; Although color printing will work in XEmacs 19.12, it doesn't work well; in
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1325 ;; particular, bold or italic fonts don't print in the right background color.
11799
4a04c7799790 Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents: 10738
diff changeset
1326 ;;
4a04c7799790 Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents: 10738
diff changeset
1327 ;; Invisible properties aren't correctly ignored in XEmacs 19.12.
4a04c7799790 Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents: 10738
diff changeset
1328 ;;
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1329 ;; Automatic font-attribute detection doesn't work well, especially with
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1330 ;; hilit19 and older versions of get-create-face. Users having problems with
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1331 ;; auto-font detection should use the lists `ps-italic-faces', `ps-bold-faces'
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1332 ;; and `ps-underlined-faces' and/or turn off automatic detection by setting
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1333 ;; `ps-auto-font-detect' to nil.
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1334 ;;
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1335 ;; Automatic font-attribute detection doesn't work with XEmacs 19.12 in tty
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1336 ;; mode; use the lists `ps-italic-faces', `ps-bold-faces' and
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
1337 ;; `ps-underlined-faces' instead.
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1338 ;;
10683
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
1339 ;; Still too slow; could use some hand-optimization.
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1340 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1341 ;; Default background color isn't working.
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1342 ;;
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1343 ;; Faces are always treated as opaque.
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1344 ;;
74351
b51283822ec9 Eliminate Emacs 20 & 21 compatibility.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 74327
diff changeset
1345 ;; Epoch, Lucid and Emacs 21 not supported. At all.
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1346 ;;
19879
87952270ceeb (ps-emacs-face-kind-p): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents: 19843
diff changeset
1347 ;; Fixed-pitch fonts work better for line folding, but are not required.
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1348 ;;
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1349 ;; `ps-nb-pages-buffer' and `ps-nb-pages-region' don't take care of folding
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1350 ;; lines.
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1351 ;;
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1352 ;;
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
1353 ;; Things to change
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1354 ;; ----------------
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1355 ;;
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1356 ;; Avoid page break inside a paragraph.
85711
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
1357 ;;
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1358 ;; Add `ps-non-bold-faces' and `ps-non-italic-faces' (should be easy).
85711
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
1359 ;;
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1360 ;; Improve the memory management for big files (hard?).
85711
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
1361 ;;
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1362 ;; `ps-nb-pages-buffer' and `ps-nb-pages-region' should take care of folding
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1363 ;; lines.
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1364 ;;
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1365 ;;
37135
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
1366 ;; Acknowledgments
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
1367 ;; ---------------
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
1368 ;;
56504
8d030ffc0866 Improve DSC compliance.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56127
diff changeset
1369 ;; Thanks to Michael Piotrowski <mxp@dynalabs.de> for improving the DSC
8d030ffc0866 Improve DSC compliance.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56127
diff changeset
1370 ;; compliance of the generated PostScript.
8d030ffc0866 Improve DSC compliance.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56127
diff changeset
1371 ;;
39327
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
1372 ;; Thanks to Adam Doppelt <adoppelt@avogadro.com> for face mapping suggestion
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
1373 ;; for black/white PostScript printers.
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
1374 ;;
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1375 ;; Thanks to Toni Ronkko <tronkko@hytti.uku.fi> for line and paragraph spacing,
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1376 ;; region to cut out when printing and footer suggestions.
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1377 ;;
37135
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
1378 ;; Thanks to Pavel Janik ml <Pavel@Janik.cz> for documentation correction.
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1379 ;;
34045
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
1380 ;; Thanks to Corinne Ilvedson <cilvedson@draper.com> for line number font size
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
1381 ;; suggestion.
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
1382 ;;
31253
4c40c1171b8b Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 30522
diff changeset
1383 ;; Thanks to Gord Wait <Gord_Wait@spectrumsignal.com> for
4c40c1171b8b Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 30522
diff changeset
1384 ;; `ps-user-defined-prologue' example setting for HP PostScript printer.
4c40c1171b8b Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 30522
diff changeset
1385 ;;
28979
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
1386 ;; Thanks to Paul Furnanz <pfurnanz@synopsys.com> for XEmacs compatibility
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
1387 ;; suggestion for `ps-postscript-code-directory' variable.
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
1388 ;;
28760
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
1389 ;; Thanks to David X Callaway <dxc@xprt.net> for helping debugging PostScript
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
1390 ;; level 1 compatibility.
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
1391 ;;
54233
4da084c4e7a7 Doc fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 52401
diff changeset
1392 ;; Thanks to Colin Marquardt <colin.marquardt@usa.alcatel.com> for:
4da084c4e7a7 Doc fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 52401
diff changeset
1393 ;; - upside-down, line number step, line number start and zebra stripe
4da084c4e7a7 Doc fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 52401
diff changeset
1394 ;; follow suggestions.
4da084c4e7a7 Doc fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 52401
diff changeset
1395 ;; - `ps-time-stamp-yyyy-mm-dd' and `ps-time-stamp-iso8601' suggestion.
4da084c4e7a7 Doc fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 52401
diff changeset
1396 ;; - and for XEmacs beta-tests.
28760
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
1397 ;;
28153
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
1398 ;; Thanks to Klaus Berndl <klaus.berndl@sdm.de> for user defined PostScript
36215
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
1399 ;; prologue code suggestion, for odd/even printing suggestion and for
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
1400 ;; `ps-prologue-file' enhancement.
28153
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
1401 ;;
55919
b0b3fe523413 Fix typos (kein'ichi -> ken'ichi).
Kenichi Handa <handa@m17n.org>
parents: 55387
diff changeset
1402 ;; Thanks to Ken'ichi Handa <handa@m17n.org> for multi-byte buffer handling.
23138
14e74d2a49cb (ps-print-control-characters): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23091
diff changeset
1403 ;;
14e74d2a49cb (ps-print-control-characters): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23091
diff changeset
1404 ;; Thanks to Matthew O Persico <Matthew.Persico@lazard.com> for line number on
14e74d2a49cb (ps-print-control-characters): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23091
diff changeset
1405 ;; empty columns.
14e74d2a49cb (ps-print-control-characters): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23091
diff changeset
1406 ;;
14e74d2a49cb (ps-print-control-characters): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23091
diff changeset
1407 ;; Thanks to Theodore Jump <tjump@cais.com> for adjust PostScript code order on
14e74d2a49cb (ps-print-control-characters): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23091
diff changeset
1408 ;; last page.
14e74d2a49cb (ps-print-control-characters): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23091
diff changeset
1409 ;;
21954
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
1410 ;; Thanks to Roland Ducournau <ducour@lirmm.fr> for
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
1411 ;; `ps-print-control-characters' variable documentation.
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
1412 ;;
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1413 ;; Thanks to Marcus G Daniels <marcus@cathcart.sysc.pdx.edu> for a better
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1414 ;; database font management.
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1415 ;;
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1416 ;; Thanks to Martin Boyer <gamin@videotron.ca> for some ideas on putting one
21954
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
1417 ;; header per page over the columns and correct line numbers when printing a
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
1418 ;; region.
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1419 ;;
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1420 ;; Thanks to Steven L Baur <steve@miranova.com> for dynamic evaluation at
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1421 ;; print time of `ps-lpr-switches'.
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1422 ;;
21954
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
1423 ;; Thanks to Kevin Rodgers <kevinr@ihs.com> for handling control characters
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
1424 ;; (his code was severely modified, but the main idea was kept).
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
1425 ;;
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1426 ;; Thanks to some suggestions on:
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1427 ;; * Face color map: Marco Melgazzi <marco@techie.com>
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1428 ;; * XEmacs compatibility: William J. Henney <will@astrosmo.unam.mx>
22093
5818374d88e7 (ps-file-end): Put Trailer and Pages before EndDoc.
Richard M. Stallman <rms@gnu.org>
parents: 21999
diff changeset
1429 ;; * Check `ps-paper-type': Sudhakar Frederick <sfrederi@asc.corp.mot.com>
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1430 ;;
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1431 ;; Thanks to Jacques Duthen <duthen@cegelec-red.fr> (Jack) for version 3.4 I
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1432 ;; started from. [vinicius]
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1433 ;;
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1434 ;; Thanks to Jim Thompson <?@?> for the 2.8 version I started from. [jack]
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1435 ;;
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1436 ;; Thanks to Kevin Rodgers <kevinr@ihs.com> for adding support for color and
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1437 ;; the invisible property.
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1438 ;;
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1439 ;; Thanks to Avishai Yacobi, avishaiy@mcil.comm.mot.com, for writing the
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1440 ;; initial port to Emacs 19. His code is no longer part of ps-print, but his
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1441 ;; work is still appreciated.
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1442 ;;
56504
8d030ffc0866 Improve DSC compliance.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56127
diff changeset
1443 ;; Thanks to Remi Houdaille and Michel Train <michel@metasoft.fdn.org> for
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1444 ;; adding underline support. Their code also is no longer part of ps-print,
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1445 ;; but their efforts are not forgotten.
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1446 ;;
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1447 ;; Thanks also to all of you who mailed code to add features to ps-print;
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1448 ;; although I didn't use your code, I still appreciate your sharing it with me.
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1449 ;;
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1450 ;; Thanks to all who mailed comments, encouragement, and criticism.
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1451 ;; Thanks also to all who responded to my survey; I had too many responses to
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1452 ;; reply to them all, but I greatly appreciate your interest.
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1453 ;;
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1454 ;; Jim
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1455 ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1456
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1457 ;;; Code:
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1458
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
1459
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
1460 (require 'lpr)
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
1461
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
1462 (or (featurep 'lisp-float-type)
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
1463 (error "`ps-print' requires floating point support"))
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
1464
85988
915f18d633ac Clean the code for checking suitable Emacs version.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85987
diff changeset
1465 (if (featurep 'xemacs)
915f18d633ac Clean the code for checking suitable Emacs version.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85987
diff changeset
1466 ()
915f18d633ac Clean the code for checking suitable Emacs version.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85987
diff changeset
1467 (unless (and (boundp 'emacs-major-version)
915f18d633ac Clean the code for checking suitable Emacs version.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85987
diff changeset
1468 (>= emacs-major-version 22))
915f18d633ac Clean the code for checking suitable Emacs version.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85987
diff changeset
1469 (error "`ps-print' only supports Emacs 22 and higher")))
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
1470
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
1471
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
1472 ;; GNU Emacs
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
1473 (or (fboundp 'line-beginning-position)
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
1474 (defun line-beginning-position (&optional n)
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
1475 (save-excursion
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
1476 (and n (/= n 1) (forward-line (1- n)))
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
1477 (beginning-of-line)
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
1478 (point))))
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
1479
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
1480
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
1481 ;; to avoid compilation gripes
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
1482
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
1483 ;; GNU Emacs
75953
6f45466672db Use (defvar <foo>) where applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 75702
diff changeset
1484 (defalias 'ps-e-find-composition (if (fboundp 'find-composition)
76259
c3f6909185f7 Minor fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 75953
diff changeset
1485 'find-composition
c3f6909185f7 Minor fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 75953
diff changeset
1486 'ignore))
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
1487
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
1488
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
1489 (defconst ps-windows-system
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
1490 (memq system-type '(emx win32 w32 mswindows ms-dos windows-nt)))
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
1491 (defconst ps-lp-system
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
1492 (memq system-type '(usg-unix-v dgux hpux irix)))
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
1493
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
1494
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
1495 (defun ps-xemacs-color-name (color)
85763
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
1496 (when (featurep 'xemacs)
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
1497 (if (color-specifier-p color)
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
1498 (color-name color)
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
1499 color)))
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
1500
75953
6f45466672db Use (defvar <foo>) where applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 75702
diff changeset
1501 (defalias 'ps-frame-parameter
6f45466672db Use (defvar <foo>) where applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 75702
diff changeset
1502 (if (fboundp 'frame-parameter) 'frame-parameter 'frame-property))
76259
c3f6909185f7 Minor fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 75953
diff changeset
1503
75953
6f45466672db Use (defvar <foo>) where applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 75702
diff changeset
1504 (defalias 'ps-mark-active-p
6f45466672db Use (defvar <foo>) where applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 75702
diff changeset
1505 (if (fboundp 'region-active-p)
76259
c3f6909185f7 Minor fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 75953
diff changeset
1506 'region-active-p ; XEmacs
c3f6909185f7 Minor fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 75953
diff changeset
1507 (defvar mark-active) ; To shup up XEmacs's byte compiler.
c3f6909185f7 Minor fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 75953
diff changeset
1508 (lambda () mark-active))) ; Emacs
75953
6f45466672db Use (defvar <foo>) where applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 75702
diff changeset
1509
85763
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
1510 (defun ps-face-foreground-name (face)
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
1511 (if (featurep 'xemacs)
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
1512 (ps-xemacs-color-name (face-foreground face))
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
1513 (face-foreground face nil t)))
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
1514
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
1515 (defun ps-face-background-name (face)
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
1516 (if (featurep 'xemacs)
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
1517 (ps-xemacs-color-name (face-background face))
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
1518 (face-background face nil t)))
28760
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
1519
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1520 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1521 ;; User Variables:
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1522
27161
0a2452a20c74 ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 26883
diff changeset
1523
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1524 ;;; Interface to the command system
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1525
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1526 (defgroup postscript nil
64019
b0446d1a8bdd (postscript, ps-print, ps-print-horizontal, ps-print-vertical, ps-print-headers,
Juanma Barranquero <lekktu@gmail.com>
parents: 63825
diff changeset
1527 "PostScript Group."
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1528 :tag "PostScript"
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
1529 :version "20"
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1530 :group 'emacs)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1531
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1532 (defgroup ps-print nil
64019
b0446d1a8bdd (postscript, ps-print, ps-print-horizontal, ps-print-vertical, ps-print-headers,
Juanma Barranquero <lekktu@gmail.com>
parents: 63825
diff changeset
1533 "PostScript generator for Emacs."
32619
c09b494a5f49 Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents: 31253
diff changeset
1534 :link '(emacs-library-link :tag "Source Lisp File" "ps-print.el")
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1535 :prefix "ps-"
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
1536 :version "20"
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1537 :group 'wp
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1538 :group 'postscript)
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1539
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1540 (defgroup ps-print-horizontal nil
64019
b0446d1a8bdd (postscript, ps-print, ps-print-horizontal, ps-print-vertical, ps-print-headers,
Juanma Barranquero <lekktu@gmail.com>
parents: 63825
diff changeset
1541 "Horizontal page layout."
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1542 :prefix "ps-"
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1543 :tag "Horizontal"
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
1544 :version "20"
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1545 :group 'ps-print)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1546
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1547 (defgroup ps-print-vertical nil
64019
b0446d1a8bdd (postscript, ps-print, ps-print-horizontal, ps-print-vertical, ps-print-headers,
Juanma Barranquero <lekktu@gmail.com>
parents: 63825
diff changeset
1548 "Vertical page layout."
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1549 :prefix "ps-"
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1550 :tag "Vertical"
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
1551 :version "20"
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1552 :group 'ps-print)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1553
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
1554 (defgroup ps-print-headers nil
64019
b0446d1a8bdd (postscript, ps-print, ps-print-horizontal, ps-print-vertical, ps-print-headers,
Juanma Barranquero <lekktu@gmail.com>
parents: 63825
diff changeset
1555 "Headers & footers layout."
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1556 :prefix "ps-"
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1557 :tag "Header & Footer"
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
1558 :version "20"
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1559 :group 'ps-print)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1560
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1561 (defgroup ps-print-font nil
64019
b0446d1a8bdd (postscript, ps-print, ps-print-horizontal, ps-print-vertical, ps-print-headers,
Juanma Barranquero <lekktu@gmail.com>
parents: 63825
diff changeset
1562 "Fonts customization."
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1563 :prefix "ps-"
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1564 :tag "Font"
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
1565 :version "20"
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1566 :group 'ps-print)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1567
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1568 (defgroup ps-print-color nil
64019
b0446d1a8bdd (postscript, ps-print, ps-print-horizontal, ps-print-vertical, ps-print-headers,
Juanma Barranquero <lekktu@gmail.com>
parents: 63825
diff changeset
1569 "Color customization."
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1570 :prefix "ps-"
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1571 :tag "Color"
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
1572 :version "20"
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1573 :group 'ps-print)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1574
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1575 (defgroup ps-print-face nil
64019
b0446d1a8bdd (postscript, ps-print, ps-print-horizontal, ps-print-vertical, ps-print-headers,
Juanma Barranquero <lekktu@gmail.com>
parents: 63825
diff changeset
1576 "Faces customization."
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1577 :prefix "ps-"
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1578 :tag "PS Faces"
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
1579 :version "20"
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1580 :group 'ps-print
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1581 :group 'faces)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1582
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1583 (defgroup ps-print-n-up nil
64019
b0446d1a8bdd (postscript, ps-print, ps-print-horizontal, ps-print-vertical, ps-print-headers,
Juanma Barranquero <lekktu@gmail.com>
parents: 63825
diff changeset
1584 "N-up customization."
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1585 :prefix "ps-"
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1586 :tag "N-Up"
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
1587 :version "20"
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1588 :group 'ps-print)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1589
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1590 (defgroup ps-print-zebra nil
64019
b0446d1a8bdd (postscript, ps-print, ps-print-horizontal, ps-print-vertical, ps-print-headers,
Juanma Barranquero <lekktu@gmail.com>
parents: 63825
diff changeset
1591 "Zebra customization."
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1592 :prefix "ps-"
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1593 :tag "Zebra"
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
1594 :version "20"
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1595 :group 'ps-print)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1596
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1597 (defgroup ps-print-background nil
64019
b0446d1a8bdd (postscript, ps-print, ps-print-horizontal, ps-print-vertical, ps-print-headers,
Juanma Barranquero <lekktu@gmail.com>
parents: 63825
diff changeset
1598 "Background customization."
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1599 :prefix "ps-"
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1600 :tag "Background"
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
1601 :version "20"
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1602 :group 'ps-print)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1603
43526
72a6f9068758 2002-02-25 Per Abrahamsen <abraham@dina.kvl.dk>
Per Abrahamsen <abraham@dina.kvl.dk>
parents: 42452
diff changeset
1604 (defgroup ps-print-printer '((lpr custom-group))
64019
b0446d1a8bdd (postscript, ps-print, ps-print-horizontal, ps-print-vertical, ps-print-headers,
Juanma Barranquero <lekktu@gmail.com>
parents: 63825
diff changeset
1605 "Printer customization."
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1606 :prefix "ps-"
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1607 :tag "Printer"
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
1608 :version "20"
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1609 :group 'ps-print)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1610
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1611 (defgroup ps-print-page nil
64019
b0446d1a8bdd (postscript, ps-print, ps-print-horizontal, ps-print-vertical, ps-print-headers,
Juanma Barranquero <lekktu@gmail.com>
parents: 63825
diff changeset
1612 "Page customization."
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1613 :prefix "ps-"
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1614 :tag "Page"
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
1615 :version "20"
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1616 :group 'ps-print)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1617
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
1618 (defgroup ps-print-miscellany nil
64019
b0446d1a8bdd (postscript, ps-print, ps-print-horizontal, ps-print-vertical, ps-print-headers,
Juanma Barranquero <lekktu@gmail.com>
parents: 63825
diff changeset
1619 "Miscellany customization."
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
1620 :prefix "ps-"
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
1621 :tag "Miscellany"
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
1622 :version "20"
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
1623 :group 'ps-print)
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
1624
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1625
28153
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
1626 (defcustom ps-error-handler-message 'paper
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
1627 "*Specify where the error handler message should be sent.
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
1628
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
1629 Valid values are:
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
1630
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
1631 `none' catch the error and *DON'T* send any message.
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
1632
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
1633 `paper' catch the error and print on paper the error message.
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
1634
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
1635 `system' catch the error and send back the error message to
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
1636 printing system. This is useful only if printing system
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
1637 send back an email reporting the error, or if there is
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
1638 some other alternative way to report back the error from
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
1639 the system to you.
28153
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
1640
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
1641 `paper-and-system' catch the error, print on paper the error message and
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
1642 send back the error message to printing system.
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
1643
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
1644 Any other value is treated as `paper'."
29494
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
1645 :type '(choice :menu-tag "Error Handler Message"
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
1646 :tag "Error Handler Message"
28153
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
1647 (const none) (const paper)
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
1648 (const system) (const paper-and-system))
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
1649 :version "20"
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
1650 :group 'ps-print-miscellany)
28153
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
1651
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
1652 (defcustom ps-user-defined-prologue nil
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
1653 "*User defined PostScript prologue code inserted before all prologue code.
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
1654
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
1655 `ps-user-defined-prologue' may be a string or a symbol function which returns a
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
1656 string. Note that this string is inserted after `ps-adobe-tag' and PostScript
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
1657 prologue comments, and before ps-print PostScript prologue code section. That
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
1658 is, this string is inserted after error handler initialization and before
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
1659 ps-print settings.
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
1660
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
1661 It's strongly recommended only insert PostScript code and/or comments specific
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
1662 for your printing system particularities. For example, some special
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
1663 initialization that only your printing system needs.
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
1664
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1665 Do not insert code for duplex printing, n-up printing or error handler,
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1666 ps-print handles this in a suitable way.
28153
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
1667
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
1668 For more information about PostScript, see:
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
1669 PostScript Language Reference Manual (2nd edition)
31253
4c40c1171b8b Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 30522
diff changeset
1670 Adobe Systems Incorporated
4c40c1171b8b Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 30522
diff changeset
1671
4c40c1171b8b Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 30522
diff changeset
1672 As an example for `ps-user-defined-prologue' setting:
4c40c1171b8b Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 30522
diff changeset
1673
4c40c1171b8b Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 30522
diff changeset
1674 ;; Setting for HP PostScript printer
4c40c1171b8b Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 30522
diff changeset
1675 (setq ps-user-defined-prologue
4c40c1171b8b Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 30522
diff changeset
1676 (concat \"<</DeferredMediaSelection true /PageSize [612 792] \"
47328
ac7145660745 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 47154
diff changeset
1677 \"/MediaPosition 2 /MediaType (Plain)>> setpagedevice\"))"
29494
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
1678 :type '(choice :menu-tag "User Defined Prologue"
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
1679 :tag "User Defined Prologue"
28979
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
1680 (const :tag "none" nil) string symbol)
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
1681 :version "20"
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
1682 :group 'ps-print-miscellany)
28153
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
1683
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
1684 (defcustom ps-print-prologue-header nil
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
1685 "*PostScript prologue header comments besides that ps-print generates.
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
1686
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1687 `ps-print-prologue-header' may be a string or a symbol function which returns a
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1688 string. Note that this string is inserted on PostScript prologue header
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1689 section which is used to define some document characteristic through PostScript
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1690 special comments, like \"%%Requirements: jog\\n\".
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
1691
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
1692 ps-print always inserts the %%Requirements: comment, so if you need to insert
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
1693 more requirements put them first in `ps-print-prologue-header' using the
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
1694 \"%%+\" comment. For example, if you need to set numcopies to 3 and jog on
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
1695 requirements and set %%LanguageLevel: to 2, do:
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
1696
47328
ac7145660745 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 47154
diff changeset
1697 (setq ps-print-prologue-header
50032
c919f0375a3e Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 49763
diff changeset
1698 \"%%+ numcopies(3) jog\\n%%LanguageLevel: 2\\n\")
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
1699
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
1700 The duplex requirement is inserted by ps-print (see `ps-spool-duplex').
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
1701
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
1702 Do not forget to terminate the string with \"\\n\".
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
1703
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
1704 For more information about PostScript document comments, see:
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
1705 PostScript Language Reference Manual (2nd edition)
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
1706 Adobe Systems Incorporated
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
1707 Appendix G: Document Structuring Conventions -- Version 3.0"
29494
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
1708 :type '(choice :menu-tag "Prologue Header"
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
1709 :tag "Prologue Header"
28979
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
1710 (const :tag "none" nil) string symbol)
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
1711 :version "20"
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
1712 :group 'ps-print-miscellany)
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
1713
23892
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
1714 (defcustom ps-printer-name (and (boundp 'printer-name)
36215
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
1715 (symbol-value 'printer-name))
22680
3cf03f32956c (ps-printer-name): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22596
diff changeset
1716 "*The name of a local printer for printing PostScript files.
3cf03f32956c (ps-printer-name): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22596
diff changeset
1717
32619
c09b494a5f49 Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents: 31253
diff changeset
1718 On Unix-like systems, a string value should be a name understood by lpr's -P
c09b494a5f49 Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents: 31253
diff changeset
1719 option; a value of nil means use the value of `printer-name' instead.
c09b494a5f49 Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents: 31253
diff changeset
1720
c09b494a5f49 Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents: 31253
diff changeset
1721 On MS-DOS and MS-Windows systems, a string value is taken as the name of the
c09b494a5f49 Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents: 31253
diff changeset
1722 printer device or port to which PostScript files are written, provided
c09b494a5f49 Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents: 31253
diff changeset
1723 `ps-lpr-command' is \"\". By default it is the same as `printer-name'; typical
c09b494a5f49 Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents: 31253
diff changeset
1724 non-default settings would be \"LPT1\" to \"LPT3\" for parallel printers, or
33337
75b72848ba05 Patch for variable initialization when spooling. Doc
Gerd Moellmann <gerd@gnu.org>
parents: 33143
diff changeset
1725 \"COM1\" to \"COM4\" or \"AUX\" for serial printers, or \"\\\\hostname\\printer\"
32619
c09b494a5f49 Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents: 31253
diff changeset
1726 for a shared network printer. You can also set it to a name of a file, in
c09b494a5f49 Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents: 31253
diff changeset
1727 which case the output gets appended to that file. \(Note that `ps-print'
c09b494a5f49 Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents: 31253
diff changeset
1728 package already has facilities for printing to a file, so you might as well use
c09b494a5f49 Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents: 31253
diff changeset
1729 them instead of changing the setting of this variable.\) If you want to
c09b494a5f49 Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents: 31253
diff changeset
1730 silently discard the printed output, set this to \"NUL\".
c09b494a5f49 Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents: 31253
diff changeset
1731
c09b494a5f49 Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents: 31253
diff changeset
1732 Set to t, if the utility given by `ps-lpr-command' needs an empty printer name.
c09b494a5f49 Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents: 31253
diff changeset
1733
c09b494a5f49 Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents: 31253
diff changeset
1734 Any other value is treated as t, that is, an empty printer name.
c09b494a5f49 Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents: 31253
diff changeset
1735
c09b494a5f49 Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents: 31253
diff changeset
1736 See also `ps-printer-name-option' for documentation."
29494
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
1737 :type '(choice :menu-tag "Printer Name"
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
1738 :tag "Printer Name"
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
1739 (const :tag "Same as printer-name" nil)
32619
c09b494a5f49 Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents: 31253
diff changeset
1740 (const :tag "No Printer Name" t)
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
1741 (file :tag "Print to file")
29494
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
1742 (string :tag "Pipe to ps-lpr-command"))
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
1743 :version "20"
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1744 :group 'ps-print-printer)
22680
3cf03f32956c (ps-printer-name): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22596
diff changeset
1745
32619
c09b494a5f49 Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents: 31253
diff changeset
1746 (defcustom ps-printer-name-option
c09b494a5f49 Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents: 31253
diff changeset
1747 (cond (ps-windows-system
c09b494a5f49 Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents: 31253
diff changeset
1748 "/D:")
c09b494a5f49 Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents: 31253
diff changeset
1749 (ps-lp-system
c09b494a5f49 Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents: 31253
diff changeset
1750 "-d")
c09b494a5f49 Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents: 31253
diff changeset
1751 (t
c09b494a5f49 Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents: 31253
diff changeset
1752 "-P" ))
c09b494a5f49 Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents: 31253
diff changeset
1753 "*Option for `ps-printer-name' variable (see it).
c09b494a5f49 Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents: 31253
diff changeset
1754
47328
ac7145660745 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 47154
diff changeset
1755 On Unix-like systems, if `lpr' is in use, this should be the string
ac7145660745 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 47154
diff changeset
1756 \"-P\"; if `lp' is in use, this should be the string \"-d\".
ac7145660745 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 47154
diff changeset
1757
ac7145660745 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 47154
diff changeset
1758 On MS-DOS and MS-Windows systems, if `print' is in use, this should be
32619
c09b494a5f49 Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents: 31253
diff changeset
1759 the string \"/D:\".
c09b494a5f49 Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents: 31253
diff changeset
1760
47328
ac7145660745 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 47154
diff changeset
1761 For any other printing utility, see its documentation.
ac7145660745 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 47154
diff changeset
1762
47382
12f18e82e5e2 (ps-printer-name-option): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 47328
diff changeset
1763 Set this to \"\" or nil, if the utility given by `ps-lpr-command'
12f18e82e5e2 (ps-printer-name-option): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 47328
diff changeset
1764 needs an empty printer name option--that is, pass the printer name
12f18e82e5e2 (ps-printer-name-option): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 47328
diff changeset
1765 with no special option preceding it.
12f18e82e5e2 (ps-printer-name-option): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 47328
diff changeset
1766
12f18e82e5e2 (ps-printer-name-option): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 47328
diff changeset
1767 Any value that is not a string is treated as nil.
32619
c09b494a5f49 Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents: 31253
diff changeset
1768
c09b494a5f49 Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents: 31253
diff changeset
1769 This variable is used only when `ps-printer-name' is a non-empty string."
c09b494a5f49 Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents: 31253
diff changeset
1770 :type '(choice :menu-tag "Printer Name Option"
c09b494a5f49 Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents: 31253
diff changeset
1771 :tag "Printer Name Option"
c09b494a5f49 Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents: 31253
diff changeset
1772 (const :tag "None" nil)
c09b494a5f49 Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents: 31253
diff changeset
1773 (string :tag "Option"))
37135
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
1774 :version "21.1"
32619
c09b494a5f49 Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents: 31253
diff changeset
1775 :group 'ps-print-printer)
c09b494a5f49 Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents: 31253
diff changeset
1776
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1777 (defcustom ps-lpr-command lpr-command
24090
3a9da940e5f2 (ps-printer-name): Update docstring about usage on
Andrew Innes <andrewi@gnu.org>
parents: 23938
diff changeset
1778 "*Name of program for printing a PostScript file.
3a9da940e5f2 (ps-printer-name): Update docstring about usage on
Andrew Innes <andrewi@gnu.org>
parents: 23938
diff changeset
1779
32619
c09b494a5f49 Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents: 31253
diff changeset
1780 On MS-DOS and MS-Windows systems, if the value is an empty string then Emacs
c09b494a5f49 Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents: 31253
diff changeset
1781 will write directly to the printer port named by `ps-printer-name'. The
c09b494a5f49 Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents: 31253
diff changeset
1782 programs `print' and `nprint' (the standard print programs on Windows NT and
c09b494a5f49 Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents: 31253
diff changeset
1783 Novell Netware respectively) are handled specially, using `ps-printer-name' as
c09b494a5f49 Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents: 31253
diff changeset
1784 the destination for output; any other program is treated like `lpr' except that
c09b494a5f49 Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents: 31253
diff changeset
1785 an explicit filename is given as the last argument."
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1786 :type 'string
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
1787 :version "20"
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1788 :group 'ps-print-printer)
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1789
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1790 (defcustom ps-lpr-switches lpr-switches
86282
6fd01916efe1 ps-lpr-switches docstring fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 86033
diff changeset
1791 "*List of extra switches to pass to `ps-lpr-command'.
6fd01916efe1 ps-lpr-switches docstring fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 86033
diff changeset
1792
6fd01916efe1 ps-lpr-switches docstring fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 86033
diff changeset
1793 The list element can be:
6fd01916efe1 ps-lpr-switches docstring fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 86033
diff changeset
1794
6fd01916efe1 ps-lpr-switches docstring fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 86033
diff changeset
1795 string it should be an option for `ps-lpr-command' (which see).
6fd01916efe1 ps-lpr-switches docstring fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 86033
diff changeset
1796 For example: \"-o Duplex=DuplexNoTumble\"
6fd01916efe1 ps-lpr-switches docstring fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 86033
diff changeset
1797
6fd01916efe1 ps-lpr-switches docstring fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 86033
diff changeset
1798 symbol it can be a function or variable symbol. If it's a function
6fd01916efe1 ps-lpr-switches docstring fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 86033
diff changeset
1799 symbol, it should be a function with no argument. The result
6fd01916efe1 ps-lpr-switches docstring fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 86033
diff changeset
1800 of the function or the variable value should be a string or a
6fd01916efe1 ps-lpr-switches docstring fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 86033
diff changeset
1801 list of strings.
6fd01916efe1 ps-lpr-switches docstring fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 86033
diff changeset
1802
6fd01916efe1 ps-lpr-switches docstring fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 86033
diff changeset
1803 list the header should be a symbol function and the tail is the
6fd01916efe1 ps-lpr-switches docstring fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 86033
diff changeset
1804 arguments for this function. This function should return a
6fd01916efe1 ps-lpr-switches docstring fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 86033
diff changeset
1805 string or a list of strings.
6fd01916efe1 ps-lpr-switches docstring fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 86033
diff changeset
1806
6fd01916efe1 ps-lpr-switches docstring fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 86033
diff changeset
1807 Any other value is silently ignored.
6fd01916efe1 ps-lpr-switches docstring fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 86033
diff changeset
1808
6fd01916efe1 ps-lpr-switches docstring fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 86033
diff changeset
1809 It is recommended to set `ps-printer-name' (which see) instead of including an
6fd01916efe1 ps-lpr-switches docstring fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 86033
diff changeset
1810 explicit switch on this list.
6fd01916efe1 ps-lpr-switches docstring fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 86033
diff changeset
1811
6fd01916efe1 ps-lpr-switches docstring fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 86033
diff changeset
1812 See `ps-lpr-command'."
28576
1694ed739e69 Customization fix, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28426
diff changeset
1813 :type '(repeat :tag "PostScript lpr Switches"
34045
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
1814 (choice :menu-tag "PostScript lpr Switch"
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
1815 :tag "PostScript lpr Switch"
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
1816 string symbol (repeat sexp)))
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
1817 :version "20"
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1818 :group 'ps-print-printer)
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1819
24090
3a9da940e5f2 (ps-printer-name): Update docstring about usage on
Andrew Innes <andrewi@gnu.org>
parents: 23938
diff changeset
1820 (defcustom ps-print-region-function nil
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1821 "*Specify a function to print the region on a PostScript printer.
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1822 See definition of `call-process-region' for calling conventions. The fourth
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1823 and the sixth arguments are both nil."
35970
2357e03b072b (ps-print-region-function): Fix :type.
Dave Love <fx@gnu.org>
parents: 34919
diff changeset
1824 :type '(choice (const nil) function)
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
1825 :version "20"
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1826 :group 'ps-print-printer)
24090
3a9da940e5f2 (ps-printer-name): Update docstring about usage on
Andrew Innes <andrewi@gnu.org>
parents: 23938
diff changeset
1827
29494
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
1828 (defcustom ps-manual-feed nil
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
1829 "*Non-nil means the printer will manually feed paper.
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
1830
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
1831 If it's nil, automatic feeding takes place."
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
1832 :type 'boolean
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
1833 :version "20"
29494
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
1834 :group 'ps-print-printer)
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
1835
34919
2c73a20c859c Handle form feed better when ps-zebra-stripe-follow is
Gerd Moellmann <gerd@gnu.org>
parents: 34045
diff changeset
1836 (defcustom ps-end-with-control-d (and ps-windows-system t)
34045
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
1837 "*Non-nil means insert C-d at end of PostScript file generated."
37135
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
1838 :version "21.1"
34045
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
1839 :type 'boolean
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
1840 :version "20"
34045
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
1841 :group 'ps-print-printer)
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
1842
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1843 ;;; Page layout
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1844
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1845 ;; All page dimensions are in PostScript points.
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1846 ;; 1 inch == 2.54 cm == 72 points
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1847 ;; 1 cm == (/ 1 2.54) inch == (/ 72 2.54) points
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1848
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1849 ;; Letter 8.5 inch x 11.0 inch
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1850 ;; Legal 8.5 inch x 14.0 inch
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1851 ;; A4 8.26 inch x 11.69 inch = 21.0 cm x 29.7 cm
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1852
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1853 ;; LetterSmall 7.68 inch x 10.16 inch
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1854 ;; Tabloid 11.0 inch x 17.0 inch
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1855 ;; Ledger 17.0 inch x 11.0 inch
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1856 ;; Statement 5.5 inch x 8.5 inch
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1857 ;; Executive 7.5 inch x 10.0 inch
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1858 ;; A3 11.69 inch x 16.5 inch = 29.7 cm x 42.0 cm
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1859 ;; A4Small 7.47 inch x 10.85 inch
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1860 ;; B4 10.125 inch x 14.33 inch
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1861 ;; B5 7.16 inch x 10.125 inch
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1862
47382
12f18e82e5e2 (ps-printer-name-option): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 47328
diff changeset
1863 ;;;###autoload
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1864 (defcustom ps-page-dimensions-database
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1865 (list (list 'a4 (/ (* 72 21.0) 2.54) (/ (* 72 29.7) 2.54) "A4")
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1866 (list 'a3 (/ (* 72 29.7) 2.54) (/ (* 72 42.0) 2.54) "A3")
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1867 (list 'letter (* 72 8.5) (* 72 11.0) "Letter")
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1868 (list 'legal (* 72 8.5) (* 72 14.0) "Legal")
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1869 (list 'letter-small (* 72 7.68) (* 72 10.16) "LetterSmall")
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1870 (list 'tabloid (* 72 11.0) (* 72 17.0) "Tabloid")
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1871 (list 'ledger (* 72 17.0) (* 72 11.0) "Ledger")
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1872 (list 'statement (* 72 5.5) (* 72 8.5) "Statement")
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1873 (list 'executive (* 72 7.5) (* 72 10.0) "Executive")
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1874 (list 'a4small (* 72 7.47) (* 72 10.85) "A4Small")
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1875 (list 'b4 (* 72 10.125) (* 72 14.33) "B4")
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1876 (list 'b5 (* 72 7.16) (* 72 10.125) "B5"))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1877 "*List associating a symbolic paper type to its width, height and doc media.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1878 See `ps-paper-type'."
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1879 :type '(repeat (list :tag "Paper Type"
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1880 (symbol :tag "Name")
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1881 (number :tag "Width")
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1882 (number :tag "Height")
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1883 (string :tag "Media")))
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
1884 :version "20"
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1885 :group 'ps-print-page)
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1886
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
1887 ;;;###autoload
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1888 (defcustom ps-paper-type 'letter
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1889 "*Specify the size of paper to format for.
16870
4a5fa29f79d6 (ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents: 16361
diff changeset
1890 Should be one of the paper types defined in `ps-page-dimensions-database', for
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1891 example `letter', `legal' or `a4'."
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1892 :type '(symbol :validate (lambda (wid)
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1893 (if (assq (widget-value wid)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1894 ps-page-dimensions-database)
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1895 nil
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1896 (widget-put wid :error "Unknown paper size")
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1897 wid)))
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
1898 :version "20"
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1899 :group 'ps-print-page)
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1900
29494
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
1901 (defcustom ps-warn-paper-type t
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
1902 "*Non-nil means give an error if paper size is not equal to `ps-paper-type'.
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
1903
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
1904 It's used when `ps-spool-config' is set to `setpagedevice'."
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
1905 :type 'boolean
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
1906 :version "20"
29494
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
1907 :group 'ps-print-page)
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
1908
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1909 (defcustom ps-landscape-mode nil
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1910 "*Non-nil means print in landscape mode."
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1911 :type 'boolean
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
1912 :version "20"
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1913 :group 'ps-print-page)
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1914
28760
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
1915 (defcustom ps-print-upside-down nil
47328
ac7145660745 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 47154
diff changeset
1916 "*Non-nil means print upside-down (that is, rotated by 180 degrees)."
28760
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
1917 :type 'boolean
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
1918 :version "21.1"
28760
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
1919 :group 'ps-print-page)
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
1920
29848
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
1921 (defcustom ps-selected-pages nil
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
1922 "*Specify which pages to print.
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
1923
47328
ac7145660745 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 47154
diff changeset
1924 If nil, print all pages.
ac7145660745 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 47154
diff changeset
1925
ac7145660745 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 47154
diff changeset
1926 If a list, the lists element may be an integer or a cons cell (FROM . TO)
29848
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
1927 designating FROM page to TO page; any invalid element is ignored, that is, an
50032
c919f0375a3e Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 49763
diff changeset
1928 integer lesser than one or if FROM is greater than TO.
29848
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
1929
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
1930 Otherwise, it's treated as nil.
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
1931
47328
ac7145660745 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 47154
diff changeset
1932 After ps-print processing `ps-selected-pages' is set to nil. But the
ac7145660745 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 47154
diff changeset
1933 latest `ps-selected-pages' is saved in `ps-last-selected-pages' (which
ac7145660745 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 47154
diff changeset
1934 see). So you can restore the latest selected pages by using
ac7145660745 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 47154
diff changeset
1935 `ps-last-selected-pages' or with the `ps-restore-selected-pages'
ac7145660745 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 47154
diff changeset
1936 command (which see).
33090
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
1937
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
1938 See also `ps-even-or-odd-pages'."
29848
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
1939 :type '(repeat :tag "Selected Pages"
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
1940 (radio :tag "Page"
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
1941 (integer :tag "Number")
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
1942 (cons :tag "Range"
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
1943 (integer :tag "From")
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
1944 (integer :tag "To"))))
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
1945 :version "20"
29848
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
1946 :group 'ps-print-page)
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
1947
31253
4c40c1171b8b Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 30522
diff changeset
1948 (defcustom ps-even-or-odd-pages nil
4c40c1171b8b Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 30522
diff changeset
1949 "*Specify if it prints even/odd pages.
4c40c1171b8b Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 30522
diff changeset
1950
4c40c1171b8b Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 30522
diff changeset
1951 Valid values are:
4c40c1171b8b Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 30522
diff changeset
1952
4c40c1171b8b Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 30522
diff changeset
1953 nil print all pages.
4c40c1171b8b Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 30522
diff changeset
1954
33143
94d9ccbb780e Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33090
diff changeset
1955 `even-page' print only even pages.
94d9ccbb780e Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33090
diff changeset
1956
94d9ccbb780e Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33090
diff changeset
1957 `odd-page' print only odd pages.
94d9ccbb780e Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33090
diff changeset
1958
94d9ccbb780e Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33090
diff changeset
1959 `even-sheet' print only even sheets.
34919
2c73a20c859c Handle form feed better when ps-zebra-stripe-follow is
Gerd Moellmann <gerd@gnu.org>
parents: 34045
diff changeset
1960 That is, if `ps-n-up-printing' is 1, it behaves as `even-page';
2c73a20c859c Handle form feed better when ps-zebra-stripe-follow is
Gerd Moellmann <gerd@gnu.org>
parents: 34045
diff changeset
1961 but for values greater than 1, it'll print only the even sheet
2c73a20c859c Handle form feed better when ps-zebra-stripe-follow is
Gerd Moellmann <gerd@gnu.org>
parents: 34045
diff changeset
1962 of paper.
33143
94d9ccbb780e Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33090
diff changeset
1963
94d9ccbb780e Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33090
diff changeset
1964 `odd-sheet' print only odd sheets.
34919
2c73a20c859c Handle form feed better when ps-zebra-stripe-follow is
Gerd Moellmann <gerd@gnu.org>
parents: 34045
diff changeset
1965 That is, if `ps-n-up-printing' is 1, it behaves as `odd-page';
2c73a20c859c Handle form feed better when ps-zebra-stripe-follow is
Gerd Moellmann <gerd@gnu.org>
parents: 34045
diff changeset
1966 but for values greater than 1, it'll print only the odd sheet
2c73a20c859c Handle form feed better when ps-zebra-stripe-follow is
Gerd Moellmann <gerd@gnu.org>
parents: 34045
diff changeset
1967 of paper.
31253
4c40c1171b8b Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 30522
diff changeset
1968
33090
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
1969 Any other value is treated as nil.
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
1970
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
1971 If you set `ps-selected-pages' (see it for documentation), first the pages are
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
1972 filtered by `ps-selected-pages' and then by `ps-even-or-odd-pages'. For
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
1973 example, if we have:
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
1974
33143
94d9ccbb780e Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33090
diff changeset
1975 (setq ps-selected-pages '(1 4 (6 . 10) (12 . 16) 20))
94d9ccbb780e Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33090
diff changeset
1976
94d9ccbb780e Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33090
diff changeset
1977 Combining with `ps-even-or-odd-pages' and `ps-n-up-printing', we have:
94d9ccbb780e Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33090
diff changeset
1978
94d9ccbb780e Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33090
diff changeset
1979 `ps-n-up-printing' = 1:
33090
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
1980 `ps-even-or-odd-pages' PAGES PRINTED
33143
94d9ccbb780e Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33090
diff changeset
1981 nil 1, 4, 6, 7, 8, 9, 10, 12, 13, 14, 15, 16, 20
94d9ccbb780e Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33090
diff changeset
1982 even-page 4, 6, 8, 10, 12, 14, 16, 20
94d9ccbb780e Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33090
diff changeset
1983 odd-page 1, 7, 9, 13, 15
94d9ccbb780e Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33090
diff changeset
1984 even-sheet 4, 6, 8, 10, 12, 14, 16, 20
94d9ccbb780e Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33090
diff changeset
1985 odd-sheet 1, 7, 9, 13, 15
94d9ccbb780e Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33090
diff changeset
1986
94d9ccbb780e Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33090
diff changeset
1987 `ps-n-up-printing' = 2:
94d9ccbb780e Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33090
diff changeset
1988 `ps-even-or-odd-pages' PAGES PRINTED
94d9ccbb780e Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33090
diff changeset
1989 nil 1/4, 6/7, 8/9, 10/12, 13/14, 15/16, 20
94d9ccbb780e Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33090
diff changeset
1990 even-page 4/6, 8/10, 12/14, 16/20
94d9ccbb780e Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33090
diff changeset
1991 odd-page 1/7, 9/13, 15
94d9ccbb780e Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33090
diff changeset
1992 even-sheet 6/7, 10/12, 15/16
94d9ccbb780e Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33090
diff changeset
1993 odd-sheet 1/4, 8/9, 13/14, 20
94d9ccbb780e Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33090
diff changeset
1994
94d9ccbb780e Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33090
diff changeset
1995 So even-page/odd-page are about page parity and even-sheet/odd-sheet are about
94d9ccbb780e Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33090
diff changeset
1996 sheet parity."
31253
4c40c1171b8b Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 30522
diff changeset
1997 :type '(choice :menu-tag "Print Even/Odd Pages"
4c40c1171b8b Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 30522
diff changeset
1998 :tag "Print Even/Odd Pages"
4c40c1171b8b Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 30522
diff changeset
1999 (const :tag "All Pages" nil)
33143
94d9ccbb780e Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33090
diff changeset
2000 (const :tag "Only Even Pages" even-page)
94d9ccbb780e Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33090
diff changeset
2001 (const :tag "Only Odd Pages" odd-page)
94d9ccbb780e Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33090
diff changeset
2002 (const :tag "Only Even Sheets" even-sheet)
94d9ccbb780e Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33090
diff changeset
2003 (const :tag "Only Odd Sheets" odd-sheet))
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
2004 :version "20"
31253
4c40c1171b8b Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 30522
diff changeset
2005 :group 'ps-print-page)
4c40c1171b8b Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 30522
diff changeset
2006
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2007 (defcustom ps-print-control-characters 'control-8-bit
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2008 "*Specify the printable form for control and 8-bit characters.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2009 That is, instead of sending, for example, a ^D (\\004) to printer,
23138
14e74d2a49cb (ps-print-control-characters): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23091
diff changeset
2010 it is sent the string \"^D\".
21954
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
2011
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2012 Valid values are:
21954
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
2013
22093
5818374d88e7 (ps-file-end): Put Trailer and Pages before EndDoc.
Richard M. Stallman <rms@gnu.org>
parents: 21999
diff changeset
2014 `8-bit' This is the value to use when you want an ASCII encoding of
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
2015 any control or non-ASCII character. Control characters are
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
2016 encoded as \"^D\", and non-ASCII characters have an
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
2017 octal encoding.
21954
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
2018
22093
5818374d88e7 (ps-file-end): Put Trailer and Pages before EndDoc.
Richard M. Stallman <rms@gnu.org>
parents: 21999
diff changeset
2019 `control-8-bit' This is the value to use when you want an ASCII encoding of
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
2020 any control character, whether it is 7 or 8-bit.
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
2021 European 8-bits accented characters are printed according
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
2022 the current font.
21954
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
2023
23307
5d6530954ece Skip invisible overlay.
Karl Heuer <kwzh@gnu.org>
parents: 23273
diff changeset
2024 `control' Only ASCII control characters have an ASCII encoding.
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
2025 European 8-bits accented characters are printed according
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
2026 the current font.
21954
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
2027
22093
5818374d88e7 (ps-file-end): Put Trailer and Pages before EndDoc.
Richard M. Stallman <rms@gnu.org>
parents: 21999
diff changeset
2028 nil No ASCII encoding. Any character is printed according the
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
2029 current font.
21954
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
2030
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2031 Any other value is treated as nil."
29494
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
2032 :type '(choice :menu-tag "Control Char"
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
2033 :tag "Control Char"
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2034 (const 8-bit) (const control-8-bit)
28576
1694ed739e69 Customization fix, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28426
diff changeset
2035 (const control) (const :tag "nil" nil))
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
2036 :version "20"
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
2037 :group 'ps-print-miscellany)
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2038
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2039 (defcustom ps-n-up-printing 1
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2040 "*Specify the number of pages per sheet paper."
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2041 :type '(integer
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2042 :tag "N Up Printing"
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2043 :validate
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2044 (lambda (wid)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2045 (if (and (< 0 (widget-value wid))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2046 (<= (widget-value wid) 100))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2047 nil
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2048 (widget-put
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2049 wid :error
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2050 "Number of pages per sheet paper must be between 1 and 100.")
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2051 wid)))
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
2052 :version "20"
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2053 :group 'ps-print-n-up)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2054
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2055 (defcustom ps-n-up-margin (/ (* 72 1.0) 2.54) ; 1 cm
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2056 "*Specify the margin in points between the sheet border and n-up printing."
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2057 :type 'number
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
2058 :version "20"
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2059 :group 'ps-print-n-up)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2060
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2061 (defcustom ps-n-up-border-p t
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2062 "*Non-nil means a border is drawn around each page."
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2063 :type 'boolean
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
2064 :version "20"
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2065 :group 'ps-print-n-up)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2066
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2067 (defcustom ps-n-up-filling 'left-top
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2068 "*Specify how page matrix is filled on each sheet of paper.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2069
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2070 Following are the valid values for `ps-n-up-filling' with a filling example
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2071 using a 3x4 page matrix:
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2072
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2073 `left-top' 1 2 3 4 `left-bottom' 9 10 11 12
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2074 5 6 7 8 5 6 7 8
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2075 9 10 11 12 1 2 3 4
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2076
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2077 `right-top' 4 3 2 1 `right-bottom' 12 11 10 9
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2078 8 7 6 5 8 7 6 5
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2079 12 11 10 9 4 3 2 1
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2080
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2081 `top-left' 1 4 7 10 `bottom-left' 3 6 9 12
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2082 2 5 8 11 2 5 8 11
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2083 3 6 9 12 1 4 7 10
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2084
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2085 `top-right' 10 7 4 1 `bottom-right' 12 9 6 3
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2086 11 8 5 2 11 8 5 2
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2087 12 9 6 3 10 7 4 1
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2088
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2089 Any other value is treated as `left-top'."
29494
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
2090 :type '(choice :menu-tag "N-Up Filling"
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
2091 :tag "N-Up Filling"
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2092 (const left-top) (const left-bottom)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2093 (const right-top) (const right-bottom)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2094 (const top-left) (const bottom-left)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2095 (const top-right) (const bottom-right))
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
2096 :version "20"
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2097 :group 'ps-print-n-up)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2098
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2099 (defcustom ps-number-of-columns (if ps-landscape-mode 2 1)
47328
ac7145660745 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 47154
diff changeset
2100 "*Specify the number of columns."
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2101 :type 'number
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
2102 :version "20"
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
2103 :group 'ps-print-miscellany)
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2104
19485
eab8baa19dfa (ps-zebra-stripes): Renamed from ps-zebra-stripe.
Richard M. Stallman <rms@gnu.org>
parents: 19446
diff changeset
2105 (defcustom ps-zebra-stripes nil
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2106 "*Non-nil means print zebra stripes.
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
2107 See also documentation for `ps-zebra-stripe-height' and `ps-zebra-color'."
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2108 :type 'boolean
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
2109 :version "20"
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2110 :group 'ps-print-zebra)
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2111
19485
eab8baa19dfa (ps-zebra-stripes): Renamed from ps-zebra-stripe.
Richard M. Stallman <rms@gnu.org>
parents: 19446
diff changeset
2112 (defcustom ps-zebra-stripe-height 3
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2113 "*Number of zebra stripe lines.
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
2114 See also documentation for `ps-zebra-stripes' and `ps-zebra-color'."
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2115 :type 'number
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
2116 :version "20"
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2117 :group 'ps-print-zebra)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2118
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
2119 (defcustom ps-zebra-color 0.95
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
2120 "*Zebra stripe gray scale or RGB color.
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2121 See also documentation for `ps-zebra-stripes' and `ps-zebra-stripe-height'."
29494
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
2122 :type '(choice :menu-tag "Zebra Gray/Color"
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
2123 :tag "Zebra Gray/Color"
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
2124 (number :tag "Gray Scale" :value 0.95)
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
2125 (string :tag "Color Name" :value "gray95")
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
2126 (list :tag "RGB Color" :value (0.95 0.95 0.95)
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
2127 (number :tag "Red")
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
2128 (number :tag "Green")
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
2129 (number :tag "Blue")))
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
2130 :version "20"
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2131 :group 'ps-print-zebra)
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2132
29494
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
2133 (defcustom ps-zebra-stripe-follow nil
36215
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
2134 "*Specify how zebra stripes continue on next page.
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
2135
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
2136 Visually, valid values are (the character `+' at right of each column indicates
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
2137 that a line is printed):
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
2138
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
2139 `nil' `follow' `full' `full-follow'
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
2140 Current Page -------- ----------- --------- ----------------
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
2141 1 XXXXX + 1 XXXXXXXX + 1 XXXXXX + 1 XXXXXXXXXXXXX +
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
2142 2 XXXXX + 2 XXXXXXXX + 2 XXXXXX + 2 XXXXXXXXXXXXX +
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
2143 3 XXXXX + 3 XXXXXXXX + 3 XXXXXX + 3 XXXXXXXXXXXXX +
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
2144 4 + 4 + 4 + 4 +
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
2145 5 + 5 + 5 + 5 +
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
2146 6 + 6 + 6 + 6 +
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
2147 7 XXXXX + 7 XXXXXXXX + 7 XXXXXX + 7 XXXXXXXXXXXXX +
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
2148 8 XXXXX + 8 XXXXXXXX + 8 XXXXXX + 8 XXXXXXXXXXXXX +
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
2149 9 XXXXX + 9 XXXXXXXX + 9 XXXXXX + 9 XXXXXXXXXXXXX +
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
2150 10 + 10 +
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
2151 11 + 11 +
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
2152 -------- ----------- --------- ----------------
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
2153 Next Page -------- ----------- --------- ----------------
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
2154 12 XXXXX + 12 + 10 XXXXXX + 10 +
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
2155 13 XXXXX + 13 XXXXXXXX + 11 XXXXXX + 11 +
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
2156 14 XXXXX + 14 XXXXXXXX + 12 XXXXXX + 12 +
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
2157 15 + 15 XXXXXXXX + 13 + 13 XXXXXXXXXXXXX +
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
2158 16 + 16 + 14 + 14 XXXXXXXXXXXXX +
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
2159 17 + 17 + 15 + 15 XXXXXXXXXXXXX +
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
2160 18 XXXXX + 18 + 16 XXXXXX + 16 +
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
2161 19 XXXXX + 19 XXXXXXXX + 17 XXXXXX + 17 +
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
2162 20 XXXXX + 20 XXXXXXXX + 18 XXXXXX + 18 +
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
2163 21 + 21 XXXXXXXX +
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
2164 22 + 22 +
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
2165 -------- ----------- --------- ----------------
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
2166
50871
ff9f693543fd (ps-zebra-stripe-follow): Don't quote nil and t in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 50032
diff changeset
2167 Any other value is treated as nil."
36215
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
2168 :type '(choice :menu-tag "Zebra Stripe Follow"
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
2169 :tag "Zebra Stripe Follow"
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
2170 (const :tag "Always Restart" nil)
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
2171 (const :tag "Continue on Next Page" follow)
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
2172 (const :tag "Print Only Full Stripe" full)
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
2173 (const :tag "Continue on Full Stripe" full-follow))
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
2174 :version "20"
29494
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
2175 :group 'ps-print-zebra)
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
2176
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2177 (defcustom ps-line-number nil
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2178 "*Non-nil means print line number."
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2179 :type 'boolean
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
2180 :version "20"
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
2181 :group 'ps-print-miscellany)
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2182
28760
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
2183 (defcustom ps-line-number-step 1
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
2184 "*Specify the interval that line number is printed.
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
2185
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
2186 For example, `ps-line-number-step' is set to 2, the printing will look like:
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
2187
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
2188 1 one line
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
2189 one line
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
2190 3 one line
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
2191 one line
28979
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
2192 5 one line
28760
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
2193 one line
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
2194 ...
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
2195
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
2196 Valid values are:
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
2197
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
2198 integer an integer that specifies the interval that line number is
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
2199 printed. If it's lesser than or equal to zero, it's used the
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
2200 value 1.
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
2201
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2202 `zebra' specifies that only the line number of the first line in a
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2203 zebra stripe is to be printed.
28760
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
2204
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
2205 Any other value is treated as `zebra'."
29494
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
2206 :type '(choice :menu-tag "Line Number Step"
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
2207 :tag "Line Number Step"
28760
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
2208 (integer :tag "Step Interval")
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
2209 (const :tag "Synchronize Zebra" zebra))
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
2210 :version "20"
28760
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
2211 :group 'ps-print-miscellany)
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
2212
28979
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
2213 (defcustom ps-line-number-start 1
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
2214 "*Specify the starting point in the interval given by `ps-line-number-step'.
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
2215
32619
c09b494a5f49 Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents: 31253
diff changeset
2216 For example, if `ps-line-number-step' is set to 3 and `ps-line-number-start' is
c09b494a5f49 Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents: 31253
diff changeset
2217 set to 3, the printing will look like:
28979
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
2218
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
2219 one line
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
2220 one line
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
2221 3 one line
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
2222 one line
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
2223 one line
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
2224 6 one line
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
2225 one line
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
2226 one line
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
2227 9 one line
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
2228 one line
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
2229 ...
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
2230
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
2231 The values for `ps-line-number-start':
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
2232
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2233 * If `ps-line-number-step' is an integer, must be between 1 and the value of
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2234 `ps-line-number-step' inclusive.
28979
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
2235
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
2236 * If `ps-line-number-step' is set to `zebra', must be between 1 and the
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
2237 value of `ps-zebra-strip-height' inclusive. Use this combination if you
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
2238 wish that line number be relative to zebra stripes."
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
2239 :type '(integer :tag "Start Step Interval")
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
2240 :version "20"
28979
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
2241 :group 'ps-print-miscellany)
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
2242
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2243 (defcustom ps-print-background-image nil
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2244 "*EPS image list to be printed on background.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2245
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2246 The elements are:
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2247
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2248 (FILENAME X Y XSCALE YSCALE ROTATION PAGES...)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2249
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2250 FILENAME is a file name which contains an EPS image or some PostScript
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2251 programming like EPS.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2252 FILENAME is ignored, if it doesn't exist or is read protected.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2253
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2254 X and Y are relative positions on paper to put the image.
64546
c0ad64b42b78 (ps-extend-face-list, ps-extend-face, ps-print-background-image): Fix typos in
Juanma Barranquero <lekktu@gmail.com>
parents: 64091
diff changeset
2255 If X and Y are nil, the image is centered on paper.
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2256
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2257 XSCALE and YSCALE are scale factor to be applied to image before printing.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2258 If XSCALE and YSCALE are nil, the original size is used.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2259
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2260 ROTATION is the image rotation angle; if nil, the default is 0.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2261
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2262 PAGES designates the page to print background image.
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2263 PAGES may be a number or a cons cell (FROM . TO) designating FROM page to TO
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2264 page.
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2265 If PAGES is nil, print background image on all pages.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2266
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2267 X, Y, XSCALE, YSCALE and ROTATION may be a floating point number, an integer
47328
ac7145660745 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 47154
diff changeset
2268 number or a string. If it is a string, the string should contain PostScript
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2269 programming that returns a float or integer value.
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2270
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2271 For example, if you wish to print an EPS image on all pages do:
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2272
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2273 '((\"~/images/EPS-image.ps\"))"
28979
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
2274 :type '(repeat
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
2275 (list
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
2276 (file :tag "EPS File")
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
2277 (choice :tag "X" (const :tag "default" nil) number string)
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
2278 (choice :tag "Y" (const :tag "default" nil) number string)
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
2279 (choice :tag "X Scale" (const :tag "default" nil) number string)
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
2280 (choice :tag "Y Scale" (const :tag "default" nil) number string)
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
2281 (choice :tag "Rotation" (const :tag "default" nil) number string)
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
2282 (repeat :tag "Pages" :inline t
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
2283 (radio (integer :tag "Page")
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
2284 (cons :tag "Range"
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
2285 (integer :tag "From")
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
2286 (integer :tag "To"))))))
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
2287 :version "20"
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2288 :group 'ps-print-background)
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2289
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2290 (defcustom ps-print-background-text nil
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2291 "*Text list to be printed on background.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2292
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2293 The elements are:
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2294
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2295 (STRING X Y FONT FONTSIZE GRAY ROTATION PAGES...)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2296
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2297 STRING is the text to be printed on background.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2298
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2299 X and Y are positions on paper to put the text.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2300 If X and Y are nil, the text is positioned at lower left corner.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2301
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2302 FONT is a font name to be used on printing the text.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2303 If nil, \"Times-Roman\" is used.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2304
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2305 FONTSIZE is font size to be used, if nil, 200 is used.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2306
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2307 GRAY is the text gray factor (should be very light like 0.8).
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2308 If nil, the default is 0.85.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2309
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2310 ROTATION is the text rotation angle; if nil, the angle is given by the diagonal
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2311 from lower left corner to upper right corner.
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2312
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2313 PAGES designates the page to print background text.
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2314 PAGES may be a number or a cons cell (FROM . TO) designating FROM page to TO
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2315 page.
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2316 If PAGES is nil, print background text on all pages.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2317
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2318 X, Y, FONTSIZE, GRAY and ROTATION may be a floating point number, an integer
47328
ac7145660745 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 47154
diff changeset
2319 number or a string. If it is a string, the string should contain PostScript
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2320 programming that returns a float or integer value.
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2321
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2322 For example, if you wish to print text \"Preliminary\" on all pages do:
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2323
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2324 '((\"Preliminary\"))"
28979
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
2325 :type '(repeat
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
2326 (list
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
2327 (string :tag "Text")
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
2328 (choice :tag "X" (const :tag "default" nil) number string)
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
2329 (choice :tag "Y" (const :tag "default" nil) number string)
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
2330 (choice :tag "Font" (const :tag "default" nil) string)
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
2331 (choice :tag "Fontsize" (const :tag "default" nil) number string)
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
2332 (choice :tag "Gray" (const :tag "default" nil) number string)
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
2333 (choice :tag "Rotation" (const :tag "default" nil) number string)
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
2334 (repeat :tag "Pages" :inline t
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
2335 (radio (integer :tag "Page")
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
2336 (cons :tag "Range"
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
2337 (integer :tag "From")
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
2338 (integer :tag "To"))))))
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
2339 :version "20"
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2340 :group 'ps-print-background)
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2341
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2342 ;;; Horizontal layout
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2343
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2344 ;; ------------------------------------------
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2345 ;; | | | | | | | |
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2346 ;; | lm | text | ic | text | ic | text | rm |
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2347 ;; | | | | | | | |
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2348 ;; ------------------------------------------
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2349
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2350 (defcustom ps-left-margin (/ (* 72 2.0) 2.54) ; 2 cm
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2351 "*Left margin in points (1/72 inch)."
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2352 :type 'number
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
2353 :version "20"
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2354 :group 'ps-print-horizontal)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2355
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2356 (defcustom ps-right-margin (/ (* 72 2.0) 2.54) ; 2 cm
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2357 "*Right margin in points (1/72 inch)."
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2358 :type 'number
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
2359 :version "20"
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2360 :group 'ps-print-horizontal)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2361
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2362 (defcustom ps-inter-column (/ (* 72 2.0) 2.54) ; 2 cm
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2363 "*Horizontal space between columns in points (1/72 inch)."
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2364 :type 'number
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
2365 :version "20"
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2366 :group 'ps-print-horizontal)
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2367
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2368 ;;; Vertical layout
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2369
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2370 ;; |--------|
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2371 ;; | tm |
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2372 ;; |--------|
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2373 ;; | header |
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2374 ;; |--------|
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2375 ;; | ho |
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2376 ;; |--------|
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2377 ;; | text |
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2378 ;; |--------|
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2379 ;; | bm |
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2380 ;; |--------|
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2381
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2382 (defcustom ps-bottom-margin (/ (* 72 1.5) 2.54) ; 1.5 cm
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2383 "*Bottom margin in points (1/72 inch)."
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2384 :type 'number
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
2385 :version "20"
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2386 :group 'ps-print-vertical)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2387
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2388 (defcustom ps-top-margin (/ (* 72 1.5) 2.54) ; 1.5 cm
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2389 "*Top margin in points (1/72 inch)."
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2390 :type 'number
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
2391 :version "20"
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2392 :group 'ps-print-vertical)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2393
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2394 (defcustom ps-header-offset (/ (* 72 1.0) 2.54) ; 1.0 cm
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2395 "*Vertical space in points (1/72 inch) between the main text and the header."
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2396 :type 'number
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
2397 :version "20"
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2398 :group 'ps-print-vertical)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2399
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2400 (defcustom ps-header-line-pad 0.15
47328
ac7145660745 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 47154
diff changeset
2401 "*Portion of a header title line height to insert.
ac7145660745 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 47154
diff changeset
2402 The insertion is done between the header frame and the text it contains,
ac7145660745 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 47154
diff changeset
2403 both in the vertical and horizontal directions."
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2404 :type 'number
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
2405 :version "20"
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2406 :group 'ps-print-vertical)
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2407
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2408 (defcustom ps-footer-offset (/ (* 72 1.0) 2.54) ; 1.0 cm
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2409 "*Vertical space in points (1/72 inch) between the main text and the footer."
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2410 :type 'number
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
2411 :version "20"
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2412 :group 'ps-print-vertical)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2413
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2414 (defcustom ps-footer-line-pad 0.15
47328
ac7145660745 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 47154
diff changeset
2415 "*Portion of a footer title line height to insert.
ac7145660745 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 47154
diff changeset
2416 The insertion is done between the footer frame and the text it contains,
ac7145660745 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 47154
diff changeset
2417 both in the vertical and horizontal directions."
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2418 :type 'number
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
2419 :version "20"
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2420 :group 'ps-print-vertical)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2421
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2422 ;;; Header/Footer setup
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2423
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2424 (defcustom ps-print-header t
10493
ed52763e77d6 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 10492
diff changeset
2425 "*Non-nil means print a header at the top of each page.
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2426 By default, the header displays the buffer name, page number, and, if the
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2427 buffer is visiting a file, the file's directory. Headers are customizable by
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2428 changing variables `ps-left-header' and `ps-right-header'."
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2429 :type 'boolean
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
2430 :version "20"
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
2431 :group 'ps-print-headers)
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2432
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2433 (defcustom ps-print-header-frame t
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2434 "*Non-nil means draw a gaudy frame around the header."
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2435 :type 'boolean
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
2436 :version "20"
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
2437 :group 'ps-print-headers)
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2438
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2439 (defcustom ps-header-frame-alist
37489
ba96560d3f9e Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents: 37286
diff changeset
2440 '((fore-color . 0.0)
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2441 (back-color . 0.9)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2442 (border-width . 0.4)
37489
ba96560d3f9e Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents: 37286
diff changeset
2443 (border-color . 0.0)
ba96560d3f9e Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents: 37286
diff changeset
2444 (shadow-color . 0.0))
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2445 "*Specify header frame properties alist.
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2446
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2447 Valid frame properties are:
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2448
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2449 `fore-color' Specify the foreground frame color.
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2450 It should be a float number between 0.0 (black color)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2451 and 1.0 (white color), a string which is a color name,
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2452 or a list of 3 float numbers which corresponds to the
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2453 Red Green Blue color scale, each float number between
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2454 0.0 (dark color) and 1.0 (bright color).
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2455
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2456 `back-color' Specify the background frame color (similar to
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2457 `fore-color').
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2458
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2459 `shadow-color' Specify the shadow color (similar to `fore-color').
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2460
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2461 `border-color' Specify the border color (similar to `fore-color').
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2462
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2463 `border-width' Specify the border width.
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2464
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2465 Any other property is ignored.
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2466
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2467 Don't change this alist directly, instead use customization, or `ps-value',
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2468 `ps-get', `ps-put' and `ps-del' functions (see them for documentation)."
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2469 :version "21.1"
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2470 :type '(repeat
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2471 (choice :menu-tag "Header Frame Element"
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2472 :tag ""
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2473 (cons :tag "Foreground Color" :format "%v"
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2474 (const :format "" fore-color)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2475 (choice :menu-tag "Foreground Color"
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2476 :tag "Foreground Color"
37489
ba96560d3f9e Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents: 37286
diff changeset
2477 (number :tag "Gray Scale" :value 0.0)
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2478 (string :tag "Color Name" :value "black")
37489
ba96560d3f9e Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents: 37286
diff changeset
2479 (list :tag "RGB Color" :value (0.0 0.0 0.0)
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2480 (number :tag "Red")
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2481 (number :tag "Green")
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2482 (number :tag "Blue"))))
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2483 (cons :tag "Background Color" :format "%v"
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2484 (const :format "" back-color)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2485 (choice :menu-tag "Background Color"
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2486 :tag "Background Color"
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2487 (number :tag "Gray Scale" :value 0.9)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2488 (string :tag "Color Name" :value "gray90")
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2489 (list :tag "RGB Color" :value (0.9 0.9 0.9)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2490 (number :tag "Red")
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2491 (number :tag "Green")
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2492 (number :tag "Blue"))))
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2493 (cons :tag "Border Width" :format "%v"
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2494 (const :format "" border-width)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2495 (number :tag "Border Width" :value 0.4))
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2496 (cons :tag "Border Color" :format "%v"
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2497 (const :format "" border-color)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2498 (choice :menu-tag "Border Color"
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2499 :tag "Border Color"
37489
ba96560d3f9e Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents: 37286
diff changeset
2500 (number :tag "Gray Scale" :value 0.0)
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2501 (string :tag "Color Name" :value "black")
37489
ba96560d3f9e Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents: 37286
diff changeset
2502 (list :tag "RGB Color" :value (0.0 0.0 0.0)
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2503 (number :tag "Red")
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2504 (number :tag "Green")
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2505 (number :tag "Blue"))))
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2506 (cons :tag "Shadow Color" :format "%v"
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2507 (const :format "" shadow-color)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2508 (choice :menu-tag "Shadow Color"
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2509 :tag "Shadow Color"
37489
ba96560d3f9e Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents: 37286
diff changeset
2510 (number :tag "Gray Scale" :value 0.0)
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2511 (string :tag "Color Name" :value "black")
37489
ba96560d3f9e Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents: 37286
diff changeset
2512 (list :tag "RGB Color" :value (0.0 0.0 0.0)
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2513 (number :tag "Red")
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2514 (number :tag "Green")
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2515 (number :tag "Blue"))))))
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
2516 :version "20"
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2517 :group 'ps-print-headers)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2518
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2519 (defcustom ps-header-lines 2
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
2520 "*Number of lines to display in page header, when generating PostScript."
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2521 :type 'integer
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
2522 :version "20"
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
2523 :group 'ps-print-headers)
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2524
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2525 (defcustom ps-print-footer nil
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2526 "*Non-nil means print a footer at the bottom of each page.
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2527 By default, the footer displays page number.
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2528 Footers are customizable by changing variables `ps-left-footer' and
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2529 `ps-right-footer'."
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
2530 :type 'boolean
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2531 :version "21.1"
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2532 :group 'ps-print-headers)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2533
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2534 (defcustom ps-print-footer-frame t
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2535 "*Non-nil means draw a gaudy frame around the footer."
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
2536 :type 'boolean
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2537 :version "21.1"
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2538 :group 'ps-print-headers)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2539
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2540 (defcustom ps-footer-frame-alist
37489
ba96560d3f9e Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents: 37286
diff changeset
2541 '((fore-color . 0.0)
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2542 (back-color . 0.9)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2543 (border-width . 0.4)
37489
ba96560d3f9e Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents: 37286
diff changeset
2544 (border-color . 0.0)
ba96560d3f9e Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents: 37286
diff changeset
2545 (shadow-color . 0.0))
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2546 "*Specify footer frame properties alist.
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2547
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2548 Don't change this alist directly, instead use customization, or `ps-value',
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2549 `ps-get', `ps-put' and `ps-del' functions (see them for documentation).
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2550
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2551 See also `ps-header-frame-alist' for documentation."
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2552 :type '(repeat
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2553 (choice :menu-tag "Header Frame Element"
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2554 :tag ""
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2555 (cons :tag "Foreground Color" :format "%v"
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2556 (const :format "" fore-color)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2557 (choice :menu-tag "Foreground Color"
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2558 :tag "Foreground Color"
37489
ba96560d3f9e Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents: 37286
diff changeset
2559 (number :tag "Gray Scale" :value 0.0)
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2560 (string :tag "Color Name" :value "black")
37489
ba96560d3f9e Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents: 37286
diff changeset
2561 (list :tag "RGB Color" :value (0.0 0.0 0.0)
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2562 (number :tag "Red")
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2563 (number :tag "Green")
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2564 (number :tag "Blue"))))
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2565 (cons :tag "Background Color" :format "%v"
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2566 (const :format "" back-color)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2567 (choice :menu-tag "Background Color"
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2568 :tag "Background Color"
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2569 (number :tag "Gray Scale" :value 0.9)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2570 (string :tag "Color Name" :value "gray90")
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2571 (list :tag "RGB Color" :value (0.9 0.9 0.9)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2572 (number :tag "Red")
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2573 (number :tag "Green")
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2574 (number :tag "Blue"))))
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2575 (cons :tag "Border Width" :format "%v"
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2576 (const :format "" border-width)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2577 (number :tag "Border Width" :value 0.4))
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2578 (cons :tag "Border Color" :format "%v"
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2579 (const :format "" border-color)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2580 (choice :menu-tag "Border Color"
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2581 :tag "Border Color"
37489
ba96560d3f9e Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents: 37286
diff changeset
2582 (number :tag "Gray Scale" :value 0.0)
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2583 (string :tag "Color Name" :value "black")
37489
ba96560d3f9e Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents: 37286
diff changeset
2584 (list :tag "RGB Color" :value (0.0 0.0 0.0)
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2585 (number :tag "Red")
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2586 (number :tag "Green")
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2587 (number :tag "Blue"))))
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2588 (cons :tag "Shadow Color" :format "%v"
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2589 (const :format "" shadow-color)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2590 (choice :menu-tag "Shadow Color"
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2591 :tag "Shadow Color"
37489
ba96560d3f9e Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents: 37286
diff changeset
2592 (number :tag "Gray Scale" :value 0.0)
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2593 (string :tag "Color Name" :value "black")
37489
ba96560d3f9e Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents: 37286
diff changeset
2594 (list :tag "RGB Color" :value (0.0 0.0 0.0)
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2595 (number :tag "Red")
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2596 (number :tag "Green")
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2597 (number :tag "Blue"))))))
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
2598 :version "21.1"
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2599 :group 'ps-print-headers)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2600
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2601 (defcustom ps-footer-lines 2
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2602 "*Number of lines to display in page footer, when generating PostScript."
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
2603 :type 'integer
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2604 :version "21.1"
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2605 :group 'ps-print-headers)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2606
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2607 (defcustom ps-print-only-one-header nil
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2608 "*Non-nil means print only one header/footer at the top/bottom of each page.
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2609 This is useful when printing more than one column, so it is possible to have
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2610 only one header/footer over all columns or one header/footer per column.
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2611 See also `ps-print-header' and `ps-print-footer'."
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2612 :type 'boolean
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
2613 :version "20"
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2614 :group 'ps-print-headers)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2615
29494
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
2616 (defcustom ps-switch-header 'duplex
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2617 "*Specify if headers/footers are switched or not.
29494
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
2618
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
2619 Valid values are:
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
2620
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2621 nil Never switch headers/footers.
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2622
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2623 t Always switch headers/footers.
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2624
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2625 duplex Switch headers/footers only when duplexing is on, that is, when
29494
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
2626 `ps-spool-duplex' is non-nil.
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
2627
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2628 Any other value is treated as t.
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2629
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2630 See also `ps-print-header' and `ps-print-footer'."
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2631 :type '(choice :menu-tag "Switch Header/Footer"
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2632 :tag "Switch Header/Footer"
29494
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
2633 (const :tag "Never Switch" nil)
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
2634 (const :tag "Always Switch" t)
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
2635 (const :tag "Switch When Duplexing" duplex))
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
2636 :version "20"
29494
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
2637 :group 'ps-print-headers)
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
2638
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2639 (defcustom ps-show-n-of-n t
10683
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
2640 "*Non-nil means show page numbers as N/M, meaning page N of M.
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
2641 NOTE: page numbers are displayed as part of headers,
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
2642 see variable `ps-print-header'."
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2643 :type 'boolean
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
2644 :version "20"
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
2645 :group 'ps-print-headers)
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2646
28576
1694ed739e69 Customization fix, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28426
diff changeset
2647 (defcustom ps-spool-config
28760
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
2648 (if ps-windows-system
28576
1694ed739e69 Customization fix, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28426
diff changeset
2649 nil
1694ed739e69 Customization fix, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28426
diff changeset
2650 'lpr-switches)
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2651 "*Specify who is responsible for setting duplex and page size.
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2652
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2653 Valid values are:
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2654
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2655 `lpr-switches' duplex and page size are configured by `ps-lpr-switches'.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2656 Don't forget to set `ps-lpr-switches' to select duplex
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2657 printing for your printer.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2658
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2659 `setpagedevice' duplex and page size are configured by ps-print using the
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2660 setpagedevice PostScript operator.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2661
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2662 nil duplex and page size are configured by ps-print *not* using
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2663 the setpagedevice PostScript operator.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2664
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2665 Any other value is treated as nil.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2666
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2667 WARNING: The setpagedevice PostScript operator affects ghostview utility when
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2668 viewing file generated using landscape. Also on some printers,
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2669 setpagedevice affects zebra stripes; on other printers, setpagedevice
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2670 affects the left margin.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2671 Besides all that, if your printer does not have the paper size
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2672 specified by setpagedevice, your printing will be aborted.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2673 So, if you need to use setpagedevice, set `ps-spool-config' to
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2674 `setpagedevice', generate a test file and send it to your printer; if
47328
ac7145660745 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 47154
diff changeset
2675 the printed file isn't OK, set `ps-spool-config' to nil."
29494
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
2676 :type '(choice :menu-tag "Spool Config"
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
2677 :tag "Spool Config"
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2678 (const lpr-switches) (const setpagedevice)
28576
1694ed739e69 Customization fix, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28426
diff changeset
2679 (const :tag "nil" nil))
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
2680 :version "20"
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
2681 :group 'ps-print-headers)
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2682
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2683 (defcustom ps-spool-duplex nil ; Not many people have duplex printers,
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2684 ; so default to nil.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2685 "*Non-nil generates PostScript for a two-sided printer.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2686 For a duplex printer, the `ps-spool-*' and `ps-print-*' commands will insert
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2687 blank pages as needed between print jobs so that the next buffer printed will
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2688 start on the right page. Also, if headers are turned on, the headers will be
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2689 reversed on duplex printers so that the page numbers fall to the left on
27161
0a2452a20c74 ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 26883
diff changeset
2690 even-numbered pages.
0a2452a20c74 ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 26883
diff changeset
2691
0a2452a20c74 ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 26883
diff changeset
2692 See also `ps-spool-tumble'."
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2693 :type 'boolean
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
2694 :version "20"
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
2695 :group 'ps-print-headers)
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2696
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2697 (defcustom ps-spool-tumble nil
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2698 "*Specify how the page images on opposite sides of a sheet are oriented.
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2699 If `ps-spool-tumble' is nil, produces output suitable for binding on the left
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2700 or right. If `ps-spool-tumble' is non-nil, produces output suitable for
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2701 binding at the top or bottom.
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2702
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2703 It has effect only when `ps-spool-duplex' is non-nil."
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2704 :type 'boolean
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
2705 :version "20"
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
2706 :group 'ps-print-headers)
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2707
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2708 ;;; Fonts
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2709
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2710 (defcustom ps-font-info-database
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2711 '((Courier ; the family key
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2712 (fonts (normal . "Courier")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2713 (bold . "Courier-Bold")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2714 (italic . "Courier-Oblique")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2715 (bold-italic . "Courier-BoldOblique"))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2716 (size . 10.0)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2717 (line-height . 10.55)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2718 (space-width . 6.0)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2719 (avg-char-width . 6.0))
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2720 (Helvetica ; the family key
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2721 (fonts (normal . "Helvetica")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2722 (bold . "Helvetica-Bold")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2723 (italic . "Helvetica-Oblique")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2724 (bold-italic . "Helvetica-BoldOblique"))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2725 (size . 10.0)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2726 (line-height . 11.56)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2727 (space-width . 2.78)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2728 (avg-char-width . 5.09243))
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2729 (Times
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2730 (fonts (normal . "Times-Roman")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2731 (bold . "Times-Bold")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2732 (italic . "Times-Italic")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2733 (bold-italic . "Times-BoldItalic"))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2734 (size . 10.0)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2735 (line-height . 11.0)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2736 (space-width . 2.5)
23273
519bc559e950 (ps-font-info-database): Add missing dots in value.
Andreas Schwab <schwab@suse.de>
parents: 23204
diff changeset
2737 (avg-char-width . 4.71432))
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2738 (Palatino
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2739 (fonts (normal . "Palatino-Roman")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2740 (bold . "Palatino-Bold")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2741 (italic . "Palatino-Italic")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2742 (bold-italic . "Palatino-BoldItalic"))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2743 (size . 10.0)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2744 (line-height . 12.1)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2745 (space-width . 2.5)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2746 (avg-char-width . 5.08676))
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2747 (Helvetica-Narrow
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2748 (fonts (normal . "Helvetica-Narrow")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2749 (bold . "Helvetica-Narrow-Bold")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2750 (italic . "Helvetica-Narrow-Oblique")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2751 (bold-italic . "Helvetica-Narrow-BoldOblique"))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2752 (size . 10.0)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2753 (line-height . 11.56)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2754 (space-width . 2.2796)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2755 (avg-char-width . 4.17579))
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2756 (NewCenturySchlbk
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2757 (fonts (normal . "NewCenturySchlbk-Roman")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2758 (bold . "NewCenturySchlbk-Bold")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2759 (italic . "NewCenturySchlbk-Italic")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2760 (bold-italic . "NewCenturySchlbk-BoldItalic"))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2761 (size . 10.0)
23273
519bc559e950 (ps-font-info-database): Add missing dots in value.
Andreas Schwab <schwab@suse.de>
parents: 23204
diff changeset
2762 (line-height . 12.15)
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2763 (space-width . 2.78)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2764 (avg-char-width . 5.31162))
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2765 ;; got no bold for the next ones
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2766 (AvantGarde-Book
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2767 (fonts (normal . "AvantGarde-Book")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2768 (italic . "AvantGarde-BookOblique"))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2769 (size . 10.0)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2770 (line-height . 11.77)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2771 (space-width . 2.77)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2772 (avg-char-width . 5.45189))
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2773 (AvantGarde-Demi
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2774 (fonts (normal . "AvantGarde-Demi")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2775 (italic . "AvantGarde-DemiOblique"))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2776 (size . 10.0)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2777 (line-height . 12.72)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2778 (space-width . 2.8)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2779 (avg-char-width . 5.51351))
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2780 (Bookman-Demi
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2781 (fonts (normal . "Bookman-Demi")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2782 (italic . "Bookman-DemiItalic"))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2783 (size . 10.0)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2784 (line-height . 11.77)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2785 (space-width . 3.4)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2786 (avg-char-width . 6.05946))
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2787 (Bookman-Light
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2788 (fonts (normal . "Bookman-Light")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2789 (italic . "Bookman-LightItalic"))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2790 (size . 10.0)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2791 (line-height . 11.79)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2792 (space-width . 3.2)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2793 (avg-char-width . 5.67027))
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2794 ;; got no bold and no italic for the next ones
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2795 (Symbol
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2796 (fonts (normal . "Symbol"))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2797 (size . 10.0)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2798 (line-height . 13.03)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2799 (space-width . 2.5)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2800 (avg-char-width . 3.24324))
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2801 (Zapf-Dingbats
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2802 (fonts (normal . "Zapf-Dingbats"))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2803 (size . 10.0)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2804 (line-height . 9.63)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2805 (space-width . 2.78)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2806 (avg-char-width . 2.78))
60137
697126c8e9d4 (ps-font-info-database): New entry
Kenichi Handa <handa@m17n.org>
parents: 58407
diff changeset
2807 (ZapfChancery-MediumItalic
697126c8e9d4 (ps-font-info-database): New entry
Kenichi Handa <handa@m17n.org>
parents: 58407
diff changeset
2808 (fonts (normal . "ZapfChancery-MediumItalic"))
697126c8e9d4 (ps-font-info-database): New entry
Kenichi Handa <handa@m17n.org>
parents: 58407
diff changeset
2809 (size . 10.0)
697126c8e9d4 (ps-font-info-database): New entry
Kenichi Handa <handa@m17n.org>
parents: 58407
diff changeset
2810 (line-height . 11.45)
697126c8e9d4 (ps-font-info-database): New entry
Kenichi Handa <handa@m17n.org>
parents: 58407
diff changeset
2811 (space-width . 2.2)
697126c8e9d4 (ps-font-info-database): New entry
Kenichi Handa <handa@m17n.org>
parents: 58407
diff changeset
2812 (avg-char-width . 4.10811))
697126c8e9d4 (ps-font-info-database): New entry
Kenichi Handa <handa@m17n.org>
parents: 58407
diff changeset
2813 ;; We keep this wrong entry name (but with correct font name) for
697126c8e9d4 (ps-font-info-database): New entry
Kenichi Handa <handa@m17n.org>
parents: 58407
diff changeset
2814 ;; backward compatibility.
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2815 (Zapf-Chancery-MediumItalic
60137
697126c8e9d4 (ps-font-info-database): New entry
Kenichi Handa <handa@m17n.org>
parents: 58407
diff changeset
2816 (fonts (normal . "ZapfChancery-MediumItalic"))
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2817 (size . 10.0)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2818 (line-height . 11.45)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2819 (space-width . 2.2)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2820 (avg-char-width . 4.10811))
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2821 )
47328
ac7145660745 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 47154
diff changeset
2822 "*Font info database.
ac7145660745 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 47154
diff changeset
2823 Each element comprises: font family (the key), name, bold, italic, bold-italic,
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2824 reference size, line height, space width, average character width.
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2825 To get the info for another specific font (say Helvetica), do the following:
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2826 - create a new buffer
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2827 - generate the PostScript image to a file (C-u M-x ps-print-buffer)
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2828 - open this file and delete the leading `%' (which is the PostScript comment
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2829 character) from the line
29848
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
2830 `% 3 cm 20 cm moveto 10/Courier ReportFontInfo showpage'
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2831 to get the line
29848
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
2832 `3 cm 20 cm moveto 10/Helvetica ReportFontInfo showpage'
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2833 - add the values to `ps-font-info-database'.
31253
4c40c1171b8b Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 30522
diff changeset
2834 You can get all the fonts of YOUR printer using `ReportAllFontInfo'.
4c40c1171b8b Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 30522
diff changeset
2835
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2836 Note also that ps-print DOESN'T download any font to your printer, instead it
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2837 uses the fonts resident in your printer."
34045
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
2838 :type '(repeat
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
2839 (list :tag "Font Definition"
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
2840 (symbol :tag "Font Family")
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
2841 (cons :format "%v"
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
2842 (const :format "" fonts)
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
2843 (repeat :tag "Faces"
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
2844 (cons (choice :menu-tag "Font Weight/Slant"
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
2845 :tag "Font Weight/Slant"
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
2846 (const normal)
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
2847 (const bold)
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
2848 (const italic)
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
2849 (const bold-italic)
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
2850 (symbol :tag "Face"))
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
2851 (string :tag "Font Name"))))
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
2852 (cons :format "%v"
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
2853 (const :format "" size)
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
2854 (number :tag "Reference Size"))
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
2855 (cons :format "%v"
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
2856 (const :format "" line-height)
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
2857 (number :tag "Line Height"))
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
2858 (cons :format "%v"
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
2859 (const :format "" space-width)
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
2860 (number :tag "Space Width"))
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
2861 (cons :format "%v"
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
2862 (const :format "" avg-char-width)
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
2863 (number :tag "Average Character Width"))))
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
2864 :version "20"
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2865 :group 'ps-print-font)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2866
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2867 (defcustom ps-font-family 'Courier
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
2868 "*Font family name for ordinary text, when generating PostScript."
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2869 :type 'symbol
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
2870 :version "20"
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2871 :group 'ps-print-font)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2872
24414
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
2873 (defcustom ps-font-size '(7 . 8.5)
82413
e1ded9392645 (ps-font-size): Doc fix.
Glenn Morris <rgm@gnu.org>
parents: 82332
diff changeset
2874 "*Font size, in points, for ordinary text, when generating PostScript.
e1ded9392645 (ps-font-size): Doc fix.
Glenn Morris <rgm@gnu.org>
parents: 82332
diff changeset
2875 Either a float or a cons of floats (LANDSCAPE-SIZE . PORTRAIT-SIZE)."
34045
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
2876 :type '(choice :menu-tag "Ordinary Text Font Size"
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
2877 :tag "Ordinary Text Font Size"
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
2878 (number :tag "Text Size")
24414
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
2879 (cons :tag "Landscape/Portrait"
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
2880 (number :tag "Landscape Text Size")
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
2881 (number :tag "Portrait Text Size")))
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
2882 :version "20"
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2883 :group 'ps-print-font)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2884
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2885 (defcustom ps-header-font-family 'Helvetica
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
2886 "*Font family name for text in the header, when generating PostScript."
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2887 :type 'symbol
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
2888 :version "20"
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2889 :group 'ps-print-font)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2890
24414
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
2891 (defcustom ps-header-font-size '(10 . 12)
82415
19bb0634dbdc Docstring fix
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 82413
diff changeset
2892 "*Font size, in points, for text in the header, when generating PostScript.
19bb0634dbdc Docstring fix
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 82413
diff changeset
2893 Either a float or a cons of floats (LANDSCAPE-SIZE . PORTRAIT-SIZE)."
34045
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
2894 :type '(choice :menu-tag "Header Font Size"
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
2895 :tag "Header Font Size"
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
2896 (number :tag "Header Size")
24414
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
2897 (cons :tag "Landscape/Portrait"
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
2898 (number :tag "Landscape Header Size")
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
2899 (number :tag "Portrait Header Size")))
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
2900 :version "20"
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2901 :group 'ps-print-font)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2902
24414
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
2903 (defcustom ps-header-title-font-size '(12 . 14)
82415
19bb0634dbdc Docstring fix
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 82413
diff changeset
2904 "*Font size, in points, for the top line of text in header, in PostScript.
19bb0634dbdc Docstring fix
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 82413
diff changeset
2905 Either a float or a cons of floats (LANDSCAPE-SIZE . PORTRAIT-SIZE)."
34045
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
2906 :type '(choice :menu-tag "Header Title Font Size"
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
2907 :tag "Header Title Font Size"
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
2908 (number :tag "Header Title Size")
24414
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
2909 (cons :tag "Landscape/Portrait"
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
2910 (number :tag "Landscape Header Title Size")
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
2911 (number :tag "Portrait Header Title Size")))
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
2912 :version "20"
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2913 :group 'ps-print-font)
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2914
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2915 (defcustom ps-footer-font-family 'Helvetica
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2916 "*Font family name for text in the footer, when generating PostScript."
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
2917 :type 'symbol
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2918 :version "21.1"
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2919 :group 'ps-print-font)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2920
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2921 (defcustom ps-footer-font-size '(10 . 12)
82415
19bb0634dbdc Docstring fix
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 82413
diff changeset
2922 "*Font size, in points, for text in the footer, when generating PostScript.
19bb0634dbdc Docstring fix
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 82413
diff changeset
2923 Either a float or a cons of floats (LANDSCAPE-SIZE . PORTRAIT-SIZE)."
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2924 :type '(choice :menu-tag "Footer Font Size"
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2925 :tag "Footer Font Size"
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2926 (number :tag "Footer Size")
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2927 (cons :tag "Landscape/Portrait"
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2928 (number :tag "Landscape Footer Size")
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2929 (number :tag "Portrait Footer Size")))
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
2930 :version "21.1"
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2931 :group 'ps-print-font)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2932
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2933 (defcustom ps-line-number-color "black"
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2934 "*Specify color for line-number, when generating PostScript."
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2935 :type '(choice :menu-tag "Line Number Color"
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2936 :tag "Line Number Color"
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2937 (number :tag "Gray Scale" :value 0)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2938 (string :tag "Color Name" :value "black")
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2939 (list :tag "RGB Color" :value (0 0 0)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2940 (number :tag "Red")
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2941 (number :tag "Green")
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2942 (number :tag "Blue")))
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2943 :version "21.1"
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2944 :group 'ps-print-font
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2945 :group 'ps-print-miscellany)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
2946
34045
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
2947 (defcustom ps-line-number-font "Times-Italic"
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
2948 "*Font for line-number, when generating PostScript."
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
2949 :type 'string
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
2950 :version "20"
34045
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
2951 :group 'ps-print-font
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
2952 :group 'ps-print-miscellany)
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
2953
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
2954 (defcustom ps-line-number-font-size 6
82415
19bb0634dbdc Docstring fix
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 82413
diff changeset
2955 "*Font size, in points, for line number, when generating PostScript.
19bb0634dbdc Docstring fix
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 82413
diff changeset
2956 Either a float or a cons of floats (LANDSCAPE-SIZE . PORTRAIT-SIZE)."
34045
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
2957 :type '(choice :menu-tag "Line Number Font Size"
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
2958 :tag "Line Number Font Size"
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
2959 (number :tag "Font Size")
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
2960 (cons :tag "Landscape/Portrait"
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
2961 (number :tag "Landscape Font Size")
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
2962 (number :tag "Portrait Font Size")))
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
2963 :version "20"
34045
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
2964 :group 'ps-print-font
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
2965 :group 'ps-print-miscellany)
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
2966
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2967 ;;; Colors
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2968
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2969 ;; Printing color requires x-color-values.
47382
12f18e82e5e2 (ps-printer-name-option): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 47328
diff changeset
2970 ;; XEmacs change: Need autoload for the "Options->Printing->Color Printing"
12f18e82e5e2 (ps-printer-name-option): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 47328
diff changeset
2971 ;; widget to work.
12f18e82e5e2 (ps-printer-name-option): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 47328
diff changeset
2972 ;;;###autoload
33090
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
2973 (defcustom ps-print-color-p
47426
ec3123180ac5 Adjust ps-print-color-p, ps-default-fg and ps-default-bg setting.
Richard M. Stallman <rms@gnu.org>
parents: 47382
diff changeset
2974 (or (fboundp 'x-color-values) ; Emacs
33090
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
2975 (fboundp 'color-instance-rgb-components))
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2976 ; XEmacs
39327
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
2977 "*Specify how buffer's text color is printed.
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
2978
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
2979 Valid values are:
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
2980
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
2981 nil Do not print colors.
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
2982
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
2983 t Print colors.
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
2984
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
2985 black-white Print colors on black/white printer.
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
2986 See also `ps-black-white-faces'.
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
2987
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
2988 Any other value is treated as t."
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
2989 :type '(choice :menu-tag "Print Color"
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
2990 :tag "Print Color"
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
2991 (const :tag "Do NOT Print Color" nil)
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
2992 (const :tag "Print Always Color" t)
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
2993 (const :tag "Print Black/White Color" black-white))
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
2994 :version "20"
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2995 :group 'ps-print-color)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2996
78214
9df605969950 Fix foreground/background color
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 78130
diff changeset
2997 (defcustom ps-default-fg nil
75355
4e79291d22f4 Handle frame parameters changing dynamically
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 75347
diff changeset
2998 "*RGB values of the default foreground color.
50032
c919f0375a3e Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 49763
diff changeset
2999
c919f0375a3e Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 49763
diff changeset
3000 The `ps-default-fg' variable contains the default foreground color used by
c919f0375a3e Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 49763
diff changeset
3001 ps-print, that is, if there is a face in a text that doesn't have a foreground
c919f0375a3e Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 49763
diff changeset
3002 color, the `ps-default-fg' color should be used.
c919f0375a3e Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 49763
diff changeset
3003
c919f0375a3e Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 49763
diff changeset
3004 Valid values are:
c919f0375a3e Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 49763
diff changeset
3005
c919f0375a3e Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 49763
diff changeset
3006 t The foreground color of Emacs session will be used.
c919f0375a3e Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 49763
diff changeset
3007
75355
4e79291d22f4 Handle frame parameters changing dynamically
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 75347
diff changeset
3008 frame-parameter The foreground-color frame parameter will be used.
4e79291d22f4 Handle frame parameters changing dynamically
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 75347
diff changeset
3009
50032
c919f0375a3e Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 49763
diff changeset
3010 NUMBER It's a real value between 0.0 (black) and 1.0 (white) that
c919f0375a3e Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 49763
diff changeset
3011 indicate the gray color.
c919f0375a3e Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 49763
diff changeset
3012
63076
2942738e0235 (ps-default-fg, ps-default-bg): Fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 61073
diff changeset
3013 COLOR-NAME It's a string which contains the color name. For example:
50032
c919f0375a3e Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 49763
diff changeset
3014 \"yellow\".
c919f0375a3e Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 49763
diff changeset
3015
c919f0375a3e Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 49763
diff changeset
3016 LIST It's a list of RGB values, that is a list of three real values
c919f0375a3e Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 49763
diff changeset
3017 of the form:
c919f0375a3e Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 49763
diff changeset
3018
85711
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
3019 (RED GREEN BLUE)
50032
c919f0375a3e Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 49763
diff changeset
3020
c919f0375a3e Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 49763
diff changeset
3021 Where RED, GREEN and BLUE are reals between 0.0 (no color) and
c919f0375a3e Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 49763
diff changeset
3022 1.0 (full color).
c919f0375a3e Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 49763
diff changeset
3023
75355
4e79291d22f4 Handle frame parameters changing dynamically
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 75347
diff changeset
3024 Any other value is ignored and black color will be used.
50032
c919f0375a3e Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 49763
diff changeset
3025
82332
25e98747a502 ps-print-color-p fix
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 82208
diff changeset
3026 This variable is used only when `ps-print-color-p' (which see) is neither nil
25e98747a502 ps-print-color-p fix
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 82208
diff changeset
3027 nor black-white."
29494
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
3028 :type '(choice :menu-tag "Default Foreground Gray/Color"
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
3029 :tag "Default Foreground Gray/Color"
49763
e19e88bc6e58 Change the policy of background/foreground default color.
Juanma Barranquero <lekktu@gmail.com>
parents: 47674
diff changeset
3030 (const :tag "Session Foreground" t)
75355
4e79291d22f4 Handle frame parameters changing dynamically
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 75347
diff changeset
3031 (const :tag "Frame Foreground" frame-parameter)
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
3032 (number :tag "Gray Scale" :value 0.0)
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
3033 (string :tag "Color Name" :value "black")
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
3034 (list :tag "RGB Color" :value (0.0 0.0 0.0)
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
3035 (number :tag "Red")
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
3036 (number :tag "Green")
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
3037 (number :tag "Blue")))
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
3038 :version "20"
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
3039 :group 'ps-print-color)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
3040
78214
9df605969950 Fix foreground/background color
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 78130
diff changeset
3041 (defcustom ps-default-bg nil
75355
4e79291d22f4 Handle frame parameters changing dynamically
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 75347
diff changeset
3042 "*RGB values of the default background color.
50032
c919f0375a3e Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 49763
diff changeset
3043
c919f0375a3e Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 49763
diff changeset
3044 The `ps-default-bg' variable contains the default background color used by
c919f0375a3e Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 49763
diff changeset
3045 ps-print, that is, if there is a face in a text that doesn't have a background
c919f0375a3e Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 49763
diff changeset
3046 color, the `ps-default-bg' color should be used.
c919f0375a3e Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 49763
diff changeset
3047
c919f0375a3e Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 49763
diff changeset
3048 Valid values are:
c919f0375a3e Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 49763
diff changeset
3049
c919f0375a3e Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 49763
diff changeset
3050 t The background color of Emacs session will be used.
c919f0375a3e Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 49763
diff changeset
3051
75355
4e79291d22f4 Handle frame parameters changing dynamically
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 75347
diff changeset
3052 frame-parameter The background-color frame parameter will be used.
4e79291d22f4 Handle frame parameters changing dynamically
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 75347
diff changeset
3053
50032
c919f0375a3e Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 49763
diff changeset
3054 NUMBER It's a real value between 0.0 (black) and 1.0 (white) that
c919f0375a3e Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 49763
diff changeset
3055 indicate the gray color.
c919f0375a3e Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 49763
diff changeset
3056
63076
2942738e0235 (ps-default-fg, ps-default-bg): Fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 61073
diff changeset
3057 COLOR-NAME It's a string which contains the color name. For example:
50032
c919f0375a3e Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 49763
diff changeset
3058 \"yellow\".
c919f0375a3e Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 49763
diff changeset
3059
c919f0375a3e Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 49763
diff changeset
3060 LIST It's a list of RGB values, that is a list of three real values
c919f0375a3e Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 49763
diff changeset
3061 of the form:
c919f0375a3e Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 49763
diff changeset
3062
85711
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
3063 (RED GREEN BLUE)
50032
c919f0375a3e Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 49763
diff changeset
3064
c919f0375a3e Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 49763
diff changeset
3065 Where RED, GREEN and BLUE are reals between 0.0 (no color) and
c919f0375a3e Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 49763
diff changeset
3066 1.0 (full color).
c919f0375a3e Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 49763
diff changeset
3067
75355
4e79291d22f4 Handle frame parameters changing dynamically
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 75347
diff changeset
3068 Any other value is ignored and white color will be used.
50032
c919f0375a3e Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 49763
diff changeset
3069
82332
25e98747a502 ps-print-color-p fix
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 82208
diff changeset
3070 This variable is used only when `ps-print-color-p' (which see) is neither nil
25e98747a502 ps-print-color-p fix
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 82208
diff changeset
3071 nor black-white.
50032
c919f0375a3e Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 49763
diff changeset
3072
c919f0375a3e Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 49763
diff changeset
3073 See also `ps-use-face-background'."
29494
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
3074 :type '(choice :menu-tag "Default Background Gray/Color"
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
3075 :tag "Default Background Gray/Color"
49763
e19e88bc6e58 Change the policy of background/foreground default color.
Juanma Barranquero <lekktu@gmail.com>
parents: 47674
diff changeset
3076 (const :tag "Session Background" t)
75355
4e79291d22f4 Handle frame parameters changing dynamically
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 75347
diff changeset
3077 (const :tag "Frame Background" frame-parameter)
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
3078 (number :tag "Gray Scale" :value 1.0)
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
3079 (string :tag "Color Name" :value "white")
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
3080 (list :tag "RGB Color" :value (1.0 1.0 1.0)
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
3081 (number :tag "Red")
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
3082 (number :tag "Green")
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
3083 (number :tag "Blue")))
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
3084 :version "20"
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
3085 :group 'ps-print-color)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
3086
85711
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
3087 (defcustom ps-fg-list nil
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
3088 "*Specify foreground color list.
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
3089
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
3090 This list is used to chose a text foreground color which is different than the
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
3091 background color. It'll be used the first foreground color in `ps-fg-list'
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
3092 which is different from the background color.
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
3093
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
3094 If this list is nil, the default foreground color is used. See
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
3095 `ps-default-fg'.
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
3096
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
3097 The list element valid values are:
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
3098
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
3099 NUMBER It's a real value between 0.0 (black) and 1.0 (white) that
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
3100 indicate the gray color.
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
3101
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
3102 COLOR-NAME It's a string which contains the color name. For example:
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
3103 \"yellow\".
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
3104
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
3105 LIST It's a list of RGB values, that is a list of three real values
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
3106 of the form:
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
3107
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
3108 (RED GREEN BLUE)
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
3109
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
3110 Where RED, GREEN and BLUE are reals between 0.0 (no color) and
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
3111 1.0 (full color).
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
3112
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
3113 Any other value is ignored and black color will be used.
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
3114
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
3115 This variable is used only when `ps-fg-validate-p' (which see) is non-nil and
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
3116 when `ps-print-color-p' (which see) is neither nil nor black-white."
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
3117 :type '(repeat
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
3118 (choice :menu-tag "Foreground Gray/Color"
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
3119 :tag "Foreground Gray/Color"
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
3120 (number :tag "Gray Scale" :value 0.0)
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
3121 (string :tag "Color Name" :value "black")
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
3122 (list :tag "RGB Color" :value (0.0 0.0 0.0)
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
3123 (number :tag "Red")
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
3124 (number :tag "Green")
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
3125 (number :tag "Blue"))))
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
3126 :version "22"
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
3127 :group 'ps-print-color)
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
3128
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
3129 (defcustom ps-fg-validate-p t
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
3130 "*Non-nil means validate if foreground color is different than background.
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
3131
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
3132 If text foreground and background colors are equals, no text will appear.
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
3133
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
3134 See also `ps-fg-list'."
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
3135 :type 'boolean
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
3136 :version "22"
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
3137 :group 'ps-print-color)
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
3138
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
3139 (defcustom ps-auto-font-detect t
30522
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
3140 "*Non-nil means automatically detect bold/italic/underline face attributes.
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3141 If nil, we rely solely on the lists `ps-bold-faces', `ps-italic-faces', and
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3142 `ps-underlined-faces'."
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
3143 :type 'boolean
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
3144 :version "20"
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
3145 :group 'ps-print-font)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
3146
39327
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
3147 (defcustom ps-black-white-faces
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
3148 '((font-lock-builtin-face "black" nil bold )
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
3149 (font-lock-comment-face "gray20" nil italic)
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
3150 (font-lock-constant-face "black" nil bold )
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
3151 (font-lock-function-name-face "black" nil bold )
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
3152 (font-lock-keyword-face "black" nil bold )
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
3153 (font-lock-string-face "black" nil italic)
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
3154 (font-lock-type-face "black" nil italic)
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
3155 (font-lock-variable-name-face "black" nil bold italic)
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
3156 (font-lock-warning-face "black" nil bold italic))
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
3157 "*Specify list of face attributes to print colors on black/white printers.
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
3158
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
3159 The list elements are the same as defined on `ps-extend-face' (which see).
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
3160
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
3161 This variable is used only when `ps-print-color-p' is set to `black-white'."
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
3162 :version "21.1"
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
3163 :type '(repeat
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
3164 (list :tag "Face Specification"
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
3165 (face :tag "Face Symbol")
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
3166 (choice :menu-tag "Foreground Color"
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
3167 :tag "Foreground Color"
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
3168 (const :tag "Black" nil)
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
3169 (string :tag "Color Name"))
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
3170 (choice :menu-tag "Background Color"
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
3171 :tag "Background Color"
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
3172 (const :tag "None" nil)
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
3173 (string :tag "Color Name"))
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
3174 (repeat :inline t
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
3175 (choice :menu-tag "Attribute"
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
3176 (const bold)
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
3177 (const italic)
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
3178 (const underline)
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
3179 (const strikeout)
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
3180 (const overline)
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
3181 (const shadow)
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
3182 (const box)
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
3183 (const outline)))))
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
3184 :version "20"
39327
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
3185 :group 'ps-print-face)
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
3186
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
3187 (defcustom ps-bold-faces
16870
4a5fa29f79d6 (ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents: 16361
diff changeset
3188 (unless ps-print-color-p
4a5fa29f79d6 (ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents: 16361
diff changeset
3189 '(font-lock-function-name-face
4a5fa29f79d6 (ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents: 16361
diff changeset
3190 font-lock-builtin-face
4a5fa29f79d6 (ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents: 16361
diff changeset
3191 font-lock-variable-name-face
4a5fa29f79d6 (ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents: 16361
diff changeset
3192 font-lock-keyword-face
4a5fa29f79d6 (ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents: 16361
diff changeset
3193 font-lock-warning-face))
10493
ed52763e77d6 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 10492
diff changeset
3194 "*A list of the \(non-bold\) faces that should be printed in bold font.
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3195 This applies to generating PostScript."
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
3196 :type '(repeat face)
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
3197 :version "20"
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
3198 :group 'ps-print-face)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
3199
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
3200 (defcustom ps-italic-faces
16870
4a5fa29f79d6 (ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents: 16361
diff changeset
3201 (unless ps-print-color-p
4a5fa29f79d6 (ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents: 16361
diff changeset
3202 '(font-lock-variable-name-face
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3203 font-lock-type-face
16870
4a5fa29f79d6 (ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents: 16361
diff changeset
3204 font-lock-string-face
4a5fa29f79d6 (ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents: 16361
diff changeset
3205 font-lock-comment-face
4a5fa29f79d6 (ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents: 16361
diff changeset
3206 font-lock-warning-face))
10493
ed52763e77d6 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 10492
diff changeset
3207 "*A list of the \(non-italic\) faces that should be printed in italic font.
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3208 This applies to generating PostScript."
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
3209 :type '(repeat face)
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
3210 :version "20"
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
3211 :group 'ps-print-face)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
3212
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
3213 (defcustom ps-underlined-faces
16870
4a5fa29f79d6 (ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents: 16361
diff changeset
3214 (unless ps-print-color-p
4a5fa29f79d6 (ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents: 16361
diff changeset
3215 '(font-lock-function-name-face
20953
f3f9df46d008 Changed font-lock-reference-face to font-lock-constant-face.
Simon Marshall <simon@gnu.org>
parents: 20516
diff changeset
3216 font-lock-constant-face
16870
4a5fa29f79d6 (ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents: 16361
diff changeset
3217 font-lock-warning-face))
10493
ed52763e77d6 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 10492
diff changeset
3218 "*A list of the \(non-underlined\) faces that should be printed underlined.
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3219 This applies to generating PostScript."
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
3220 :type '(repeat face)
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
3221 :version "20"
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
3222 :group 'ps-print-face)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
3223
28760
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
3224 (defcustom ps-use-face-background nil
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
3225 "*Specify if face background should be used.
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
3226
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
3227 Valid values are:
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
3228
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
3229 t always use face background color.
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
3230 nil never use face background color.
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
3231 (face...) list of faces whose background color will be used.
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
3232
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
3233 Any other value will be treated as t."
29494
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
3234 :type '(choice :menu-tag "Use Face Background"
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
3235 :tag "Use Face Background"
28760
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
3236 (const :tag "Always Use Face Background" t)
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
3237 (const :tag "Never Use Face Background" nil)
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
3238 (repeat :menu-tag "Face Background List"
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
3239 :tag "Face Background List"
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
3240 face))
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
3241 :version "20"
28760
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
3242 :group 'ps-print-face)
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
3243
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
3244 (defcustom ps-left-header
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3245 (list 'ps-get-buffer-name 'ps-header-dirpart)
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3246 "*The items to display (each on a line) on the left part of the page header.
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3247 This applies to generating PostScript.
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3248
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3249 The value should be a list of strings and symbols, each representing an entry
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3250 in the PostScript array HeaderLinesLeft.
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3251
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3252 Strings are inserted unchanged into the array; those representing
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3253 PostScript string literals should be delimited with PostScript string
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3254 delimiters '(' and ')'.
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3255
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3256 For symbols with bound functions, the function is called and should return a
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3257 string to be inserted into the array. For symbols with bound values, the value
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3258 should be a string to be inserted into the array. In either case, function or
54233
4da084c4e7a7 Doc fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 52401
diff changeset
3259 variable, the string value has PostScript string delimiters added to it.
4da084c4e7a7 Doc fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 52401
diff changeset
3260
4da084c4e7a7 Doc fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 52401
diff changeset
3261 If symbols are unbounded, they are silently ignored."
34045
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
3262 :type '(repeat (choice :menu-tag "Left Header"
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
3263 :tag "Left Header"
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
3264 string symbol))
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
3265 :version "20"
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
3266 :group 'ps-print-headers)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3267
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
3268 (defcustom ps-right-header
36215
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
3269 (list "/pagenumberstring load"
38302
baa7f44697de Use locale dependant date to print date in header. Doc
Gerd Moellmann <gerd@gnu.org>
parents: 37967
diff changeset
3270 'ps-time-stamp-locale-default 'ps-time-stamp-hh:mm:ss)
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3271 "*The items to display (each on a line) on the right part of the page header.
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3272 This applies to generating PostScript.
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3273
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3274 See the variable `ps-left-header' for a description of the format of this
38302
baa7f44697de Use locale dependant date to print date in header. Doc
Gerd Moellmann <gerd@gnu.org>
parents: 37967
diff changeset
3275 variable.
baa7f44697de Use locale dependant date to print date in header. Doc
Gerd Moellmann <gerd@gnu.org>
parents: 37967
diff changeset
3276
baa7f44697de Use locale dependant date to print date in header. Doc
Gerd Moellmann <gerd@gnu.org>
parents: 37967
diff changeset
3277 There are the following basic functions implemented:
baa7f44697de Use locale dependant date to print date in header. Doc
Gerd Moellmann <gerd@gnu.org>
parents: 37967
diff changeset
3278
baa7f44697de Use locale dependant date to print date in header. Doc
Gerd Moellmann <gerd@gnu.org>
parents: 37967
diff changeset
3279 `ps-time-stamp-locale-default' Return the locale's \"preferred\" date
baa7f44697de Use locale dependant date to print date in header. Doc
Gerd Moellmann <gerd@gnu.org>
parents: 37967
diff changeset
3280 as, for example, \"06/18/01\".
baa7f44697de Use locale dependant date to print date in header. Doc
Gerd Moellmann <gerd@gnu.org>
parents: 37967
diff changeset
3281
baa7f44697de Use locale dependant date to print date in header. Doc
Gerd Moellmann <gerd@gnu.org>
parents: 37967
diff changeset
3282 `ps-time-stamp-hh:mm:ss' Return time as \"17:28:31\".
baa7f44697de Use locale dependant date to print date in header. Doc
Gerd Moellmann <gerd@gnu.org>
parents: 37967
diff changeset
3283
baa7f44697de Use locale dependant date to print date in header. Doc
Gerd Moellmann <gerd@gnu.org>
parents: 37967
diff changeset
3284 `ps-time-stamp-mon-dd-yyyy' Return date as \"Jun 18 2001\".
baa7f44697de Use locale dependant date to print date in header. Doc
Gerd Moellmann <gerd@gnu.org>
parents: 37967
diff changeset
3285
54233
4da084c4e7a7 Doc fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 52401
diff changeset
3286 `ps-time-stamp-yyyy-mm-dd' Return date as \"2001-06-18\" (ISO
4da084c4e7a7 Doc fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 52401
diff changeset
3287 date).
4da084c4e7a7 Doc fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 52401
diff changeset
3288
4da084c4e7a7 Doc fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 52401
diff changeset
3289 `ps-time-stamp-iso8601' Alias for `ps-time-stamp-yyyy-mm-dd'.
4da084c4e7a7 Doc fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 52401
diff changeset
3290
38302
baa7f44697de Use locale dependant date to print date in header. Doc
Gerd Moellmann <gerd@gnu.org>
parents: 37967
diff changeset
3291 You can also create your own time stamp function by using `format-time-string'
47328
ac7145660745 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 47154
diff changeset
3292 \(which see)."
34045
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
3293 :type '(repeat (choice :menu-tag "Right Header"
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
3294 :tag "Right Header"
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
3295 string symbol))
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
3296 :version "20"
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
3297 :group 'ps-print-headers)
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3298
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3299 (defcustom ps-left-footer
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3300 (list 'ps-get-buffer-name 'ps-header-dirpart)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3301 "*The items to display (each on a line) on the left part of the page footer.
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3302 This applies to generating PostScript.
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3303
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3304 The value should be a list of strings and symbols, each representing an entry
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3305 in the PostScript array FooterLinesLeft.
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3306
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3307 Strings are inserted unchanged into the array; those representing PostScript
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3308 string literals should be delimited with PostScript string delimiters '(' and
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3309 ')'.
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3310
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3311 For symbols with bound functions, the function is called and should return a
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3312 string to be inserted into the array. For symbols with bound values, the value
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3313 should be a string to be inserted into the array. In either case, function or
54233
4da084c4e7a7 Doc fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 52401
diff changeset
3314 variable, the string value has PostScript string delimiters added to it.
4da084c4e7a7 Doc fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 52401
diff changeset
3315
4da084c4e7a7 Doc fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 52401
diff changeset
3316 If symbols are unbounded, they are silently ignored."
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3317 :type '(repeat (choice :menu-tag "Left Footer"
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3318 :tag "Left Footer"
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3319 string symbol))
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
3320 :version "21.1"
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3321 :group 'ps-print-headers)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3322
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3323 (defcustom ps-right-footer
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3324 (list "/pagenumberstring load"
38302
baa7f44697de Use locale dependant date to print date in header. Doc
Gerd Moellmann <gerd@gnu.org>
parents: 37967
diff changeset
3325 'ps-time-stamp-locale-default 'ps-time-stamp-hh:mm:ss)
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3326 "*The items to display (each on a line) on the right part of the page footer.
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3327 This applies to generating PostScript.
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3328
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3329 See the variable `ps-left-footer' for a description of the format of this
38302
baa7f44697de Use locale dependant date to print date in header. Doc
Gerd Moellmann <gerd@gnu.org>
parents: 37967
diff changeset
3330 variable.
baa7f44697de Use locale dependant date to print date in header. Doc
Gerd Moellmann <gerd@gnu.org>
parents: 37967
diff changeset
3331
baa7f44697de Use locale dependant date to print date in header. Doc
Gerd Moellmann <gerd@gnu.org>
parents: 37967
diff changeset
3332 There are the following basic functions implemented:
baa7f44697de Use locale dependant date to print date in header. Doc
Gerd Moellmann <gerd@gnu.org>
parents: 37967
diff changeset
3333
baa7f44697de Use locale dependant date to print date in header. Doc
Gerd Moellmann <gerd@gnu.org>
parents: 37967
diff changeset
3334 `ps-time-stamp-locale-default' Return the locale's \"preferred\" date
baa7f44697de Use locale dependant date to print date in header. Doc
Gerd Moellmann <gerd@gnu.org>
parents: 37967
diff changeset
3335 as, for example, \"06/18/01\".
baa7f44697de Use locale dependant date to print date in header. Doc
Gerd Moellmann <gerd@gnu.org>
parents: 37967
diff changeset
3336
baa7f44697de Use locale dependant date to print date in header. Doc
Gerd Moellmann <gerd@gnu.org>
parents: 37967
diff changeset
3337 `ps-time-stamp-hh:mm:ss' Return time as \"17:28:31\".
baa7f44697de Use locale dependant date to print date in header. Doc
Gerd Moellmann <gerd@gnu.org>
parents: 37967
diff changeset
3338
baa7f44697de Use locale dependant date to print date in header. Doc
Gerd Moellmann <gerd@gnu.org>
parents: 37967
diff changeset
3339 `ps-time-stamp-mon-dd-yyyy' Return date as \"Jun 18 2001\".
baa7f44697de Use locale dependant date to print date in header. Doc
Gerd Moellmann <gerd@gnu.org>
parents: 37967
diff changeset
3340
54233
4da084c4e7a7 Doc fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 52401
diff changeset
3341 `ps-time-stamp-yyyy-mm-dd' Return date as \"2001-06-18\" (ISO
4da084c4e7a7 Doc fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 52401
diff changeset
3342 date).
4da084c4e7a7 Doc fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 52401
diff changeset
3343
4da084c4e7a7 Doc fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 52401
diff changeset
3344 `ps-time-stamp-iso8601' Alias for `ps-time-stamp-yyyy-mm-dd'.
4da084c4e7a7 Doc fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 52401
diff changeset
3345
38302
baa7f44697de Use locale dependant date to print date in header. Doc
Gerd Moellmann <gerd@gnu.org>
parents: 37967
diff changeset
3346 You can also create your own time stamp function by using `format-time-string'
47328
ac7145660745 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 47154
diff changeset
3347 \(which see)."
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3348 :type '(repeat (choice :menu-tag "Right Footer"
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3349 :tag "Right Footer"
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3350 string symbol))
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
3351 :version "21.1"
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3352 :group 'ps-print-headers)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3353
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
3354 (defcustom ps-razzle-dazzle t
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
3355 "*Non-nil means report progress while formatting buffer."
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
3356 :type 'boolean
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
3357 :version "20"
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
3358 :group 'ps-print-miscellany)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3359
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3360 (defcustom ps-adobe-tag "%!PS-Adobe-3.0\n"
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3361 "*Contains the header line identifying the output as PostScript.
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3362 By default, `ps-adobe-tag' contains the standard identifier. Some printers
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3363 require slightly different versions of this line."
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3364 :type 'string
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
3365 :version "20"
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
3366 :group 'ps-print-miscellany)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3367
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
3368 (defcustom ps-build-face-reference t
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3369 "*Non-nil means build the reference face lists.
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3370
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3371 ps-print sets this value to nil after it builds its internal reference lists of
75511
7064e151eb7e (ps-build-face-reference): Fix typo in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 75418
diff changeset
3372 bold and italic faces. By setting its value back to t, you can force ps-print
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3373 to rebuild the lists the next time you invoke one of the ...-with-faces
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3374 commands.
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3375
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3376 You should set this value back to t after you change the attributes of any
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3377 face, or create new faces. Most users shouldn't have to worry about its
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3378 setting, though."
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
3379 :type 'boolean
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
3380 :version "20"
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
3381 :group 'ps-print-face)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
3382
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
3383 (defcustom ps-always-build-face-reference nil
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3384 "*Non-nil means always rebuild the reference face lists.
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3385
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3386 If this variable is non-nil, ps-print will rebuild its internal reference lists
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3387 of bold and italic faces *every* time one of the ...-with-faces commands is
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3388 called. Most users shouldn't need to set this variable."
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
3389 :type 'boolean
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
3390 :version "20"
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
3391 :group 'ps-print-face)
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3392
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3393 (defcustom ps-banner-page-when-duplexing nil
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3394 "*Non-nil means the very first page is skipped.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3395 It's like the very first character of buffer (or region) is ^L (\\014)."
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3396 :type 'boolean
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
3397 :version "20"
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
3398 :group 'ps-print-headers)
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3399
28979
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
3400 (defcustom ps-postscript-code-directory
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
3401 (or (if (featurep 'xemacs)
76260
3823acfb56c7 Comment fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 76259
diff changeset
3402 (cond ((fboundp 'locate-data-directory) ; XEmacs
85711
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
3403 (funcall 'locate-data-directory "ps-print"))
76260
3823acfb56c7 Comment fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 76259
diff changeset
3404 ((boundp 'data-directory) ; XEmacs
85711
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
3405 (symbol-value 'data-directory))
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
3406 (t ; don't know what to do
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
3407 nil))
76260
3823acfb56c7 Comment fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 76259
diff changeset
3408 data-directory) ; Emacs
47674
330113e9df2b (ps-print-emacs-type): Error if ps-print is
Richard M. Stallman <rms@gnu.org>
parents: 47426
diff changeset
3409 (error "`ps-postscript-code-directory' isn't set properly"))
27163
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
3410 "*Directory where it's located the PostScript prologue file used by ps-print.
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
3411 By default, this directory is the same as in the variable `data-directory'."
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
3412 :type 'directory
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
3413 :version "20"
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
3414 :group 'ps-print-miscellany)
27163
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
3415
37135
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
3416 (defcustom ps-line-spacing 0
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
3417 "*Specify line spacing, in points, for ordinary text.
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
3418
82416
1c18e395fd3e Docstring fix
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 82415
diff changeset
3419 Either a float or a cons of floats (LANDSCAPE-SIZE . PORTRAIT-SIZE).
1c18e395fd3e Docstring fix
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 82415
diff changeset
3420
37135
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
3421 See also `ps-paragraph-spacing' and `ps-paragraph-regexp'.
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
3422
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
3423 To get all lines with some spacing set both `ps-line-spacing' and
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
3424 `ps-paragraph-spacing' variables."
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
3425 :type '(choice :menu-tag "Line Spacing For Ordinary Text"
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
3426 :tag "Line Spacing For Ordinary Text"
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
3427 (number :tag "Line Spacing")
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
3428 (cons :tag "Landscape/Portrait"
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
3429 (number :tag "Landscape Line Spacing")
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
3430 (number :tag "Portrait Line Spacing")))
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
3431 :version "21.1"
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
3432 :group 'ps-print-miscellany)
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
3433
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
3434 (defcustom ps-paragraph-spacing 0
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
3435 "*Specify paragraph spacing, in points, for ordinary text.
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
3436
82416
1c18e395fd3e Docstring fix
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 82415
diff changeset
3437 Either a float or a cons of floats (LANDSCAPE-SIZE . PORTRAIT-SIZE).
1c18e395fd3e Docstring fix
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 82415
diff changeset
3438
37135
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
3439 See also `ps-line-spacing' and `ps-paragraph-regexp'.
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
3440
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
3441 To get all lines with some spacing set both `ps-line-spacing' and
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
3442 `ps-paragraph-spacing' variables."
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
3443 :type '(choice :menu-tag "Paragraph Spacing For Ordinary Text"
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
3444 :tag "Paragraph Spacing For Ordinary Text"
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
3445 (number :tag "Paragraph Spacing")
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
3446 (cons :tag "Landscape/Portrait"
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
3447 (number :tag "Landscape Paragraph Spacing")
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
3448 (number :tag "Portrait Paragraph Spacing")))
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
3449 :version "21.1"
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
3450 :group 'ps-print-miscellany)
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
3451
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
3452 (defcustom ps-paragraph-regexp "[ \t]*$"
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
3453 "*Specify paragraph delimiter.
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
3454
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
3455 It should be a regexp or nil.
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
3456
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
3457 See also `ps-paragraph-spacing'."
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
3458 :type '(choice :menu-tag "Paragraph Delimiter"
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
3459 (const :tag "No Delimiter" nil)
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
3460 (regexp :tag "Delimiter Regexp"))
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
3461 :version "21.1"
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
3462 :group 'ps-print-miscellany)
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
3463
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
3464 (defcustom ps-begin-cut-regexp nil
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
3465 "*Specify regexp which is start of a region to cut out when printing.
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
3466
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
3467 As an example, variables `ps-begin-cut-regexp' and `ps-end-cut-regexp' may be
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
3468 set to \"^Local Variables:\" and \"^End:\", respectively, in order to leave out
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
3469 some special printing instructions from the actual print. Special printing
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
3470 instructions may be appended to the end of the file just like any other
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
3471 buffer-local variables. See section \"Local Variables in Files\" on Emacs
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
3472 manual for more information.
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
3473
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
3474 Variables `ps-begin-cut-regexp' and `ps-end-cut-regexp' control together what
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
3475 actually gets printed. Both variables may be set to nil in which case no
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
3476 cutting occurs."
46712
9423094d3e99 Update copyright year.
Markus Rost <rost@math.uni-bielefeld.de>
parents: 43526
diff changeset
3477 :type '(choice (const :tag "No Delimiter" nil)
9423094d3e99 Update copyright year.
Markus Rost <rost@math.uni-bielefeld.de>
parents: 43526
diff changeset
3478 (regexp :tag "Delimiter Regexp"))
37135
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
3479 :version "21.1"
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
3480 :group 'ps-print-miscellany)
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
3481
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
3482 (defcustom ps-end-cut-regexp nil
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
3483 "*Specify regexp which is end of the region to cut out when printing.
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
3484
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
3485 See `ps-begin-cut-regexp' for more information."
46712
9423094d3e99 Update copyright year.
Markus Rost <rost@math.uni-bielefeld.de>
parents: 43526
diff changeset
3486 :type '(choice (const :tag "No Delimiter" nil)
9423094d3e99 Update copyright year.
Markus Rost <rost@math.uni-bielefeld.de>
parents: 43526
diff changeset
3487 (regexp :tag "Delimiter Regexp"))
37135
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
3488 :version "21.1"
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
3489 :group 'ps-print-miscellany)
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
3490
27161
0a2452a20c74 ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 26883
diff changeset
3491
0a2452a20c74 ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 26883
diff changeset
3492 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
29848
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
3493 ;; Selected Pages
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
3494
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
3495
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
3496 (defvar ps-last-selected-pages nil
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
3497 "Latest `ps-selected-pages' value.")
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
3498
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
3499
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
3500 (defun ps-restore-selected-pages ()
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
3501 "Restore latest `ps-selected-pages' value."
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
3502 (interactive)
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
3503 (setq ps-selected-pages ps-last-selected-pages))
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
3504
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
3505
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
3506 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
27161
0a2452a20c74 ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 26883
diff changeset
3507 ;; Customization
0a2452a20c74 ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 26883
diff changeset
3508
0a2452a20c74 ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 26883
diff changeset
3509
0a2452a20c74 ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 26883
diff changeset
3510 ;;;###autoload
0a2452a20c74 ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 26883
diff changeset
3511 (defun ps-print-customize ()
0a2452a20c74 ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 26883
diff changeset
3512 "Customization of ps-print group."
0a2452a20c74 ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 26883
diff changeset
3513 (interactive)
0a2452a20c74 ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 26883
diff changeset
3514 (customize-group 'ps-print))
0a2452a20c74 ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 26883
diff changeset
3515
0a2452a20c74 ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 26883
diff changeset
3516
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3517 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3518 ;; User commands
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3519
27161
0a2452a20c74 ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 26883
diff changeset
3520
10683
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
3521 ;;;###autoload
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3522 (defun ps-print-buffer (&optional filename)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3523 "Generate and print a PostScript image of the buffer.
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3524
47328
ac7145660745 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 47154
diff changeset
3525 Interactively, when you use a prefix argument (\\[universal-argument]), the command prompts the
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3526 user for a file name, and saves the PostScript image in that file instead of
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3527 sending it to the printer.
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3528
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3529 Noninteractively, the argument FILENAME is treated as follows: if it is nil,
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3530 send the image to the printer. If FILENAME is a string, save the PostScript
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3531 image in a file with that name."
10683
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
3532 (interactive (list (ps-print-preprint current-prefix-arg)))
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3533 (ps-print-without-faces (point-min) (point-max) filename))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3534
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3535
10683
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
3536 ;;;###autoload
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3537 (defun ps-print-buffer-with-faces (&optional filename)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3538 "Generate and print a PostScript image of the buffer.
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3539 Like `ps-print-buffer', but includes font, color, and underline information in
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3540 the generated image. This command works only if you are using a window system,
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3541 so it has a way to determine color values."
10683
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
3542 (interactive (list (ps-print-preprint current-prefix-arg)))
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3543 (ps-print-with-faces (point-min) (point-max) filename))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3544
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3545
10683
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
3546 ;;;###autoload
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3547 (defun ps-print-region (from to &optional filename)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3548 "Generate and print a PostScript image of the region.
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3549 Like `ps-print-buffer', but prints just the current region."
39327
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
3550 (interactive (ps-print-preprint-region current-prefix-arg))
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3551 (ps-print-without-faces from to filename t))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3552
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3553
10683
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
3554 ;;;###autoload
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3555 (defun ps-print-region-with-faces (from to &optional filename)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3556 "Generate and print a PostScript image of the region.
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3557 Like `ps-print-region', but includes font, color, and underline information in
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3558 the generated image. This command works only if you are using a window system,
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3559 so it has a way to determine color values."
39327
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
3560 (interactive (ps-print-preprint-region current-prefix-arg))
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3561 (ps-print-with-faces from to filename t))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3562
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3563
10683
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
3564 ;;;###autoload
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3565 (defun ps-spool-buffer ()
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3566 "Generate and spool a PostScript image of the buffer.
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3567 Like `ps-print-buffer' except that the PostScript image is saved in a local
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3568 buffer to be sent to the printer later.
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3569
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3570 Use the command `ps-despool' to send the spooled images to the printer."
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3571 (interactive)
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3572 (ps-spool-without-faces (point-min) (point-max)))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3573
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3574
10683
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
3575 ;;;###autoload
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3576 (defun ps-spool-buffer-with-faces ()
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3577 "Generate and spool a PostScript image of the buffer.
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3578 Like `ps-spool-buffer', but includes font, color, and underline information in
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3579 the generated image. This command works only if you are using a window system,
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3580 so it has a way to determine color values.
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3581
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3582 Use the command `ps-despool' to send the spooled images to the printer."
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3583 (interactive)
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3584 (ps-spool-with-faces (point-min) (point-max)))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3585
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3586
10683
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
3587 ;;;###autoload
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3588 (defun ps-spool-region (from to)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3589 "Generate a PostScript image of the region and spool locally.
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3590 Like `ps-spool-buffer', but spools just the current region.
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3591
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3592 Use the command `ps-despool' to send the spooled images to the printer."
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3593 (interactive "r")
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3594 (ps-spool-without-faces from to t))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3595
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3596
10683
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
3597 ;;;###autoload
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3598 (defun ps-spool-region-with-faces (from to)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3599 "Generate a PostScript image of the region and spool locally.
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3600 Like `ps-spool-region', but includes font, color, and underline information in
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3601 the generated image. This command works only if you are using a window system,
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3602 so it has a way to determine color values.
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3603
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3604 Use the command `ps-despool' to send the spooled images to the printer."
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3605 (interactive "r")
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3606 (ps-spool-with-faces from to t))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3607
10683
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
3608 ;;;###autoload
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3609 (defun ps-despool (&optional filename)
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3610 "Send the spooled PostScript to the printer.
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3611
47328
ac7145660745 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 47154
diff changeset
3612 Interactively, when you use a prefix argument (\\[universal-argument]), the command prompts the
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3613 user for a file name, and saves the spooled PostScript image in that file
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3614 instead of sending it to the printer.
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3615
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3616 Noninteractively, the argument FILENAME is treated as follows: if it is nil,
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3617 send the image to the printer. If FILENAME is a string, save the PostScript
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3618 image in a file with that name."
10683
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
3619 (interactive (list (ps-print-preprint current-prefix-arg)))
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
3620 (ps-do-despool filename))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3621
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3622 ;;;###autoload
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3623 (defun ps-line-lengths ()
47328
ac7145660745 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 47154
diff changeset
3624 "Display the correspondence between a line length and a font size.
ac7145660745 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 47154
diff changeset
3625 Done using the current ps-print setup.
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3626 Try: pr -t file | awk '{printf \"%3d %s\n\", length($0), $0}' | sort -r | head"
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3627 (interactive)
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3628 (ps-line-lengths-internal))
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3629
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3630 ;;;###autoload
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3631 (defun ps-nb-pages-buffer (nb-lines)
19879
87952270ceeb (ps-emacs-face-kind-p): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents: 19843
diff changeset
3632 "Display number of pages to print this buffer, for various font heights.
87952270ceeb (ps-emacs-face-kind-p): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents: 19843
diff changeset
3633 The table depends on the current ps-print setup."
39327
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
3634 (interactive (ps-count-lines-preprint (point-min) (point-max)))
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3635 (ps-nb-pages nb-lines))
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3636
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3637 ;;;###autoload
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3638 (defun ps-nb-pages-region (nb-lines)
19879
87952270ceeb (ps-emacs-face-kind-p): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents: 19843
diff changeset
3639 "Display number of pages to print the region, for various font heights.
87952270ceeb (ps-emacs-face-kind-p): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents: 19843
diff changeset
3640 The table depends on the current ps-print setup."
39327
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
3641 (interactive (ps-count-lines-preprint (mark) (point)))
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3642 (ps-nb-pages nb-lines))
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3643
37967
758fe02d489d Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents: 37489
diff changeset
3644 (defvar ps-prefix-quote nil
758fe02d489d Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents: 37489
diff changeset
3645 "Used for `ps-print-quote' (which see).")
37489
ba96560d3f9e Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents: 37286
diff changeset
3646
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3647 ;;;###autoload
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3648 (defun ps-setup ()
21955
c4de7c7bc14a (ps-header-title-font-size): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 21954
diff changeset
3649 "Return the current PostScript-generation setup."
37489
ba96560d3f9e Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents: 37286
diff changeset
3650 (let (ps-prefix-quote)
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3651 (mapconcat
37489
ba96560d3f9e Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents: 37286
diff changeset
3652 #'ps-print-quote
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3653 (list
76259
c3f6909185f7 Minor fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 75953
diff changeset
3654 (concat "\n;;; (" (if (featurep 'xemacs) "XEmacs" "Emacs")
c3f6909185f7 Minor fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 75953
diff changeset
3655 ") ps-print version " ps-print-version "\n")
55386
a6ef0cb75c55 New fun.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 55385
diff changeset
3656 ";; internal vars"
76259
c3f6909185f7 Minor fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 75953
diff changeset
3657 (ps-comment-string "emacs-version " emacs-version)
c3f6909185f7 Minor fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 75953
diff changeset
3658 (ps-comment-string "ps-windows-system " ps-windows-system)
c3f6909185f7 Minor fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 75953
diff changeset
3659 (ps-comment-string "ps-lp-system " ps-lp-system)
55386
a6ef0cb75c55 New fun.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 55385
diff changeset
3660 nil
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3661 '(25 . ps-print-color-p)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3662 '(25 . ps-lpr-command)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3663 '(25 . ps-lpr-switches)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3664 '(25 . ps-printer-name)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3665 '(25 . ps-printer-name-option)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3666 '(25 . ps-print-region-function)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3667 '(25 . ps-manual-feed)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3668 '(25 . ps-end-with-control-d)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3669 nil
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3670 '(23 . ps-paper-type)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3671 '(23 . ps-warn-paper-type)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3672 '(23 . ps-landscape-mode)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3673 '(23 . ps-print-upside-down)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3674 '(23 . ps-number-of-columns)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3675 nil
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3676 '(23 . ps-zebra-stripes)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3677 '(23 . ps-zebra-stripe-height)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3678 '(23 . ps-zebra-stripe-follow)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3679 '(23 . ps-zebra-color)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3680 '(23 . ps-line-number)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3681 '(23 . ps-line-number-step)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3682 '(23 . ps-line-number-start)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3683 nil
85711
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
3684 '(17 . ps-razzle-dazzle)
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3685 '(17 . ps-default-bg)
85711
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
3686 '(17 . ps-default-fg)
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
3687 '(17 . ps-fg-validate-p)
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
3688 '(17 . ps-fg-list)
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3689 nil
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3690 '(23 . ps-use-face-background)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3691 nil
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3692 '(28 . ps-print-control-characters)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3693 nil
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3694 '(26 . ps-print-background-image)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3695 nil
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3696 '(25 . ps-print-background-text)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3697 nil
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3698 '(29 . ps-error-handler-message)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3699 '(29 . ps-user-defined-prologue)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3700 '(29 . ps-print-prologue-header)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3701 '(29 . ps-postscript-code-directory)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3702 '(29 . ps-adobe-tag)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3703 nil
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3704 '(30 . ps-left-margin)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3705 '(30 . ps-right-margin)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3706 '(30 . ps-inter-column)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3707 '(30 . ps-bottom-margin)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3708 '(30 . ps-top-margin)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3709 '(30 . ps-print-only-one-header)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3710 '(30 . ps-switch-header)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3711 '(30 . ps-print-header)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3712 '(30 . ps-header-lines)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3713 '(30 . ps-header-offset)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3714 '(30 . ps-header-line-pad)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3715 '(30 . ps-print-header-frame)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3716 '(30 . ps-header-frame-alist)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3717 '(30 . ps-print-footer)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3718 '(30 . ps-footer-lines)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3719 '(30 . ps-footer-offset)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3720 '(30 . ps-footer-line-pad)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3721 '(30 . ps-print-footer-frame)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3722 '(30 . ps-footer-frame-alist)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3723 '(30 . ps-show-n-of-n)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3724 '(30 . ps-spool-config)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3725 '(30 . ps-spool-duplex)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3726 '(30 . ps-spool-tumble)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3727 '(30 . ps-banner-page-when-duplexing)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3728 '(30 . ps-left-header)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3729 '(30 . ps-right-header)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3730 '(30 . ps-left-footer)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3731 '(30 . ps-right-footer)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3732 nil
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3733 '(23 . ps-n-up-printing)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3734 '(23 . ps-n-up-margin)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3735 '(23 . ps-n-up-border-p)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3736 '(23 . ps-n-up-filling)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3737 nil
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3738 '(26 . ps-multibyte-buffer)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3739 '(26 . ps-font-family)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3740 '(26 . ps-font-size)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3741 '(26 . ps-header-font-family)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3742 '(26 . ps-header-font-size)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3743 '(26 . ps-header-title-font-size)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3744 '(26 . ps-footer-font-family)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3745 '(26 . ps-footer-font-size)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3746 '(26 . ps-line-number-color)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3747 '(26 . ps-line-number-font)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3748 '(26 . ps-line-number-font-size)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3749 '(26 . ps-line-spacing)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3750 '(26 . ps-paragraph-spacing)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3751 '(26 . ps-paragraph-regexp)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3752 '(26 . ps-begin-cut-regexp)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3753 '(26 . ps-end-cut-regexp)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3754 nil
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3755 '(23 . ps-even-or-odd-pages)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3756 '(23 . ps-selected-pages)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3757 '(23 . ps-last-selected-pages)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3758 nil
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3759 '(31 . ps-build-face-reference)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3760 '(31 . ps-always-build-face-reference)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3761 nil
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3762 '(20 . ps-auto-font-detect)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3763 '(20 . ps-bold-faces)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3764 '(20 . ps-italic-faces)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3765 '(20 . ps-underlined-faces)
39327
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
3766 '(20 . ps-black-white-faces)
37967
758fe02d489d Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents: 37489
diff changeset
3767 " )\n
85711
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
3768 \;; The following customized variables have long lists and are seldom modified:
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
3769 \;; ps-page-dimensions-database
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
3770 \;; ps-font-info-database
29848
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
3771
78214
9df605969950 Fix foreground/background color
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 78130
diff changeset
3772 \;;; ps-print - end of settings\n")
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3773 "\n")))
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3774
27161
0a2452a20c74 ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 26883
diff changeset
3775
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3776 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3777 ;; Utility functions and variables:
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3778
27161
0a2452a20c74 ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 26883
diff changeset
3779
37489
ba96560d3f9e Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents: 37286
diff changeset
3780 (defun ps-print-quote (elt)
37967
758fe02d489d Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents: 37489
diff changeset
3781 "Quote ELT for printing (used for showing settings).
758fe02d489d Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents: 37489
diff changeset
3782
758fe02d489d Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents: 37489
diff changeset
3783 If ELT is nil, return an empty string.
758fe02d489d Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents: 37489
diff changeset
3784 If ELT is string, return it.
758fe02d489d Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents: 37489
diff changeset
3785 Otherwise, ELT should be a cons (LEN . SYM) where SYM is a variable symbol and
758fe02d489d Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents: 37489
diff changeset
3786 LEN is the field length where SYM name will be inserted. The variable
758fe02d489d Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents: 37489
diff changeset
3787 `ps-prefix-quote' is used to form the string, if `ps-prefix-quote' is nil, it's
758fe02d489d Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents: 37489
diff changeset
3788 used \"(setq \" as prefix; otherwise, it's used \" \". So, the string
758fe02d489d Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents: 37489
diff changeset
3789 generated is:
758fe02d489d Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents: 37489
diff changeset
3790
758fe02d489d Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents: 37489
diff changeset
3791 * If `ps-prefix-quote' is nil:
758fe02d489d Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents: 37489
diff changeset
3792 \"(setq SYM-NAME SYM-VALUE\"
758fe02d489d Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents: 37489
diff changeset
3793 |<------->|
758fe02d489d Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents: 37489
diff changeset
3794 LEN
758fe02d489d Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents: 37489
diff changeset
3795
758fe02d489d Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents: 37489
diff changeset
3796 * If `ps-prefix-quote' is non-nil:
758fe02d489d Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents: 37489
diff changeset
3797 \" SYM-NAME SYM-VALUE\"
758fe02d489d Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents: 37489
diff changeset
3798 |<------->|
758fe02d489d Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents: 37489
diff changeset
3799 LEN
758fe02d489d Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents: 37489
diff changeset
3800
758fe02d489d Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents: 37489
diff changeset
3801 If `ps-prefix-quote' is nil, it's set to t after generating string."
37489
ba96560d3f9e Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents: 37286
diff changeset
3802 (cond
ba96560d3f9e Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents: 37286
diff changeset
3803 ((stringp elt) elt)
47382
12f18e82e5e2 (ps-printer-name-option): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 47328
diff changeset
3804 ((and (consp elt) (integerp (car elt))
12f18e82e5e2 (ps-printer-name-option): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 47328
diff changeset
3805 (symbolp (cdr elt)) (boundp (cdr elt)))
37489
ba96560d3f9e Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents: 37286
diff changeset
3806 (let* ((col (car elt))
ba96560d3f9e Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents: 37286
diff changeset
3807 (sym (cdr elt))
ba96560d3f9e Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents: 37286
diff changeset
3808 (key (symbol-name sym))
ba96560d3f9e Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents: 37286
diff changeset
3809 (len (length key))
ba96560d3f9e Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents: 37286
diff changeset
3810 (val (symbol-value sym)))
ba96560d3f9e Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents: 37286
diff changeset
3811 (concat (if ps-prefix-quote
37967
758fe02d489d Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents: 37489
diff changeset
3812 " "
758fe02d489d Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents: 37489
diff changeset
3813 (setq ps-prefix-quote t)
37489
ba96560d3f9e Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents: 37286
diff changeset
3814 "(setq ")
ba96560d3f9e Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents: 37286
diff changeset
3815 key
ba96560d3f9e Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents: 37286
diff changeset
3816 (if (> col len)
74351
b51283822ec9 Eliminate Emacs 20 & 21 compatibility.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 74327
diff changeset
3817 (make-string (- col len) ?\s)
37489
ba96560d3f9e Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents: 37286
diff changeset
3818 " ")
55383
ba1da01a183d New fun.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 54331
diff changeset
3819 (ps-value-string val))))
47382
12f18e82e5e2 (ps-printer-name-option): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 47328
diff changeset
3820 (t "")
37489
ba96560d3f9e Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents: 37286
diff changeset
3821 ))
ba96560d3f9e Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents: 37286
diff changeset
3822
ba96560d3f9e Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents: 37286
diff changeset
3823
55383
ba1da01a183d New fun.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 54331
diff changeset
3824 (defun ps-value-string (val)
ba1da01a183d New fun.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 54331
diff changeset
3825 "Return a string representation of VAL. Used by `ps-print-quote'."
ba1da01a183d New fun.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 54331
diff changeset
3826 (cond ((null val)
ba1da01a183d New fun.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 54331
diff changeset
3827 "nil")
ba1da01a183d New fun.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 54331
diff changeset
3828 ((eq val t)
ba1da01a183d New fun.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 54331
diff changeset
3829 "t")
ba1da01a183d New fun.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 54331
diff changeset
3830 ((or (symbolp val) (listp val))
ba1da01a183d New fun.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 54331
diff changeset
3831 (format "'%S" val))
ba1da01a183d New fun.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 54331
diff changeset
3832 (t
ba1da01a183d New fun.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 54331
diff changeset
3833 (format "%S" val))))
ba1da01a183d New fun.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 54331
diff changeset
3834
ba1da01a183d New fun.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 54331
diff changeset
3835
55384
4be40784bad4 New fun.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 55383
diff changeset
3836 (defun ps-comment-string (str value)
55387
028ab89f265f New fun.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 55386
diff changeset
3837 "Return a comment string like \";; STR = VALUE\"."
028ab89f265f New fun.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 55386
diff changeset
3838 (format ";; %s = %s" str (ps-value-string value)))
55384
4be40784bad4 New fun.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 55383
diff changeset
3839
4be40784bad4 New fun.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 55383
diff changeset
3840
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3841 (defun ps-value (alist-sym key)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3842 "Return value from association list ALIST-SYM which car is `eq' to KEY."
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3843 (cdr (assq key (symbol-value alist-sym))))
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3844
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3845
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3846 (defun ps-get (alist-sym key)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3847 "Return element from association list ALIST-SYM which car is `eq' to KEY."
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3848 (assq key (symbol-value alist-sym)))
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3849
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3850
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3851 (defun ps-put (alist-sym key value)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3852 "Store element (KEY . VALUE) into association list ALIST-SYM.
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3853 If KEY already exists in ALIST-SYM, modify cdr to VALUE.
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3854 It can be retrieved with `(ps-get ALIST-SYM KEY)'."
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3855 (let ((elt: (assq key (symbol-value alist-sym)))) ; to avoid name conflict
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3856 (if elt:
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3857 (setcdr elt: value)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3858 (setq elt: (cons key value))
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3859 (set alist-sym (cons elt: (symbol-value alist-sym))))
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3860 elt:))
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3861
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3862
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3863 (defun ps-del (alist-sym key)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3864 "Delete by side effect element KEY from association list ALIST-SYM."
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3865 (let ((a:list: (symbol-value alist-sym)) ; to avoid name conflict
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3866 old)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3867 (while a:list:
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3868 (if (eq key (car (car a:list:)))
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3869 (progn
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3870 (if old
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3871 (setcdr old (cdr a:list:))
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3872 (set alist-sym (cdr a:list:)))
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3873 (setq a:list: nil))
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3874 (setq old a:list:
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3875 a:list: (cdr a:list:)))))
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3876 (symbol-value alist-sym))
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3877
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
3878
38302
baa7f44697de Use locale dependant date to print date in header. Doc
Gerd Moellmann <gerd@gnu.org>
parents: 37967
diff changeset
3879 (defun ps-time-stamp-locale-default ()
baa7f44697de Use locale dependant date to print date in header. Doc
Gerd Moellmann <gerd@gnu.org>
parents: 37967
diff changeset
3880 "Return the locale's \"preferred\" date as, for example, \"06/18/01\"."
baa7f44697de Use locale dependant date to print date in header. Doc
Gerd Moellmann <gerd@gnu.org>
parents: 37967
diff changeset
3881 (format-time-string "%x"))
baa7f44697de Use locale dependant date to print date in header. Doc
Gerd Moellmann <gerd@gnu.org>
parents: 37967
diff changeset
3882
baa7f44697de Use locale dependant date to print date in header. Doc
Gerd Moellmann <gerd@gnu.org>
parents: 37967
diff changeset
3883
36215
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
3884 (defun ps-time-stamp-mon-dd-yyyy ()
38302
baa7f44697de Use locale dependant date to print date in header. Doc
Gerd Moellmann <gerd@gnu.org>
parents: 37967
diff changeset
3885 "Return date as \"Jun 18 2001\"."
36215
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
3886 (format-time-string "%b %d %Y"))
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
3887
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
3888
54233
4da084c4e7a7 Doc fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 52401
diff changeset
3889 (defun ps-time-stamp-yyyy-mm-dd ()
4da084c4e7a7 Doc fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 52401
diff changeset
3890 "Return date as \"2001-06-18\" (ISO date)."
4da084c4e7a7 Doc fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 52401
diff changeset
3891 (format-time-string "%Y-%m-%d"))
4da084c4e7a7 Doc fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 52401
diff changeset
3892
4da084c4e7a7 Doc fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 52401
diff changeset
3893
56127
a39b3f6d1177 Comment doc string of defalias
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 55919
diff changeset
3894 ;; Alias for `ps-time-stamp-yyyy-mm-dd' (which see).
a39b3f6d1177 Comment doc string of defalias
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 55919
diff changeset
3895 (defalias 'ps-time-stamp-iso8601 'ps-time-stamp-yyyy-mm-dd)
54233
4da084c4e7a7 Doc fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 52401
diff changeset
3896
4da084c4e7a7 Doc fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 52401
diff changeset
3897
36215
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
3898 (defun ps-time-stamp-hh:mm:ss ()
38302
baa7f44697de Use locale dependant date to print date in header. Doc
Gerd Moellmann <gerd@gnu.org>
parents: 37967
diff changeset
3899 "Return time as \"17:28:31\"."
36215
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
3900 (format-time-string "%T"))
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
3901
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
3902
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
3903 (and (featurep 'xemacs)
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
3904 ;; XEmacs change: Need to check for emacs-major-version too.
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
3905 (or (< emacs-major-version 19)
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
3906 (and (= emacs-major-version 19) (< emacs-minor-version 12)))
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
3907 (setq ps-print-color-p nil))
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
3908
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
3909
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
3910 ;; Return t if the device (which can be changed during an emacs session)
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
3911 ;; can handle colors.
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
3912 ;; This function is not yet implemented for GNU emacs.
75953
6f45466672db Use (defvar <foo>) where applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 75702
diff changeset
3913 (defalias 'ps-color-device
6f45466672db Use (defvar <foo>) where applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 75702
diff changeset
3914 (cond ((and (featurep 'xemacs)
76259
c3f6909185f7 Minor fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 75953
diff changeset
3915 ;; XEmacs change: Need to check for emacs-major-version too.
c3f6909185f7 Minor fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 75953
diff changeset
3916 (or (> emacs-major-version 19)
c3f6909185f7 Minor fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 75953
diff changeset
3917 (and (= emacs-major-version 19)
c3f6909185f7 Minor fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 75953
diff changeset
3918 (>= emacs-minor-version 12)))) ; XEmacs >= 19.12
c3f6909185f7 Minor fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 75953
diff changeset
3919 (lambda ()
85763
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
3920 (eq (device-class) 'color)))
76259
c3f6909185f7 Minor fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 75953
diff changeset
3921
c3f6909185f7 Minor fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 75953
diff changeset
3922 (t ; Emacs
c3f6909185f7 Minor fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 75953
diff changeset
3923 (lambda ()
c3f6909185f7 Minor fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 75953
diff changeset
3924 (if (fboundp 'color-values)
85763
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
3925 (color-values "Green")
76259
c3f6909185f7 Minor fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 75953
diff changeset
3926 t)))))
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
3927
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
3928
85763
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
3929 (defun ps-xemacs-mapper (extent list)
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
3930 (when (featurep 'xemacs)
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
3931 (nconc list
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
3932 (list (list (extent-start-position extent) 'push extent)
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
3933 (list (extent-end-position extent) 'pull extent))))
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
3934 nil)
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
3935
85763
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
3936 (defun ps-xemacs-extent-sorter (a b)
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
3937 (when (featurep 'xemacs)
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
3938 (< (extent-priority a) (extent-priority b))))
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
3939
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
3940 (defun ps-xemacs-face-kind-p (face kind kind-regex)
85763
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
3941 (when (featurep 'xemacs)
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
3942 (let* ((frame-font (or (face-font-instance face)
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
3943 (face-font-instance 'default)))
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
3944 (kind-cons
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
3945 (and frame-font
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
3946 (assq kind
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
3947 (font-instance-properties frame-font))))
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
3948 (kind-spec (cdr-safe kind-cons))
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
3949 (case-fold-search t))
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
3950 (and kind-spec (string-match kind-regex kind-spec)))))
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
3951
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
3952 (when (featurep 'xemacs)
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
3953 ;; to avoid XEmacs compilation gripes
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
3954 (defvar coding-system-for-write)
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
3955 (defvar coding-system-for-read)
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
3956 (defvar buffer-file-coding-system)
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
3957
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
3958 (and (fboundp 'find-coding-system)
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
3959 (or (find-coding-system 'raw-text-unix)
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
3960 (copy-coding-system 'no-conversion-unix 'raw-text-unix))))
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
3961
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
3962 (defun ps-color-values (x-color)
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
3963 (if (featurep 'xemacs)
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
3964 (let ((color (ps-xemacs-color-name x-color)))
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
3965 (cond
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
3966 ((fboundp 'x-color-values)
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
3967 (x-color-values color))
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
3968 ((and (fboundp 'color-instance-rgb-components)
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
3969 (ps-color-device))
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
3970 (color-instance-rgb-components
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
3971 (if (color-instance-p x-color)
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
3972 x-color
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
3973 (make-color-instance color))))
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
3974 (t
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
3975 (error "No available function to determine X color values"))))
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
3976 (cond
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
3977 ((fboundp 'color-values)
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
3978 (color-values x-color))
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
3979 ((fboundp 'x-color-values)
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
3980 (x-color-values x-color))
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
3981 (t
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
3982 (error "No available function to determine X color values")))))
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
3983
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
3984 (defun ps-face-bold-p (face)
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
3985 (if (featurep 'xemacs)
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
3986 (or (ps-xemacs-face-kind-p face 'WEIGHT_NAME "bold\\|demibold")
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
3987 (memq face ps-bold-faces)) ; Kludge-compatible
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
3988 (or (face-bold-p face)
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
3989 (memq face ps-bold-faces))))
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
3990
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
3991 (defun ps-face-italic-p (face)
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
3992 (if (featurep 'xemacs)
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
3993 (or (ps-xemacs-face-kind-p face 'ANGLE_NAME "i\\|o")
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
3994 (ps-xemacs-face-kind-p face 'SLANT "i\\|o")
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
3995 (memq face ps-italic-faces)) ; Kludge-compatible
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
3996 (or (face-italic-p face)
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
3997 (memq face ps-italic-faces))))
32653
f05cc7224309 Even/odd pages fix. Fix little bug on XEmacs. Avoid
Gerd Moellmann <gerd@gnu.org>
parents: 32619
diff changeset
3998
33090
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
3999 (defvar ps-print-color-scale 1.0)
32914
29cbd0eb60e6 Avoid compilation gripes.
Gerd Moellmann <gerd@gnu.org>
parents: 32836
diff changeset
4000
32653
f05cc7224309 Even/odd pages fix. Fix little bug on XEmacs. Avoid
Gerd Moellmann <gerd@gnu.org>
parents: 32619
diff changeset
4001 (defun ps-color-scale (color)
f05cc7224309 Even/odd pages fix. Fix little bug on XEmacs. Avoid
Gerd Moellmann <gerd@gnu.org>
parents: 32619
diff changeset
4002 ;; Scale 16-bit X-COLOR-VALUE to PostScript color value in [0, 1] interval.
f05cc7224309 Even/odd pages fix. Fix little bug on XEmacs. Avoid
Gerd Moellmann <gerd@gnu.org>
parents: 32619
diff changeset
4003 (mapcar #'(lambda (value) (/ value ps-print-color-scale))
f05cc7224309 Even/odd pages fix. Fix little bug on XEmacs. Avoid
Gerd Moellmann <gerd@gnu.org>
parents: 32619
diff changeset
4004 (ps-color-values color)))
f05cc7224309 Even/odd pages fix. Fix little bug on XEmacs. Avoid
Gerd Moellmann <gerd@gnu.org>
parents: 32619
diff changeset
4005
f05cc7224309 Even/odd pages fix. Fix little bug on XEmacs. Avoid
Gerd Moellmann <gerd@gnu.org>
parents: 32619
diff changeset
4006
f05cc7224309 Even/odd pages fix. Fix little bug on XEmacs. Avoid
Gerd Moellmann <gerd@gnu.org>
parents: 32619
diff changeset
4007 (defun ps-face-underlined-p (face)
f05cc7224309 Even/odd pages fix. Fix little bug on XEmacs. Avoid
Gerd Moellmann <gerd@gnu.org>
parents: 32619
diff changeset
4008 (or (face-underline-p face)
f05cc7224309 Even/odd pages fix. Fix little bug on XEmacs. Avoid
Gerd Moellmann <gerd@gnu.org>
parents: 32619
diff changeset
4009 (memq face ps-underlined-faces)))
23091
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
4010
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4011
27163
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
4012 (defun ps-prologue-file (filenumber)
47328
ac7145660745 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 47154
diff changeset
4013 "If prologue FILENUMBER exists and is readable, return contents as string.
36215
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
4014
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
4015 Note: No major/minor-mode is activated and no local variables are evaluated for
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
4016 FILENUMBER, but proper EOL-conversion and character interpretation is
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
4017 done!"
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
4018 (let ((filename (convert-standard-filename
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
4019 (expand-file-name (format "ps-prin%d.ps" filenumber)
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
4020 ps-postscript-code-directory))))
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
4021 (if (and (file-exists-p filename)
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
4022 (file-readable-p filename))
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
4023 (with-temp-buffer
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
4024 (insert-file-contents filename)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
4025 (buffer-string))
38436
b174db545cfd Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 38302
diff changeset
4026 (error "ps-print PostScript prologue `%s' file was not found"
36215
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
4027 filename))))
27163
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
4028
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
4029
76356
9da12b8fe476 Initialize some vars.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 76268
diff changeset
4030 (defvar ps-mark-code-directory nil)
27163
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
4031
28153
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
4032 (defvar ps-print-prologue-0 ""
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
4033 "ps-print PostScript error handler.")
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
4034
27163
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
4035 (defvar ps-print-prologue-1 ""
37135
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
4036 "ps-print PostScript prologue.")
27163
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
4037
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4038 ;; Start Editing Here:
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4039
76356
9da12b8fe476 Initialize some vars.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 76268
diff changeset
4040 (defvar ps-source-buffer nil)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4041 (defvar ps-spool-buffer-name "*PostScript*")
76356
9da12b8fe476 Initialize some vars.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 76268
diff changeset
4042 (defvar ps-spool-buffer nil)
9da12b8fe476 Initialize some vars.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 76268
diff changeset
4043
9da12b8fe476 Initialize some vars.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 76268
diff changeset
4044 (defvar ps-output-head nil)
9da12b8fe476 Initialize some vars.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 76268
diff changeset
4045 (defvar ps-output-tail nil)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4046
33143
94d9ccbb780e Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33090
diff changeset
4047 (defvar ps-page-postscript 0) ; page number
94d9ccbb780e Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33090
diff changeset
4048 (defvar ps-page-order 0) ; PostScript page counter
94d9ccbb780e Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33090
diff changeset
4049 (defvar ps-page-sheet 0) ; sheet counter
94d9ccbb780e Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33090
diff changeset
4050 (defvar ps-page-column 0) ; column counter
94d9ccbb780e Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33090
diff changeset
4051 (defvar ps-page-printed 0) ; total pages printed
94d9ccbb780e Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33090
diff changeset
4052 (defvar ps-page-n-up 0) ; n-up counter
34919
2c73a20c859c Handle form feed better when ps-zebra-stripe-follow is
Gerd Moellmann <gerd@gnu.org>
parents: 34045
diff changeset
4053 (defvar ps-lines-printed 0) ; total lines printed
2c73a20c859c Handle form feed better when ps-zebra-stripe-follow is
Gerd Moellmann <gerd@gnu.org>
parents: 34045
diff changeset
4054 (defvar ps-showline-count 1) ; line number counter
76356
9da12b8fe476 Initialize some vars.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 76268
diff changeset
4055 (defvar ps-first-page nil)
9da12b8fe476 Initialize some vars.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 76268
diff changeset
4056 (defvar ps-last-page nil)
33090
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
4057 (defvar ps-print-page-p t)
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4058
76356
9da12b8fe476 Initialize some vars.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 76268
diff changeset
4059 (defvar ps-control-or-escape-regexp nil)
9da12b8fe476 Initialize some vars.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 76268
diff changeset
4060 (defvar ps-n-up-on nil)
9da12b8fe476 Initialize some vars.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 76268
diff changeset
4061
9da12b8fe476 Initialize some vars.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 76268
diff changeset
4062 (defvar ps-background-pages nil)
9da12b8fe476 Initialize some vars.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 76268
diff changeset
4063 (defvar ps-background-all-pages nil)
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4064 (defvar ps-background-text-count 0)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4065 (defvar ps-background-image-count 0)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4066
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4067 (defvar ps-current-font 0)
76356
9da12b8fe476 Initialize some vars.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 76268
diff changeset
4068 (defvar ps-default-foreground nil)
9da12b8fe476 Initialize some vars.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 76268
diff changeset
4069 (defvar ps-default-background nil)
9da12b8fe476 Initialize some vars.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 76268
diff changeset
4070 (defvar ps-default-color nil)
9da12b8fe476 Initialize some vars.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 76268
diff changeset
4071 (defvar ps-current-color nil)
9da12b8fe476 Initialize some vars.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 76268
diff changeset
4072 (defvar ps-current-bg nil)
85711
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
4073 (defvar ps-foreground-list nil)
76356
9da12b8fe476 Initialize some vars.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 76268
diff changeset
4074
9da12b8fe476 Initialize some vars.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 76268
diff changeset
4075 (defvar ps-zebra-stripe-full-p nil)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4076 (defvar ps-razchunk 0)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4077
76356
9da12b8fe476 Initialize some vars.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 76268
diff changeset
4078 (defvar ps-color-p nil)
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4079 (defvar ps-color-format
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
4080 (if (featurep 'xemacs)
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
4081 ;; XEmacs will have to make do with %s (princ) for floats.
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
4082 "%s %s %s"
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
4083
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
4084 ;; Emacs understands the %f format; we'll use it to limit color RGB
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
4085 ;; values to three decimals to cut down some on the size of the
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
4086 ;; PostScript output.
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
4087 "%0.3f %0.3f %0.3f"))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4088
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
4089 ;; These values determine how much print-height to deduct when headers/footers
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
4090 ;; are turned on. This is a pretty clumsy way of handling it, but it'll do for
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
4091 ;; now.
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4092
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4093 (defvar ps-header-pad 0
21955
c4de7c7bc14a (ps-header-title-font-size): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 21954
diff changeset
4094 "Vertical and horizontal space between the header frame and the text.
c4de7c7bc14a (ps-header-title-font-size): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 21954
diff changeset
4095 This is in units of points (1/72 inch).")
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4096
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
4097 (defvar ps-footer-pad 0
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
4098 "Vertical and horizontal space between the footer frame and the text.
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
4099 This is in units of points (1/72 inch).")
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
4100
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4101 ;; Define accessors to the dimensions list.
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4102
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4103 (defmacro ps-page-dimensions-get-width (dims) `(nth 0 ,dims))
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4104 (defmacro ps-page-dimensions-get-height (dims) `(nth 1 ,dims))
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4105 (defmacro ps-page-dimensions-get-media (dims) `(nth 2 ,dims))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4106
76356
9da12b8fe476 Initialize some vars.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 76268
diff changeset
4107 (defvar ps-landscape-page-height nil)
9da12b8fe476 Initialize some vars.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 76268
diff changeset
4108
9da12b8fe476 Initialize some vars.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 76268
diff changeset
4109 (defvar ps-print-width nil)
9da12b8fe476 Initialize some vars.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 76268
diff changeset
4110 (defvar ps-print-height nil)
9da12b8fe476 Initialize some vars.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 76268
diff changeset
4111
9da12b8fe476 Initialize some vars.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 76268
diff changeset
4112 (defvar ps-height-remaining nil)
9da12b8fe476 Initialize some vars.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 76268
diff changeset
4113 (defvar ps-width-remaining nil)
9da12b8fe476 Initialize some vars.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 76268
diff changeset
4114
9da12b8fe476 Initialize some vars.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 76268
diff changeset
4115 (defvar ps-font-size-internal nil)
9da12b8fe476 Initialize some vars.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 76268
diff changeset
4116 (defvar ps-header-font-size-internal nil)
9da12b8fe476 Initialize some vars.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 76268
diff changeset
4117 (defvar ps-header-title-font-size-internal nil)
9da12b8fe476 Initialize some vars.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 76268
diff changeset
4118 (defvar ps-footer-font-size-internal nil)
9da12b8fe476 Initialize some vars.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 76268
diff changeset
4119 (defvar ps-line-spacing-internal nil)
9da12b8fe476 Initialize some vars.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 76268
diff changeset
4120 (defvar ps-paragraph-spacing-internal nil)
24414
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
4121
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4122
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4123 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4124 ;; Internal Variables
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4125
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4126
39327
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
4127 (defvar ps-black-white-faces-alist nil
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
4128 "Alist of symbolic faces used for black/white PostScript printers.
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
4129 An element of this list has the same form as `ps-print-face-extension-alist'
47328
ac7145660745 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 47154
diff changeset
4130 \(which see).
39327
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
4131
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
4132 Don't change this list directly; instead,
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
4133 use `ps-extend-face' and `ps-extend-face-list'.
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
4134 See documentation for `ps-extend-face' for valid extension symbol.
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
4135 See also documentation for `ps-print-color-p'.")
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
4136
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
4137
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4138 (defvar ps-print-face-extension-alist nil
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4139 "Alist of symbolic faces *WITH* extension features (box, outline, etc).
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4140 An element of this list has the following form:
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4141
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4142 (FACE . [BITS FG BG])
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4143
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4144 FACE is a symbol denoting a face name
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4145 BITS is a bit vector, where each bit correspond
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4146 to a feature (bold, underline, etc)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4147 (see documentation for `ps-print-face-map-alist')
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4148 FG foreground color (string or nil)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4149 BG background color (string or nil)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4150
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4151 Don't change this list directly; instead,
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4152 use `ps-extend-face' and `ps-extend-face-list'.
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4153 See documentation for `ps-extend-face' for valid extension symbol.")
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4154
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4155
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4156 (defvar ps-print-face-alist nil
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4157 "Alist of symbolic faces *WITHOUT* extension features (box, outline, etc).
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4158
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4159 An element of this list has the same form as an element of
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4160 `ps-print-face-extension-alist'.
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4161
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4162 Don't change this list directly; this list is used by `ps-face-attributes',
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4163 `ps-map-face' and `ps-build-reference-face-lists'.")
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4164
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4165
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4166 (defconst ps-print-face-map-alist
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4167 '((bold . 1)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4168 (italic . 2)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4169 (underline . 4)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4170 (strikeout . 8)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4171 (overline . 16)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4172 (shadow . 32)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4173 (box . 64)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4174 (outline . 128))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4175 "Alist of all features and the corresponding bit mask.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4176 Each symbol correspond to one bit in a bit vector.")
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4177
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4178
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4179 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4180 ;; Remapping Faces
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4181
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4182
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4183 ;;;###autoload
39327
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
4184 (defun ps-extend-face-list (face-extension-list &optional merge-p alist-sym)
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
4185 "Extend face in ALIST-SYM.
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4186
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4187 If optional MERGE-P is non-nil, extensions in FACE-EXTENSION-LIST are merged
39327
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
4188 with face extension in ALIST-SYM; otherwise, overrides.
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
4189
64546
c0ad64b42b78 (ps-extend-face-list, ps-extend-face, ps-print-background-image): Fix typos in
Juanma Barranquero <lekktu@gmail.com>
parents: 64091
diff changeset
4190 If optional ALIST-SYM is nil, `ps-print-face-extension-alist' is used;
39327
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
4191 otherwise, it should be an alist symbol.
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4192
64546
c0ad64b42b78 (ps-extend-face-list, ps-extend-face, ps-print-background-image): Fix typos in
Juanma Barranquero <lekktu@gmail.com>
parents: 64091
diff changeset
4193 The elements in FACE-EXTENSION-LIST are like those for `ps-extend-face'.
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4194
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4195 See `ps-extend-face' for documentation."
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4196 (while face-extension-list
39327
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
4197 (ps-extend-face (car face-extension-list) merge-p alist-sym)
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4198 (setq face-extension-list (cdr face-extension-list))))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4199
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4200
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4201 ;;;###autoload
39327
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
4202 (defun ps-extend-face (face-extension &optional merge-p alist-sym)
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
4203 "Extend face in ALIST-SYM.
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4204
21954
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
4205 If optional MERGE-P is non-nil, extensions in FACE-EXTENSION list are merged
39327
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
4206 with face extensions in ALIST-SYM; otherwise, overrides.
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
4207
64546
c0ad64b42b78 (ps-extend-face-list, ps-extend-face, ps-print-background-image): Fix typos in
Juanma Barranquero <lekktu@gmail.com>
parents: 64091
diff changeset
4208 If optional ALIST-SYM is nil, `ps-print-face-extension-alist' is used;
39327
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
4209 otherwise, it should be an alist symbol.
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4210
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4211 The elements of FACE-EXTENSION list have the form:
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4212
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4213 (FACE-NAME FOREGROUND BACKGROUND EXTENSION...)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4214
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4215 FACE-NAME is a face name symbol.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4216
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4217 FOREGROUND and BACKGROUND may be nil or a string that denotes the
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4218 foreground and background colors respectively.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4219
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4220 EXTENSION is one of the following symbols:
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4221 bold - use bold font.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4222 italic - use italic font.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4223 underline - put a line under text.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4224 strikeout - like underline, but the line is in middle of text.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4225 overline - like underline, but the line is over the text.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4226 shadow - text will have a shadow.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4227 box - text will be surrounded by a box.
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4228 outline - print characters as hollow outlines.
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4229
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4230 If EXTENSION is any other symbol, it is ignored."
39327
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
4231 (or alist-sym
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
4232 (setq alist-sym 'ps-print-face-extension-alist))
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
4233 (let* ((background (nth 2 face-extension))
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
4234 (foreground (nth 1 face-extension))
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
4235 (face-name (nth 0 face-extension))
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
4236 (ps-face (cdr (assq face-name (symbol-value alist-sym))))
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4237 (face-vector (or ps-face (vector 0 nil nil)))
39327
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
4238 (face-bit (ps-extension-bit face-extension)))
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4239 ;; extend face
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4240 (aset face-vector 0 (if merge-p
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4241 (logior (aref face-vector 0) face-bit)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4242 face-bit))
39327
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
4243 (and (or (not merge-p) (and foreground (stringp foreground)))
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
4244 (aset face-vector 1 foreground))
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
4245 (and (or (not merge-p) (and background (stringp background)))
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
4246 (aset face-vector 2 background))
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4247 ;; if face does not exist, insert it
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4248 (or ps-face
39327
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
4249 (set alist-sym (cons (cons face-name face-vector)
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
4250 (symbol-value alist-sym))))))
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4251
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4252
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4253 (defun ps-extension-bit (face-extension)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4254 (let ((face-bit 0))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4255 ;; map valid symbol extension to bit vector
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4256 (setq face-extension (cdr (cdr face-extension)))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4257 (while (setq face-extension (cdr face-extension))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4258 (setq face-bit (logior face-bit
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4259 (or (cdr (assq (car face-extension)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4260 ps-print-face-map-alist))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4261 0))))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4262 face-bit))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4263
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4264
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4265 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4266 ;; Adapted from font-lock: (obsolete stuff)
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4267 ;; Originally face attributes were specified via `font-lock-face-attributes'.
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4268 ;; Users then changed the default face attributes by setting that variable.
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4269 ;; However, we try and be back-compatible and respect its value if set except
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4270 ;; for faces where M-x customize has been used to save changes for the face.
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4271
27161
0a2452a20c74 ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 26883
diff changeset
4272
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4273 (defun ps-font-lock-face-attributes ()
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4274 (and (boundp 'font-lock-mode) (symbol-value 'font-lock-mode)
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4275 (boundp 'font-lock-face-attributes)
32653
f05cc7224309 Even/odd pages fix. Fix little bug on XEmacs. Avoid
Gerd Moellmann <gerd@gnu.org>
parents: 32619
diff changeset
4276 (let ((face-attributes (symbol-value 'font-lock-face-attributes)))
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4277 (while face-attributes
21954
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
4278 (let* ((face-attribute
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
4279 (car (prog1 face-attributes
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
4280 (setq face-attributes (cdr face-attributes)))))
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4281 (face (car face-attribute)))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4282 ;; Rustle up a `defface' SPEC from a
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4283 ;; `font-lock-face-attributes' entry.
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4284 (unless (get face 'saved-face)
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4285 (let ((foreground (nth 1 face-attribute))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4286 (background (nth 2 face-attribute))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4287 (bold-p (nth 3 face-attribute))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4288 (italic-p (nth 4 face-attribute))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4289 (underline-p (nth 5 face-attribute))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4290 face-spec)
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4291 (when foreground
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4292 (setq face-spec (cons ':foreground
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4293 (cons foreground face-spec))))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4294 (when background
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4295 (setq face-spec (cons ':background
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4296 (cons background face-spec))))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4297 (when bold-p
42452
0cfd64a10789 (ps-font-lock-face-attributes): Use :weight and :slant.
Richard M. Stallman <rms@gnu.org>
parents: 39353
diff changeset
4298 (setq face-spec (append '(:weight bold) face-spec)))
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4299 (when italic-p
42452
0cfd64a10789 (ps-font-lock-face-attributes): Use :weight and :slant.
Richard M. Stallman <rms@gnu.org>
parents: 39353
diff changeset
4300 (setq face-spec (append '(:slant italic) face-spec)))
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4301 (when underline-p
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4302 (setq face-spec (append '(:underline t) face-spec)))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4303 (custom-declare-face face (list (list t face-spec)) nil)
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4304 )))))))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4305
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4306
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4307 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4308 ;; Internal functions and variables
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4309
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4310
54331
8f69fa8038cb Modification to print *Messages* buffer.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 54233
diff changeset
4311 (defun ps-message-log-max ()
8f69fa8038cb Modification to print *Messages* buffer.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 54233
diff changeset
4312 (and (not (string= (buffer-name) "*Messages*"))
56504
8d030ffc0866 Improve DSC compliance.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56127
diff changeset
4313 (boundp 'message-log-max)
54331
8f69fa8038cb Modification to print *Messages* buffer.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 54233
diff changeset
4314 message-log-max))
8f69fa8038cb Modification to print *Messages* buffer.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 54233
diff changeset
4315
8f69fa8038cb Modification to print *Messages* buffer.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 54233
diff changeset
4316
76356
9da12b8fe476 Initialize some vars.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 76268
diff changeset
4317 (defvar ps-print-hook nil)
9da12b8fe476 Initialize some vars.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 76268
diff changeset
4318 (defvar ps-print-begin-sheet-hook nil)
9da12b8fe476 Initialize some vars.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 76268
diff changeset
4319 (defvar ps-print-begin-page-hook nil)
9da12b8fe476 Initialize some vars.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 76268
diff changeset
4320 (defvar ps-print-begin-column-hook nil)
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4321
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4322
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4323 (defun ps-print-without-faces (from to &optional filename region-p)
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4324 (ps-spool-without-faces from to region-p)
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4325 (ps-do-despool filename))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4326
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4327
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4328 (defun ps-spool-without-faces (from to &optional region-p)
54331
8f69fa8038cb Modification to print *Messages* buffer.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 54233
diff changeset
4329 (let ((message-log-max (ps-message-log-max))) ; to print *Messages* buffer
8f69fa8038cb Modification to print *Messages* buffer.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 54233
diff changeset
4330 (run-hooks 'ps-print-hook)
8f69fa8038cb Modification to print *Messages* buffer.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 54233
diff changeset
4331 (ps-printing-region region-p from to)
8f69fa8038cb Modification to print *Messages* buffer.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 54233
diff changeset
4332 (ps-generate (current-buffer) from to 'ps-generate-postscript)))
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4333
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4334
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4335 (defun ps-print-with-faces (from to &optional filename region-p)
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4336 (ps-spool-with-faces from to region-p)
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4337 (ps-do-despool filename))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4338
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4339
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4340 (defun ps-spool-with-faces (from to &optional region-p)
54331
8f69fa8038cb Modification to print *Messages* buffer.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 54233
diff changeset
4341 (let ((message-log-max (ps-message-log-max))) ; to print *Messages* buffer
8f69fa8038cb Modification to print *Messages* buffer.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 54233
diff changeset
4342 (run-hooks 'ps-print-hook)
8f69fa8038cb Modification to print *Messages* buffer.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 54233
diff changeset
4343 (ps-printing-region region-p from to)
8f69fa8038cb Modification to print *Messages* buffer.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 54233
diff changeset
4344 (ps-generate (current-buffer) from to 'ps-generate-postscript-with-faces)))
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4345
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4346
39327
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
4347 (defun ps-count-lines-preprint (from to)
54331
8f69fa8038cb Modification to print *Messages* buffer.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 54233
diff changeset
4348 (or (and from to)
8f69fa8038cb Modification to print *Messages* buffer.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 54233
diff changeset
4349 (error "The mark is not set now"))
8f69fa8038cb Modification to print *Messages* buffer.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 54233
diff changeset
4350 (let ((message-log-max (ps-message-log-max))) ; to count lines of *Messages*
8f69fa8038cb Modification to print *Messages* buffer.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 54233
diff changeset
4351 (list (count-lines from to))))
39327
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
4352
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
4353
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4354 (defun ps-count-lines (from to)
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4355 (+ (count-lines from to)
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4356 (save-excursion
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4357 (goto-char to)
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4358 (if (= (current-column) 0) 1 0))))
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4359
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4360
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4361 (defvar ps-printing-region nil
56504
8d030ffc0866 Improve DSC compliance.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56127
diff changeset
4362 "Variable used to indicate the region that ps-print is printing.
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4363 It is a cons, the car of which is the line number where the region begins, and
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4364 its cdr is the total number of lines in the buffer. Formatting functions can
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4365 use this information to print the original line number (and not the number of
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4366 lines printed), and to indicate in the header that the printout is of a partial
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4367 file.")
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4368
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4369
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4370 (defvar ps-printing-region-p nil
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4371 "Non-nil means ps-print is printing a region.")
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4372
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4373
51864
6edc2212d82e Print line number correctly in a region.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 51007
diff changeset
4374 (defun ps-printing-region (region-p from to)
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4375 (setq ps-printing-region-p region-p
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4376 ps-printing-region
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4377 (cons (if region-p
51864
6edc2212d82e Print line number correctly in a region.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 51007
diff changeset
4378 (ps-count-lines (point-min) (min from to))
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4379 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4380 (ps-count-lines (point-min) (point-max)))))
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4381
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4382
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4383 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4384 ;; Internal functions
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4385
27161
0a2452a20c74 ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 26883
diff changeset
4386
21999
35efe9eafc6c (ps-alist-position): Renamed from ps-position.
Richard M. Stallman <rms@gnu.org>
parents: 21955
diff changeset
4387 (defsubst ps-font-alist (font-sym)
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4388 (get font-sym 'fonts))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4389
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4390 (defun ps-font (font-sym font-type)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4391 "Font family name for text of `font-type', when generating PostScript."
21999
35efe9eafc6c (ps-alist-position): Renamed from ps-position.
Richard M. Stallman <rms@gnu.org>
parents: 21955
diff changeset
4392 (let* ((font-list (ps-font-alist font-sym))
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4393 (normal-font (cdr (assq 'normal font-list))))
21954
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
4394 (while (and font-list (not (eq font-type (car (car font-list)))))
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
4395 (setq font-list (cdr font-list)))
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
4396 (or (cdr (car font-list)) normal-font)))
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4397
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
4398 (defsubst ps-fonts (font-sym)
21999
35efe9eafc6c (ps-alist-position): Renamed from ps-position.
Richard M. Stallman <rms@gnu.org>
parents: 21955
diff changeset
4399 (mapcar 'cdr (ps-font-alist font-sym)))
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4400
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
4401 (defsubst ps-font-number (font-sym font-type)
21999
35efe9eafc6c (ps-alist-position): Renamed from ps-position.
Richard M. Stallman <rms@gnu.org>
parents: 21955
diff changeset
4402 (or (ps-alist-position font-type (ps-font-alist font-sym))
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4403 0))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4404
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4405 (defsubst ps-line-height (font-sym)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4406 "The height of a line, for generating PostScript.
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4407 This is the value that ps-print uses to determine the height,
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4408 y-dimension, of the lines of text it has printed, and thus affects the
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4409 point at which page-breaks are placed.
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4410 The line-height is *not* the same as the point size of the font."
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4411 (get font-sym 'line-height))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4412
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4413 (defsubst ps-title-line-height (font-sym)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4414 "The height of a `title' line, for generating PostScript.
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4415 This is the value that ps-print uses to determine the height,
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4416 y-dimension, of the lines of text it has printed, and thus affects the
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4417 point at which page-breaks are placed.
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4418 The title-line-height is *not* the same as the point size of the font."
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4419 (get font-sym 'title-line-height))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4420
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4421 (defsubst ps-space-width (font-sym)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4422 "The width of a space character, for generating PostScript.
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4423 This value is used in expanding tab characters."
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4424 (get font-sym 'space-width))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4425
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4426 (defsubst ps-avg-char-width (font-sym)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4427 "The average width, in points, of a character, for generating PostScript.
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4428 This is the value that ps-print uses to determine the length,
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4429 x-dimension, of the text it has printed, and thus affects the point at
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4430 which long lines wrap around."
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4431 (get font-sym 'avg-char-width))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4432
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4433 (defun ps-line-lengths-internal ()
47328
ac7145660745 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 47154
diff changeset
4434 "Display the correspondence between a line length and a font size.
ac7145660745 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 47154
diff changeset
4435 Done using the current ps-print setup.
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4436 Try: pr -t file | awk '{printf \"%3d %s\n\", length($0), $0}' | sort -r | head"
30522
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
4437 (let* ((ps-font-size-internal
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
4438 (or ps-font-size-internal
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
4439 (ps-get-font-size 'ps-font-size)))
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
4440 (ps-header-font-size-internal
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
4441 (or ps-header-font-size-internal
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
4442 (ps-get-font-size 'ps-header-font-size)))
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
4443 (ps-header-title-font-size-internal
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
4444 (or ps-header-title-font-size-internal
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
4445 (ps-get-font-size 'ps-header-title-font-size)))
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
4446 (buf (get-buffer-create "*Line-lengths*"))
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
4447 (ifs ps-font-size-internal) ; initial font size
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
4448 (icw (ps-avg-char-width 'ps-font-for-text)) ; initial character width
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
4449 (print-width (progn (ps-get-page-dimensions)
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
4450 ps-print-width))
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
4451 (ps-setup (ps-setup)) ; setup for the current buffer
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
4452 (fs-min 5) ; minimum font size
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
4453 cw-min ; minimum character width
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
4454 nb-cpl-max ; maximum nb of characters per line
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
4455 (fs-max 14) ; maximum font size
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
4456 cw-max ; maximum character width
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
4457 nb-cpl-min ; minimum nb of characters per line
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
4458 fs ; current font size
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
4459 cw ; current character width
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
4460 nb-cpl ; current nb of characters per line
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
4461 )
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4462 (setq cw-min (/ (* icw fs-min) ifs)
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4463 nb-cpl-max (floor (/ print-width cw-min))
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4464 cw-max (/ (* icw fs-max) ifs)
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
4465 nb-cpl-min (floor (/ print-width cw-max))
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
4466 nb-cpl nb-cpl-min)
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4467 (set-buffer buf)
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4468 (goto-char (point-max))
30522
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
4469 (or (bobp) (insert "\n" (make-string 75 ?\;) "\n"))
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
4470 (insert ps-setup
30522
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
4471 "\nnb char per line / font size\n")
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4472 (while (<= nb-cpl nb-cpl-max)
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
4473 (setq cw (/ print-width (float nb-cpl))
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
4474 fs (/ (* ifs cw) icw))
30522
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
4475 (insert (format "%16d %s\n" nb-cpl fs))
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4476 (setq nb-cpl (1+ nb-cpl)))
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4477 (insert "\n")
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4478 (display-buffer buf 'not-this-window)))
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4479
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4480 (defun ps-nb-pages (nb-lines)
21955
c4de7c7bc14a (ps-header-title-font-size): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 21954
diff changeset
4481 "Display correspondence between font size and the number of pages.
c4de7c7bc14a (ps-header-title-font-size): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 21954
diff changeset
4482 The correspondence is based on having NB-LINES lines of text,
c4de7c7bc14a (ps-header-title-font-size): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 21954
diff changeset
4483 and on the current ps-print setup."
30522
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
4484 (let* ((ps-font-size-internal
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
4485 (or ps-font-size-internal
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
4486 (ps-get-font-size 'ps-font-size)))
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
4487 (ps-header-font-size-internal
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
4488 (or ps-header-font-size-internal
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
4489 (ps-get-font-size 'ps-header-font-size)))
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
4490 (ps-header-title-font-size-internal
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
4491 (or ps-header-title-font-size-internal
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
4492 (ps-get-font-size 'ps-header-title-font-size)))
37135
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
4493 (ps-line-spacing-internal
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
4494 (or ps-line-spacing-internal
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
4495 (ps-get-size ps-line-spacing "line spacing")))
30522
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
4496 (buf (get-buffer-create "*Nb-Pages*"))
37135
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
4497 (ils ps-line-spacing-internal) ; initial line spacing
30522
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
4498 (ifs ps-font-size-internal) ; initial font size
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
4499 (ilh (ps-line-height 'ps-font-for-text)) ; initial line height
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
4500 (page-height (progn (ps-get-page-dimensions)
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
4501 ps-print-height))
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
4502 (ps-setup (ps-setup)) ; setup for the current buffer
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
4503 (fs-min 4) ; minimum font size
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
4504 lh-min ; minimum line height
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
4505 nb-lpp-max ; maximum nb of lines per page
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
4506 nb-page-min ; minimum nb of pages
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
4507 (fs-max 14) ; maximum font size
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
4508 lh-max ; maximum line height
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
4509 nb-lpp-min ; minimum nb of lines per page
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
4510 nb-page-max ; maximum nb of pages
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
4511 fs ; current font size
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
4512 lh ; current line height
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
4513 nb-lpp ; current nb of lines per page
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
4514 nb-page ; current nb of pages
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
4515 )
37135
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
4516 (setq lh-min (/ (- (* (+ ilh ils) fs-min) ils) ifs)
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4517 nb-lpp-max (floor (/ page-height lh-min))
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4518 nb-page-min (ceiling (/ (float nb-lines) nb-lpp-max))
37135
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
4519 lh-max (/ (- (* (+ ilh ils) fs-max) ils) ifs)
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4520 nb-lpp-min (floor (/ page-height lh-max))
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
4521 nb-page-max (ceiling (/ (float nb-lines) nb-lpp-min))
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
4522 nb-page nb-page-min)
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4523 (set-buffer buf)
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4524 (goto-char (point-max))
30522
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
4525 (or (bobp) (insert "\n" (make-string 75 ?\;) "\n"))
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
4526 (insert ps-setup
30522
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
4527 (format "\nThere are %d lines.\n\n" nb-lines)
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
4528 "nb page / font size\n")
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4529 (while (<= nb-page nb-page-max)
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4530 (setq nb-lpp (ceiling (/ nb-lines (float nb-page)))
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4531 lh (/ page-height nb-lpp)
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4532 fs (/ (* ifs lh) ilh))
30522
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
4533 (insert (format "%7d %s\n" nb-page fs))
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4534 (setq nb-page (1+ nb-page)))
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4535 (insert "\n")
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4536 (display-buffer buf 'not-this-window)))
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4537
21954
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
4538 ;; macros used in `ps-select-font'
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
4539 (defmacro ps-lookup (key) `(cdr (assq ,key font-entry)))
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
4540 (defmacro ps-size-scale (key) `(/ (* (ps-lookup ,key) font-size) size))
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
4541
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4542 (defun ps-select-font (font-family sym font-size title-font-size)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4543 (let ((font-entry (cdr (assq font-family ps-font-info-database))))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4544 (or font-entry
34045
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
4545 (error "Don't have data to scale font %s. Known fonts families are %s"
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4546 font-family
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4547 (mapcar 'car ps-font-info-database)))
21954
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
4548 (let ((size (ps-lookup 'size)))
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
4549 (put sym 'fonts (ps-lookup 'fonts))
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
4550 (put sym 'space-width (ps-size-scale 'space-width))
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
4551 (put sym 'avg-char-width (ps-size-scale 'avg-char-width))
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
4552 (put sym 'line-height (ps-size-scale 'line-height))
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
4553 (put sym 'title-line-height
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
4554 (/ (* (ps-lookup 'line-height) title-font-size) size)))))
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4555
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4556 (defun ps-get-page-dimensions ()
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4557 (let ((page-dimensions (cdr (assq ps-paper-type ps-page-dimensions-database)))
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4558 page-width page-height)
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4559 (cond
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4560 ((null page-dimensions)
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4561 (error "`ps-paper-type' must be one of:\n%s"
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4562 (mapcar 'car ps-page-dimensions-database)))
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4563 ((< ps-number-of-columns 1)
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4564 (error "The number of columns %d should be positive"
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
4565 ps-number-of-columns)))
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4566
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4567 (ps-select-font ps-font-family 'ps-font-for-text
24414
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
4568 ps-font-size-internal ps-font-size-internal)
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4569 (ps-select-font ps-header-font-family 'ps-font-for-header
24414
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
4570 ps-header-font-size-internal
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
4571 ps-header-title-font-size-internal)
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
4572 (ps-select-font ps-footer-font-family 'ps-font-for-footer
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
4573 ps-footer-font-size-internal ps-footer-font-size-internal)
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4574
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4575 (setq page-width (ps-page-dimensions-get-width page-dimensions)
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4576 page-height (ps-page-dimensions-get-height page-dimensions))
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4577
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4578 ;; Landscape mode
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4579 (if ps-landscape-mode
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4580 ;; exchange width and height
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4581 (setq page-width (prog1 page-height (setq page-height page-width))))
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4582
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4583 ;; It is used to get the lower right corner (only in landscape mode)
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4584 (setq ps-landscape-page-height page-height)
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4585
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4586 ;; | lm | text | ic | text | ic | text | rm |
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4587 ;; page-width == lm + n * pw + (n - 1) * ic + rm
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4588 ;; => pw == (page-width - lm -rm - (n - 1) * ic) / n
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
4589 (setq ps-print-width (/ (- page-width
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
4590 ps-left-margin ps-right-margin
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
4591 (* (1- ps-number-of-columns) ps-inter-column))
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
4592 ps-number-of-columns))
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4593 (if (<= ps-print-width 0)
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4594 (error "Bad horizontal layout:
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4595 page-width == %s
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4596 ps-left-margin == %s
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4597 ps-right-margin == %s
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4598 ps-inter-column == %s
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4599 ps-number-of-columns == %s
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4600 | lm | text | ic | text | ic | text | rm |
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4601 page-width == lm + n * print-width + (n - 1) * ic + rm
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4602 => print-width == %d !"
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4603 page-width
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4604 ps-left-margin
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4605 ps-right-margin
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4606 ps-inter-column
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4607 ps-number-of-columns
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4608 ps-print-width))
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4609
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4610 (setq ps-print-height
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4611 (- page-height ps-bottom-margin ps-top-margin))
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4612 (if (<= ps-print-height 0)
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4613 (error "Bad vertical layout:
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4614 ps-top-margin == %s
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4615 ps-bottom-margin == %s
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4616 page-height == bm + print-height + tm
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4617 => print-height == %d !"
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4618 ps-top-margin
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4619 ps-bottom-margin
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4620 ps-print-height))
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
4621 ;; If headers are turned on, deduct the height of the header from the print
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
4622 ;; height.
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
4623 (if ps-print-header
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4624 (setq ps-header-pad (* ps-header-line-pad
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4625 (ps-title-line-height 'ps-font-for-header))
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
4626 ps-print-height (- ps-print-height
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
4627 ps-header-offset
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
4628 ps-header-pad
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4629 (ps-title-line-height 'ps-font-for-header)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4630 (* (ps-line-height 'ps-font-for-header)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4631 (1- ps-header-lines))
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
4632 ps-header-pad)))
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4633 (if (<= ps-print-height 0)
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
4634 (error "Bad vertical layout (header):
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4635 ps-top-margin == %s
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4636 ps-bottom-margin == %s
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4637 ps-header-offset == %s
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4638 ps-header-pad == %s
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4639 header-height == %s
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4640 page-height == bm + print-height + tm - ho - hh
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4641 => print-height == %d !"
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4642 ps-top-margin
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4643 ps-bottom-margin
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4644 ps-header-offset
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4645 ps-header-pad
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4646 (+ ps-header-pad
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4647 (ps-title-line-height 'ps-font-for-header)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4648 (* (ps-line-height 'ps-font-for-header)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4649 (1- ps-header-lines))
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4650 ps-header-pad)
36215
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
4651 ps-print-height))
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
4652 ;; If footers are turned on, deduct the height of the footer from the print
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
4653 ;; height.
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
4654 (if ps-print-footer
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
4655 (setq ps-footer-pad (* ps-footer-line-pad
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
4656 (ps-title-line-height 'ps-font-for-footer))
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
4657 ps-print-height (- ps-print-height
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
4658 ps-footer-offset
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
4659 ps-footer-pad
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
4660 (* (ps-line-height 'ps-font-for-footer)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
4661 (1- ps-footer-lines))
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
4662 ps-footer-pad)))
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
4663 (if (<= ps-print-height 0)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
4664 (error "Bad vertical layout (footer):
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
4665 ps-top-margin == %s
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
4666 ps-bottom-margin == %s
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
4667 ps-footer-offset == %s
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
4668 ps-footer-pad == %s
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
4669 footer-height == %s
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
4670 page-height == bm + print-height + tm - fo - fh
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
4671 => print-height == %d !"
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
4672 ps-top-margin
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
4673 ps-bottom-margin
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
4674 ps-footer-offset
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
4675 ps-footer-pad
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
4676 (+ ps-footer-pad
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
4677 (* (ps-line-height 'ps-font-for-footer)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
4678 (1- ps-footer-lines))
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
4679 ps-footer-pad)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
4680 ps-print-height))
36215
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
4681 ;; ps-zebra-stripe-follow is `full' or `full-follow'
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
4682 (if ps-zebra-stripe-full-p
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
4683 (let* ((line-height (ps-line-height 'ps-font-for-text))
37135
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
4684 (zebra (* (+ line-height ps-line-spacing-internal)
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
4685 ps-zebra-stripe-height)))
36215
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
4686 (setq ps-print-height (- (* (floor ps-print-height zebra) zebra)
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
4687 line-height))
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
4688 (if (<= ps-print-height 0)
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
4689 (error "Bad vertical layout (full zebra stripe follow):
36215
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
4690 ps-zebra-stripe-follow == %s
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
4691 ps-zebra-stripe-height == %s
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
4692 font-text-height == %s
37135
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
4693 line-spacing == %s
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
4694 page-height == ((floor print-height ((th + ls) * zh)) * ((th + ls) * zh)) - th
36215
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
4695 => print-height == %d !"
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
4696 ps-zebra-stripe-follow
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
4697 ps-zebra-stripe-height
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
4698 (ps-line-height 'ps-font-for-text)
37135
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
4699 ps-line-spacing-internal
36215
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
4700 ps-print-height))))))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4701
39327
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
4702
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
4703 (defun ps-print-preprint-region (prefix-arg)
47426
ec3123180ac5 Adjust ps-print-color-p, ps-default-fg and ps-default-bg setting.
Richard M. Stallman <rms@gnu.org>
parents: 47382
diff changeset
4704 (or (ps-mark-active-p)
39327
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
4705 (error "The mark is not set now"))
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
4706 (list (point) (mark) (ps-print-preprint prefix-arg)))
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
4707
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
4708
28576
1694ed739e69 Customization fix, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28426
diff changeset
4709 (defun ps-print-preprint (prefix-arg)
1694ed739e69 Customization fix, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28426
diff changeset
4710 (and prefix-arg
1694ed739e69 Customization fix, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28426
diff changeset
4711 (or (numberp prefix-arg)
1694ed739e69 Customization fix, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28426
diff changeset
4712 (listp prefix-arg))
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
4713 (let* ((name (concat (file-name-nondirectory (or (buffer-file-name)
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
4714 (buffer-name)))
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
4715 ".ps"))
65680
ed770a0a7846 2005-09-24 Emilio C. Lopes <eclig@gmx.net>
Romain Francoise <romain@orebokech.com>
parents: 64762
diff changeset
4716 (prompt (format "Save PostScript to file (default %s): " name))
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
4717 (res (read-file-name prompt default-directory name nil)))
33090
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
4718 (while (cond ((file-directory-p res)
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
4719 (ding)
33090
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
4720 (setq prompt "It's a directory"))
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
4721 ((not (file-writable-p res))
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
4722 (ding)
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
4723 (setq prompt "File is unwritable"))
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
4724 ((file-exists-p res)
33090
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
4725 (setq prompt "File exists")
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
4726 (not (y-or-n-p (format "File `%s' exists; overwrite? "
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
4727 res))))
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
4728 (t nil))
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
4729 (setq res (read-file-name
33090
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
4730 (format "%s; save PostScript to file: " prompt)
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
4731 (file-name-directory res) nil nil
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
4732 (file-name-nondirectory res))))
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
4733 (if (file-directory-p res)
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
4734 (expand-file-name name (file-name-as-directory res))
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
4735 res))))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4736
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4737 ;; The following functions implement a simple list-buffering scheme so
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4738 ;; that ps-print doesn't have to repeatedly switch between buffers
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4739 ;; while spooling. The functions `ps-output' and `ps-output-string' build
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4740 ;; up the lists; the function `ps-flush-output' takes the lists and
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4741 ;; insert its contents into the spool buffer (*PostScript*).
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4742
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4743 (defvar ps-string-escape-codes
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4744 (let ((table (make-vector 256 nil))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4745 (char ?\000))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4746 ;; control characters
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4747 (while (<= char ?\037)
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4748 (aset table char (format "\\%03o" char))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4749 (setq char (1+ char)))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4750 ;; printable characters
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4751 (while (< char ?\177)
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4752 (aset table char (format "%c" char))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4753 (setq char (1+ char)))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4754 ;; DEL and 8-bit characters
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4755 (while (<= char ?\377)
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4756 (aset table char (format "\\%o" char))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4757 (setq char (1+ char)))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4758 ;; Override ASCII formatting characters with named escape code:
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4759 (aset table ?\n "\\n") ; [NL] linefeed
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4760 (aset table ?\r "\\r") ; [CR] carriage return
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4761 (aset table ?\t "\\t") ; [HT] horizontal tab
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4762 (aset table ?\b "\\b") ; [BS] backspace
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4763 (aset table ?\f "\\f") ; [NP] form feed
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4764 ;; Escape PostScript escape and string delimiter characters:
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4765 (aset table ?\\ "\\\\")
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4766 (aset table ?\( "\\(")
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4767 (aset table ?\) "\\)")
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4768 table)
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4769 "Vector used to map characters to PostScript string escape codes.")
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4770
37135
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
4771 (defsubst ps-output-string-prim (string)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4772 (insert "(") ;insert start-string delimiter
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4773 (save-excursion ;insert string
23091
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
4774 (insert (string-as-unibyte string)))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4775 ;; Find and quote special characters as necessary for PS
23307
5d6530954ece Skip invisible overlay.
Karl Heuer <kwzh@gnu.org>
parents: 23273
diff changeset
4776 ;; This skips everything except control chars, non-ASCII chars, (, ) and \.
21642
d33cd398d663 (ps-output-string-prim): Use skip-chars-forward.
Richard M. Stallman <rms@gnu.org>
parents: 21571
diff changeset
4777 (while (progn (skip-chars-forward " -'*-[]-~") (not (eobp)))
d33cd398d663 (ps-output-string-prim): Use skip-chars-forward.
Richard M. Stallman <rms@gnu.org>
parents: 21571
diff changeset
4778 (let ((special (following-char)))
23091
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
4779 (delete-char 1)
49763
e19e88bc6e58 Change the policy of background/foreground default color.
Juanma Barranquero <lekktu@gmail.com>
parents: 47674
diff changeset
4780 (insert
e19e88bc6e58 Change the policy of background/foreground default color.
Juanma Barranquero <lekktu@gmail.com>
parents: 47674
diff changeset
4781 (if (and (<= 0 special) (<= special 255))
e19e88bc6e58 Change the policy of background/foreground default color.
Juanma Barranquero <lekktu@gmail.com>
parents: 47674
diff changeset
4782 (aref ps-string-escape-codes special)
e19e88bc6e58 Change the policy of background/foreground default color.
Juanma Barranquero <lekktu@gmail.com>
parents: 47674
diff changeset
4783 ;; insert hexadecimal representation if character code is out of range
e19e88bc6e58 Change the policy of background/foreground default color.
Juanma Barranquero <lekktu@gmail.com>
parents: 47674
diff changeset
4784 (format "\\%04X" special)
e19e88bc6e58 Change the policy of background/foreground default color.
Juanma Barranquero <lekktu@gmail.com>
parents: 47674
diff changeset
4785 ))))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4786 (goto-char (point-max))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4787 (insert ")")) ;insert end-string delimiter
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4788
37135
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
4789 (defsubst ps-init-output-queue ()
29848
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
4790 (setq ps-output-head (list "")
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
4791 ps-output-tail ps-output-head))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4792
29848
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
4793
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
4794 (defun ps-selected-pages ()
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
4795 (while (progn
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
4796 (setq ps-first-page (car (car ps-selected-pages))
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
4797 ps-last-page (cdr (car ps-selected-pages))
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
4798 ps-selected-pages (cdr ps-selected-pages))
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
4799 (and ps-selected-pages
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
4800 (< ps-last-page ps-page-postscript)))))
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
4801
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
4802
37135
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
4803 (defsubst ps-print-page-p ()
33090
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
4804 (setq ps-print-page-p
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
4805 (and (cond ((null ps-first-page))
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
4806 ((<= ps-page-postscript ps-last-page)
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
4807 (<= ps-first-page ps-page-postscript))
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
4808 (ps-selected-pages
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
4809 (ps-selected-pages)
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
4810 (and (<= ps-first-page ps-page-postscript)
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
4811 (<= ps-page-postscript ps-last-page)))
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
4812 (t
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
4813 nil))
33143
94d9ccbb780e Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33090
diff changeset
4814 (cond ((eq ps-even-or-odd-pages 'even-page)
33090
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
4815 (= (logand ps-page-postscript 1) 0))
33143
94d9ccbb780e Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33090
diff changeset
4816 ((eq ps-even-or-odd-pages 'odd-page)
33090
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
4817 (= (logand ps-page-postscript 1) 1))
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
4818 (t)
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
4819 ))))
29848
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
4820
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
4821
37135
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
4822 (defsubst ps-print-sheet-p ()
33143
94d9ccbb780e Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33090
diff changeset
4823 (setq ps-print-page-p
94d9ccbb780e Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33090
diff changeset
4824 (cond ((eq ps-even-or-odd-pages 'even-sheet)
94d9ccbb780e Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33090
diff changeset
4825 (= (logand ps-page-sheet 1) 0))
94d9ccbb780e Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33090
diff changeset
4826 ((eq ps-even-or-odd-pages 'odd-sheet)
94d9ccbb780e Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33090
diff changeset
4827 (= (logand ps-page-sheet 1) 1))
94d9ccbb780e Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33090
diff changeset
4828 (t)
94d9ccbb780e Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33090
diff changeset
4829 )))
94d9ccbb780e Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33090
diff changeset
4830
94d9ccbb780e Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33090
diff changeset
4831
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4832 (defun ps-output (&rest args)
33090
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
4833 (when ps-print-page-p
29848
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
4834 (setcdr ps-output-tail args)
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
4835 (while (cdr ps-output-tail)
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
4836 (setq ps-output-tail (cdr ps-output-tail)))))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4837
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4838 (defun ps-output-string (string)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4839 (ps-output t string))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4840
23091
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
4841 ;; Output strings in the list ARGS in the PostScript prologue part.
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
4842 (defun ps-output-prologue (args)
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
4843 (ps-output 'prologue (if (stringp args) (list args) args)))
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
4844
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4845 (defun ps-flush-output ()
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4846 (save-excursion
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4847 (set-buffer ps-spool-buffer)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4848 (goto-char (point-max))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4849 (while ps-output-head
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4850 (let ((it (car ps-output-head)))
23091
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
4851 (cond
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
4852 ((eq t it)
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
4853 (setq ps-output-head (cdr ps-output-head))
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
4854 (ps-output-string-prim (car ps-output-head)))
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
4855 ((eq 'prologue it)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4856 (setq ps-output-head (cdr ps-output-head))
23091
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
4857 (save-excursion
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
4858 (search-backward "\nBeginDoc")
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
4859 (forward-char 1)
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
4860 (apply 'insert (car ps-output-head))))
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
4861 (t
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
4862 (insert it))))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4863 (setq ps-output-head (cdr ps-output-head))))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4864 (ps-init-output-queue))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4865
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4866 (defun ps-insert-file (fname)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4867 (ps-flush-output)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4868 (save-excursion
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4869 (set-buffer ps-spool-buffer)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4870 (goto-char (point-max))
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
4871 (insert-file-contents fname)))
19879
87952270ceeb (ps-emacs-face-kind-p): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents: 19843
diff changeset
4872
51007
c3f9aa88ed68 Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 50871
diff changeset
4873 ;; These functions are used in `ps-mule' to get charset of header and footer.
c3f9aa88ed68 Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 50871
diff changeset
4874 ;; To avoid unnecessary calls to functions in `ps-left-header',
c3f9aa88ed68 Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 50871
diff changeset
4875 ;; `ps-right-header', `ps-left-footer' and `ps-right-footer'.
c3f9aa88ed68 Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 50871
diff changeset
4876
c3f9aa88ed68 Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 50871
diff changeset
4877 (defun ps-generate-string-list (content)
c3f9aa88ed68 Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 50871
diff changeset
4878 (let (str)
c3f9aa88ed68 Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 50871
diff changeset
4879 (while content
c3f9aa88ed68 Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 50871
diff changeset
4880 (setq str (cons (cond
56504
8d030ffc0866 Improve DSC compliance.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56127
diff changeset
4881 ;; string
51007
c3f9aa88ed68 Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 50871
diff changeset
4882 ((stringp (car content))
c3f9aa88ed68 Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 50871
diff changeset
4883 (car content))
56504
8d030ffc0866 Improve DSC compliance.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56127
diff changeset
4884 ;; function symbol
60726
d1b7b92f7057 Use functionp instead symbolp and fboundp.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 60200
diff changeset
4885 ((functionp (car content))
51007
c3f9aa88ed68 Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 50871
diff changeset
4886 (concat "(" (funcall (car content)) ")"))
56504
8d030ffc0866 Improve DSC compliance.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56127
diff changeset
4887 ;; variable symbol
51007
c3f9aa88ed68 Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 50871
diff changeset
4888 ((and (symbolp (car content)) (boundp (car content)))
c3f9aa88ed68 Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 50871
diff changeset
4889 (concat "(" (symbol-value (car content)) ")"))
56504
8d030ffc0866 Improve DSC compliance.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56127
diff changeset
4890 ;; otherwise, empty string
51007
c3f9aa88ed68 Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 50871
diff changeset
4891 (t
c3f9aa88ed68 Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 50871
diff changeset
4892 ""))
c3f9aa88ed68 Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 50871
diff changeset
4893 str)
c3f9aa88ed68 Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 50871
diff changeset
4894 content (cdr content)))
c3f9aa88ed68 Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 50871
diff changeset
4895 (nreverse str)))
c3f9aa88ed68 Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 50871
diff changeset
4896
76356
9da12b8fe476 Initialize some vars.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 76268
diff changeset
4897 (defvar ps-lh-cache nil)
9da12b8fe476 Initialize some vars.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 76268
diff changeset
4898 (defvar ps-rh-cache nil)
9da12b8fe476 Initialize some vars.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 76268
diff changeset
4899 (defvar ps-lf-cache nil)
9da12b8fe476 Initialize some vars.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 76268
diff changeset
4900 (defvar ps-rf-cache nil)
51007
c3f9aa88ed68 Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 50871
diff changeset
4901
c3f9aa88ed68 Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 50871
diff changeset
4902 (defun ps-header-footer-string ()
c3f9aa88ed68 Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 50871
diff changeset
4903 (and ps-print-header
c3f9aa88ed68 Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 50871
diff changeset
4904 (setq ps-lh-cache (ps-generate-string-list ps-left-header)
c3f9aa88ed68 Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 50871
diff changeset
4905 ps-rh-cache (ps-generate-string-list ps-right-header)))
c3f9aa88ed68 Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 50871
diff changeset
4906 (and ps-print-footer
c3f9aa88ed68 Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 50871
diff changeset
4907 (setq ps-lf-cache (ps-generate-string-list ps-left-footer)
c3f9aa88ed68 Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 50871
diff changeset
4908 ps-rf-cache (ps-generate-string-list ps-right-footer)))
60200
9afc1e30ea84 (ps-header-footer-string): Return a list of header
Kenichi Handa <handa@m17n.org>
parents: 60137
diff changeset
4909 (append ps-lh-cache ps-rh-cache ps-lf-cache ps-rf-cache))
51007
c3f9aa88ed68 Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 50871
diff changeset
4910
86485
2256fea11eb1 (ps-mule-encode-header-string, ps-mule-begin-page)
Glenn Morris <rgm@gnu.org>
parents: 86282
diff changeset
4911 ;; All autoloads.
2256fea11eb1 (ps-mule-encode-header-string, ps-mule-begin-page)
Glenn Morris <rgm@gnu.org>
parents: 86282
diff changeset
4912 (declare-function ps-mule-encode-header-string "ps-mule")
2256fea11eb1 (ps-mule-encode-header-string, ps-mule-begin-page)
Glenn Morris <rgm@gnu.org>
parents: 86282
diff changeset
4913 (declare-function ps-mule-begin-page "ps-mule")
2256fea11eb1 (ps-mule-encode-header-string, ps-mule-begin-page)
Glenn Morris <rgm@gnu.org>
parents: 86282
diff changeset
4914 (declare-function ps-mule-prepare-ascii-font "ps-mule")
2256fea11eb1 (ps-mule-encode-header-string, ps-mule-begin-page)
Glenn Morris <rgm@gnu.org>
parents: 86282
diff changeset
4915 (declare-function ps-mule-set-ascii-font "ps-mule")
2256fea11eb1 (ps-mule-encode-header-string, ps-mule-begin-page)
Glenn Morris <rgm@gnu.org>
parents: 86282
diff changeset
4916 (declare-function ps-mule-initialize "ps-mule")
2256fea11eb1 (ps-mule-encode-header-string, ps-mule-begin-page)
Glenn Morris <rgm@gnu.org>
parents: 86282
diff changeset
4917 (declare-function ps-mule-begin-job "ps-mule")
2256fea11eb1 (ps-mule-encode-header-string, ps-mule-begin-page)
Glenn Morris <rgm@gnu.org>
parents: 86282
diff changeset
4918
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
4919 ;; These functions insert the arrays that define the contents of the headers.
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4920
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4921 (defun ps-generate-header-line (fonttag &optional content)
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
4922 (ps-output " [" fonttag " ")
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4923 (cond
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
4924 ;; Literal strings should be output as is -- the string must contain its own
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
4925 ;; PS string delimiters, '(' and ')', if necessary.
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4926 ((stringp content)
37135
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
4927 (ps-output (ps-mule-encode-header-string content fonttag)))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4928
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
4929 ;; Functions are called -- they should return strings; they will be inserted
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
4930 ;; as strings and the PS string delimiters added.
60726
d1b7b92f7057 Use functionp instead symbolp and fboundp.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 60200
diff changeset
4931 ((functionp content)
37135
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
4932 (ps-output-string (ps-mule-encode-header-string (funcall content)
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
4933 fonttag)))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4934
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
4935 ;; Variables will have their contents inserted. They should contain
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
4936 ;; strings, and will be inserted as strings.
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4937 ((and (symbolp content) (boundp content))
37135
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
4938 (ps-output-string (ps-mule-encode-header-string (symbol-value content)
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
4939 fonttag)))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4940
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4941 ;; Anything else will get turned into an empty string.
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4942 (t
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4943 (ps-output-string "")))
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
4944 (ps-output "]\n"))
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
4945
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
4946 (defun ps-generate-header (name fonttag0 fonttag1 contents)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
4947 (ps-output "/" name "[\n")
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
4948 (and contents (> ps-header-lines 0)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
4949 (let ((count 1))
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
4950 (ps-generate-header-line fonttag0 (car contents))
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
4951 (while (and (< count ps-header-lines)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
4952 (setq contents (cdr contents)))
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
4953 (ps-generate-header-line fonttag1 (car contents))
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
4954 (setq count (1+ count)))))
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
4955 (ps-output "]def\n"))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4956
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4957
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
4958 (defun ps-output-boolean (name bool)
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
4959 (ps-output (format "/%s %s def\n" name (if bool "true" "false"))))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4960
19879
87952270ceeb (ps-emacs-face-kind-p): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents: 19843
diff changeset
4961
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
4962 (defun ps-output-frame-properties (name alist)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
4963 (ps-output "/" name " ["
37489
ba96560d3f9e Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents: 37286
diff changeset
4964 (ps-format-color (cdr (assq 'fore-color alist)) 0.0)
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
4965 (ps-format-color (cdr (assq 'back-color alist)) 0.9)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
4966 (ps-float-format (or (cdr (assq 'border-width alist)) 0.4))
37489
ba96560d3f9e Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents: 37286
diff changeset
4967 (ps-format-color (cdr (assq 'border-color alist)) 0.0)
ba96560d3f9e Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents: 37286
diff changeset
4968 (ps-format-color (cdr (assq 'shadow-color alist)) 0.0)
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
4969 "]def\n"))
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
4970
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
4971
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4972 (defun ps-background-pages (page-list func)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4973 (if page-list
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4974 (mapcar
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4975 #'(lambda (pages)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4976 (let ((start (if (consp pages) (car pages) pages))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4977 (end (if (consp pages) (cdr pages) pages)))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4978 (and (integerp start) (integerp end) (<= start end)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4979 (add-to-list 'ps-background-pages (vector start end func)))))
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4980 page-list)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4981 (setq ps-background-all-pages (cons func ps-background-all-pages))))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4982
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4983
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4984 (defconst ps-boundingbox-re
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4985 "^%%BoundingBox:\
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4986 \\s-+\\([0-9.]+\\)\\s-+\\([0-9.]+\\)\\s-+\\([0-9.]+\\)\\s-+\\([0-9.]+\\)")
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4987
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4988
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4989 (defun ps-get-boundingbox ()
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4990 (save-excursion
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4991 (set-buffer ps-spool-buffer)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4992 (save-excursion
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4993 (if (re-search-forward ps-boundingbox-re nil t)
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4994 (vector (string-to-number ; lower x
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4995 (buffer-substring (match-beginning 1) (match-end 1)))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4996 (string-to-number ; lower y
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4997 (buffer-substring (match-beginning 2) (match-end 2)))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4998 (string-to-number ; upper x
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4999 (buffer-substring (match-beginning 3) (match-end 3)))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
5000 (string-to-number ; upper y
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
5001 (buffer-substring (match-beginning 4) (match-end 4))))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
5002 (vector 0 0 0 0)))))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
5003
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
5004
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
5005 ;; Emacs understands the %f format; we'll use it to limit color RGB values
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
5006 ;; to three decimals to cut down some on the size of the PostScript output.
47674
330113e9df2b (ps-print-emacs-type): Error if ps-print is
Richard M. Stallman <rms@gnu.org>
parents: 47426
diff changeset
5007 ;; XEmacs will have to make do with %s (princ) for floats.
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
5008
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
5009 (defvar ps-float-format (if (featurep 'xemacs)
75953
6f45466672db Use (defvar <foo>) where applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 75702
diff changeset
5010 "%s " ; XEmacs
6f45466672db Use (defvar <foo>) where applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 75702
diff changeset
5011 "%0.3f ")) ; Emacs
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
5012
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
5013
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
5014 (defun ps-float-format (value &optional default)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
5015 (let ((literal (or value default)))
37489
ba96560d3f9e Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents: 37286
diff changeset
5016 (cond ((null literal)
ba96560d3f9e Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents: 37286
diff changeset
5017 " ")
ba96560d3f9e Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents: 37286
diff changeset
5018 ((numberp literal)
ba96560d3f9e Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents: 37286
diff changeset
5019 (format ps-float-format (* literal 1.0))) ; force float number
ba96560d3f9e Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents: 37286
diff changeset
5020 (t
ba96560d3f9e Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents: 37286
diff changeset
5021 (format "%s " literal))
ba96560d3f9e Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents: 37286
diff changeset
5022 )))
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
5023
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
5024
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
5025 (defun ps-background-text ()
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
5026 (mapcar
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5027 #'(lambda (text)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5028 (setq ps-background-text-count (1+ ps-background-text-count))
31253
4c40c1171b8b Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 30522
diff changeset
5029 (ps-output (format "/ShowBackText-%d{\n" ps-background-text-count))
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5030 (ps-output-string (nth 0 text)) ; text
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5031 (ps-output
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5032 "\n"
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5033 (ps-float-format (nth 4 text) 200.0) ; font size
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5034 (format "/%s " (or (nth 3 text) "Times-Roman")) ; font name
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5035 (ps-float-format (nth 6 text)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5036 "PrintHeight PrintPageWidth atan") ; rotation
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5037 (ps-float-format (nth 5 text) 0.85) ; gray
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5038 (ps-float-format (nth 1 text) "0") ; x position
29494
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
5039 (ps-float-format (nth 2 text) "0") ; y position
31253
4c40c1171b8b Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 30522
diff changeset
5040 "\nShowBackText}def\n")
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5041 (ps-background-pages (nthcdr 7 text) ; page list
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5042 (format "ShowBackText-%d\n"
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5043 ps-background-text-count)))
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
5044 ps-print-background-text))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
5045
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
5046
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
5047 (defun ps-background-image ()
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
5048 (mapcar
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5049 #'(lambda (image)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5050 (let ((image-file (expand-file-name (nth 0 image))))
27163
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
5051 (when (file-readable-p image-file)
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
5052 (setq ps-background-image-count (1+ ps-background-image-count))
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
5053 (ps-output
31253
4c40c1171b8b Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 30522
diff changeset
5054 (format "/ShowBackImage-%d{\n--back-- "
27163
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
5055 ps-background-image-count)
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
5056 (ps-float-format (nth 5 image) 0.0) ; rotation
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
5057 (ps-float-format (nth 3 image) 1.0) ; x scale
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
5058 (ps-float-format (nth 4 image) 1.0) ; y scale
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
5059 (ps-float-format (nth 1 image) ; x position
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
5060 "PrintPageWidth 2 div")
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
5061 (ps-float-format (nth 2 image) ; y position
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
5062 "PrintHeight 2 div BottomMargin add")
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
5063 "\nBeginBackImage\n")
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
5064 (ps-insert-file image-file)
64546
c0ad64b42b78 (ps-extend-face-list, ps-extend-face, ps-print-background-image): Fix typos in
Juanma Barranquero <lekktu@gmail.com>
parents: 64091
diff changeset
5065 ;; coordinate adjustment to center image
27163
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
5066 ;; around x and y position
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
5067 (let ((box (ps-get-boundingbox)))
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
5068 (save-excursion
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
5069 (set-buffer ps-spool-buffer)
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
5070 (save-excursion
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
5071 (if (re-search-backward "^--back--" nil t)
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
5072 (replace-match
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
5073 (format "%s %s"
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
5074 (ps-float-format
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
5075 (- (+ (/ (- (aref box 2) (aref box 0)) 2.0)
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
5076 (aref box 0))))
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
5077 (ps-float-format
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
5078 (- (+ (/ (- (aref box 3) (aref box 1)) 2.0)
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
5079 (aref box 1)))))
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
5080 t)))))
31253
4c40c1171b8b Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 30522
diff changeset
5081 (ps-output "\nEndBackImage}def\n")
27163
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
5082 (ps-background-pages (nthcdr 6 image) ; page list
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
5083 (format "ShowBackImage-%d\n"
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
5084 ps-background-image-count)))))
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
5085 ps-print-background-image))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
5086
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
5087
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
5088 (defun ps-background (page-number)
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
5089 (let (has-local-background)
84877
0cff28bd3f6b (ps-background, ps-begin-file, ps-build-reference-face-lists):
Juanma Barranquero <lekktu@gmail.com>
parents: 82416
diff changeset
5090 (mapc #'(lambda (range)
0cff28bd3f6b (ps-background, ps-begin-file, ps-build-reference-face-lists):
Juanma Barranquero <lekktu@gmail.com>
parents: 82416
diff changeset
5091 (and (<= (aref range 0) page-number)
0cff28bd3f6b (ps-background, ps-begin-file, ps-build-reference-face-lists):
Juanma Barranquero <lekktu@gmail.com>
parents: 82416
diff changeset
5092 (<= page-number (aref range 1))
0cff28bd3f6b (ps-background, ps-begin-file, ps-build-reference-face-lists):
Juanma Barranquero <lekktu@gmail.com>
parents: 82416
diff changeset
5093 (if has-local-background
0cff28bd3f6b (ps-background, ps-begin-file, ps-build-reference-face-lists):
Juanma Barranquero <lekktu@gmail.com>
parents: 82416
diff changeset
5094 (ps-output (aref range 2))
0cff28bd3f6b (ps-background, ps-begin-file, ps-build-reference-face-lists):
Juanma Barranquero <lekktu@gmail.com>
parents: 82416
diff changeset
5095 (setq has-local-background t)
0cff28bd3f6b (ps-background, ps-begin-file, ps-build-reference-face-lists):
Juanma Barranquero <lekktu@gmail.com>
parents: 82416
diff changeset
5096 (ps-output "/printLocalBackground{\n"
0cff28bd3f6b (ps-background, ps-begin-file, ps-build-reference-face-lists):
Juanma Barranquero <lekktu@gmail.com>
parents: 82416
diff changeset
5097 (aref range 2)))))
0cff28bd3f6b (ps-background, ps-begin-file, ps-build-reference-face-lists):
Juanma Barranquero <lekktu@gmail.com>
parents: 82416
diff changeset
5098 ps-background-pages)
31253
4c40c1171b8b Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 30522
diff changeset
5099 (and has-local-background (ps-output "}def\n"))))
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
5100
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
5101
21800
d4b4f44ce8da (ps-remove-duplicates): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 21642
diff changeset
5102 ;; Return a list of the distinct elements of LIST.
d4b4f44ce8da (ps-remove-duplicates): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 21642
diff changeset
5103 ;; Elements are compared with `equal'.
d4b4f44ce8da (ps-remove-duplicates): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 21642
diff changeset
5104 (defun ps-remove-duplicates (list)
d4b4f44ce8da (ps-remove-duplicates): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 21642
diff changeset
5105 (let (new (tail list))
d4b4f44ce8da (ps-remove-duplicates): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 21642
diff changeset
5106 (while tail
d4b4f44ce8da (ps-remove-duplicates): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 21642
diff changeset
5107 (or (member (car tail) new)
d4b4f44ce8da (ps-remove-duplicates): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 21642
diff changeset
5108 (setq new (cons (car tail) new)))
d4b4f44ce8da (ps-remove-duplicates): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 21642
diff changeset
5109 (setq tail (cdr tail)))
d4b4f44ce8da (ps-remove-duplicates): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 21642
diff changeset
5110 (nreverse new)))
d4b4f44ce8da (ps-remove-duplicates): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 21642
diff changeset
5111
23307
5d6530954ece Skip invisible overlay.
Karl Heuer <kwzh@gnu.org>
parents: 23273
diff changeset
5112
21954
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
5113 ;; Find the first occurrence of ITEM in LIST.
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
5114 ;; Return the index of the matching item, or nil if not found.
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
5115 ;; Elements are compared with `eq'.
21999
35efe9eafc6c (ps-alist-position): Renamed from ps-position.
Richard M. Stallman <rms@gnu.org>
parents: 21955
diff changeset
5116 (defun ps-alist-position (item list)
21954
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
5117 (let ((tail list) (index 0) found)
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
5118 (while tail
21999
35efe9eafc6c (ps-alist-position): Renamed from ps-position.
Richard M. Stallman <rms@gnu.org>
parents: 21955
diff changeset
5119 (if (setq found (eq (car (car tail)) item))
21954
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
5120 (setq tail nil)
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
5121 (setq index (1+ index)
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
5122 tail (cdr tail))))
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
5123 (and found index)))
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
5124
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
5125
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5126 (defconst ps-n-up-database
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5127 '((a4
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5128 (1 nil 1 1 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5129 (2 t 1 2 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5130 (4 nil 2 2 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5131 (6 t 2 3 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5132 (8 t 2 4 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5133 (9 nil 3 3 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5134 (12 t 3 4 2)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5135 (16 nil 4 4 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5136 (18 t 3 6 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5137 (20 nil 5 4 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5138 (25 nil 5 5 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5139 (30 nil 6 5 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5140 (32 t 4 8 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5141 (36 nil 6 6 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5142 (42 nil 7 6 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5143 (49 nil 7 7 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5144 (50 t 5 10 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5145 (56 nil 8 7 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5146 (64 nil 8 8 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5147 (72 nil 9 8 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5148 (81 nil 9 9 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5149 (90 nil 10 9 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5150 (100 nil 10 10 0))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5151 (a3
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5152 (1 nil 1 1 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5153 (2 t 1 2 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5154 (4 nil 2 2 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5155 (6 t 2 3 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5156 (8 t 2 4 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5157 (9 nil 3 3 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5158 (12 nil 4 3 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5159 (16 nil 4 4 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5160 (18 t 3 6 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5161 (20 nil 5 4 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5162 (25 nil 5 5 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5163 (30 nil 6 5 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5164 (32 t 4 8 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5165 (36 nil 6 6 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5166 (42 nil 7 6 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5167 (49 nil 7 7 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5168 (50 t 5 10 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5169 (56 nil 8 7 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5170 (64 nil 8 8 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5171 (72 nil 9 8 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5172 (81 nil 9 9 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5173 (90 nil 10 9 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5174 (100 nil 10 10 0))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5175 (letter
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5176 (1 nil 1 1 0)
29494
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
5177 (2 t 1 2 0) ; adjusted by PostScript code
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5178 (4 nil 2 2 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5179 (6 t 2 3 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5180 (9 nil 3 3 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5181 (12 nil 4 3 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5182 (16 nil 4 4 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5183 (20 nil 5 4 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5184 (25 nil 5 5 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5185 (30 nil 6 5 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5186 (36 nil 6 6 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5187 (40 t 5 8 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5188 (42 nil 7 6 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5189 (49 nil 7 7 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5190 (56 nil 8 7 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5191 (64 nil 8 8 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5192 (72 nil 9 8 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5193 (81 nil 9 9 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5194 (90 nil 10 9 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5195 (100 nil 10 10 0))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5196 (legal
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5197 (1 nil 1 1 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5198 (2 t 1 2 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5199 (4 nil 2 2 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5200 (6 nil 3 2 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5201 (9 nil 3 3 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5202 (10 t 2 5 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5203 (12 nil 4 3 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5204 (16 nil 4 4 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5205 (20 nil 5 4 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5206 (25 nil 5 5 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5207 (30 nil 6 5 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5208 (36 nil 6 6 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5209 (42 nil 7 6 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5210 (49 nil 7 7 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5211 (56 nil 8 7 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5212 (64 nil 8 8 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5213 (70 t 5 14 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5214 (72 nil 9 8 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5215 (81 nil 9 9 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5216 (90 nil 10 9 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5217 (100 nil 10 10 0))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5218 (letter-small
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5219 (1 nil 1 1 0)
29494
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
5220 (2 t 1 2 0) ; adjusted by PostScript code
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5221 (4 nil 2 2 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5222 (6 t 2 3 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5223 (9 nil 3 3 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5224 (12 t 3 4 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5225 (15 t 3 5 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5226 (16 nil 4 4 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5227 (20 nil 5 4 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5228 (25 nil 5 5 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5229 (28 t 4 7 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5230 (30 nil 6 5 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5231 (36 nil 6 6 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5232 (40 t 5 8 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5233 (42 nil 7 6 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5234 (49 nil 7 7 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5235 (56 nil 8 7 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5236 (60 t 6 10 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5237 (64 nil 8 8 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5238 (72 ni 9 8 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5239 (81 nil 9 9 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5240 (84 t 7 12 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5241 (90 nil 10 9 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5242 (100 nil 10 10 0))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5243 (tabloid
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5244 (1 nil 1 1 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5245 (2 t 1 2 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5246 (4 nil 2 2 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5247 (6 t 2 3 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5248 (8 t 2 4 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5249 (9 nil 3 3 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5250 (12 nil 4 3 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5251 (16 nil 4 4 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5252 (20 nil 5 4 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5253 (25 nil 5 5 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5254 (30 nil 6 5 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5255 (36 nil 6 6 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5256 (42 nil 7 6 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5257 (49 nil 7 7 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5258 (56 nil 8 7 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5259 (64 nil 8 8 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5260 (72 nil 9 8 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5261 (81 nil 9 9 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5262 (84 t 6 14 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5263 (90 nil 10 9 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5264 (100 nil 10 10 0))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5265 ;; Ledger paper size is a special case, it is the only paper size where the
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5266 ;; normal size is landscaped, that is, the height is smaller than width.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5267 ;; So, we use the special value `pag' in the `landscape' field.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5268 (ledger
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5269 (1 nil 1 1 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5270 (2 pag 1 2 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5271 (4 nil 2 2 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5272 (6 pag 2 3 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5273 (8 pag 2 4 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5274 (9 nil 3 3 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5275 (12 nil 4 3 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5276 (16 nil 4 4 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5277 (20 nil 5 4 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5278 (25 nil 5 5 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5279 (30 nil 6 5 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5280 (36 nil 6 6 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5281 (42 nil 7 6 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5282 (49 nil 7 7 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5283 (56 nil 8 7 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5284 (64 nil 8 8 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5285 (72 nil 9 8 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5286 (81 nil 9 9 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5287 (84 pag 6 14 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5288 (90 nil 10 9 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5289 (100 nil 10 10 0))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5290 (statement
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5291 (1 nil 1 1 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5292 (2 t 1 2 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5293 (4 nil 2 2 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5294 (6 nil 3 2 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5295 (9 nil 3 3 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5296 (10 t 2 5 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5297 (12 nil 4 3 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5298 (16 nil 4 4 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5299 (20 nil 5 4 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5300 (21 t 3 7 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5301 (25 nil 5 5 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5302 (30 nil 6 5 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5303 (36 nil 6 6 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5304 (40 t 4 10 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5305 (42 nil 7 6 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5306 (49 nil 7 7 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5307 (56 nil 8 7 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5308 (60 t 5 12 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5309 (64 nil 8 8 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5310 (72 nil 9 8 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5311 (81 nil 9 9 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5312 (90 nil 10 9 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5313 (100 nil 10 10 0))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5314 (executive
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5315 (1 nil 1 1 0)
29494
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
5316 (2 t 1 2 0) ; adjusted by PostScript code
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5317 (4 nil 2 2 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5318 (6 t 2 3 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5319 (9 nil 3 3 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5320 (12 nil 4 3 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5321 (16 nil 4 4 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5322 (20 nil 5 4 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5323 (25 nil 5 5 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5324 (28 t 4 7 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5325 (30 nil 6 5 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5326 (36 nil 6 6 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5327 (42 nil 7 6 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5328 (45 t 5 9 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5329 (49 nil 7 7 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5330 (56 nil 8 7 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5331 (60 t 6 10 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5332 (64 nil 8 8 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5333 (72 nil 9 8 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5334 (81 nil 9 9 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5335 (84 t 7 12 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5336 (90 nil 10 9 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5337 (100 nil 10 10 0))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5338 (a4small
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5339 (1 nil 1 1 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5340 (2 t 1 2 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5341 (4 nil 2 2 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5342 (6 t 2 3 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5343 (8 t 2 4 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5344 (9 nil 3 3 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5345 (12 nil 4 3 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5346 (16 nil 4 4 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5347 (18 t 3 6 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5348 (20 nil 5 4 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5349 (25 nil 5 5 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5350 (30 nil 6 5 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5351 (32 t 4 8 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5352 (36 nil 6 6 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5353 (42 nil 7 6 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5354 (49 nil 7 7 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5355 (50 t 5 10 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5356 (56 nil 8 7 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5357 (64 nil 8 8 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5358 (72 nil 9 8 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5359 (78 t 6 13 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5360 (81 nil 9 9 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5361 (90 nil 10 9 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5362 (100 nil 10 10 0))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5363 (b4
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5364 (1 nil 1 1 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5365 (2 t 1 2 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5366 (4 nil 2 2 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5367 (6 t 2 3 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5368 (8 t 2 4 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5369 (9 nil 3 3 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5370 (12 nil 4 3 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5371 (16 nil 4 4 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5372 (18 t 3 6 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5373 (20 nil 5 4 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5374 (25 nil 5 5 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5375 (30 nil 6 5 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5376 (32 t 4 8 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5377 (36 nil 6 6 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5378 (42 nil 7 6 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5379 (49 nil 7 7 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5380 (50 t 5 10 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5381 (56 nil 8 7 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5382 (64 nil 8 8 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5383 (72 nil 9 8 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5384 (81 nil 9 9 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5385 (90 nil 10 9 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5386 (100 nil 10 10 0))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5387 (b5
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5388 (1 nil 1 1 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5389 (2 t 1 2 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5390 (4 nil 2 2 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5391 (6 t 2 3 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5392 (8 t 2 4 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5393 (9 nil 3 3 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5394 (12 nil 4 3 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5395 (16 nil 4 4 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5396 (18 t 3 6 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5397 (20 nil 5 4 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5398 (25 nil 5 5 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5399 (30 nil 6 5 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5400 (32 t 4 8 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5401 (36 nil 6 6 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5402 (42 nil 7 6 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5403 (49 nil 7 7 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5404 (50 t 5 10 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5405 (56 nil 8 7 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5406 (64 nil 8 8 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5407 (72 nil 9 8 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5408 (81 nil 9 9 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5409 (90 nil 10 9 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5410 (98 t 7 14 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5411 (100 nil 10 10 0)))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5412 "Alist which is the page matrix database used for N-up printing.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5413
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5414 Each element has the following form:
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5415
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5416 (PAGE
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5417 (MAX LANDSCAPE LINES COLUMNS COL-MISSING)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5418 ...)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5419
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5420 Where:
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5421 PAGE is the page size used (see `ps-paper-type').
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5422 MAX is the maximum elements of this page matrix.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5423 LANDSCAPE specifies if page matrix is landscaped, has the following valid
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5424 values:
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5425 nil the sheet is in portrait mode.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5426 t the sheet is in landscape mode.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5427 pag the sheet is in portrait mode and page is in landscape mode.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5428 LINES is the number of lines of page matrix.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5429 COLUMNS is the number of columns of page matrix.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5430 COL-MISSING is the number of columns missing to fill the sheet.")
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5431
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5432
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5433 (defmacro ps-n-up-landscape (mat) `(nth 1 ,mat))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5434 (defmacro ps-n-up-lines (mat) `(nth 2 ,mat))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5435 (defmacro ps-n-up-columns (mat) `(nth 3 ,mat))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5436 (defmacro ps-n-up-missing (mat) `(nth 4 ,mat))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5437
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5438
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5439 (defun ps-n-up-printing ()
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5440 ;; force `ps-n-up-printing' be in range 1 to 100.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5441 (setq ps-n-up-printing (max (min ps-n-up-printing 100) 1))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5442 ;; find suitable page matrix for a given `ps-paper-type'.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5443 (let ((the-list (cdr (assq ps-paper-type ps-n-up-database))))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5444 (and the-list
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5445 (while (> ps-n-up-printing (caar the-list))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5446 (setq the-list (cdr the-list))))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5447 (car the-list)))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5448
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5449
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5450 (defconst ps-n-up-filling-database
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5451 '((left-top
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5452 "PageWidth" ; N-Up-XColumn
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5453 "0" ; N-Up-YColumn
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5454 "N-Up-End 1 sub PageWidth mul neg" ; N-Up-XLine
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5455 "LandscapePageHeight neg" ; N-Up-YLine
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5456 "N-Up-Lines" ; N-Up-Repeat
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5457 "N-Up-Columns" ; N-Up-End
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5458 "0" ; N-Up-XStart
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5459 "0") ; N-Up-YStart
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5460 (left-bottom
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5461 "PageWidth" ; N-Up-XColumn
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5462 "0" ; N-Up-YColumn
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5463 "N-Up-End 1 sub PageWidth mul neg" ; N-Up-XLine
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5464 "LandscapePageHeight" ; N-Up-YLine
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5465 "N-Up-Lines" ; N-Up-Repeat
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5466 "N-Up-Columns" ; N-Up-End
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5467 "0" ; N-Up-XStart
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5468 "N-Up-Repeat 1 sub LandscapePageHeight mul neg") ; N-Up-YStart
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5469 (right-top
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5470 "PageWidth neg" ; N-Up-XColumn
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5471 "0" ; N-Up-YColumn
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5472 "N-Up-End 1 sub PageWidth mul" ; N-Up-XLine
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5473 "LandscapePageHeight neg" ; N-Up-YLine
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5474 "N-Up-Lines" ; N-Up-Repeat
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5475 "N-Up-Columns" ; N-Up-End
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5476 "N-Up-End 1 sub PageWidth mul" ; N-Up-XStart
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5477 "0") ; N-Up-YStart
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5478 (right-bottom
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5479 "PageWidth neg" ; N-Up-XColumn
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5480 "0" ; N-Up-YColumn
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5481 "N-Up-End 1 sub PageWidth mul" ; N-Up-XLine
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5482 "LandscapePageHeight" ; N-Up-YLine
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5483 "N-Up-Lines" ; N-Up-Repeat
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5484 "N-Up-Columns" ; N-Up-End
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5485 "N-Up-End 1 sub PageWidth mul" ; N-Up-XStart
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5486 "N-Up-Repeat 1 sub LandscapePageHeight mul neg") ; N-Up-YStart
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5487 (top-left
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5488 "0" ; N-Up-XColumn
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5489 "LandscapePageHeight neg" ; N-Up-YColumn
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5490 "PageWidth" ; N-Up-XLine
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5491 "N-Up-End 1 sub LandscapePageHeight mul" ; N-Up-YLine
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5492 "N-Up-Columns" ; N-Up-Repeat
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5493 "N-Up-Lines" ; N-Up-End
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5494 "0" ; N-Up-XStart
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5495 "0") ; N-Up-YStart
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5496 (bottom-left
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5497 "0" ; N-Up-XColumn
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5498 "LandscapePageHeight" ; N-Up-YColumn
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5499 "PageWidth" ; N-Up-XLine
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5500 "N-Up-End 1 sub LandscapePageHeight mul neg" ; N-Up-YLine
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5501 "N-Up-Columns" ; N-Up-Repeat
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5502 "N-Up-Lines" ; N-Up-End
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5503 "0" ; N-Up-XStart
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5504 "N-Up-End 1 sub LandscapePageHeight mul neg") ; N-Up-YStart
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5505 (top-right
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5506 "0" ; N-Up-XColumn
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5507 "LandscapePageHeight neg" ; N-Up-YColumn
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5508 "PageWidth neg" ; N-Up-XLine
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5509 "N-Up-End 1 sub LandscapePageHeight mul" ; N-Up-YLine
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5510 "N-Up-Columns" ; N-Up-Repeat
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5511 "N-Up-Lines" ; N-Up-End
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5512 "N-Up-Repeat 1 sub PageWidth mul" ; N-Up-XStart
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5513 "0") ; N-Up-YStart
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5514 (bottom-right
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5515 "0" ; N-Up-XColumn
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5516 "LandscapePageHeight" ; N-Up-YColumn
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5517 "PageWidth neg" ; N-Up-XLine
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5518 "N-Up-End 1 sub LandscapePageHeight mul neg" ; N-Up-YLine
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5519 "N-Up-Columns" ; N-Up-Repeat
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5520 "N-Up-Lines" ; N-Up-End
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5521 "N-Up-Repeat 1 sub PageWidth mul" ; N-Up-XStart
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5522 "N-Up-End 1 sub LandscapePageHeight mul neg")) ; N-Up-YStart
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5523 "Alist for n-up printing initializations.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5524
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5525 Each element has the following form:
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5526
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5527 (KIND XCOL YCOL XLIN YLIN REPEAT END XSTART YSTART)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5528
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5529 Where:
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5530 KIND is a valid value of `ps-n-up-filling'.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5531 XCOL YCOL are the relative position for the next column.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5532 XLIN YLIN are the relative position for the beginning of next line.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5533 REPEAT is the number of repetions for external loop.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5534 END is the number of repetions for internal loop and also the number of pages in
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5535 a row.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5536 XSTART YSTART are the relative position for the first page in a sheet.")
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5537
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5538
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5539 (defun ps-n-up-filling ()
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5540 (cdr (or (assq ps-n-up-filling ps-n-up-filling-database)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5541 (assq 'left-top ps-n-up-filling-database))))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5542
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5543
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5544 (defmacro ps-n-up-xcolumn (init) `(nth 0 ,init))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5545 (defmacro ps-n-up-ycolumn (init) `(nth 1 ,init))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5546 (defmacro ps-n-up-xline (init) `(nth 2 ,init))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5547 (defmacro ps-n-up-yline (init) `(nth 3 ,init))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5548 (defmacro ps-n-up-repeat (init) `(nth 4 ,init))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5549 (defmacro ps-n-up-end (init) `(nth 5 ,init))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5550 (defmacro ps-n-up-xstart (init) `(nth 6 ,init))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5551 (defmacro ps-n-up-ystart (init) `(nth 7 ,init))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5552
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5553
28153
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
5554 (defconst ps-error-handler-alist
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
5555 '((none . 0)
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
5556 (paper . 1)
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
5557 (system . 2)
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
5558 (paper-and-system . 3))
36215
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
5559 "Alist for error handler message.")
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
5560
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
5561
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
5562 (defconst ps-zebra-stripe-alist
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
5563 '((follow . 1)
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
5564 (full . 2)
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
5565 (full-follow . 3))
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
5566 "Alist for zebra stripe continuation.")
28153
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
5567
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
5568
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
5569 (defun ps-begin-file ()
33337
75b72848ba05 Patch for variable initialization when spooling. Doc
Gerd Moellmann <gerd@gnu.org>
parents: 33143
diff changeset
5570 (setq ps-page-order 0
33143
94d9ccbb780e Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33090
diff changeset
5571 ps-page-printed 0
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
5572 ps-background-text-count 0
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
5573 ps-background-image-count 0
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
5574 ps-background-pages nil
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
5575 ps-background-all-pages nil)
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
5576
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5577 (let ((dimensions (cdr (assq ps-paper-type ps-page-dimensions-database)))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5578 (tumble (if ps-landscape-mode (not ps-spool-tumble) ps-spool-tumble))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5579 (n-up (ps-n-up-printing))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5580 (n-up-filling (ps-n-up-filling)))
28979
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
5581 (and ps-n-up-on (setq tumble (not tumble)))
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5582 (ps-output
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5583 ps-adobe-tag
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5584 "%%Title: " (buffer-name) ; Take job name from name of
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
5585 ; first buffer printed
56504
8d030ffc0866 Improve DSC compliance.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56127
diff changeset
5586 "\n%%Creator: ps-print v" ps-print-version
8d030ffc0866 Improve DSC compliance.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56127
diff changeset
5587 "\n%%For: " (user-full-name)
8d030ffc0866 Improve DSC compliance.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56127
diff changeset
5588 "\n%%CreationDate: " (format-time-string "%T %b %d %Y")
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5589 "\n%%Orientation: "
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5590 (if ps-landscape-mode "Landscape" "Portrait")
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5591 "\n%%DocumentNeededResources: font Times-Roman Times-Italic\n%%+ font "
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5592 (mapconcat 'identity
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5593 (ps-remove-duplicates
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5594 (append (ps-fonts 'ps-font-for-text)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5595 (list (ps-font 'ps-font-for-header 'normal)
56504
8d030ffc0866 Improve DSC compliance.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56127
diff changeset
5596 (ps-font 'ps-font-for-header 'bold)
8d030ffc0866 Improve DSC compliance.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56127
diff changeset
5597 (ps-font 'ps-font-for-footer 'normal)
8d030ffc0866 Improve DSC compliance.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56127
diff changeset
5598 (ps-font 'ps-font-for-footer 'bold))))
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5599 "\n%%+ font ")
56504
8d030ffc0866 Improve DSC compliance.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56127
diff changeset
5600 "\n%%DocumentSuppliedResources: procset PSPrintUserDefinedPrologue-" (user-login-name) " 0 0"
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5601 "\n%%DocumentMedia: " (ps-page-dimensions-get-media dimensions)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5602 (format " %d" (round (ps-page-dimensions-get-width dimensions)))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5603 (format " %d" (round (ps-page-dimensions-get-height dimensions)))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5604 " 0 () ()\n%%PageOrder: Ascend\n%%Pages: (atend)\n%%Requirements:"
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5605 (if ps-spool-duplex
29494
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
5606 (if tumble " duplex(tumble)\n" " duplex\n")
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5607 "\n"))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5608
28153
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
5609 (ps-insert-string ps-print-prologue-header)
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5610
29494
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
5611 (ps-output "%%EndComments\n%%BeginDefaults\n%%PageMedia: "
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
5612 (ps-page-dimensions-get-media dimensions)
37135
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
5613 "\n%%EndDefaults\n\n%%BeginProlog\n\n"
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
5614 "/languagelevel where{pop}{/languagelevel 1 def}ifelse\n"
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
5615 (format "/ErrorMessage %s def\n\n"
28153
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
5616 (or (cdr (assoc ps-error-handler-message
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
5617 ps-error-handler-alist))
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
5618 1)) ; send to paper
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
5619 ps-print-prologue-0
56504
8d030ffc0866 Improve DSC compliance.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56127
diff changeset
5620 "\n%%BeginResource: procset PSPrintUserDefinedPrologue-" (user-login-name) " 0 0\n\n")
28153
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
5621
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
5622 (ps-insert-string ps-user-defined-prologue)
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
5623
56504
8d030ffc0866 Improve DSC compliance.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56127
diff changeset
5624 (ps-output "\n%%EndResource\n\n")
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5625
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5626 (ps-output-boolean "LandscapeMode "
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5627 (or ps-landscape-mode
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5628 (eq (ps-n-up-landscape n-up) 'pag)))
28760
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
5629 (ps-output-boolean "UpsideDown " ps-print-upside-down)
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5630 (ps-output (format "/NumberOfColumns %d def\n" ps-number-of-columns)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5631
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5632 (format "/LandscapePageHeight %s def\n" ps-landscape-page-height)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5633 (format "/PrintPageWidth %s def\n"
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5634 (- (* (+ ps-print-width ps-inter-column)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5635 ps-number-of-columns)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5636 ps-inter-column))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5637 (format "/PrintWidth %s def\n" ps-print-width)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5638 (format "/PrintHeight %s def\n" ps-print-height)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5639
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5640 (format "/LeftMargin %s def\n" ps-left-margin)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5641 (format "/RightMargin %s def\n" ps-right-margin)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5642 (format "/InterColumn %s def\n" ps-inter-column)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5643
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5644 (format "/BottomMargin %s def\n" ps-bottom-margin)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5645 (format "/TopMargin %s def\n" ps-top-margin) ; not used
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5646 (format "/HeaderOffset %s def\n" ps-header-offset)
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
5647 (format "/HeaderPad %s def\n" ps-header-pad)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
5648 (format "/FooterOffset %s def\n" ps-footer-offset)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
5649 (format "/FooterPad %s def\n" ps-footer-pad)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
5650 (format "/FooterLines %s def\n" ps-footer-lines))
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
5651
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
5652 (ps-output-boolean "ShowNofN " ps-show-n-of-n)
29494
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
5653 (ps-output-boolean "SwitchHeader " (if (eq ps-switch-header 'duplex)
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
5654 ps-spool-duplex
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
5655 ps-switch-header))
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
5656 (ps-output-boolean "PrintOnlyOneHeader" ps-print-only-one-header)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
5657 (ps-output-boolean "PrintHeader " ps-print-header)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
5658 (ps-output-boolean "PrintHeaderFrame " ps-print-header-frame)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
5659 (ps-output-frame-properties "HeaderFrameProperties" ps-header-frame-alist)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
5660 (ps-output-boolean "PrintFooter " ps-print-footer)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
5661 (ps-output-boolean "PrintFooterFrame " ps-print-footer-frame)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
5662 (ps-output-frame-properties "FooterFrameProperties" ps-footer-frame-alist)
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5663
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5664 (let ((line-height (ps-line-height 'ps-font-for-text)))
37135
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
5665 (ps-output (format "/LineSpacing %s def\n" ps-line-spacing-internal)
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
5666 (format "/ParagraphSpacing %s def\n"
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
5667 ps-paragraph-spacing-internal)
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
5668 (format "/LineHeight %s def\n" line-height)
36215
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
5669 (format "/LinesPerColumn %d def\n"
37135
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
5670 (let ((height (+ line-height
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
5671 ps-line-spacing-internal)))
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
5672 (round (/ (+ ps-print-height
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
5673 (* height 0.45))
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
5674 height))))))
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5675
29494
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
5676 (ps-output-boolean "WarnPaperSize " ps-warn-paper-type)
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5677 (ps-output-boolean "Zebra " ps-zebra-stripes)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5678 (ps-output-boolean "PrintLineNumber " ps-line-number)
28760
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
5679 (ps-output-boolean "SyncLineZebra " (not (integerp ps-line-number-step)))
36215
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
5680 (ps-output (format "/ZebraFollow %d def\n"
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
5681 (or (cdr (assq ps-zebra-stripe-follow
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
5682 ps-zebra-stripe-alist))
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
5683 0))
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
5684 (format "/PrintLineStep %d def\n"
28760
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
5685 (if (integerp ps-line-number-step)
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
5686 ps-line-number-step
28979
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
5687 ps-zebra-stripe-height))
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
5688 (format "/PrintLineStart %d def\n" ps-line-number-start)
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
5689 "/LineNumberColor "
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
5690 (ps-format-color ps-line-number-color 0.0)
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
5691 (format "def\n/ZebraHeight %d def\n"
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
5692 ps-zebra-stripe-height)
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
5693 "/ZebraColor "
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
5694 (ps-format-color ps-zebra-color 0.95)
78214
9df605969950 Fix foreground/background color
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 78130
diff changeset
5695 "def\n")
9df605969950 Fix foreground/background color
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 78130
diff changeset
5696 (ps-output "/BackgroundColor "
50032
c919f0375a3e Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 49763
diff changeset
5697 (ps-format-color ps-default-background 1.0)
78214
9df605969950 Fix foreground/background color
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 78130
diff changeset
5698 "def\n")
9df605969950 Fix foreground/background color
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 78130
diff changeset
5699 (ps-output "/UseSetpagedevice "
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5700 (if (eq ps-spool-config 'setpagedevice)
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
5701 "/setpagedevice where{pop languagelevel 2 eq}{false}ifelse"
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
5702 "false")
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
5703 " def\n\n/PageWidth "
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5704 "PrintPageWidth LeftMargin add RightMargin add def\n\n"
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5705 (format "/N-Up %d def\n" ps-n-up-printing))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5706 (ps-output-boolean "N-Up-Landscape" (eq (ps-n-up-landscape n-up) t))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5707 (ps-output-boolean "N-Up-Border " ps-n-up-border-p)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5708 (ps-output (format "/N-Up-Lines %d def\n" (ps-n-up-lines n-up))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5709 (format "/N-Up-Columns %d def\n" (ps-n-up-columns n-up))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5710 (format "/N-Up-Missing %d def\n" (ps-n-up-missing n-up))
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
5711 (format "/N-Up-Margin %s def\n" ps-n-up-margin)
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
5712 "/N-Up-Repeat "
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5713 (if ps-landscape-mode
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5714 (ps-n-up-end n-up-filling)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5715 (ps-n-up-repeat n-up-filling))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5716 " def\n/N-Up-End "
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5717 (if ps-landscape-mode
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5718 (ps-n-up-repeat n-up-filling)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5719 (ps-n-up-end n-up-filling))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5720 " def\n/N-Up-XColumn " (ps-n-up-xcolumn n-up-filling)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5721 " def\n/N-Up-YColumn " (ps-n-up-ycolumn n-up-filling)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5722 " def\n/N-Up-XLine " (ps-n-up-xline n-up-filling)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5723 " def\n/N-Up-YLine " (ps-n-up-yline n-up-filling)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5724 " def\n/N-Up-XStart " (ps-n-up-xstart n-up-filling)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5725 " def\n/N-Up-YStart " (ps-n-up-ystart n-up-filling) " def\n")
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5726
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5727 (ps-background-text)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5728 (ps-background-image)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5729 (setq ps-background-all-pages (nreverse ps-background-all-pages)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5730 ps-background-pages (nreverse ps-background-pages))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5731
56552
12ee8343c078 Tiny change.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56504
diff changeset
5732 (ps-output "\n" ps-print-prologue-1
12ee8343c078 Tiny change.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56504
diff changeset
5733 "\n/printGlobalBackground{\n")
84877
0cff28bd3f6b (ps-background, ps-begin-file, ps-build-reference-face-lists):
Juanma Barranquero <lekktu@gmail.com>
parents: 82416
diff changeset
5734 (mapc 'ps-output ps-background-all-pages)
56504
8d030ffc0866 Improve DSC compliance.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56127
diff changeset
5735 (ps-output
56552
12ee8343c078 Tiny change.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56504
diff changeset
5736 "}def\n/printLocalBackground{\n}def\n"
12ee8343c078 Tiny change.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56504
diff changeset
5737 "\n%%EndProlog\n\n%%BeginSetup\n"
56504
8d030ffc0866 Improve DSC compliance.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56127
diff changeset
5738 "\n%%IncludeResource: font Times-Roman"
56552
12ee8343c078 Tiny change.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56504
diff changeset
5739 "\n%%IncludeResource: font Times-Italic"
12ee8343c078 Tiny change.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56504
diff changeset
5740 "\n%%IncludeResource: font "
56504
8d030ffc0866 Improve DSC compliance.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56127
diff changeset
5741 (mapconcat 'identity
8d030ffc0866 Improve DSC compliance.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56127
diff changeset
5742 (ps-remove-duplicates
8d030ffc0866 Improve DSC compliance.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56127
diff changeset
5743 (append (ps-fonts 'ps-font-for-text)
8d030ffc0866 Improve DSC compliance.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56127
diff changeset
5744 (list (ps-font 'ps-font-for-header 'normal)
8d030ffc0866 Improve DSC compliance.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56127
diff changeset
5745 (ps-font 'ps-font-for-header 'bold)
8d030ffc0866 Improve DSC compliance.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56127
diff changeset
5746 (ps-font 'ps-font-for-footer 'normal)
8d030ffc0866 Improve DSC compliance.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56127
diff changeset
5747 (ps-font 'ps-font-for-footer 'bold))))
8d030ffc0866 Improve DSC compliance.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56127
diff changeset
5748 "\n%%IncludeResource: font ")
56552
12ee8343c078 Tiny change.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56504
diff changeset
5749 ;; Header/line number fonts
12ee8343c078 Tiny change.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56504
diff changeset
5750 (format "\n/h0 %s(%s)cvn DefFont\n" ; /h0 14/Helvetica-Bold DefFont
12ee8343c078 Tiny change.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56504
diff changeset
5751 ps-header-title-font-size-internal
12ee8343c078 Tiny change.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56504
diff changeset
5752 (ps-font 'ps-font-for-header 'bold))
12ee8343c078 Tiny change.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56504
diff changeset
5753 (format "/h1 %s(%s)cvn DefFont\n" ; /h1 12/Helvetica DefFont
12ee8343c078 Tiny change.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56504
diff changeset
5754 ps-header-font-size-internal
12ee8343c078 Tiny change.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56504
diff changeset
5755 (ps-font 'ps-font-for-header 'normal))
12ee8343c078 Tiny change.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56504
diff changeset
5756 (format "/L0 %s(%s)cvn DefFont\n" ; /L0 6/Times-Italic DefFont
12ee8343c078 Tiny change.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56504
diff changeset
5757 (ps-get-font-size 'ps-line-number-font-size)
12ee8343c078 Tiny change.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56504
diff changeset
5758 ps-line-number-font)
12ee8343c078 Tiny change.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56504
diff changeset
5759 (format "/H0 %s(%s)cvn DefFont\n" ; /H0 12/Helvetica DefFont
12ee8343c078 Tiny change.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56504
diff changeset
5760 ps-footer-font-size-internal
12ee8343c078 Tiny change.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56504
diff changeset
5761 (ps-font 'ps-font-for-footer 'normal))
12ee8343c078 Tiny change.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56504
diff changeset
5762 "\n\n% ---- These lines must be kept together because...
37135
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
5763
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
5764 /h0 F
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
5765 /HeaderTitleLineHeight FontHeight def
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
5766
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
5767 /h1 F
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
5768 /HeaderLineHeight FontHeight def
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
5769 /HeaderDescent Descent def
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
5770
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
5771 /H0 F
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
5772 /FooterLineHeight FontHeight def
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
5773 /FooterDescent Descent def
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
5774
37135
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
5775 % ---- ...because `F' has a side-effect on `FontHeight' and `Descent'\n\n")
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5776
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5777 ;; Text fonts
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5778 (let ((font (ps-font-alist 'ps-font-for-text))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5779 (i 0))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5780 (while font
31253
4c40c1171b8b Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 30522
diff changeset
5781 (ps-output (format "/f%d %s(%s)cvn DefFont\n"
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5782 i
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5783 ps-font-size-internal
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5784 (ps-font 'ps-font-for-text (car (car font)))))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5785 (setq font (cdr font)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5786 i (1+ i))))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5787
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5788 (let ((font-entry (cdr (assq ps-font-family ps-font-info-database))))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5789 (ps-output (format "/SpaceWidthRatio %f def\n"
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5790 (/ (ps-lookup 'space-width) (ps-lookup 'size)))))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5791
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5792 (unless (eq ps-spool-config 'lpr-switches)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5793 (ps-output "\n%%BeginFeature: *Duplex "
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5794 (ps-boolean-capitalized ps-spool-duplex)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5795 " *Tumble "
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5796 (ps-boolean-capitalized tumble)
31253
4c40c1171b8b Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 30522
diff changeset
5797 "\nUseSetpagedevice\n{BMark/Duplex "
4c40c1171b8b Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 30522
diff changeset
5798 (ps-boolean-constant ps-spool-duplex)
4c40c1171b8b Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 30522
diff changeset
5799 "/Tumble "
4c40c1171b8b Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 30522
diff changeset
5800 (ps-boolean-constant tumble)
4c40c1171b8b Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 30522
diff changeset
5801 " EMark setpagedevice}\n{statusdict begin "
4c40c1171b8b Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 30522
diff changeset
5802 (ps-boolean-constant ps-spool-duplex)
4c40c1171b8b Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 30522
diff changeset
5803 " setduplexmode "
4c40c1171b8b Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 30522
diff changeset
5804 (ps-boolean-constant tumble)
4c40c1171b8b Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 30522
diff changeset
5805 " settumble end}ifelse\n%%EndFeature\n")))
29494
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
5806 (ps-output "\n%%BeginFeature: *ManualFeed "
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
5807 (ps-boolean-capitalized ps-manual-feed)
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
5808 "\nBMark /ManualFeed "
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
5809 (ps-boolean-constant ps-manual-feed)
34045
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
5810 " EMark setpagedevice\n%%EndFeature\n\nBeginDoc\n%%EndSetup\n")
28286
02eba379a4e5 Skip banner page fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28266
diff changeset
5811 (and ps-banner-page-when-duplexing
28979
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
5812 (ps-output "\n%%Page: banner 0\nsave showpage restore\n")))
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5813
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5814
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
5815 (defun ps-format-color (color &optional default)
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
5816 (let ((the-color (if (stringp color)
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
5817 (ps-color-scale color)
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
5818 color)))
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
5819 (if (and the-color (listp the-color))
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
5820 (concat "["
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
5821 (format ps-color-format
37489
ba96560d3f9e Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents: 37286
diff changeset
5822 (* (nth 0 the-color) 1.0) ; force float number
ba96560d3f9e Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents: 37286
diff changeset
5823 (* (nth 1 the-color) 1.0) ; force float number
ba96560d3f9e Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents: 37286
diff changeset
5824 (* (nth 2 the-color) 1.0)) ; force float number
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
5825 "] ")
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
5826 (ps-float-format (if (numberp the-color) the-color default)))))
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
5827
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
5828
28153
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
5829 (defun ps-insert-string (prologue)
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
5830 (let ((str (if (functionp prologue)
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
5831 (funcall prologue)
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
5832 prologue)))
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
5833 (and (stringp str)
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
5834 (ps-output str))))
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
5835
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
5836
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5837 (defun ps-boolean-capitalized (bool)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5838 (if bool "True" "False"))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5839
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
5840
29494
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
5841 (defun ps-boolean-constant (bool)
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
5842 (if bool "true" "false"))
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
5843
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
5844
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
5845 (defun ps-header-dirpart ()
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
5846 (let ((fname (buffer-file-name)))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
5847 (if fname
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
5848 (if (string-equal (buffer-name) (file-name-nondirectory fname))
26563
79f9edcc8bde Define mule funs without checking if mule package is
Kenichi Handa <handa@m17n.org>
parents: 26483
diff changeset
5849 (abbreviate-file-name (file-name-directory fname))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
5850 fname)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
5851 "")))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
5852
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5853
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
5854 (defun ps-get-buffer-name ()
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
5855 (cond
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
5856 ;; Indulge Jim this little easter egg:
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
5857 ((string= (buffer-name) "ps-print.el")
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
5858 "Hey, Cool! It's ps-print.el!!!")
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
5859 ;; Indulge Jack this other little easter egg:
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
5860 ((string= (buffer-name) "sokoban.el")
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
5861 "Super! C'est sokoban.el!")
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
5862 (t (concat
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
5863 (and ps-printing-region-p "Subset of: ")
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
5864 (buffer-name)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
5865 (and (buffer-modified-p) " (unsaved)")))))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
5866
24414
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
5867
37135
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
5868 (defun ps-get-size (size mess &optional arg)
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
5869 (let ((siz (cond ((numberp size)
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
5870 size)
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
5871 ((and (consp size)
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
5872 (numberp (car size))
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
5873 (numberp (cdr size)))
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
5874 (if ps-landscape-mode
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
5875 (car size)
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
5876 (cdr size)))
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
5877 (t
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
5878 -1))))
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
5879 (and (< siz 0)
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
5880 (error "Invalid %s `%S'%s"
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
5881 mess size
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
5882 (if arg
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
5883 (format " for `%S'" arg)
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
5884 "")))
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
5885 siz))
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
5886
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
5887
24414
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
5888 (defun ps-get-font-size (font-sym)
37135
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
5889 (ps-get-size (symbol-value font-sym) "font size" font-sym))
24414
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
5890
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
5891
77744
2054f6825314 Use default color when foreground or background color are unspecified.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 76356
diff changeset
5892 (defun ps-rgb-color (color unspecified default)
2054f6825314 Use default color when foreground or background color are unspecified.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 76356
diff changeset
5893 (cond
2054f6825314 Use default color when foreground or background color are unspecified.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 76356
diff changeset
5894 ;; (float float float) ==> (R G B)
2054f6825314 Use default color when foreground or background color are unspecified.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 76356
diff changeset
5895 ((and color (listp color) (= (length color) 3)
2054f6825314 Use default color when foreground or background color are unspecified.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 76356
diff changeset
5896 (let ((cl color)
2054f6825314 Use default color when foreground or background color are unspecified.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 76356
diff changeset
5897 (ok t) e)
2054f6825314 Use default color when foreground or background color are unspecified.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 76356
diff changeset
5898 (while (and ok cl)
2054f6825314 Use default color when foreground or background color are unspecified.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 76356
diff changeset
5899 (setq e (car cl)
2054f6825314 Use default color when foreground or background color are unspecified.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 76356
diff changeset
5900 cl (cdr cl)
2054f6825314 Use default color when foreground or background color are unspecified.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 76356
diff changeset
5901 ok (and (floatp e) (<= 0.0 e) (<= e 1.0))))
2054f6825314 Use default color when foreground or background color are unspecified.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 76356
diff changeset
5902 ok))
2054f6825314 Use default color when foreground or background color are unspecified.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 76356
diff changeset
5903 color)
2054f6825314 Use default color when foreground or background color are unspecified.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 76356
diff changeset
5904 ;; float ==> 0.0 = black .. 1.0 = white
2054f6825314 Use default color when foreground or background color are unspecified.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 76356
diff changeset
5905 ((and (floatp color) (<= 0.0 color) (<= color 1.0))
2054f6825314 Use default color when foreground or background color are unspecified.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 76356
diff changeset
5906 (list color color color))
2054f6825314 Use default color when foreground or background color are unspecified.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 76356
diff changeset
5907 ;; "colorName" but different from "unspecified-[bf]g"
2054f6825314 Use default color when foreground or background color are unspecified.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 76356
diff changeset
5908 ((and (stringp color) (not (string= color unspecified)))
2054f6825314 Use default color when foreground or background color are unspecified.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 76356
diff changeset
5909 (ps-color-scale color))
2054f6825314 Use default color when foreground or background color are unspecified.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 76356
diff changeset
5910 ;; ok, use the default
2054f6825314 Use default color when foreground or background color are unspecified.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 76356
diff changeset
5911 (t
2054f6825314 Use default color when foreground or background color are unspecified.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 76356
diff changeset
5912 (list default default default))))
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
5913
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
5914
75702
78d94b04f6aa Fix background color printing
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 75511
diff changeset
5915 (defun ps-begin-job (genfunc)
29848
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
5916 ;; prologue files
27163
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
5917 (or (equal ps-mark-code-directory ps-postscript-code-directory)
31253
4c40c1171b8b Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 30522
diff changeset
5918 (setq ps-print-prologue-0 (ps-prologue-file 0)
4c40c1171b8b Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 30522
diff changeset
5919 ps-print-prologue-1 (ps-prologue-file 1)
4c40c1171b8b Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 30522
diff changeset
5920 ps-mark-code-directory ps-postscript-code-directory))
29848
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
5921 ;; selected pages
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
5922 (let (new page)
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
5923 (while ps-selected-pages
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
5924 (setq page (car ps-selected-pages)
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
5925 ps-selected-pages (cdr ps-selected-pages))
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
5926 (cond ((integerp page)
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
5927 (and (> page 0)
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
5928 (setq new (cons (cons page page) new))))
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
5929 ((consp page)
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
5930 (and (integerp (car page)) (integerp (cdr page))
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
5931 (> (car page) 0)
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
5932 (<= (car page) (cdr page))
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
5933 (setq new (cons page new))))))
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
5934 (setq ps-selected-pages (sort new #'(lambda (one other)
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
5935 (< (car one) (car other))))
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
5936 ps-last-selected-pages ps-selected-pages
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
5937 ps-first-page nil
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
5938 ps-last-page nil))
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
5939 ;; face background
28760
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
5940 (or (listp ps-use-face-background)
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
5941 (setq ps-use-face-background t))
29848
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
5942 ;; line number
28760
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
5943 (and (integerp ps-line-number-step)
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
5944 (<= ps-line-number-step 0)
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
5945 (setq ps-line-number-step 1))
28979
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
5946 (setq ps-n-up-on (> ps-n-up-printing 1)
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
5947 ps-line-number-start (max 1 (min ps-line-number-start
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
5948 (if (integerp ps-line-number-step)
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
5949 ps-line-number-step
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
5950 ps-zebra-stripe-height))))
29848
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
5951 ;; spooling buffer
22397
31b7f6a60174 Fix spooled file bugs.
Richard M. Stallman <rms@gnu.org>
parents: 22204
diff changeset
5952 (save-excursion
31b7f6a60174 Fix spooled file bugs.
Richard M. Stallman <rms@gnu.org>
parents: 22204
diff changeset
5953 (set-buffer ps-spool-buffer)
31b7f6a60174 Fix spooled file bugs.
Richard M. Stallman <rms@gnu.org>
parents: 22204
diff changeset
5954 (goto-char (point-max))
31b7f6a60174 Fix spooled file bugs.
Richard M. Stallman <rms@gnu.org>
parents: 22204
diff changeset
5955 (and (re-search-backward "^%%Trailer$" nil t)
31b7f6a60174 Fix spooled file bugs.
Richard M. Stallman <rms@gnu.org>
parents: 22204
diff changeset
5956 (delete-region (match-beginning 0) (point-max))))
29848
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
5957 ;; miscellaneous
36215
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
5958 (setq ps-zebra-stripe-full-p (memq ps-zebra-stripe-follow
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
5959 '(full full-follow))
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
5960 ps-page-postscript 0
33337
75b72848ba05 Patch for variable initialization when spooling. Doc
Gerd Moellmann <gerd@gnu.org>
parents: 33143
diff changeset
5961 ps-page-sheet 0
75b72848ba05 Patch for variable initialization when spooling. Doc
Gerd Moellmann <gerd@gnu.org>
parents: 33143
diff changeset
5962 ps-page-n-up 0
33143
94d9ccbb780e Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33090
diff changeset
5963 ps-page-column 0
34919
2c73a20c859c Handle form feed better when ps-zebra-stripe-follow is
Gerd Moellmann <gerd@gnu.org>
parents: 34045
diff changeset
5964 ps-lines-printed 0
33337
75b72848ba05 Patch for variable initialization when spooling. Doc
Gerd Moellmann <gerd@gnu.org>
parents: 33143
diff changeset
5965 ps-print-page-p t
75b72848ba05 Patch for variable initialization when spooling. Doc
Gerd Moellmann <gerd@gnu.org>
parents: 33143
diff changeset
5966 ps-showline-count (car ps-printing-region)
37135
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
5967 ps-line-spacing-internal (ps-get-size ps-line-spacing
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
5968 "line spacing")
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
5969 ps-paragraph-spacing-internal (ps-get-size ps-paragraph-spacing
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
5970 "paragraph spacing")
24414
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
5971 ps-font-size-internal (ps-get-font-size 'ps-font-size)
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
5972 ps-header-font-size-internal (ps-get-font-size 'ps-header-font-size)
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
5973 ps-header-title-font-size-internal
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
5974 (ps-get-font-size 'ps-header-title-font-size)
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
5975 ps-footer-font-size-internal (ps-get-font-size 'ps-footer-font-size)
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
5976 ps-control-or-escape-regexp
23892
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
5977 (cond ((eq ps-print-control-characters '8-bit)
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
5978 (string-as-unibyte "[\000-\037\177-\377]"))
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
5979 ((eq ps-print-control-characters 'control-8-bit)
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
5980 (string-as-unibyte "[\000-\037\177-\237]"))
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
5981 ((eq ps-print-control-characters 'control)
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
5982 "[\000-\037\177]")
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
5983 (t "[\t\n\f]"))
78214
9df605969950 Fix foreground/background color
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 78130
diff changeset
5984 ;; Set the color scale. We do it here instead of in the defvar so
9df605969950 Fix foreground/background color
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 78130
diff changeset
5985 ;; that ps-print can be dumped into emacs. This expression can't be
9df605969950 Fix foreground/background color
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 78130
diff changeset
5986 ;; evaluated at dump-time because X isn't initialized.
9df605969950 Fix foreground/background color
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 78130
diff changeset
5987 ps-color-p (and ps-print-color-p (ps-color-device))
9df605969950 Fix foreground/background color
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 78130
diff changeset
5988 ps-print-color-scale (if ps-color-p
9df605969950 Fix foreground/background color
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 78130
diff changeset
5989 (float (car (ps-color-values "white")))
9df605969950 Fix foreground/background color
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 78130
diff changeset
5990 1.0)
50032
c919f0375a3e Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 49763
diff changeset
5991 ps-default-background (ps-rgb-color
75355
4e79291d22f4 Handle frame parameters changing dynamically
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 75347
diff changeset
5992 (cond
82332
25e98747a502 ps-print-color-p fix
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 82208
diff changeset
5993 ((or (member ps-print-color-p
25e98747a502 ps-print-color-p fix
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 82208
diff changeset
5994 '(nil back-white))
78214
9df605969950 Fix foreground/background color
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 78130
diff changeset
5995 (eq genfunc 'ps-generate-postscript))
75702
78d94b04f6aa Fix background color printing
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 75511
diff changeset
5996 nil)
75355
4e79291d22f4 Handle frame parameters changing dynamically
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 75347
diff changeset
5997 ((eq ps-default-bg 'frame-parameter)
75953
6f45466672db Use (defvar <foo>) where applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 75702
diff changeset
5998 (ps-frame-parameter nil 'background-color))
75355
4e79291d22f4 Handle frame parameters changing dynamically
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 75347
diff changeset
5999 ((eq ps-default-bg t)
4e79291d22f4 Handle frame parameters changing dynamically
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 75347
diff changeset
6000 (ps-face-background-name 'default))
4e79291d22f4 Handle frame parameters changing dynamically
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 75347
diff changeset
6001 (t
4e79291d22f4 Handle frame parameters changing dynamically
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 75347
diff changeset
6002 ps-default-bg))
77744
2054f6825314 Use default color when foreground or background color are unspecified.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 76356
diff changeset
6003 "unspecified-bg"
50032
c919f0375a3e Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 49763
diff changeset
6004 1.0)
49763
e19e88bc6e58 Change the policy of background/foreground default color.
Juanma Barranquero <lekktu@gmail.com>
parents: 47674
diff changeset
6005 ps-default-foreground (ps-rgb-color
75355
4e79291d22f4 Handle frame parameters changing dynamically
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 75347
diff changeset
6006 (cond
82332
25e98747a502 ps-print-color-p fix
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 82208
diff changeset
6007 ((or (member ps-print-color-p
25e98747a502 ps-print-color-p fix
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 82208
diff changeset
6008 '(nil back-white))
78214
9df605969950 Fix foreground/background color
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 78130
diff changeset
6009 (eq genfunc 'ps-generate-postscript))
75702
78d94b04f6aa Fix background color printing
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 75511
diff changeset
6010 nil)
75355
4e79291d22f4 Handle frame parameters changing dynamically
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 75347
diff changeset
6011 ((eq ps-default-fg 'frame-parameter)
75953
6f45466672db Use (defvar <foo>) where applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 75702
diff changeset
6012 (ps-frame-parameter nil 'foreground-color))
75355
4e79291d22f4 Handle frame parameters changing dynamically
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 75347
diff changeset
6013 ((eq ps-default-fg t)
4e79291d22f4 Handle frame parameters changing dynamically
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 75347
diff changeset
6014 (ps-face-foreground-name 'default))
4e79291d22f4 Handle frame parameters changing dynamically
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 75347
diff changeset
6015 (t
4e79291d22f4 Handle frame parameters changing dynamically
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 75347
diff changeset
6016 ps-default-fg))
77744
2054f6825314 Use default color when foreground or background color are unspecified.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 76356
diff changeset
6017 "unspecified-fg"
49763
e19e88bc6e58 Change the policy of background/foreground default color.
Juanma Barranquero <lekktu@gmail.com>
parents: 47674
diff changeset
6018 0.0)
85711
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
6019 ps-foreground-list (mapcar
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
6020 #'(lambda (arg)
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
6021 (ps-rgb-color arg "unspecified-fg" 0.0))
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
6022 (append (and (not (member ps-print-color-p
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
6023 '(nil back-white)))
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
6024 ps-fg-list)
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
6025 (list ps-default-foreground
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
6026 "black")))
82332
25e98747a502 ps-print-color-p fix
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 82208
diff changeset
6027 ps-default-color (and (not (member ps-print-color-p
25e98747a502 ps-print-color-p fix
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 82208
diff changeset
6028 '(nil back-white)))
78214
9df605969950 Fix foreground/background color
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 78130
diff changeset
6029 ps-default-foreground)
9df605969950 Fix foreground/background color
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 78130
diff changeset
6030 ps-current-color ps-default-color)
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
6031 ;; initialize page dimensions
50032
c919f0375a3e Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 49763
diff changeset
6032 (ps-get-page-dimensions)
c919f0375a3e Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 49763
diff changeset
6033 ;; final check
86033
4a4d5773bb72 Error if ps-lpr-switches is not a list.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85988
diff changeset
6034 (unless (listp ps-lpr-switches)
4a4d5773bb72 Error if ps-lpr-switches is not a list.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85988
diff changeset
6035 (error "`ps-lpr-switches' value should be a list."))
50032
c919f0375a3e Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 49763
diff changeset
6036 (and ps-color-p
c919f0375a3e Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 49763
diff changeset
6037 (equal ps-default-background ps-default-foreground)
c919f0375a3e Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 49763
diff changeset
6038 (error
c919f0375a3e Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 49763
diff changeset
6039 (concat
c919f0375a3e Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 49763
diff changeset
6040 "`ps-default-fg' and `ps-default-bg' have the same color.\n"
c919f0375a3e Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 49763
diff changeset
6041 "Text won't appear on page. Please, check these variables."))))
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
6042
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
6043
33090
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
6044 (defun ps-page-number ()
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
6045 (if ps-print-only-one-header
33143
94d9ccbb780e Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33090
diff changeset
6046 (1+ (/ (1- ps-page-column) ps-number-of-columns))
94d9ccbb780e Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33090
diff changeset
6047 ps-page-column))
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6048
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6049
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
6050 (defsubst ps-end-page ()
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
6051 (ps-output "EndPage\nEndDSCPage\n"))
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
6052
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
6053
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
6054 (defsubst ps-next-page ()
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
6055 (ps-end-page)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
6056 (ps-flush-output)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
6057 (ps-begin-page))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
6058
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
6059
63807
11342f636d93 ps-print selection page fix
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 63655
diff changeset
6060 (defun ps-end-sheet ()
11342f636d93 ps-print selection page fix
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 63655
diff changeset
6061 (and ps-print-page-p (> ps-page-sheet 0)
11342f636d93 ps-print selection page fix
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 63655
diff changeset
6062 (ps-output "EndSheet\n")))
11342f636d93 ps-print selection page fix
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 63655
diff changeset
6063
11342f636d93 ps-print selection page fix
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 63655
diff changeset
6064
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
6065 (defun ps-header-sheet ()
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
6066 ;; Print only when a new sheet begins.
63807
11342f636d93 ps-print selection page fix
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 63655
diff changeset
6067 (ps-end-sheet)
33143
94d9ccbb780e Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33090
diff changeset
6068 (setq ps-page-sheet (1+ ps-page-sheet))
94d9ccbb780e Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33090
diff changeset
6069 (when (ps-print-sheet-p)
94d9ccbb780e Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33090
diff changeset
6070 (setq ps-page-order (1+ ps-page-order))
94d9ccbb780e Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33090
diff changeset
6071 (ps-output (if ps-n-up-on
94d9ccbb780e Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33090
diff changeset
6072 (format "\n%%%%Page: (%d \\(%d\\)) %d\n"
94d9ccbb780e Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33090
diff changeset
6073 ps-page-order ps-page-postscript ps-page-order)
94d9ccbb780e Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33090
diff changeset
6074 (format "\n%%%%Page: %d %d\n"
94d9ccbb780e Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33090
diff changeset
6075 ps-page-postscript ps-page-order))
34045
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
6076 ;; spooling needs to redefine Lines and PageCount on each page
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
6077 "/Lines 0 def\n/PageCount 0 def\n"
33143
94d9ccbb780e Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33090
diff changeset
6078 (format "%d BeginSheet\nBeginDSCPage\n"
94d9ccbb780e Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33090
diff changeset
6079 ps-n-up-printing))))
33090
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
6080
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
6081
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
6082 (defun ps-header-page ()
22397
31b7f6a60174 Fix spooled file bugs.
Richard M. Stallman <rms@gnu.org>
parents: 22204
diff changeset
6083 ;; set total line and page number when printing has finished
31b7f6a60174 Fix spooled file bugs.
Richard M. Stallman <rms@gnu.org>
parents: 22204
diff changeset
6084 ;; (see `ps-generate')
33143
94d9ccbb780e Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33090
diff changeset
6085 (if (zerop (mod ps-page-column ps-number-of-columns))
33090
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
6086 (progn
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
6087 (setq ps-page-postscript (1+ ps-page-postscript))
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
6088 (when (ps-print-page-p)
33143
94d9ccbb780e Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33090
diff changeset
6089 (ps-print-sheet-p)
33090
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
6090 (if (zerop (mod ps-page-n-up ps-n-up-printing))
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
6091 ;; Print only when a new sheet begins.
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
6092 (progn
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
6093 (ps-header-sheet)
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
6094 (run-hooks 'ps-print-begin-sheet-hook))
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
6095 ;; Print only when a new page begins.
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
6096 (ps-output "BeginDSCPage\n")
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
6097 (run-hooks 'ps-print-begin-page-hook))
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
6098 (ps-background ps-page-postscript)
33143
94d9ccbb780e Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33090
diff changeset
6099 (setq ps-page-n-up (1+ ps-page-n-up))
94d9ccbb780e Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33090
diff changeset
6100 (and ps-print-page-p
94d9ccbb780e Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33090
diff changeset
6101 (setq ps-page-printed (1+ ps-page-printed)))))
33090
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
6102 ;; Print only when a new column begins.
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
6103 (ps-output "BeginDSCPage\n")
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
6104 (run-hooks 'ps-print-begin-column-hook))
33143
94d9ccbb780e Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33090
diff changeset
6105 (setq ps-page-column (1+ ps-page-column)))
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
6106
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
6107 (defun ps-begin-page ()
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
6108 (setq ps-width-remaining ps-print-width
23892
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
6109 ps-height-remaining ps-print-height)
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
6110
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
6111 (ps-header-page)
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
6112
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6113 (ps-output (format "/LineNumber %d def\n" ps-showline-count)
33090
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
6114 (format "/PageNumber %d def\n" (ps-page-number)))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
6115
16870
4a5fa29f79d6 (ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents: 16361
diff changeset
6116 (when ps-print-header
51007
c3f9aa88ed68 Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 50871
diff changeset
6117 (ps-generate-header "HeaderLinesLeft" "/h0" "/h1"
c3f9aa88ed68 Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 50871
diff changeset
6118 (or ps-lh-cache ps-left-header))
c3f9aa88ed68 Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 50871
diff changeset
6119 (ps-generate-header "HeaderLinesRight" "/h0" "/h1"
c3f9aa88ed68 Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 50871
diff changeset
6120 (or ps-rh-cache ps-right-header))
c3f9aa88ed68 Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 50871
diff changeset
6121 (ps-output (format "%d SetHeaderLines\n" ps-header-lines))
c3f9aa88ed68 Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 50871
diff changeset
6122 (setq ps-lh-cache nil
c3f9aa88ed68 Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 50871
diff changeset
6123 ps-rh-cache nil))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
6124
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
6125 (when ps-print-footer
51007
c3f9aa88ed68 Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 50871
diff changeset
6126 (ps-generate-header "FooterLinesLeft" "/H0" "/H0"
c3f9aa88ed68 Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 50871
diff changeset
6127 (or ps-lf-cache ps-left-footer))
c3f9aa88ed68 Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 50871
diff changeset
6128 (ps-generate-header "FooterLinesRight" "/H0" "/H0"
c3f9aa88ed68 Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 50871
diff changeset
6129 (or ps-rf-cache ps-right-footer))
c3f9aa88ed68 Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 50871
diff changeset
6130 (ps-output (format "%d SetFooterLines\n" ps-footer-lines))
c3f9aa88ed68 Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 50871
diff changeset
6131 (setq ps-lf-cache nil
c3f9aa88ed68 Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 50871
diff changeset
6132 ps-rf-cache nil))
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
6133
34919
2c73a20c859c Handle form feed better when ps-zebra-stripe-follow is
Gerd Moellmann <gerd@gnu.org>
parents: 34045
diff changeset
6134 (ps-output (number-to-string ps-lines-printed) " BeginPage\n")
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6135 (ps-set-font ps-current-font)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6136 (ps-set-bg ps-current-bg)
23892
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
6137 (ps-set-color ps-current-color)
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
6138 (ps-mule-begin-page))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
6139
37286
7e15b73c8c20 Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 37135
diff changeset
6140 (defsubst ps-skip-newline (limit)
34919
2c73a20c859c Handle form feed better when ps-zebra-stripe-follow is
Gerd Moellmann <gerd@gnu.org>
parents: 34045
diff changeset
6141 (setq ps-showline-count (1+ ps-showline-count)
2c73a20c859c Handle form feed better when ps-zebra-stripe-follow is
Gerd Moellmann <gerd@gnu.org>
parents: 34045
diff changeset
6142 ps-lines-printed (1+ ps-lines-printed))
2c73a20c859c Handle form feed better when ps-zebra-stripe-follow is
Gerd Moellmann <gerd@gnu.org>
parents: 34045
diff changeset
6143 (and (< (point) limit)
2c73a20c859c Handle form feed better when ps-zebra-stripe-follow is
Gerd Moellmann <gerd@gnu.org>
parents: 34045
diff changeset
6144 (forward-char 1)))
2c73a20c859c Handle form feed better when ps-zebra-stripe-follow is
Gerd Moellmann <gerd@gnu.org>
parents: 34045
diff changeset
6145
37135
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
6146 (defsubst ps-next-line ()
34919
2c73a20c859c Handle form feed better when ps-zebra-stripe-follow is
Gerd Moellmann <gerd@gnu.org>
parents: 34045
diff changeset
6147 (setq ps-showline-count (1+ ps-showline-count)
2c73a20c859c Handle form feed better when ps-zebra-stripe-follow is
Gerd Moellmann <gerd@gnu.org>
parents: 34045
diff changeset
6148 ps-lines-printed (1+ ps-lines-printed))
37135
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
6149 (let* ((paragraph-p (and ps-paragraph-regexp
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
6150 (looking-at ps-paragraph-regexp)))
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
6151 (lh (+ (ps-line-height 'ps-font-for-text)
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
6152 (if paragraph-p
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
6153 ps-paragraph-spacing-internal
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
6154 ps-line-spacing-internal))))
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
6155 (if (< ps-height-remaining lh)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
6156 (ps-next-page)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
6157 (setq ps-width-remaining ps-print-width
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
6158 ps-height-remaining (- ps-height-remaining lh))
37135
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
6159 (ps-output (if paragraph-p "PHL\n" "LHL\n")))))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
6160
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
6161 (defun ps-continue-line ()
34919
2c73a20c859c Handle form feed better when ps-zebra-stripe-follow is
Gerd Moellmann <gerd@gnu.org>
parents: 34045
diff changeset
6162 (setq ps-lines-printed (1+ ps-lines-printed))
37135
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
6163 (let ((lh (+ (ps-line-height 'ps-font-for-text) ps-line-spacing-internal)))
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
6164 (if (< ps-height-remaining lh)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
6165 (ps-next-page)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
6166 (setq ps-width-remaining ps-print-width
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
6167 ps-height-remaining (- ps-height-remaining lh))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
6168 (ps-output "SL\n"))))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
6169
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
6170 (defun ps-find-wrappoint (from to char-width)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
6171 (let ((avail (truncate (/ ps-width-remaining char-width)))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
6172 (todo (- to from)))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
6173 (if (< todo avail)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
6174 (cons to (* todo char-width))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
6175 (cons (+ from avail) ps-width-remaining))))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
6176
37967
758fe02d489d Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents: 37489
diff changeset
6177 (defun ps-basic-plot-str (from to string)
758fe02d489d Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents: 37489
diff changeset
6178 (let* ((wrappoint (ps-find-wrappoint from to
758fe02d489d Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents: 37489
diff changeset
6179 (ps-avg-char-width 'ps-font-for-text)))
758fe02d489d Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents: 37489
diff changeset
6180 (to (car wrappoint))
758fe02d489d Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents: 37489
diff changeset
6181 (str (substring string from to)))
758fe02d489d Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents: 37489
diff changeset
6182 (ps-mule-prepare-ascii-font str)
758fe02d489d Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents: 37489
diff changeset
6183 (ps-output-string str)
758fe02d489d Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents: 37489
diff changeset
6184 (ps-output " S\n")
758fe02d489d Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents: 37489
diff changeset
6185 wrappoint))
758fe02d489d Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents: 37489
diff changeset
6186
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
6187 (defun ps-basic-plot-string (from to &optional bg-color)
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
6188 (let* ((wrappoint (ps-find-wrappoint from to
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
6189 (ps-avg-char-width 'ps-font-for-text)))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
6190 (to (car wrappoint))
23892
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
6191 (string (buffer-substring-no-properties from to)))
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
6192 (ps-mule-prepare-ascii-font string)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
6193 (ps-output-string string)
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
6194 (ps-output " S\n")
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
6195 wrappoint))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
6196
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
6197 (defun ps-basic-plot-whitespace (from to &optional bg-color)
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
6198 (let* ((wrappoint (ps-find-wrappoint from to
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
6199 (ps-space-width 'ps-font-for-text)))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
6200 (to (car wrappoint)))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
6201 (ps-output (format "%d W\n" (- to from)))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
6202 wrappoint))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
6203
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
6204 (defun ps-plot (plotfunc from to &optional bg-color)
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
6205 (while (< from to)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
6206 (let* ((wrappoint (funcall plotfunc from to bg-color))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
6207 (plotted-to (car wrappoint))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
6208 (plotted-width (cdr wrappoint)))
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
6209 (setq from plotted-to
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
6210 ps-width-remaining (- ps-width-remaining plotted-width))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
6211 (if (< from to)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
6212 (ps-continue-line))))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
6213 (if ps-razzle-dazzle
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
6214 (let* ((q-todo (- (point-max) (point-min)))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
6215 (q-done (- (point) (point-min)))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
6216 (chunkfrac (/ q-todo 8))
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
6217 (chunksize (min chunkfrac 1000)))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
6218 (if (> (- q-done ps-razchunk) chunksize)
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
6219 (progn
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
6220 (setq ps-razchunk q-done)
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
6221 (message "Formatting...%3d%%"
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
6222 (if (< q-todo 100)
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
6223 (/ (* 100 q-done) q-todo)
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
6224 (/ q-done (/ q-todo 100)))
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
6225 ))))))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
6226
76356
9da12b8fe476 Initialize some vars.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 76268
diff changeset
6227 (defvar ps-last-font nil)
23892
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
6228
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
6229 (defun ps-set-font (font)
23091
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
6230 (setq ps-last-font (format "f%d" (setq ps-current-font font)))
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
6231 (ps-output (format "/%s F\n" ps-last-font)))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
6232
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
6233 (defun ps-set-bg (color)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
6234 (if (setq ps-current-bg color)
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
6235 (ps-output (format ps-color-format
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
6236 (nth 0 color) (nth 1 color) (nth 2 color))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
6237 " true BG\n")
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
6238 (ps-output "false BG\n")))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
6239
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
6240 (defun ps-set-color (color)
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
6241 (setq ps-current-color (or color ps-default-foreground))
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
6242 (ps-output (format ps-color-format
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
6243 (nth 0 ps-current-color)
11799
4a04c7799790 Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents: 10738
diff changeset
6244 (nth 1 ps-current-color) (nth 2 ps-current-color))
4a04c7799790 Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents: 10738
diff changeset
6245 " FG\n"))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
6246
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6247
37967
758fe02d489d Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents: 37489
diff changeset
6248 (defsubst ps-plot-string (string)
758fe02d489d Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents: 37489
diff changeset
6249 (ps-plot 'ps-basic-plot-str 0 (length string) string))
758fe02d489d Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents: 37489
diff changeset
6250
758fe02d489d Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents: 37489
diff changeset
6251
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6252 (defvar ps-current-effect 0)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6253
61073
449d2654bc2d (ps-print-translation-table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 60727
diff changeset
6254 (defvar ps-print-translation-table
449d2654bc2d (ps-print-translation-table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 60727
diff changeset
6255 (let ((tbl (make-char-table 'translation-table nil)))
449d2654bc2d (ps-print-translation-table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 60727
diff changeset
6256 (if (and (boundp 'ucs-mule-8859-to-mule-unicode)
449d2654bc2d (ps-print-translation-table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 60727
diff changeset
6257 (char-table-p ucs-mule-8859-to-mule-unicode))
449d2654bc2d (ps-print-translation-table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 60727
diff changeset
6258 (map-char-table
63076
2942738e0235 (ps-default-fg, ps-default-bg): Fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 61073
diff changeset
6259 #'(lambda (k v)
61073
449d2654bc2d (ps-print-translation-table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 60727
diff changeset
6260 (if (and v (eq (char-charset v) 'latin-iso8859-1) (/= k v))
449d2654bc2d (ps-print-translation-table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 60727
diff changeset
6261 (aset tbl k v)))
449d2654bc2d (ps-print-translation-table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 60727
diff changeset
6262 ucs-mule-8859-to-mule-unicode))
449d2654bc2d (ps-print-translation-table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 60727
diff changeset
6263 tbl)
449d2654bc2d (ps-print-translation-table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 60727
diff changeset
6264 "Translation table for PostScript printing.
449d2654bc2d (ps-print-translation-table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 60727
diff changeset
6265 The default value is a table that translates non-Latin-1 Latin characters
449d2654bc2d (ps-print-translation-table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 60727
diff changeset
6266 to the equivalent Latin-1 characters.")
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6267
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6268 (defun ps-plot-region (from to font &optional fg-color bg-color effects)
37489
ba96560d3f9e Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents: 37286
diff changeset
6269 (or (equal font ps-current-font)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
6270 (ps-set-font font))
19879
87952270ceeb (ps-emacs-face-kind-p): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents: 19843
diff changeset
6271
85711
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
6272 ;; Specify a foreground color only if:
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
6273 ;; one's specified,
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
6274 ;; it's different than the background (if `ps-fg-validate-p' is non-nil)
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
6275 ;; and it's different than the current.
37489
ba96560d3f9e Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents: 37286
diff changeset
6276 (let ((fg (or fg-color ps-default-foreground)))
85711
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
6277 (if ps-fg-validate-p
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
6278 (let ((bg (or bg-color ps-default-background))
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
6279 (el ps-foreground-list))
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
6280 (while (and el (equal fg bg))
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
6281 (setq fg (car el)
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
6282 el (cdr el)))))
37489
ba96560d3f9e Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents: 37286
diff changeset
6283 (or (equal fg ps-current-color)
ba96560d3f9e Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents: 37286
diff changeset
6284 (ps-set-color fg)))
ba96560d3f9e Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents: 37286
diff changeset
6285
ba96560d3f9e Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents: 37286
diff changeset
6286 (or (equal bg-color ps-current-bg)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
6287 (ps-set-bg bg-color))
19879
87952270ceeb (ps-emacs-face-kind-p): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents: 19843
diff changeset
6288
85711
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
6289 ;; Specify effects (underline, overline, box, etc.)
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6290 (cond
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6291 ((not (integerp effects))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6292 (ps-output "0 EF\n")
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6293 (setq ps-current-effect 0))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6294 ((/= effects ps-current-effect)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6295 (ps-output (number-to-string effects) " EF\n")
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6296 (setq ps-current-effect effects)))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
6297
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
6298 ;; Starting at the beginning of the specified region...
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
6299 (save-excursion
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
6300 (goto-char from)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
6301
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
6302 ;; ...break the region up into chunks separated by tabs, linefeeds,
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6303 ;; pagefeeds, control characters, and plot each chunk.
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
6304 (while (< from to)
37135
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
6305 ;; skip lines between cut markers
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
6306 (and ps-begin-cut-regexp ps-end-cut-regexp
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
6307 (looking-at ps-begin-cut-regexp)
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
6308 (progn
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
6309 (goto-char (match-end 0))
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
6310 (and (re-search-forward ps-end-cut-regexp to 'noerror)
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
6311 (= (following-char) ?\n)
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
6312 (forward-char 1))
18c2d3c6096d Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents: 36215
diff changeset
6313 (setq from (point))))
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
6314 (if (re-search-forward ps-control-or-escape-regexp to t)
23551
385d7c586ad2 Doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 23550
diff changeset
6315 ;; region with some control characters or some multi-byte characters
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
6316 (let* ((match-point (match-beginning 0))
33090
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
6317 (match (char-after match-point))
32653
f05cc7224309 Even/odd pages fix. Fix little bug on XEmacs. Avoid
Gerd Moellmann <gerd@gnu.org>
parents: 32619
diff changeset
6318 (composition (ps-e-find-composition from (1+ match-point))))
26883
c1e6932eea92 (ps-plot-region): Handle new composition.
Kenichi Handa <handa@m17n.org>
parents: 26563
diff changeset
6319 (if composition
c1e6932eea92 (ps-plot-region): Handle new composition.
Kenichi Handa <handa@m17n.org>
parents: 26563
diff changeset
6320 (if (and (nth 2 composition)
c1e6932eea92 (ps-plot-region): Handle new composition.
Kenichi Handa <handa@m17n.org>
parents: 26563
diff changeset
6321 (<= (car composition) match-point))
c1e6932eea92 (ps-plot-region): Handle new composition.
Kenichi Handa <handa@m17n.org>
parents: 26563
diff changeset
6322 (progn
c1e6932eea92 (ps-plot-region): Handle new composition.
Kenichi Handa <handa@m17n.org>
parents: 26563
diff changeset
6323 (setq match-point (car composition)
c1e6932eea92 (ps-plot-region): Handle new composition.
Kenichi Handa <handa@m17n.org>
parents: 26563
diff changeset
6324 match 0)
c1e6932eea92 (ps-plot-region): Handle new composition.
Kenichi Handa <handa@m17n.org>
parents: 26563
diff changeset
6325 (goto-char (nth 1 composition)))
c1e6932eea92 (ps-plot-region): Handle new composition.
Kenichi Handa <handa@m17n.org>
parents: 26563
diff changeset
6326 (setq composition nil)))
23091
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
6327 (when (< from match-point)
23892
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
6328 (ps-mule-set-ascii-font)
23091
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
6329 (ps-plot 'ps-basic-plot-string from match-point bg-color))
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
6330 (cond
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
6331 ((= match ?\t) ; tab
23167
ada869918064 (ps-mule-font-info-database-bdf): The include ASCII
Kenichi Handa <handa@m17n.org>
parents: 23138
diff changeset
6332 (let ((linestart (line-beginning-position)))
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
6333 (forward-char -1)
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
6334 (setq from (+ linestart (current-column)))
23091
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
6335 (when (re-search-forward "[ \t]+" to t)
23892
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
6336 (ps-mule-set-ascii-font)
23091
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
6337 (ps-plot 'ps-basic-plot-whitespace
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
6338 from (+ linestart (current-column))
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
6339 bg-color))))
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
6340
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
6341 ((= match ?\n) ; newline
34919
2c73a20c859c Handle form feed better when ps-zebra-stripe-follow is
Gerd Moellmann <gerd@gnu.org>
parents: 34045
diff changeset
6342 (if (looking-at "\f[^\n]")
2c73a20c859c Handle form feed better when ps-zebra-stripe-follow is
Gerd Moellmann <gerd@gnu.org>
parents: 34045
diff changeset
6343 ;; \n\ftext\n ==>> next page, but keep line counting!!
2c73a20c859c Handle form feed better when ps-zebra-stripe-follow is
Gerd Moellmann <gerd@gnu.org>
parents: 34045
diff changeset
6344 (progn
2c73a20c859c Handle form feed better when ps-zebra-stripe-follow is
Gerd Moellmann <gerd@gnu.org>
parents: 34045
diff changeset
6345 (ps-skip-newline to)
2c73a20c859c Handle form feed better when ps-zebra-stripe-follow is
Gerd Moellmann <gerd@gnu.org>
parents: 34045
diff changeset
6346 (ps-next-page))
2c73a20c859c Handle form feed better when ps-zebra-stripe-follow is
Gerd Moellmann <gerd@gnu.org>
parents: 34045
diff changeset
6347 ;; \n\f\n ==>> it'll be handled by form feed
2c73a20c859c Handle form feed better when ps-zebra-stripe-follow is
Gerd Moellmann <gerd@gnu.org>
parents: 34045
diff changeset
6348 ;; \ntext\n ==>> next line
2c73a20c859c Handle form feed better when ps-zebra-stripe-follow is
Gerd Moellmann <gerd@gnu.org>
parents: 34045
diff changeset
6349 (ps-next-line)))
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
6350
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
6351 ((= match ?\f) ; form feed
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
6352 ;; do not skip page if previous character is NEWLINE and
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
6353 ;; it is a beginning of page.
34919
2c73a20c859c Handle form feed better when ps-zebra-stripe-follow is
Gerd Moellmann <gerd@gnu.org>
parents: 34045
diff changeset
6354 (unless (and (equal (char-after (1- match-point)) ?\n)
2c73a20c859c Handle form feed better when ps-zebra-stripe-follow is
Gerd Moellmann <gerd@gnu.org>
parents: 34045
diff changeset
6355 (= ps-height-remaining ps-print-height))
2c73a20c859c Handle form feed better when ps-zebra-stripe-follow is
Gerd Moellmann <gerd@gnu.org>
parents: 34045
diff changeset
6356 ;; \f\n ==>> skip \n, but keep line counting!!
2c73a20c859c Handle form feed better when ps-zebra-stripe-follow is
Gerd Moellmann <gerd@gnu.org>
parents: 34045
diff changeset
6357 (and (equal (following-char) ?\n)
2c73a20c859c Handle form feed better when ps-zebra-stripe-follow is
Gerd Moellmann <gerd@gnu.org>
parents: 34045
diff changeset
6358 (ps-skip-newline to))
2c73a20c859c Handle form feed better when ps-zebra-stripe-follow is
Gerd Moellmann <gerd@gnu.org>
parents: 34045
diff changeset
6359 (ps-next-page)))
23091
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
6360
26883
c1e6932eea92 (ps-plot-region): Handle new composition.
Kenichi Handa <handa@m17n.org>
parents: 26563
diff changeset
6361 (composition ; a composite sequence
c1e6932eea92 (ps-plot-region): Handle new composition.
Kenichi Handa <handa@m17n.org>
parents: 26563
diff changeset
6362 (ps-plot 'ps-mule-plot-composition match-point (point) bg-color))
c1e6932eea92 (ps-plot-region): Handle new composition.
Kenichi Handa <handa@m17n.org>
parents: 26563
diff changeset
6363
23551
385d7c586ad2 Doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 23550
diff changeset
6364 ((> match 255) ; a multi-byte character
61073
449d2654bc2d (ps-print-translation-table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 60727
diff changeset
6365 (setq match (or (aref ps-print-translation-table match) match))
26883
c1e6932eea92 (ps-plot-region): Handle new composition.
Kenichi Handa <handa@m17n.org>
parents: 26563
diff changeset
6366 (let* ((charset (char-charset match))
32653
f05cc7224309 Even/odd pages fix. Fix little bug on XEmacs. Avoid
Gerd Moellmann <gerd@gnu.org>
parents: 32619
diff changeset
6367 (composition (ps-e-find-composition match-point to))
26883
c1e6932eea92 (ps-plot-region): Handle new composition.
Kenichi Handa <handa@m17n.org>
parents: 26563
diff changeset
6368 (stop (if (nth 2 composition) (car composition) to)))
23091
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
6369 (or (eq charset 'composition)
61073
449d2654bc2d (ps-print-translation-table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 60727
diff changeset
6370 (while (and (< (point) stop)
449d2654bc2d (ps-print-translation-table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 60727
diff changeset
6371 (let ((ch (following-char)))
449d2654bc2d (ps-print-translation-table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 60727
diff changeset
6372 (setq ch
449d2654bc2d (ps-print-translation-table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 60727
diff changeset
6373 (or (aref ps-print-translation-table ch)
449d2654bc2d (ps-print-translation-table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 60727
diff changeset
6374 ch))
449d2654bc2d (ps-print-translation-table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 60727
diff changeset
6375 (eq (char-charset ch) charset)))
23892
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
6376 (forward-char 1)))
23091
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
6377 (ps-plot 'ps-mule-plot-string match-point (point) bg-color)))
32619
c09b494a5f49 Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents: 31253
diff changeset
6378 ; characters from ^@ to ^_ and
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
6379 (t ; characters from 127 to 255
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
6380 (ps-control-character match)))
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6381 (setq from (point)))
23551
385d7c586ad2 Doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 23550
diff changeset
6382 ;; region without control characters nor multi-byte characters
23892
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
6383 (ps-mule-set-ascii-font)
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6384 (ps-plot 'ps-basic-plot-string from to bg-color)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6385 (setq from to)))))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6386
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
6387 (defvar ps-string-control-codes
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
6388 (let ((table (make-vector 256 nil))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
6389 (char ?\000))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
6390 ;; control character
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
6391 (while (<= char ?\037)
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
6392 (aset table char (format "^%c" (+ char ?@)))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
6393 (setq char (1+ char)))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
6394 ;; printable character
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
6395 (while (< char ?\177)
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
6396 (aset table char (format "%c" char))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
6397 (setq char (1+ char)))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
6398 ;; DEL
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
6399 (aset table char "^?")
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
6400 ;; 8-bit character
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
6401 (while (<= (setq char (1+ char)) ?\377)
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
6402 (aset table char (format "\\%o" char)))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
6403 table)
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
6404 "Vector used to map characters to a printable string.")
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
6405
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
6406 (defun ps-control-character (char)
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
6407 (let* ((str (aref ps-string-control-codes char))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
6408 (from (1- (point)))
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6409 (len (length str))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6410 (to (+ from len))
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
6411 (char-width (ps-avg-char-width 'ps-font-for-text))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
6412 (wrappoint (ps-find-wrappoint from to char-width)))
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6413 (if (< (car wrappoint) to)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6414 (ps-continue-line))
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
6415 (setq ps-width-remaining (- ps-width-remaining (* len char-width)))
24851
06b633c9f37b (ps-control-character): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 24833
diff changeset
6416 (ps-mule-prepare-ascii-font str)
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6417 (ps-output-string str)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6418 (ps-output " S\n")))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
6419
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6420
85155
f17129d066f0 Fix :foreground and :background face attributes
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 84877
diff changeset
6421 (defsubst ps-face-foreground-color-p (attr)
f17129d066f0 Fix :foreground and :background face attributes
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 84877
diff changeset
6422 (memq attr '(foreground-color :foreground)))
f17129d066f0 Fix :foreground and :background face attributes
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 84877
diff changeset
6423
f17129d066f0 Fix :foreground and :background face attributes
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 84877
diff changeset
6424
f17129d066f0 Fix :foreground and :background face attributes
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 84877
diff changeset
6425 (defsubst ps-face-background-color-p (attr)
f17129d066f0 Fix :foreground and :background face attributes
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 84877
diff changeset
6426 (memq attr '(background-color :background)))
f17129d066f0 Fix :foreground and :background face attributes
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 84877
diff changeset
6427
f17129d066f0 Fix :foreground and :background face attributes
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 84877
diff changeset
6428
f17129d066f0 Fix :foreground and :background face attributes
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 84877
diff changeset
6429 (defsubst ps-face-color-p (attr)
f17129d066f0 Fix :foreground and :background face attributes
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 84877
diff changeset
6430 (memq attr '(foreground-color :foreground background-color :background)))
f17129d066f0 Fix :foreground and :background face attributes
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 84877
diff changeset
6431
f17129d066f0 Fix :foreground and :background face attributes
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 84877
diff changeset
6432
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
6433 (defun ps-face-attributes (face)
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
6434 "Return face attribute vector.
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
6435
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
6436 If FACE is not in `ps-print-face-extension-alist' or in
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
6437 `ps-print-face-alist', insert it on `ps-print-face-alist' and
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
6438 return the attribute vector.
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6439
75702
78d94b04f6aa Fix background color printing
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 75511
diff changeset
6440 If FACE is not a valid face name, use default face."
30522
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
6441 (cond
39327
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
6442 (ps-black-white-faces-alist
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
6443 (or (and (symbolp face)
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
6444 (cdr (assq face ps-black-white-faces-alist)))
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
6445 (vector 0 nil nil)))
30522
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
6446 ((symbolp face)
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
6447 (cdr (or (assq face ps-print-face-extension-alist)
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
6448 (assq face ps-print-face-alist)
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
6449 (let* ((the-face (if (facep face) face 'default))
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
6450 (new-face (ps-screen-to-bit-face the-face)))
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
6451 (or (and (eq the-face 'default)
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
6452 (assq the-face ps-print-face-alist))
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
6453 (setq ps-print-face-alist
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
6454 (cons new-face ps-print-face-alist)))
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
6455 new-face))))
85155
f17129d066f0 Fix :foreground and :background face attributes
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 84877
diff changeset
6456 ((ps-face-foreground-color-p (car face))
30522
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
6457 (vector 0 (cdr face) nil))
85155
f17129d066f0 Fix :foreground and :background face attributes
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 84877
diff changeset
6458 ((ps-face-background-color-p (car face))
30522
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
6459 (vector 0 nil (cdr face)))
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
6460 (t
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
6461 (vector 0 nil nil))))
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6462
11799
4a04c7799790 Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents: 10738
diff changeset
6463
28760
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
6464 (defun ps-face-background (face background)
85711
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
6465 (and (cond ((eq ps-use-face-background t)) ; always
75702
78d94b04f6aa Fix background color printing
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 75511
diff changeset
6466 ((null ps-use-face-background) nil) ; never
78d94b04f6aa Fix background color printing
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 75511
diff changeset
6467 ;; ps-user-face-background is a symbol face list
78d94b04f6aa Fix background color printing
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 75511
diff changeset
6468 ((symbolp face)
78d94b04f6aa Fix background color printing
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 75511
diff changeset
6469 (memq face ps-use-face-background))
78d94b04f6aa Fix background color printing
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 75511
diff changeset
6470 ((listp face)
85155
f17129d066f0 Fix :foreground and :background face attributes
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 84877
diff changeset
6471 (or (ps-face-color-p (car face))
75702
78d94b04f6aa Fix background color printing
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 75511
diff changeset
6472 (let (ok)
78d94b04f6aa Fix background color printing
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 75511
diff changeset
6473 (while face
78d94b04f6aa Fix background color printing
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 75511
diff changeset
6474 (if (or (memq (car face) ps-use-face-background)
85155
f17129d066f0 Fix :foreground and :background face attributes
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 84877
diff changeset
6475 (ps-face-color-p (car face)))
75702
78d94b04f6aa Fix background color printing
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 75511
diff changeset
6476 (setq face nil
78d94b04f6aa Fix background color printing
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 75511
diff changeset
6477 ok t)
78d94b04f6aa Fix background color printing
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 75511
diff changeset
6478 (setq face (cdr face))))
78d94b04f6aa Fix background color printing
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 75511
diff changeset
6479 ok)))
78d94b04f6aa Fix background color printing
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 75511
diff changeset
6480 (t
78d94b04f6aa Fix background color printing
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 75511
diff changeset
6481 nil)
78d94b04f6aa Fix background color printing
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 75511
diff changeset
6482 )
28760
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
6483 background))
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
6484
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
6485
11799
4a04c7799790 Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents: 10738
diff changeset
6486 (defun ps-face-attribute-list (face-or-list)
30522
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
6487 (cond
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
6488 ;; simple face
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
6489 ((not (listp face-or-list))
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
6490 (ps-face-attributes face-or-list))
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
6491 ;; only foreground color, not a `real' face
85155
f17129d066f0 Fix :foreground and :background face attributes
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 84877
diff changeset
6492 ((ps-face-foreground-color-p (car face-or-list))
30522
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
6493 (vector 0 (cdr face-or-list) nil))
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
6494 ;; only background color, not a `real' face
85155
f17129d066f0 Fix :foreground and :background face attributes
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 84877
diff changeset
6495 ((ps-face-background-color-p (car face-or-list))
30522
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
6496 (vector 0 nil (cdr face-or-list)))
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
6497 ;; list of faces
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
6498 (t
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
6499 (let ((effects 0)
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
6500 foreground background face-attr face)
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
6501 (while face-or-list
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
6502 (setq face (car face-or-list)
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
6503 face-or-list (cdr face-or-list)
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
6504 face-attr (ps-face-attributes face)
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
6505 effects (logior effects (aref face-attr 0)))
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
6506 (or foreground (setq foreground (aref face-attr 1)))
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
6507 (or background
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
6508 (setq background (ps-face-background face (aref face-attr 2)))))
acbb1360c715 Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents: 29848
diff changeset
6509 (vector effects foreground background)))))
11799
4a04c7799790 Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents: 10738
diff changeset
6510
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6511
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
6512 (defconst ps-font-type (vector nil 'bold 'italic 'bold-italic))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
6513
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
6514
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
6515 (defun ps-plot-with-face (from to face)
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
6516 (cond
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
6517 ((null face) ; print text with null face
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6518 (ps-plot-region from to 0))
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
6519 ((eq face 'emacs--invisible--face)) ; skip invisible text!!!
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
6520 (t ; otherwise, text has a valid face
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
6521 (let* ((face-bit (ps-face-attribute-list face))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
6522 (effect (aref face-bit 0))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
6523 (foreground (aref face-bit 1))
28760
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
6524 (background (ps-face-background face (aref face-bit 2)))
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
6525 (fg-color (if (and ps-color-p foreground)
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
6526 (ps-color-scale foreground)
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
6527 ps-default-color))
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
6528 (bg-color (and ps-color-p background
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
6529 (ps-color-scale background))))
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
6530 (ps-plot-region
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
6531 from to
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
6532 (ps-font-number 'ps-font-for-text
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
6533 (or (aref ps-font-type (logand effect 3))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
6534 face))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
6535 fg-color bg-color (lsh effect -2)))))
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6536 (goto-char to))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
6537
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
6538
11799
4a04c7799790 Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents: 10738
diff changeset
6539 ;; Ensure that face-list is fbound.
4a04c7799790 Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents: 10738
diff changeset
6540 (or (fboundp 'face-list) (defalias 'face-list 'list-faces))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
6541
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
6542
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
6543 (defun ps-build-reference-face-lists ()
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
6544 ;; Ensure that face database is updated with faces on
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
6545 ;; `font-lock-face-attributes' (obsolete stuff)
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
6546 (ps-font-lock-face-attributes)
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
6547 ;; Now, rebuild reference face lists
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
6548 (setq ps-print-face-alist nil)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
6549 (if ps-auto-font-detect
84877
0cff28bd3f6b (ps-background, ps-begin-file, ps-build-reference-face-lists):
Juanma Barranquero <lekktu@gmail.com>
parents: 82416
diff changeset
6550 (mapc 'ps-map-face (face-list))
0cff28bd3f6b (ps-background, ps-begin-file, ps-build-reference-face-lists):
Juanma Barranquero <lekktu@gmail.com>
parents: 82416
diff changeset
6551 (mapc 'ps-set-face-bold ps-bold-faces)
0cff28bd3f6b (ps-background, ps-begin-file, ps-build-reference-face-lists):
Juanma Barranquero <lekktu@gmail.com>
parents: 82416
diff changeset
6552 (mapc 'ps-set-face-italic ps-italic-faces)
0cff28bd3f6b (ps-background, ps-begin-file, ps-build-reference-face-lists):
Juanma Barranquero <lekktu@gmail.com>
parents: 82416
diff changeset
6553 (mapc 'ps-set-face-underline ps-underlined-faces))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
6554 (setq ps-build-face-reference nil))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
6555
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
6556
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
6557 (defun ps-set-face-bold (face)
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
6558 (ps-set-face-attribute face 1))
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
6559
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
6560 (defun ps-set-face-italic (face)
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
6561 (ps-set-face-attribute face 2))
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
6562
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
6563 (defun ps-set-face-underline (face)
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
6564 (ps-set-face-attribute face 4))
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
6565
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
6566
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
6567 (defun ps-set-face-attribute (face effect)
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
6568 (let ((face-bit (cdr (ps-map-face face))))
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
6569 (aset face-bit 0 (logior (aref face-bit 0) effect))))
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
6570
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
6571
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
6572 (defun ps-map-face (face)
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
6573 (let* ((face-map (ps-screen-to-bit-face face))
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
6574 (ps-face-bit (cdr (assq (car face-map) ps-print-face-alist))))
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
6575 (if ps-face-bit
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
6576 ;; if face exists, merge both
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
6577 (let ((face-bit (cdr face-map)))
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
6578 (aset ps-face-bit 0 (logior (aref ps-face-bit 0) (aref face-bit 0)))
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
6579 (or (aref ps-face-bit 1) (aset ps-face-bit 1 (aref face-bit 1)))
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
6580 (or (aref ps-face-bit 2) (aset ps-face-bit 2 (aref face-bit 2))))
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
6581 ;; if face does not exist, insert it
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
6582 (setq ps-print-face-alist (cons face-map ps-print-face-alist)))
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
6583 face-map))
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
6584
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
6585
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
6586 (defun ps-screen-to-bit-face (face)
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
6587 (cons face
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
6588 (vector (logior (if (ps-face-bold-p face) 1 0) ; bold
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
6589 (if (ps-face-italic-p face) 2 0) ; italic
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
6590 (if (ps-face-underlined-p face) 4 0)) ; underline
29494
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
6591 (ps-face-foreground-name face)
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
6592 (ps-face-background-name face))))
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
6593
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
6594
32653
f05cc7224309 Even/odd pages fix. Fix little bug on XEmacs. Avoid
Gerd Moellmann <gerd@gnu.org>
parents: 32619
diff changeset
6595 ;; to avoid compilation gripes
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
6596 (defalias 'ps-jitify 'jit-lock-fontify-now)
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
6597 (defalias 'ps-lazify 'lazy-lock-fontify-region)
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
6598
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
6599
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
6600 ;; to avoid compilation gripes
33090
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
6601 (defun ps-print-ensure-fontified (start end)
58406
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
6602 (cond ((and (boundp 'jit-lock-mode) (symbol-value 'jit-lock-mode))
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
6603 (ps-jitify start end))
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
6604 ((and (boundp 'lazy-lock-mode) (symbol-value 'lazy-lock-mode))
820e35465241 :version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 56552
diff changeset
6605 (ps-lazify start end))))
32653
f05cc7224309 Even/odd pages fix. Fix little bug on XEmacs. Avoid
Gerd Moellmann <gerd@gnu.org>
parents: 32619
diff changeset
6606
11799
4a04c7799790 Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents: 10738
diff changeset
6607
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
6608 (defun ps-generate-postscript-with-faces (from to)
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6609 ;; Some initialization...
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
6610 (setq ps-current-effect 0)
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6611
10683
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
6612 ;; Build the reference lists of faces if necessary.
29494
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
6613 (when (or ps-always-build-face-reference
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
6614 ps-build-face-reference)
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
6615 (message "Collecting face information...")
112a7f01b499 XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents: 28979
diff changeset
6616 (ps-build-reference-face-lists))
39327
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
6617
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
6618 ;; Black/white printer.
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
6619 (setq ps-black-white-faces-alist nil)
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
6620 (and (eq ps-print-color-p 'black-white)
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
6621 (ps-extend-face-list ps-black-white-faces nil
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
6622 'ps-black-white-faces-alist))
7a8cb6eb702e Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents: 39273
diff changeset
6623
10683
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
6624 ;; Generate some PostScript.
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
6625 (save-restriction
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
6626 (narrow-to-region from to)
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
6627 (ps-print-ensure-fontified from to)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
6628 (let ((face 'default)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
6629 (position to))
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6630 (cond
75953
6f45466672db Use (defvar <foo>) where applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 75702
diff changeset
6631 ((featurep 'xemacs) ; XEmacs
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6632 ;; Build the list of extents...
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6633 (let ((a (cons 'dummy nil))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6634 record type extent extent-list)
85763
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
6635 (map-extents 'ps-xemacs-mapper nil from to a)
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
6636 (setq a (sort (cdr a) 'car-less-than-car)
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
6637 extent-list nil)
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6638
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6639 ;; Loop through the extents...
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6640 (while a
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
6641 (setq record (car a)
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
6642 position (car record)
34919
2c73a20c859c Handle form feed better when ps-zebra-stripe-follow is
Gerd Moellmann <gerd@gnu.org>
parents: 34045
diff changeset
6643
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
6644 record (cdr record)
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
6645 type (car record)
34919
2c73a20c859c Handle form feed better when ps-zebra-stripe-follow is
Gerd Moellmann <gerd@gnu.org>
parents: 34045
diff changeset
6646
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
6647 record (cdr record)
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
6648 extent (car record))
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6649
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6650 ;; Plot up to this record.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6651 ;; XEmacs 19.12: for some reason, we're getting into a
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6652 ;; situation in which some of the records have
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6653 ;; positions less than 'from'. Since we've narrowed
33090
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
6654 ;; the buffer, this'll generate errors. This is a hack,
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
6655 ;; but don't call ps-plot-with-face unless from > point-min.
32653
f05cc7224309 Even/odd pages fix. Fix little bug on XEmacs. Avoid
Gerd Moellmann <gerd@gnu.org>
parents: 32619
diff changeset
6656 (and (>= from (point-min))
f05cc7224309 Even/odd pages fix. Fix little bug on XEmacs. Avoid
Gerd Moellmann <gerd@gnu.org>
parents: 32619
diff changeset
6657 (ps-plot-with-face from (min position (point-max)) face))
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6658
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6659 (cond
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6660 ((eq type 'push)
85763
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
6661 (and (extent-face extent)
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
6662 (setq extent-list (sort (cons extent extent-list)
85763
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
6663 'ps-xemacs-extent-sorter))))
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6664
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6665 ((eq type 'pull)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6666 (setq extent-list (sort (delq extent extent-list)
85763
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
6667 'ps-xemacs-extent-sorter))))
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6668
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
6669 (setq face (if extent-list
85763
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
6670 (extent-face (car extent-list))
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
6671 'default)
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
6672 from position
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
6673 a (cdr a)))))
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6674
75953
6f45466672db Use (defvar <foo>) where applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 75702
diff changeset
6675 (t ; Emacs
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6676 (let ((property-change from)
23091
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
6677 (overlay-change from)
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
6678 (save-buffer-invisibility-spec buffer-invisibility-spec)
37967
758fe02d489d Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents: 37489
diff changeset
6679 (buffer-invisibility-spec nil)
758fe02d489d Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents: 37489
diff changeset
6680 before-string after-string)
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6681 (while (< from to)
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
6682 (and (< property-change to) ; Don't search for property change
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
6683 ; unless previous search succeeded.
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
6684 (setq property-change (next-property-change from nil to)))
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
6685 (and (< overlay-change to) ; Don't search for overlay change
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
6686 ; unless previous search succeeded.
85763
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
6687 (setq overlay-change (min (next-overlay-change from)
36215
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
6688 to)))
37967
758fe02d489d Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents: 37489
diff changeset
6689 (setq position (min property-change overlay-change)
758fe02d489d Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents: 37489
diff changeset
6690 before-string nil
758fe02d489d Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents: 37489
diff changeset
6691 after-string nil)
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6692 ;; The code below is not quite correct,
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6693 ;; because a non-nil overlay invisible property
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6694 ;; which is inactive according to the current value
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6695 ;; of buffer-invisibility-spec nonetheless overrides
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6696 ;; a face text property.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6697 (setq face
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6698 (cond ((let ((prop (get-text-property from 'invisible)))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6699 ;; Decide whether this invisible property
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6700 ;; really makes the text invisible.
23091
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
6701 (if (eq save-buffer-invisibility-spec t)
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6702 (not (null prop))
23091
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
6703 (or (memq prop save-buffer-invisibility-spec)
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
6704 (assq prop save-buffer-invisibility-spec))))
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
6705 'emacs--invisible--face)
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6706 ((get-text-property from 'face))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6707 (t 'default)))
85763
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
6708 (let ((overlays (overlays-at from))
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6709 (face-priority -1)) ; text-property
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
6710 (while (and overlays
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
6711 (not (eq face 'emacs--invisible--face)))
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6712 (let* ((overlay (car overlays))
37967
758fe02d489d Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents: 37489
diff changeset
6713 (overlay-invisible
85763
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
6714 (overlay-get overlay 'invisible))
37967
758fe02d489d Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents: 37489
diff changeset
6715 (overlay-priority
85763
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
6716 (or (overlay-get overlay 'priority) 0)))
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
6717 (and (> overlay-priority face-priority)
37967
758fe02d489d Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents: 37489
diff changeset
6718 (setq before-string
85763
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
6719 (or (overlay-get overlay 'before-string)
37967
758fe02d489d Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents: 37489
diff changeset
6720 before-string)
758fe02d489d Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents: 37489
diff changeset
6721 after-string
85763
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
6722 (or (and (<= (overlay-end overlay) position)
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
6723 (overlay-get overlay 'after-string))
37967
758fe02d489d Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents: 37489
diff changeset
6724 after-string)
758fe02d489d Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents: 37489
diff changeset
6725 face-priority overlay-priority
758fe02d489d Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents: 37489
diff changeset
6726 face
758fe02d489d Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents: 37489
diff changeset
6727 (cond
758fe02d489d Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents: 37489
diff changeset
6728 ((if (eq save-buffer-invisibility-spec t)
758fe02d489d Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents: 37489
diff changeset
6729 (not (null overlay-invisible))
758fe02d489d Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents: 37489
diff changeset
6730 (or (memq overlay-invisible
758fe02d489d Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents: 37489
diff changeset
6731 save-buffer-invisibility-spec)
758fe02d489d Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents: 37489
diff changeset
6732 (assq overlay-invisible
758fe02d489d Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents: 37489
diff changeset
6733 save-buffer-invisibility-spec)))
758fe02d489d Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents: 37489
diff changeset
6734 'emacs--invisible--face)
85763
3b291390be13 (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85762
diff changeset
6735 ((overlay-get overlay 'face))
37967
758fe02d489d Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents: 37489
diff changeset
6736 (t face)
758fe02d489d Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents: 37489
diff changeset
6737 ))))
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6738 (setq overlays (cdr overlays))))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6739 ;; Plot up to this record.
37967
758fe02d489d Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents: 37489
diff changeset
6740 (and before-string
758fe02d489d Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents: 37489
diff changeset
6741 (ps-plot-string before-string))
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6742 (ps-plot-with-face from position face)
37967
758fe02d489d Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents: 37489
diff changeset
6743 (and after-string
758fe02d489d Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents: 37489
diff changeset
6744 (ps-plot-string after-string))
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6745 (setq from position)))))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6746 (ps-plot-with-face from to face))))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
6747
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
6748 (defun ps-generate-postscript (from to)
75702
78d94b04f6aa Fix background color printing
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 75511
diff changeset
6749 (ps-plot-region from to 0))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
6750
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
6751 (defun ps-generate (buffer from to genfunc)
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6752 (save-excursion
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6753 (let ((from (min to from))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6754 (to (max to from))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6755 ;; This avoids trouble if chars with read-only properties
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6756 ;; are copied into ps-spool-buffer.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6757 (inhibit-read-only t))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6758 (save-restriction
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6759 (narrow-to-region from to)
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
6760 (and ps-razzle-dazzle
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
6761 (message "Formatting...%3d%%" (setq ps-razchunk 0)))
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
6762 (setq ps-source-buffer buffer
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
6763 ps-spool-buffer (get-buffer-create ps-spool-buffer-name))
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6764 (ps-init-output-queue)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6765 (let (safe-marker completed-safely needs-begin-file)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6766 (unwind-protect
10683
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
6767 (progn
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
6768 (set-buffer ps-spool-buffer)
22397
31b7f6a60174 Fix spooled file bugs.
Richard M. Stallman <rms@gnu.org>
parents: 22204
diff changeset
6769 (set-buffer-multibyte nil)
23138
14e74d2a49cb (ps-print-control-characters): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23091
diff changeset
6770
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6771 ;; Get a marker and make it point to the current end of the
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6772 ;; buffer, If an error occurs, we'll delete everything from
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6773 ;; the end of this marker onwards.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6774 (setq safe-marker (make-marker))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6775 (set-marker safe-marker (point-max))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6776
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6777 (goto-char (point-min))
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
6778 (or (looking-at (regexp-quote ps-adobe-tag))
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
6779 (setq needs-begin-file t))
33090
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
6780
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
6781 (set-buffer ps-source-buffer)
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6782 (save-excursion
33090
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
6783 (let ((ps-print-page-p t)
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
6784 ps-even-or-odd-pages)
75702
78d94b04f6aa Fix background color printing
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 75511
diff changeset
6785 (ps-begin-job genfunc)
32836
2d9f4fc56dba (ps-generate): Fix odd/even pages printing bug.
Gerd Moellmann <gerd@gnu.org>
parents: 32655
diff changeset
6786 (when needs-begin-file
2d9f4fc56dba (ps-generate): Fix odd/even pages printing bug.
Gerd Moellmann <gerd@gnu.org>
parents: 32655
diff changeset
6787 (ps-begin-file)
2d9f4fc56dba (ps-generate): Fix odd/even pages printing bug.
Gerd Moellmann <gerd@gnu.org>
parents: 32655
diff changeset
6788 (ps-mule-initialize))
2d9f4fc56dba (ps-generate): Fix odd/even pages printing bug.
Gerd Moellmann <gerd@gnu.org>
parents: 32655
diff changeset
6789 (ps-mule-begin-job from to)
33090
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
6790 (ps-selected-pages)))
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
6791 (ps-begin-page)
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6792 (funcall genfunc from to)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6793 (ps-end-page)
33090
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
6794 (ps-end-job needs-begin-file)
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6795
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6796 ;; Setting this variable tells the unwind form that the
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
6797 ;; the PostScript was generated without error.
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6798 (setq completed-safely t))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6799
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6800 ;; Unwind form: If some bad mojo occurred while generating
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
6801 ;; PostScript, delete all the PostScript that was generated.
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6802 ;; This protects the previously spooled files from getting
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6803 ;; corrupted.
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
6804 (and (markerp safe-marker) (not completed-safely)
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
6805 (progn
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
6806 (set-buffer ps-spool-buffer)
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
6807 (delete-region (marker-position safe-marker) (point-max))))))
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6808
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
6809 (and ps-razzle-dazzle (message "Formatting...done"))))))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
6810
23091
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
6811
33090
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
6812 (defun ps-end-job (needs-begin-file)
63807
11342f636d93 ps-print selection page fix
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 63655
diff changeset
6813 (let ((ps-print-page-p t))
33090
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
6814 (ps-flush-output)
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
6815 (save-excursion
33143
94d9ccbb780e Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33090
diff changeset
6816 (let ((pages-per-sheet (mod ps-page-printed ps-n-up-printing))
33090
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
6817 (total-lines (cdr ps-printing-region))
34045
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
6818 (total-pages (ps-page-number)))
33090
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
6819 (set-buffer ps-spool-buffer)
34045
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
6820 (let (case-fold-search)
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
6821 ;; Back to the PS output buffer to set the last page n-up printing
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
6822 (goto-char (point-max))
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
6823 (and (> pages-per-sheet 0)
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
6824 (re-search-backward "^[0-9]+ BeginSheet$" nil t)
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
6825 (replace-match (format "%d BeginSheet" pages-per-sheet) t))
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
6826 ;; Back to the PS output buffer to set the page count
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
6827 (goto-char (point-min))
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
6828 (while (re-search-forward "^/Lines 0 def\n/PageCount 0 def$" nil t)
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
6829 (replace-match (format "/Lines %d def\n/PageCount %d def"
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
6830 total-lines total-pages) t)))))
33090
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
6831 ;; Set dummy page
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
6832 (and ps-spool-duplex (= (mod ps-page-order 2) 1)
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
6833 (let ((ps-n-up-printing 0))
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
6834 (ps-header-sheet)
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
6835 (ps-output "/PrintHeader false def\n/ColumnIndex 0 def\n"
34919
2c73a20c859c Handle form feed better when ps-zebra-stripe-follow is
Gerd Moellmann <gerd@gnu.org>
parents: 34045
diff changeset
6836 "/PrintLineNumber false def\n"
2c73a20c859c Handle form feed better when ps-zebra-stripe-follow is
Gerd Moellmann <gerd@gnu.org>
parents: 34045
diff changeset
6837 (number-to-string ps-lines-printed) " BeginPage\n")
33090
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
6838 (ps-end-page)))
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
6839 ;; Set end of PostScript file
63807
11342f636d93 ps-print selection page fix
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 63655
diff changeset
6840 (ps-end-sheet)
33143
94d9ccbb780e Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33090
diff changeset
6841 (ps-output "\n%%Trailer\n%%Pages: "
33090
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
6842 (number-to-string
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
6843 (if (and needs-begin-file
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
6844 ps-banner-page-when-duplexing)
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
6845 (1+ ps-page-order)
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
6846 ps-page-order))
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
6847 "\n\nEndDoc\n\n%%EOF\n")
34045
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
6848 (and ps-end-with-control-d
546a32ec3540 (ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents: 33588
diff changeset
6849 (ps-output "\C-d"))
33090
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
6850 (ps-flush-output))
a48e4118492d Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents: 32914
diff changeset
6851 ;; disable selected pages
29848
80ae67b2a291 Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents: 29494
diff changeset
6852 (setq ps-selected-pages nil))
24414
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
6853
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
6854
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
6855 ;; Permit dynamic evaluation at print time of `ps-lpr-switches'.
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
6856 (defun ps-do-despool (filename)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
6857 (if (or (not (boundp 'ps-spool-buffer))
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
6858 (not (symbol-value 'ps-spool-buffer)))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
6859 (message "No spooled PostScript to print")
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
6860 (if filename
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
6861 (save-excursion
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
6862 (and ps-razzle-dazzle (message "Saving..."))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
6863 (set-buffer ps-spool-buffer)
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
6864 (setq filename (expand-file-name filename))
21571
add6627452a5 (ps-do-despool): Bind coding-system-for-write to
Eli Zaretskii <eliz@gnu.org>
parents: 21086
diff changeset
6865 (let ((coding-system-for-write 'raw-text-unix))
add6627452a5 (ps-do-despool): Bind coding-system-for-write to
Eli Zaretskii <eliz@gnu.org>
parents: 21086
diff changeset
6866 (write-region (point-min) (point-max) filename))
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
6867 (and ps-razzle-dazzle (message "Wrote %s" filename)))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
6868 ;; Else, spool to the printer
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
6869 (and ps-razzle-dazzle (message "Printing..."))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
6870 (save-excursion
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
6871 (set-buffer ps-spool-buffer)
22751
75c35003c69f (ps-do-despool): Bind ps-printer-name to printer-name if the former is
Andrew Innes <andrewi@gnu.org>
parents: 22680
diff changeset
6872 (let* ((coding-system-for-write 'raw-text-unix)
23892
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
6873 (ps-printer-name (or ps-printer-name
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
6874 (and (boundp 'printer-name)
36215
f2ca7236963b Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents: 35970
diff changeset
6875 (symbol-value 'printer-name))))
22751
75c35003c69f (ps-do-despool): Bind ps-printer-name to printer-name if the former is
Andrew Innes <andrewi@gnu.org>
parents: 22680
diff changeset
6876 (ps-lpr-switches
86033
4a4d5773bb72 Error if ps-lpr-switches is not a list.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85988
diff changeset
6877 (append ps-lpr-switches
32619
c09b494a5f49 Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents: 31253
diff changeset
6878 (and (stringp ps-printer-name)
c09b494a5f49 Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents: 31253
diff changeset
6879 (string< "" ps-printer-name)
c09b494a5f49 Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents: 31253
diff changeset
6880 (list (concat
c09b494a5f49 Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents: 31253
diff changeset
6881 (and (stringp ps-printer-name-option)
c09b494a5f49 Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents: 31253
diff changeset
6882 ps-printer-name-option)
c09b494a5f49 Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents: 31253
diff changeset
6883 ps-printer-name))))))
75355
4e79291d22f4 Handle frame parameters changing dynamically
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 75347
diff changeset
6884 (or (stringp ps-printer-name)
4e79291d22f4 Handle frame parameters changing dynamically
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 75347
diff changeset
6885 (setq ps-printer-name nil))
24090
3a9da940e5f2 (ps-printer-name): Update docstring about usage on
Andrew Innes <andrewi@gnu.org>
parents: 23938
diff changeset
6886 (apply (or ps-print-region-function 'call-process-region)
3a9da940e5f2 (ps-printer-name): Update docstring about usage on
Andrew Innes <andrewi@gnu.org>
parents: 23938
diff changeset
6887 (point-min) (point-max) ps-lpr-command nil
3a9da940e5f2 (ps-printer-name): Update docstring about usage on
Andrew Innes <andrewi@gnu.org>
parents: 23938
diff changeset
6888 (and (fboundp 'start-process) 0)
3a9da940e5f2 (ps-printer-name): Update docstring about usage on
Andrew Innes <andrewi@gnu.org>
parents: 23938
diff changeset
6889 nil
3a9da940e5f2 (ps-printer-name): Update docstring about usage on
Andrew Innes <andrewi@gnu.org>
parents: 23938
diff changeset
6890 (ps-flatten-list ; dynamic evaluation
86282
6fd01916efe1 ps-lpr-switches docstring fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 86033
diff changeset
6891 (ps-string-list
6fd01916efe1 ps-lpr-switches docstring fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 86033
diff changeset
6892 (mapcar 'ps-eval-switch ps-lpr-switches))))))
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
6893 (and ps-razzle-dazzle (message "Printing...done")))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
6894 (kill-buffer ps-spool-buffer)))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
6895
86282
6fd01916efe1 ps-lpr-switches docstring fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 86033
diff changeset
6896 (defun ps-string-list (arg)
6fd01916efe1 ps-lpr-switches docstring fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 86033
diff changeset
6897 (let (lstr)
6fd01916efe1 ps-lpr-switches docstring fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 86033
diff changeset
6898 (dolist (elm arg)
6fd01916efe1 ps-lpr-switches docstring fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 86033
diff changeset
6899 (cond ((stringp elm)
6fd01916efe1 ps-lpr-switches docstring fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 86033
diff changeset
6900 (setq lstr (cons elm lstr)))
6fd01916efe1 ps-lpr-switches docstring fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 86033
diff changeset
6901 ((listp elm)
6fd01916efe1 ps-lpr-switches docstring fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 86033
diff changeset
6902 (let ((s (ps-string-list elm)))
6fd01916efe1 ps-lpr-switches docstring fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 86033
diff changeset
6903 (when s
6fd01916efe1 ps-lpr-switches docstring fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 86033
diff changeset
6904 (setq lstr (cons s lstr)))))
6fd01916efe1 ps-lpr-switches docstring fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 86033
diff changeset
6905 (t ))) ; ignore any other value
6fd01916efe1 ps-lpr-switches docstring fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 86033
diff changeset
6906 (nreverse lstr)))
6fd01916efe1 ps-lpr-switches docstring fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 86033
diff changeset
6907
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
6908 ;; Dynamic evaluation
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
6909 (defun ps-eval-switch (arg)
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
6910 (cond ((stringp arg) arg)
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
6911 ((functionp arg) (apply arg nil))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
6912 ((symbolp arg) (symbol-value arg))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
6913 ((consp arg) (apply (car arg) (cdr arg)))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
6914 (t nil)))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
6915
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
6916 ;; `ps-flatten-list' is defined here (copied from "message.el" and
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
6917 ;; enhanced to handle dotted pairs as well) until we can get some
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
6918 ;; sensible autoloads, or `flatten-list' gets put somewhere decent.
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
6919
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
6920 ;; (ps-flatten-list '((a . b) c (d . e) (f g h) i . j))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
6921 ;; => (a b c d e f g h i j)
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
6922
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
6923 (defun ps-flatten-list (&rest list)
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
6924 (ps-flatten-list-1 list))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
6925
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
6926 (defun ps-flatten-list-1 (list)
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
6927 (cond ((null list) nil)
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
6928 ((consp list) (append (ps-flatten-list-1 (car list))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
6929 (ps-flatten-list-1 (cdr list))))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
6930 (t (list list))))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
6931
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
6932 (defun ps-kill-emacs-check ()
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
6933 (let (ps-buffer)
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
6934 (and (setq ps-buffer (get-buffer ps-spool-buffer-name))
54233
4da084c4e7a7 Doc fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 52401
diff changeset
6935 (buffer-name ps-buffer) ; check if it's not killed
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
6936 (buffer-modified-p ps-buffer)
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
6937 (y-or-n-p "Unprinted PostScript waiting; print now? ")
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
6938 (ps-despool))
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
6939 (and (setq ps-buffer (get-buffer ps-spool-buffer-name))
54233
4da084c4e7a7 Doc fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 52401
diff changeset
6940 (buffer-name ps-buffer) ; check if it's not killed
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
6941 (buffer-modified-p ps-buffer)
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
6942 (not (yes-or-no-p "Unprinted PostScript waiting; exit anyway? "))
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
6943 (error "Unprinted PostScript"))))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
6944
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
6945 (cond ((fboundp 'add-hook)
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
6946 (funcall 'add-hook 'kill-emacs-hook 'ps-kill-emacs-check))
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
6947 (kill-emacs-hook
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
6948 (message "Won't override existing `kill-emacs-hook'"))
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
6949 (t
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
6950 (setq kill-emacs-hook 'ps-kill-emacs-check)))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
6951
23892
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
6952
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
6953 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
6954 ;;; Sample Setup Code:
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
6955
27161
0a2452a20c74 ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 26883
diff changeset
6956
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
6957 ;; This stuff is for anybody that's brave enough to look this far,
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6958 ;; and able to figure out how to use it. It isn't really part of
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6959 ;; ps-print, but I'll leave it here in hopes it might be useful:
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
6960
23892
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
6961 ;; WARNING!!! The following code is *sample* code only.
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
6962 ;; Don't use it unless you understand what it does!
11799
4a04c7799790 Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents: 10738
diff changeset
6963
75953
6f45466672db Use (defvar <foo>) where applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 75702
diff changeset
6964 ;; The key `f22' should probably be replaced by `print'. --Stef
10683
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
6965
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
6966 ;; A hook to bind to `rmail-mode-hook' to locally bind prsc and set the
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
6967 ;; `ps-left-headers' specially for mail messages.
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
6968 (defun ps-rmail-mode-hook ()
75953
6f45466672db Use (defvar <foo>) where applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 75702
diff changeset
6969 (local-set-key [(f22)] 'ps-rmail-print-message-from-summary)
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
6970 (setq ps-header-lines 3
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
6971 ps-left-header
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
6972 ;; The left headers will display the message's subject, its
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
6973 ;; author, and the name of the folder it was in.
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
6974 '(ps-article-subject ps-article-author buffer-name)))
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
6975
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
6976 ;; See `ps-gnus-print-article-from-summary'. This function does the
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
6977 ;; same thing for rmail.
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
6978 (defun ps-rmail-print-message-from-summary ()
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
6979 (interactive)
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
6980 (ps-print-message-from-summary 'rmail-summary-buffer "RMAIL"))
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
6981
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
6982 ;; Used in `ps-rmail-print-article-from-summary',
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
6983 ;; `ps-gnus-print-article-from-summary' and `ps-vm-print-message-from-summary'.
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
6984 (defun ps-print-message-from-summary (summary-buffer summary-default)
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
6985 (let ((ps-buf (or (and (boundp summary-buffer)
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
6986 (symbol-value summary-buffer))
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
6987 summary-default)))
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
6988 (and (get-buffer ps-buf)
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
6989 (save-excursion
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
6990 (set-buffer ps-buf)
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
6991 (ps-spool-buffer-with-faces)))))
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
6992
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
6993 ;; Look in an article or mail message for the Subject: line. To be
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6994 ;; placed in `ps-left-headers'.
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
6995 (defun ps-article-subject ()
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
6996 (save-excursion
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
6997 (goto-char (point-min))
15620
7844c0f756d0 (ps-article-subject): Don't die if no subject header.
Karl Heuer <kwzh@gnu.org>
parents: 15163
diff changeset
6998 (if (re-search-forward "^Subject:[ \t]+\\(.*\\)$" nil t)
28576
1694ed739e69 Customization fix, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28426
diff changeset
6999 (buffer-substring (match-beginning 1) (match-end 1))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
7000 "Subject ???")))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
7001
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
7002 ;; Look in an article or mail message for the From: line. Sorta-kinda
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
7003 ;; understands RFC-822 addresses and can pull the real name out where
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
7004 ;; it's provided. To be placed in `ps-left-headers'.
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
7005 (defun ps-article-author ()
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
7006 (save-excursion
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
7007 (goto-char (point-min))
15621
6be6d1990543 (ps-article-author, ps-info-file, ps-info-node): Don't die if header is missing.
Karl Heuer <kwzh@gnu.org>
parents: 15620
diff changeset
7008 (if (re-search-forward "^From:[ \t]+\\(.*\\)$" nil t)
28576
1694ed739e69 Customization fix, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28426
diff changeset
7009 (let ((fromstring (buffer-substring (match-beginning 1) (match-end 1))))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
7010 (cond
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
7011
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
7012 ;; Try first to match addresses that look like
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
7013 ;; thompson@wg2.waii.com (Jim Thompson)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
7014 ((string-match ".*[ \t]+(\\(.*\\))" fromstring)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
7015 (substring fromstring (match-beginning 1) (match-end 1)))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
7016
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
7017 ;; Next try to match addresses that look like
28576
1694ed739e69 Customization fix, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28426
diff changeset
7018 ;; Jim Thompson <thompson@wg2.waii.com> or
1694ed739e69 Customization fix, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28426
diff changeset
7019 ;; "Jim Thompson" <thompson@wg2.waii.com>
1694ed739e69 Customization fix, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28426
diff changeset
7020 ((string-match "\\(\"?\\)\\(.*\\)\\1[ \t]+<.*>" fromstring)
1694ed739e69 Customization fix, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28426
diff changeset
7021 (substring fromstring (match-beginning 2) (match-end 2)))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
7022
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
7023 ;; Couldn't find a real name -- show the address instead.
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
7024 (t fromstring)))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
7025 "From ???")))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
7026
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
7027 ;; A hook to bind to `gnus-article-prepare-hook'. This will set the
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
7028 ;; `ps-left-headers' specially for gnus articles. Unfortunately,
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
7029 ;; `gnus-article-mode-hook' is called only once, the first time the *Article*
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
7030 ;; buffer enters that mode, so it would only work for the first time
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
7031 ;; we ran gnus. The second time, this hook wouldn't get set up. The
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
7032 ;; only alternative is `gnus-article-prepare-hook'.
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
7033 (defun ps-gnus-article-prepare-hook ()
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
7034 (setq ps-header-lines 3
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
7035 ps-left-header
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
7036 ;; The left headers will display the article's subject, its
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
7037 ;; author, and the newsgroup it was in.
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
7038 '(ps-article-subject ps-article-author gnus-newsgroup-name)))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
7039
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
7040 ;; A hook to bind to `vm-mode-hook' to locally bind prsc and set the
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
7041 ;; `ps-left-headers' specially for mail messages.
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
7042 (defun ps-vm-mode-hook ()
75953
6f45466672db Use (defvar <foo>) where applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 75702
diff changeset
7043 (local-set-key [(f22)] 'ps-vm-print-message-from-summary)
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
7044 (setq ps-header-lines 3
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
7045 ps-left-header
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
7046 ;; The left headers will display the message's subject, its
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
7047 ;; author, and the name of the folder it was in.
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
7048 '(ps-article-subject ps-article-author buffer-name)))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
7049
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
7050 ;; Every now and then I forget to switch from the *Summary* buffer to
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
7051 ;; the *Article* before hitting prsc, and a nicely formatted list of
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
7052 ;; article subjects shows up at the printer. This function, bound to
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
7053 ;; prsc for the gnus *Summary* buffer means I don't have to switch
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
7054 ;; buffers first.
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
7055 ;; sb: Updated for Gnus 5.
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
7056 (defun ps-gnus-print-article-from-summary ()
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
7057 (interactive)
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
7058 (ps-print-message-from-summary 'gnus-article-buffer "*Article*"))
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
7059
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
7060 ;; See `ps-gnus-print-article-from-summary'. This function does the
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
7061 ;; same thing for vm.
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
7062 (defun ps-vm-print-message-from-summary ()
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
7063 (interactive)
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
7064 (ps-print-message-from-summary 'vm-mail-buffer ""))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
7065
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
7066 ;; A hook to bind to bind to `gnus-summary-setup-buffer' to locally bind
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
7067 ;; prsc.
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
7068 (defun ps-gnus-summary-setup ()
75953
6f45466672db Use (defvar <foo>) where applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 75702
diff changeset
7069 (local-set-key [(f22)] 'ps-gnus-print-article-from-summary))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
7070
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
7071 ;; Look in an article or mail message for the Subject: line. To be
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
7072 ;; placed in `ps-left-headers'.
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
7073 (defun ps-info-file ()
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
7074 (save-excursion
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
7075 (goto-char (point-min))
15621
6be6d1990543 (ps-article-author, ps-info-file, ps-info-node): Don't die if header is missing.
Karl Heuer <kwzh@gnu.org>
parents: 15620
diff changeset
7076 (if (re-search-forward "File:[ \t]+\\([^, \t\n]*\\)" nil t)
28576
1694ed739e69 Customization fix, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28426
diff changeset
7077 (buffer-substring (match-beginning 1) (match-end 1))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
7078 "File ???")))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
7079
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
7080 ;; Look in an article or mail message for the Subject: line. To be
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
7081 ;; placed in `ps-left-headers'.
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
7082 (defun ps-info-node ()
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
7083 (save-excursion
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
7084 (goto-char (point-min))
15621
6be6d1990543 (ps-article-author, ps-info-file, ps-info-node): Don't die if header is missing.
Karl Heuer <kwzh@gnu.org>
parents: 15620
diff changeset
7085 (if (re-search-forward "Node:[ \t]+\\([^,\t\n]*\\)" nil t)
28576
1694ed739e69 Customization fix, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28426
diff changeset
7086 (buffer-substring (match-beginning 1) (match-end 1))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
7087 "Node ???")))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
7088
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
7089 (defun ps-info-mode-hook ()
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
7090 (setq ps-left-header
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
7091 ;; The left headers will display the node name and file name.
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
7092 '(ps-info-node ps-info-file)))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
7093
11799
4a04c7799790 Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents: 10738
diff changeset
7094 ;; WARNING! The following function is a *sample* only, and is *not*
4a04c7799790 Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents: 10738
diff changeset
7095 ;; meant to be used as a whole unless you understand what the effects
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
7096 ;; will be! (In fact, this is a copy of Jim's setup for ps-print --
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
7097 ;; I'd be very surprised if it was useful to *anybody*, without
11799
4a04c7799790 Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents: 10738
diff changeset
7098 ;; modification.)
4a04c7799790 Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents: 10738
diff changeset
7099
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
7100 (defun ps-jts-ps-setup ()
75953
6f45466672db Use (defvar <foo>) where applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 75702
diff changeset
7101 (global-set-key [(f22)] 'ps-spool-buffer-with-faces) ;f22 is prsc
6f45466672db Use (defvar <foo>) where applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 75702
diff changeset
7102 (global-set-key [(shift f22)] 'ps-spool-region-with-faces)
6f45466672db Use (defvar <foo>) where applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 75702
diff changeset
7103 (global-set-key [(control f22)] 'ps-despool)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
7104 (add-hook 'gnus-article-prepare-hook 'ps-gnus-article-prepare-hook)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
7105 (add-hook 'gnus-summary-mode-hook 'ps-gnus-summary-setup)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
7106 (add-hook 'vm-mode-hook 'ps-vm-mode-hook)
10683
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
7107 (add-hook 'vm-mode-hooks 'ps-vm-mode-hook)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
7108 (add-hook 'Info-mode-hook 'ps-info-mode-hook)
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
7109 (setq ps-spool-duplex t
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
7110 ps-print-color-p nil
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
7111 ps-lpr-command "lpr"
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
7112 ps-lpr-switches '("-Jjct,duplex_long"))
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
7113 'ps-jts-ps-setup)
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
7114
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
7115 ;; WARNING! The following function is a *sample* only, and is *not*
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
7116 ;; meant to be used as a whole unless it corresponds to your needs.
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
7117 ;; (In fact, this is a copy of Jack's setup for ps-print --
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
7118 ;; I would not be that surprised if it was useful to *anybody*,
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
7119 ;; without modification.)
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
7120
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
7121 (defun ps-jack-setup ()
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
7122 (setq ps-print-color-p nil
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
7123 ps-lpr-command "lpr"
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
7124 ps-lpr-switches nil
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
7125
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
7126 ps-paper-type 'a4
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
7127 ps-landscape-mode t
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
7128 ps-number-of-columns 2
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
7129
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
7130 ps-left-margin (/ (* 72 1.0) 2.54) ; 1.0 cm
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
7131 ps-right-margin (/ (* 72 1.0) 2.54) ; 1.0 cm
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
7132 ps-inter-column (/ (* 72 1.0) 2.54) ; 1.0 cm
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
7133 ps-bottom-margin (/ (* 72 1.5) 2.54) ; 1.5 cm
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
7134 ps-top-margin (/ (* 72 1.5) 2.54) ; 1.5 cm
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
7135 ps-header-offset (/ (* 72 1.0) 2.54) ; 1.0 cm
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
7136 ps-header-line-pad .15
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
7137 ps-print-header t
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
7138 ps-print-header-frame t
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
7139 ps-header-lines 2
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
7140 ps-show-n-of-n t
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
7141 ps-spool-duplex nil
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
7142
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
7143 ps-font-family 'Courier
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
7144 ps-font-size 5.5
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
7145 ps-header-font-family 'Helvetica
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
7146 ps-header-font-size 6
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
7147 ps-header-title-font-size 8)
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
7148 'ps-jack-setup)
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
7149
23892
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
7150
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
7151 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
7152 ;; To make this file smaller, some commands go in a separate file.
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
7153 ;; But autoload them here to make the separation invisible.
81630
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7154
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7155 ;;;### (autoloads (ps-mule-begin-page ps-mule-begin-job ps-mule-encode-header-string
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7156 ;;;;;; ps-mule-initialize ps-mule-plot-composition ps-mule-plot-string
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7157 ;;;;;; ps-mule-set-ascii-font ps-mule-prepare-ascii-font ps-multibyte-buffer)
82208
1160d327dbdd Update some .arch-inventory files
Miles Bader <miles@gnu.org>
parents: 82125
diff changeset
7158 ;;;;;; "ps-mule" "ps-mule.el" "586d0a4deeb89be9b80cc01def34481c")
81630
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7159 ;;; Generated autoloads from ps-mule.el
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7160
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7161 (defvar ps-multibyte-buffer nil "\
82106
f95feb715a68 Doc/docstring fix
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 82096
diff changeset
7162 *Specifies the multi-byte buffer handling.
81630
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7163
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7164 Valid values are:
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7165
82096
83b2a2d47d12 Update autoloaded entries.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81997
diff changeset
7166 nil This is the value to use the default settings;
83b2a2d47d12 Update autoloaded entries.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81997
diff changeset
7167 by default, this only works to print buffers with
83b2a2d47d12 Update autoloaded entries.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81997
diff changeset
7168 only ASCII and Latin characters. But this default
83b2a2d47d12 Update autoloaded entries.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81997
diff changeset
7169 setting can be changed by setting the variable
81630
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7170 `ps-mule-font-info-database-default' differently.
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7171 The initial value of this variable is
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7172 `ps-mule-font-info-database-latin' (see
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7173 documentation).
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7174
82096
83b2a2d47d12 Update autoloaded entries.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81997
diff changeset
7175 `non-latin-printer' This is the value to use when you have a Japanese
81630
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7176 or Korean PostScript printer and want to print
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7177 buffer with ASCII, Latin-1, Japanese (JISX0208 and
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7178 JISX0201-Kana) and Korean characters. At present,
82106
f95feb715a68 Doc/docstring fix
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 82096
diff changeset
7179 it was not tested with the Korean characters
f95feb715a68 Doc/docstring fix
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 82096
diff changeset
7180 printing. If you have a korean PostScript printer,
f95feb715a68 Doc/docstring fix
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 82096
diff changeset
7181 please, test it.
81630
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7182
82096
83b2a2d47d12 Update autoloaded entries.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81997
diff changeset
7183 `bdf-font' This is the value to use when you want to print
81630
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7184 buffer with BDF fonts. BDF fonts include both latin
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7185 and non-latin fonts. BDF (Bitmap Distribution
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7186 Format) is a format used for distributing X's font
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7187 source file. BDF fonts are included in
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7188 `intlfonts-1.2' which is a collection of X11 fonts
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7189 for all characters supported by Emacs. In order to
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7190 use this value, be sure to have installed
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7191 `intlfonts-1.2' and set the variable
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7192 `bdf-directory-list' appropriately (see ps-bdf.el for
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7193 documentation of this variable).
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7194
82096
83b2a2d47d12 Update autoloaded entries.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81997
diff changeset
7195 `bdf-font-except-latin' This is like `bdf-font' except that it uses
81630
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7196 PostScript default fonts to print ASCII and Latin-1
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7197 characters. This is convenient when you want or
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7198 need to use both latin and non-latin characters on
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7199 the same buffer. See `ps-font-family',
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7200 `ps-header-font-family' and `ps-font-info-database'.
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7201
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7202 Any other value is treated as nil.")
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7203
85711
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
7204 (custom-autoload 'ps-multibyte-buffer "ps-mule" t)
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
7205
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
7206 (autoload 'ps-mule-prepare-ascii-font "ps-mule" "\
81630
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7207 Setup special ASCII font for STRING.
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7208 STRING should contain only ASCII characters.
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7209
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7210 \(fn STRING)" nil nil)
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7211
85711
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
7212 (autoload 'ps-mule-set-ascii-font "ps-mule" "\
81630
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7213 Not documented
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7214
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7215 \(fn)" nil nil)
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7216
85711
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
7217 (autoload 'ps-mule-plot-string "ps-mule" "\
81630
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7218 Generate PostScript code for plotting characters in the region FROM and TO.
23892
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
7219
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
7220 It is assumed that all characters in this region belong to the same charset.
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
7221
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
7222 Optional argument BG-COLOR specifies background color.
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
7223
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
7224 Returns the value:
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
7225
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
7226 (ENDPOS . RUN-WIDTH)
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
7227
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
7228 Where ENDPOS is the end position of the sequence and RUN-WIDTH is the width of
81630
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7229 the sequence.
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7230
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7231 \(fn FROM TO &optional BG-COLOR)" nil nil)
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7232
85711
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
7233 (autoload 'ps-mule-plot-composition "ps-mule" "\
81630
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7234 Generate PostScript code for plotting composition in the region FROM and TO.
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7235
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7236 It is assumed that all characters in this region belong to the same
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7237 composition.
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7238
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7239 Optional argument BG-COLOR specifies background color.
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7240
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7241 Returns the value:
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7242
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7243 (ENDPOS . RUN-WIDTH)
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7244
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7245 Where ENDPOS is the end position of the sequence and RUN-WIDTH is the width of
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7246 the sequence.
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7247
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7248 \(fn FROM TO &optional BG-COLOR)" nil nil)
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7249
85711
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
7250 (autoload 'ps-mule-initialize "ps-mule" "\
81630
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7251 Initialize global data for printing multi-byte characters.
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7252
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7253 \(fn)" nil nil)
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7254
85711
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
7255 (autoload 'ps-mule-encode-header-string "ps-mule" "\
81630
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7256 Generate PostScript code for ploting STRING by font FONTTAG.
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7257 FONTTAG should be a string \"/h0\" or \"/h1\".
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7258
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7259 \(fn STRING FONTTAG)" nil nil)
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7260
85711
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
7261 (autoload 'ps-mule-begin-job "ps-mule" "\
81630
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7262 Start printing job for multi-byte chars between FROM and TO.
82208
1160d327dbdd Update some .arch-inventory files
Miles Bader <miles@gnu.org>
parents: 82125
diff changeset
7263 It checks if all multi-byte characters in the region are printable or not.
81630
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7264
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7265 \(fn FROM TO)" nil nil)
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7266
85711
b6f5dc84b2e1 Detect if text foreground and background are equals
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 85511
diff changeset
7267 (autoload 'ps-mule-begin-page "ps-mule" "\
81630
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7268 Not documented
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7269
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7270 \(fn)" nil nil)
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7271
0eefd2198a9d Update with auto-generated autoloads.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77744
diff changeset
7272 ;;;***
23892
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
7273
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
7274 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
7275
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
7276 (provide 'ps-print)
10738
e7d5b119b583 (ps-print-version): Add caveat about version number.
Richard M. Stallman <rms@gnu.org>
parents: 10683
diff changeset
7277
78214
9df605969950 Fix foreground/background color
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 78130
diff changeset
7278 ;; arch-tag: fb06a585-1112-4206-885d-a57d95d50579
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
7279 ;;; ps-print.el ends here