annotate lisp/ps-print.el @ 29190:f0d6f1a9c9ae

*** empty log message ***
author Eli Zaretskii <eliz@gnu.org>
date Thu, 25 May 2000 15:47:07 +0000
parents b6e33b095c08
children 112a7f01b499
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
19485
eab8baa19dfa (ps-zebra-stripes): Renamed from ps-zebra-stripe.
Richard M. Stallman <rms@gnu.org>
parents: 19446
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
28153
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
3 ;; Copyright (C) 1993-2000 Free Software Foundation, Inc.
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4
23091
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
5 ;; Author: Jim Thompson (was <thompson@wg2.waii.com>)
23551
385d7c586ad2 Doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 23550
diff changeset
6 ;; Author: Jacques Duthen (was <duthen@cegelec-red.fr>)
23091
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
7 ;; Author: Vinicius Jose Latorre <vinicius@cpqd.com.br>
23551
385d7c586ad2 Doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 23550
diff changeset
8 ;; Author: Kenichi Handa <handa@etl.go.jp> (multi-byte characters)
385d7c586ad2 Doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 23550
diff changeset
9 ;; Maintainer: Kenichi Handa <handa@etl.go.jp> (multi-byte characters)
23091
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
10 ;; Maintainer: Vinicius Jose Latorre <vinicius@cpqd.com.br>
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
11 ;; Keywords: wp, print, PostScript
28979
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
12 ;; Time-stamp: <2000/05/12 19:56:11 vinicius>
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
13 ;; Version: 5.2.1
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
14
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
15 (defconst ps-print-version "5.2.1"
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
16 "ps-print.el, v 5.2.1 <2000/05/12 vinicius>
16870
4a5fa29f79d6 (ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents: 16361
diff changeset
17
19485
eab8baa19dfa (ps-zebra-stripes): Renamed from ps-zebra-stripe.
Richard M. Stallman <rms@gnu.org>
parents: 19446
diff changeset
18 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
19 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
20 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
21
4a5fa29f79d6 (ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents: 16361
diff changeset
22 Please send all bug fixes and enhancements to
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
23 Vinicius Jose Latorre <vinicius@cpqd.com.br>.
16870
4a5fa29f79d6 (ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents: 16361
diff changeset
24 ")
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
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
28 ;; GNU Emacs is free software; you can redistribute it and/or modify
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
29 ;; it under the terms of the GNU General Public License as published by
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
30 ;; the Free Software Foundation; either version 2, or (at your option)
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
31 ;; any later version.
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
32
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
33 ;; GNU Emacs is distributed in the hope that it will be useful,
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
34 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
35 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
36 ;; GNU General Public License for more details.
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
37
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
38 ;; You should have received a copy of the GNU General Public License
14169
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 14040
diff changeset
39 ;; along with GNU Emacs; see the file COPYING. If not, write to the
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 14040
diff changeset
40 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 14040
diff changeset
41 ;; Boston, MA 02111-1307, USA.
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
42
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
43 ;;; Commentary:
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
44
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
45 ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
46 ;;
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
47 ;; About ps-print
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
48 ;; --------------
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
49 ;;
27161
0a2452a20c74 ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 26883
diff changeset
50 ;; This package provides printing of Emacs buffers on PostScript printers;
0a2452a20c74 ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 26883
diff changeset
51 ;; the buffer's bold and italic text attributes are preserved in the printer
0a2452a20c74 ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 26883
diff changeset
52 ;; output. ps-print is intended for use with Emacs or Lucid Emacs, together
0a2452a20c74 ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 26883
diff changeset
53 ;; with a fontifying package such as font-lock or hilit.
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
54 ;;
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
55 ;; ps-print uses the same face attributes defined through font-lock or hilit
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
56 ;; to print a PostScript file, but some faces are better seeing on the screen
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
57 ;; than on paper, specially when you have a black/white PostScript printer.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
58 ;;
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
59 ;; 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
60 ;; 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
61 ;; 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
62 ;; 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
63 ;;
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
64 ;;
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
65 ;; Using ps-print
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
66 ;; --------------
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
67 ;;
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
68 ;; ps-print provides eight commands for generating PostScript images
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
69 ;; of Emacs buffers:
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
70 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
71 ;; ps-print-buffer
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
72 ;; ps-print-buffer-with-faces
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
73 ;; ps-print-region
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
74 ;; ps-print-region-with-faces
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
75 ;; ps-spool-buffer
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
76 ;; ps-spool-buffer-with-faces
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
77 ;; ps-spool-region
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
78 ;; ps-spool-region-with-faces
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
79 ;;
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
80 ;; These commands all perform essentially the same function: they
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
81 ;; generate PostScript images suitable for printing on a PostScript
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
82 ;; printer or displaying with GhostScript. These commands are
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
83 ;; collectively referred to as "ps-print- commands".
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
84 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
85 ;; 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
86 ;; PostScript image is sent to the printer:
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
87 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
88 ;; print - The PostScript image is immediately sent to the
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
89 ;; printer;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
90 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
91 ;; spool - The PostScript image is saved temporarily in an
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
92 ;; Emacs buffer. Many images may be spooled locally
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
93 ;; before printing them. To send the spooled images
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
94 ;; to the printer, use the command `ps-despool'.
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
95 ;;
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
96 ;; The spooling mechanism was designed for printing lots of small
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
97 ;; files (mail messages or netnews articles) to save paper that would
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
98 ;; otherwise be wasted on banner pages, and to make it easier to find
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
99 ;; your output at the printer (it's easier to pick up one 50-page
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
100 ;; printout than to find 50 single-page printouts).
19879
87952270ceeb (ps-emacs-face-kind-p): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents: 19843
diff changeset
101 ;;
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
102 ;; ps-print has a hook in the `kill-emacs-hook' so that you won't
14040
187735b53d52 Comment fixes.
Karl Heuer <kwzh@gnu.org>
parents: 13886
diff changeset
103 ;; accidentally quit from Emacs while you have unprinted PostScript
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
104 ;; waiting in the spool buffer. If you do attempt to exit with
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
105 ;; spooled PostScript, you'll be asked if you want to print it, and if
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
106 ;; you decline, you'll be asked to confirm the exit; this is modeled
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
107 ;; on the confirmation that Emacs uses for modified buffers.
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
108 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
109 ;; The word "buffer" or "region" in the command name determines how
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
110 ;; much of the buffer is printed:
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
111 ;;
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
112 ;; buffer - Print the entire buffer.
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
113 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
114 ;; region - Print just the current region.
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
115 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
116 ;; The -with-faces suffix on the command name means that the command
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
117 ;; will include font, color, and underline information in the
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
118 ;; PostScript image, so the printed image can look as pretty as the
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
119 ;; buffer. The ps-print- commands without the -with-faces suffix
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
120 ;; don't include font, color, or underline information; images printed
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
121 ;; with these commands aren't as pretty, but are faster to generate.
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
122 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
123 ;; Two ps-print- command examples:
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
124 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
125 ;; ps-print-buffer - print the entire buffer,
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
126 ;; without font, color, or
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
127 ;; underline information, and
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
128 ;; send it immediately to the
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
129 ;; printer.
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
130 ;;
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
131 ;; ps-spool-region-with-faces - print just the current region;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
132 ;; include font, color, and
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
133 ;; underline information, and
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
134 ;; spool the image in Emacs to
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
135 ;; send to the printer later.
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
136 ;;
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 ;; 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
139 ;; -----------------
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
140 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
141 ;; To print your buffer, type
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
142 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
143 ;; M-x ps-print-buffer
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
144 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
145 ;; or substitute one of the other seven ps-print- commands. The
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
146 ;; command will generate the PostScript image and print or spool it as
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
147 ;; specified. By giving the command a prefix argument
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
148 ;;
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
149 ;; C-u M-x ps-print-buffer
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
150 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
151 ;; it will save the PostScript image to a file instead of sending it
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
152 ;; to the printer; you will be prompted for the name of the file to
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
153 ;; save the image to. The prefix argument is ignored by the commands
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
154 ;; that spool their images, but you may save the spooled images to a
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
155 ;; file by giving a prefix argument to `ps-despool':
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
156 ;;
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
157 ;; C-u M-x ps-despool
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
158 ;;
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
159 ;; When invoked this way, `ps-despool' will prompt you for the name of
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
160 ;; the file to save to.
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
161 ;;
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
162 ;; Any of the `ps-print-' commands can be bound to keys; I recommend
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
163 ;; binding `ps-spool-buffer-with-faces', `ps-spool-region-with-faces',
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
164 ;; and `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
165 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
166 ;; (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
167 ;; (global-set-key '(shift f22) 'ps-spool-region-with-faces)
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
168 ;; (global-set-key '(control f22) 'ps-despool)
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
169 ;;
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
170 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
171 ;; 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
172 ;; ---------------------
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
173 ;;
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
174 ;; The variables `ps-lpr-command' and `ps-lpr-switches' determine what
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
175 ;; command is used to send the PostScript images to the printer, and
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
176 ;; what arguments to give the command. These are analogous to
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
177 ;; `lpr-command' and `lpr-switches'.
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
178 ;;
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
179 ;; 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
180 ;; 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
181 ;;
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
182 ;; 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
183 ;; printing PostScript files.
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
184 ;;
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
185 ;; NOTE: `ps-lpr-command' and `ps-lpr-switches' take their initial values
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
186 ;; from the variables `lpr-command' and `lpr-switches'. If you have
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
187 ;; `lpr-command' set to invoke a pretty-printer such as `enscript',
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
188 ;; then ps-print won't work properly. `ps-lpr-command' must name
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
189 ;; a program 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
190 ;; `ps-printer-name' takes its initial value from the variable
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
191 ;; `printer-name'.
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
192 ;;
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
193 ;; 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
194 ;; region on a PostScript printer.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
195 ;; 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
196 ;; and the sixth arguments are both nil.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
197 ;;
28979
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
198 ;; If you're using Emacs for Windows 95/98/NT or MS-DOS, don't forget to
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
199 ;; customize the following variables: `ps-printer-name', `ps-lpr-command',
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
200 ;; `ps-lpr-switches' and `ps-spool-config'. See these variables documentation
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
201 ;; in the code or by 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
202 ;;
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
203 ;;
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
204 ;; The Page Layout
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
205 ;; ---------------
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
206 ;;
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
207 ;; 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
208 ;; 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
209 ;; 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
210 ;;
28760
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
211 ;; 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
212 ;; 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
213 ;; `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
214 ;; `b5'.
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
215 ;;
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
216 ;; 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
217 ;; 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
218 ;; 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
219 ;;
28760
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
220 ;; In landscape mode, the text is NOT scaled: you may print 70 lines in portrait
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
221 ;; mode and only 50 lines in landscape mode. The margins represent margins in
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
222 ;; the printed paper: the top margin is the margin between the top of the page
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
223 ;; and the printed header, whatever the orientation is.
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
224 ;;
28760
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
225 ;; 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
226 ;; 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
227 ;; You can use:
28760
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
228 ;; - (the standard) one column portrait mode.
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
229 ;; - (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
230 ;; but also:
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
231 ;; - 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
232 ;; - multi-column portrait or landscape mode.
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
233 ;;
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
234 ;; The variable `ps-print-upside-down' determines other orientation for printing
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
235 ;; page: nil means `normal' printing, non-nil means `upside-down' printing. The
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
236 ;; default value is nil (`normal' printing).
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
237 ;;
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
238 ;; 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
239 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
240 ;;
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
241 ;; Horizontal layout
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
242 ;; -----------------
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
243 ;;
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
244 ;; 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
245 ;; `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
246 ;; as follows:
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
247 ;;
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
248 ;; ------------------------------------------
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
249 ;; | | | | | | | |
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
250 ;; | 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
251 ;; | | | | | | | |
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
252 ;; ------------------------------------------
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
253 ;;
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
254 ;; 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
255 ;; 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
256 ;; 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
257 ;;
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
258 ;;
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
259 ;; Vertical layout
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
260 ;; ---------------
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
261 ;;
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
262 ;; The vertical 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
263 ;; `ps-bottom-margin' `ps-top-margin' `ps-header-offset'
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
264 ;; as follows:
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
265 ;;
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
266 ;; |--------| |--------|
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
267 ;; | tm | | tm |
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
268 ;; |--------| |--------|
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
269 ;; | header | | |
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
270 ;; |--------| | |
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
271 ;; | ho | | |
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
272 ;; |--------| or | text |
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
273 ;; | | | |
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
274 ;; | text | | |
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
275 ;; | | | |
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
276 ;; |--------| |--------|
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
277 ;; | bm | | bm |
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
278 ;; |--------| |--------|
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
279 ;;
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
280 ;; If `ps-print-header' is nil, `ps-header-offset' is not relevant.
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
281 ;; The margins represent margins in the printed paper:
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
282 ;; the top margin is the margin between the top of the page
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
283 ;; and the printed header, whatever the orientation is.
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
284 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
285 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
286 ;; Headers
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
287 ;; -------
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
288 ;;
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
289 ;; ps-print can print headers at the top of each column or at the top
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
290 ;; of each page; the default headers contain the following four items:
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
291 ;; on the left, the name of the buffer and, if the buffer is visiting
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
292 ;; a file, the file's directory; on the right, the page number and
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
293 ;; date of printing. The default headers look something like this:
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
294 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
295 ;; ps-print.el 1/21
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
296 ;; /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
297 ;;
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
298 ;; When printing on duplex printers, left and right are reversed so
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
299 ;; that the page numbers are toward the outside (cf. `ps-spool-duplex').
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 ;; Headers are configurable:
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
302 ;; 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
303 ;; 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
304 ;; set `ps-print-header-frame' to nil.
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
305 ;;
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
306 ;; To print only one header at the top of each page,
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
307 ;; set `ps-print-only-one-header' to t.
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
308 ;;
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
309 ;; The font family and size of text in the header are determined
19879
87952270ceeb (ps-emacs-face-kind-p): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents: 19843
diff changeset
310 ;; by the 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
311 ;; `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
312 ;;
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
313 ;; The variable `ps-header-line-pad' determines the portion of a header
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
314 ;; title line height to insert between the header frame and the text
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
315 ;; it contains, both in the vertical and horizontal directions:
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
316 ;; .5 means half a line.
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
317
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
318 ;; Page numbers are printed in `n/m' format, indicating page n of m pages;
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
319 ;; to omit the total page count and just print the page number,
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
320 ;; set `ps-show-n-of-n' to nil.
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
321 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
322 ;; The amount of information in the header can be changed by changing
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
323 ;; the number of lines. To show less, set `ps-header-lines' to 1, and
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
324 ;; the header will show only the buffer name and page number. To show
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
325 ;; more, set `ps-header-lines' to 3, and the header will show the time of
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
326 ;; printing below the date.
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
327 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
328 ;; To change the content of the headers, change the variables
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
329 ;; `ps-left-header' and `ps-right-header'.
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
330 ;; These variables are lists, specifying top-to-bottom the text
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
331 ;; to display on the left or right side of the header.
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
332 ;; Each element of the list should be a string or a symbol.
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
333 ;; Strings are inserted directly into the PostScript arrays,
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
334 ;; and should contain the PostScript string delimiters '(' and ')'.
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
335 ;;
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
336 ;; Symbols in the header format lists can either represent functions
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
337 ;; or variables. Functions are called, and should return a string to
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
338 ;; show in the header. Variables should contain strings to display in
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
339 ;; the header. In either case, function or variable, the PostScript
14040
187735b53d52 Comment fixes.
Karl Heuer <kwzh@gnu.org>
parents: 13886
diff changeset
340 ;; string delimiters are added by ps-print, and should not be part of
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
341 ;; the returned value.
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
342 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
343 ;; 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
344 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
345 ;; Moe
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
346 ;; Larry
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
347 ;; Curly
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
348 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
349 ;; where we have a function to return "Moe"
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
350 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
351 ;; (defun moe-func ()
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
352 ;; "Moe")
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
353 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
354 ;; a variable specifying "Larry"
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
355 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
356 ;; (setq larry-var "Larry")
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
357 ;;
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
358 ;; and a literal for "Curly". Here's how `ps-left-header' should be
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
359 ;; set:
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
360 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
361 ;; (setq ps-left-header (list 'moe-func 'larry-var "(Curly)"))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
362 ;;
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
363 ;; Note that Curly has the PostScript string delimiters inside his
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
364 ;; quotes -- those aren't misplaced lisp delimiters!
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
365 ;;
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
366 ;; Without them, PostScript would attempt to call the undefined
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
367 ;; function Curly, which would result in a PostScript error.
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
368 ;;
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
369 ;; Since most printers don't report PostScript errors except by
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
370 ;; aborting the 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
371 ;;
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
372 ;; Consider yourself warned!
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
373 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
374 ;;
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
375 ;; PostScript Prologue Header
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
376 ;; --------------------------
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
377 ;;
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
378 ;; 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
379 ;; 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
380 ;;
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
381 ;; `ps-print-prologue-header' may be a string or a symbol function which returns
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
382 ;; a string. Note that this string is inserted on PostScript prologue header
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
383 ;; 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
384 ;; 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
385 ;;
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
386 ;; 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
387 ;;
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
388 ;; 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
389 ;; 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
390 ;; "%%+" 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
391 ;; 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
392 ;;
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
393 ;; (setq ps-print-prologue-header
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
394 ;; "%%+ 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
395 ;;
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
396 ;; The duplex requirement is inserted by ps-print (see section Duplex Printers).
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
397 ;;
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
398 ;; 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
399 ;;
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
400 ;; 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
401 ;; 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
402 ;; Adobe Systems Incorporated
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
403 ;; 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
404 ;;
28153
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
405 ;; 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
406 ;; all generated prologue code by setting the variable
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
407 ;; `ps-user-defined-prologue'.
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
408 ;;
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
409 ;; `ps-user-defined-prologue' may be a string or a symbol function which returns
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
410 ;; a string. Note that this string is inserted after `ps-adobe-tag' and
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
411 ;; PostScript prologue comments, and before ps-print PostScript prologue code
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
412 ;; section. That is, this string is inserted after error handler initialization
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
413 ;; and before ps-print settings.
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
414 ;;
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
415 ;; By default `ps-user-defined-prologue' is nil.
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
416 ;;
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
417 ;; It's recommended to initiate and terminate the string with "\n".
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
418 ;;
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
419 ;; It's strongly recommended only insert PostScript code and/or comments
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
420 ;; specific 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
421 ;; initialization that only your printing system needs.
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
422 ;;
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
423 ;; 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
424 ;; ps-print handles this in a suitable way.
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
425 ;;
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
426 ;; For more information about PostScript, see:
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
427 ;; PostScript Language Reference Manual (2nd edition)
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
428 ;; Adobe Systems Incorporated
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
429 ;;
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
430 ;;
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
431 ;; PostScript Error Handler
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
432 ;; ------------------------
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
433 ;;
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
434 ;; 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
435 ;;
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
436 ;; 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
437 ;; message should be sent.
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
438 ;;
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
439 ;; Valid values are:
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
440 ;;
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
441 ;; 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
442 ;;
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
443 ;; 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
444 ;; This is the default value.
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
445 ;;
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
446 ;; 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
447 ;; 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
448 ;; 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
449 ;; 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
450 ;; the system to you.
28153
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
451 ;;
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
452 ;; 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
453 ;; send back the error message to printing system.
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
454 ;;
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
455 ;; Any other value is treated as `paper'.
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
456 ;;
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
457 ;;
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
458 ;; Duplex Printers
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
459 ;; ---------------
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
460 ;;
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
461 ;; 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
462 ;; paper), set `ps-spool-duplex' to t.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
463 ;; 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
464 ;; correct side of the paper.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
465 ;;
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
466 ;; The variable `ps-spool-config' specifies who is the responsable for setting
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
467 ;; duplex and page size switches. Valid values are:
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
468 ;;
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
469 ;; 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
470 ;; 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
471 ;; printing for your printer.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
472 ;;
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
473 ;; 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
474 ;; setpagedevice PostScript operator.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
475 ;;
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
476 ;; 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
477 ;; the setpagedevice PostScript operator.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
478 ;;
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
479 ;; Any other value is treated as nil.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
480 ;;
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
481 ;; The default value is `lpr-switches'.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
482 ;;
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
483 ;; 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
484 ;; 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
485 ;; setpagedevice affects zebra stripes; on other printers,
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
486 ;; setpagedevice affects the left margin.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
487 ;; 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
488 ;; specified by setpagedevice, your printing will be aborted.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
489 ;; 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
490 ;; `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
491 ;; 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
492 ;;
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
493 ;; 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
494 ;; sides of a sheet are oriented with respect to each other. If
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
495 ;; `ps-spool-tumble' is nil, produces output suitable for binding on the left or
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
496 ;; right. If `ps-spool-tumble' is non-nil, produces output suitable for binding
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
497 ;; at the top or bottom. It has effect only when `ps-spool-duplex' is non-nil.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
498 ;; The default value is nil.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
499 ;;
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
500 ;; Some printer system prints a header page and forces the first page be printed
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
501 ;; on header page back, when using duplex. If your printer system has this
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
502 ;; behavior, set variable `ps-banner-page-when-duplexing' to t.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
503 ;;
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
504 ;; When `ps-banner-page-when-duplexing' is non-nil means the very first page is
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
505 ;; skipped. It's like the very first character of buffer (or region) is ^L
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
506 ;; (\014).
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
507 ;;
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
508 ;; The default for `ps-banner-page-when-duplexing' is nil (*don't* skip the very
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
509 ;; first page).
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
510 ;;
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
511 ;;
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
512 ;; N-up Printing
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
513 ;; -------------
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
514 ;;
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
515 ;; 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
516 ;; 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
517 ;;
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
518 ;; NOTE: some PostScript printer may crash printing if `ps-n-up-printing' is set
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
519 ;; to a high value (for example, 23). If this happens, set a lower value.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
520 ;;
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
521 ;; 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
522 ;; 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
523 ;; or 28.35 points).
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
524 ;;
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
525 ;; If variable `ps-n-up-border-p' is non-nil a border is drawn around each page.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
526 ;; The default is t.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
527 ;;
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
528 ;; 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
529 ;; 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
530 ;; filling example using a 3x4 page matrix:
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
531 ;;
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
532 ;; 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
533 ;; 5 6 7 8 5 6 7 8
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
534 ;; 9 10 11 12 1 2 3 4
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
535 ;;
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
536 ;; 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
537 ;; 8 7 6 5 8 7 6 5
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
538 ;; 12 11 10 9 4 3 2 1
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
539 ;;
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
540 ;; 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
541 ;; 2 5 8 11 2 5 8 11
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
542 ;; 3 6 9 12 1 4 7 10
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
543 ;;
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
544 ;; 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
545 ;; 11 8 5 2 11 8 5 2
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
546 ;; 12 9 6 3 10 7 4 1
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
547 ;;
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
548 ;; Any other value is treated as left-top.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
549 ;;
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
550 ;; 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
551 ;;
19879
87952270ceeb (ps-emacs-face-kind-p): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents: 19843
diff changeset
552 ;;
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
553 ;; Control And 8-bit Characters
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
554 ;; ----------------------------
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
555 ;;
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
556 ;; 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
557 ;; 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
558 ;; 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
559 ;;
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
560 ;; 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
561 ;;
23307
5d6530954ece Skip invisible overlay.
Karl Heuer <kwzh@gnu.org>
parents: 23273
diff changeset
562 ;; 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
563 ;; any control or non-ASCII character. Control characters are
5d6530954ece Skip invisible overlay.
Karl Heuer <kwzh@gnu.org>
parents: 23273
diff changeset
564 ;; 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
565 ;; octal encoding.
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
566 ;;
23307
5d6530954ece Skip invisible overlay.
Karl Heuer <kwzh@gnu.org>
parents: 23273
diff changeset
567 ;; 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
568 ;; 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
569 ;; 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
570 ;; the current font.
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
571 ;;
23307
5d6530954ece Skip invisible overlay.
Karl Heuer <kwzh@gnu.org>
parents: 23273
diff changeset
572 ;; 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
573 ;; 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
574 ;; the current font.
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
575 ;;
23307
5d6530954ece Skip invisible overlay.
Karl Heuer <kwzh@gnu.org>
parents: 23273
diff changeset
576 ;; 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
577 ;; current font.
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
578 ;;
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
579 ;; Any other value is treated as nil.
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
580 ;;
21955
c4de7c7bc14a (ps-header-title-font-size): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 21954
diff changeset
581 ;; The default is `control-8-bit'.
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
582 ;;
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
583 ;; 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
584 ;;
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
585 ;;
23551
385d7c586ad2 Doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 23550
diff changeset
586 ;; Printing Multi-byte Buffer
385d7c586ad2 Doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 23550
diff changeset
587 ;; --------------------------
385d7c586ad2 Doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 23550
diff changeset
588 ;;
23892
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
589 ;; See ps-mule.el for documentation.
23091
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
590 ;;
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
591 ;;
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
592 ;; Line Number
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
593 ;; -----------
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
594 ;;
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
595 ;; 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
596 ;; 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
597 ;;
28760
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
598 ;; The variable `ps-line-number-step' specifies the interval that line number is
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
599 ;; printed. For example, if `ps-line-number-step' is set to 2, the printing
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
600 ;; will look like:
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
601 ;;
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
602 ;; 1 one line
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
603 ;; one line
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
604 ;; 3 one line
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
605 ;; one line
28979
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
606 ;; 5 one line
28760
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
607 ;; one line
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
608 ;; ...
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
609 ;;
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
610 ;; Valid values are:
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
611 ;;
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
612 ;; 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
613 ;; 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
614 ;; value 1.
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
615 ;;
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
616 ;; `zebra' specifies that only the line number of the first line in a zebra
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
617 ;; stripe is to be printed.
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
618 ;;
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
619 ;; Any other value is treated as `zebra'.
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
620 ;; 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
621 ;;
28979
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
622 ;; 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
623 ;; interval given by `ps-line-number-step'. For example, if
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
624 ;; `ps-line-number-step' is set to 3 and `ps-line-number-start' is set to 3, the
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
625 ;; printing will look like:
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
626 ;;
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
627 ;; one line
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
628 ;; one line
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
629 ;; 3 one line
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
630 ;; one line
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
631 ;; one line
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
632 ;; 6 one line
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
633 ;; one line
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
634 ;; one line
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
635 ;; 9 one line
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
636 ;; one line
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
637 ;; ...
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
638 ;;
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
639 ;; 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
640 ;;
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
641 ;; * 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
642 ;; of `ps-line-number-step' inclusive.
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
643 ;;
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
644 ;; * 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
645 ;; value of `ps-zebra-strip-height' inclusive.
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
646 ;;
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
647 ;; The default value is 1, so the line number of the first line of each interval
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
648 ;; is printed.
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
649 ;;
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
650 ;;
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
651 ;; Zebra Stripes
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
652 ;; -------------
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
653 ;;
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
654 ;; Zebra stripes are a kind of background that appear "underneath" the text
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
655 ;; and 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
656 ;;
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
657 ;; XXXXXXXXXXXXXXXXXXXXXXXX
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
658 ;; XXXXXXXXXXXXXXXXXXXXXXXX
19485
eab8baa19dfa (ps-zebra-stripes): Renamed from ps-zebra-stripe.
Richard M. Stallman <rms@gnu.org>
parents: 19446
diff changeset
659 ;; XXXXXXXXXXXXXXXXXXXXXXXX
eab8baa19dfa (ps-zebra-stripes): Renamed from ps-zebra-stripe.
Richard M. Stallman <rms@gnu.org>
parents: 19446
diff changeset
660 ;;
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
661 ;;
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
662 ;;
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
663 ;; XXXXXXXXXXXXXXXXXXXXXXXX
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
664 ;; XXXXXXXXXXXXXXXXXXXXXXXX
19485
eab8baa19dfa (ps-zebra-stripes): Renamed from ps-zebra-stripe.
Richard M. Stallman <rms@gnu.org>
parents: 19446
diff changeset
665 ;; XXXXXXXXXXXXXXXXXXXXXXXX
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
666 ;;
19879
87952270ceeb (ps-emacs-face-kind-p): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents: 19843
diff changeset
667 ;; 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
668 ;; 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
669 ;;
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
670 ;; The height, in lines, of each rectangle is controlled by
19485
eab8baa19dfa (ps-zebra-stripes): Renamed from ps-zebra-stripe.
Richard M. Stallman <rms@gnu.org>
parents: 19446
diff changeset
671 ;; the variable `ps-zebra-stripe-height', which is 3 by default.
eab8baa19dfa (ps-zebra-stripes): Renamed from ps-zebra-stripe.
Richard M. Stallman <rms@gnu.org>
parents: 19446
diff changeset
672 ;; The distance between stripes equals the height of a stripe.
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
673 ;;
19787
4ea00387fb08 (ps-setup): ps-zebra-stripe => ps-zebra-stripes.
Richard M. Stallman <rms@gnu.org>
parents: 19773
diff changeset
674 ;; 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
675 ;; 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
676 ;;
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
677 ;; 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
678 ;; 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
679 ;; 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
680 ;; 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
681 ;; 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
682 ;;
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
683 ;; 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
684 ;;
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
685 ;;
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
686 ;; Hooks
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
687 ;; -----
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
688 ;;
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
689 ;; 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
690 ;;
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
691 ;; `ps-print-hook'
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
692 ;; 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
693 ;; place to initialize ps-print global data.
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
694 ;; 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
695 ;;
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
696 ;; `ps-print-begin-sheet-hook'
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
697 ;; 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
698 ;; 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
699 ;; evaluated.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
700 ;;
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
701 ;; `ps-print-begin-page-hook'
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
702 ;; It is evaluated on each beginning of page, except in the beginning
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
703 ;; of 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
704 ;;
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
705 ;; `ps-print-begin-column-hook'
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
706 ;; It is evaluated on each beginning of column, except in the beginning
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
707 ;; of column that `ps-print-begin-page-hook' is evaluated or that
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
708 ;; `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
709 ;;
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
710 ;;
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
711 ;; Font Managing
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
712 ;; -------------
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
713 ;;
24414
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
714 ;; 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
715 ;; `ps-font-info-database' contains information for a list of font families
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
716 ;; (currently mainly `Courier' `Helvetica' `Times' `Palatino' `Helvetica-Narrow'
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
717 ;; `NewCenturySchlbk'). Each font family contains the font names for standard,
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
718 ;; bold, italic and bold-italic characters, a reference size (usually 10) and
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
719 ;; the corresponding line height, width of a space and average character width.
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
720 ;;
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
721 ;; 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
722 ;; 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
723 ;; 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
724 ;; currently available font families.
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
725 ;;
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
726 ;; The variable `ps-font-size' determines the size (in points) of the font for
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
727 ;; ordinary text, when generating PostScript. Its value is a float or a cons of
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
728 ;; floats which has the following form:
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
729 ;;
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
730 ;; (LANDSCAPE-SIZE . PORTRAIT-SIZE)
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
731 ;;
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
732 ;; 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
733 ;; 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
734 ;;
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
735 ;; 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
736 ;; 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
737 ;;
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
738 ;; The variable `ps-header-title-font-size' determines the font size, in points,
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
739 ;; 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
740 ;;
10738
e7d5b119b583 (ps-print-version): Add caveat about version number.
Richard M. Stallman <rms@gnu.org>
parents: 10683
diff changeset
741 ;;
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
742 ;; 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
743 ;; ------------------------
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
744 ;;
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
745 ;; To use a new font family, you MUST first teach ps-print
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
746 ;; this font, i.e., add its information to `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
747 ;; otherwise ps-print cannot correctly place line and page breaks.
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
748 ;;
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
749 ;; For example, assuming `Helvetica' is unknown,
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
750 ;; you first need to do the following ONLY ONCE:
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
751 ;;
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
752 ;; - 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
753 ;; - 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
754 ;; - open this file and find the line:
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
755 ;; `% 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
756 ;; - delete the leading `%' (which is the PostScript comment character)
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
757 ;; - replace in this line `Courier' by the new font (say `Helvetica')
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
758 ;; to get the line:
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
759 ;; `3 cm 20 cm moveto 10 /Helvetica ReportFontInfo showpage'
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
760 ;; - 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
761 ;; 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
762 ;;
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
763 ;; 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
764 ;; 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
765 ;;
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
766 ;; - 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
767 ;; (setq ps-font-info-database
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
768 ;; (append
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
769 ;; '((Helvetica ; the family key
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
770 ;; (fonts (normal . "Helvetica")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
771 ;; (bold . "Helvetica-Bold")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
772 ;; (italic . "Helvetica-Oblique")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
773 ;; (bold-italic . "Helvetica-BoldOblique"))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
774 ;; (size . 10.0)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
775 ;; (line-height . 11.56)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
776 ;; (space-width . 2.78)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
777 ;; (avg-char-width . 5.09243)))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
778 ;; 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
779 ;; - 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
780 ;; (setq ps-font-family 'Helvetica)
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
781 ;; - if you want to use this family in another emacs session, you must
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
782 ;; put into your `~/.emacs':
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
783 ;; (require 'ps-print)
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
784 ;; (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
785 ;; 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
786 ;; (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
787 ;; 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
788 ;; (add-hook 'ps-print-hook
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
789 ;; '(lambda ()
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
790 ;; (or (assq 'Helvetica ps-font-info-database)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
791 ;; (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
792 ;;
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
793 ;; 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
794 ;; (my-mixed-family
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
795 ;; (fonts (normal . "Courier-Bold")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
796 ;; (bold . "Helvetica")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
797 ;; (italic . "Zapf-Chancery-MediumItalic")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
798 ;; (bold-italic . "NewCenturySchlbk-BoldItalic")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
799 ;; (w3-table-hack-x-face . "LineDrawNormal"))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
800 ;; (size . 10.0)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
801 ;; (line-height . 10.55)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
802 ;; (space-width . 6.0)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
803 ;; (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
804 ;;
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
805 ;; 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
806 ;; (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
807 ;;
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
808 ;; Note that on above example the `w3-table-hack-x-face' entry refers to
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
809 ;; a face symbol, so when printing this face it'll be used the font
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
810 ;; `LineDrawNormal'. If the face `w3-table-hack-x-face' is remapped to
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
811 ;; use bold and/or italic attribute, the corresponding entry (bold, italic
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
812 ;; or bold-italic) will be used instead of `w3-table-hack-x-face' entry.
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
813 ;;
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
814 ;; 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
815 ;; example could also be written:
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
816 ;; (my-mixed-family
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
817 ;; (size . 10.0)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
818 ;; (fonts (w3-table-hack-x-face . "LineDrawNormal")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
819 ;; (bold . "Helvetica")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
820 ;; (bold-italic . "NewCenturySchlbk-BoldItalic")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
821 ;; (italic . "Zapf-Chancery-MediumItalic")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
822 ;; (normal . "Courier-Bold"))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
823 ;; (avg-char-width . 6.0)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
824 ;; (space-width . 6.0)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
825 ;; (line-height . 10.55))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
826 ;;
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
827 ;; 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
828 ;; entry order be used.
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
829 ;;
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
830 ;; 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
831 ;; 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
832 ;; % 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
833 ;;
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
834 ;; The PostScript file should be sent to YOUR PostScript printer.
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
835 ;; If you send it to ghostscript or to another PostScript printer,
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
836 ;; you may get slightly different results.
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
837 ;; Anyway, as ghostscript fonts are autoload, you won't get
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
838 ;; much font info.
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
839 ;;
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
840 ;;
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
841 ;; 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
842 ;; -----------------------------
10738
e7d5b119b583 (ps-print-version): Add caveat about version number.
Richard M. Stallman <rms@gnu.org>
parents: 10683
diff changeset
843 ;;
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
844 ;; The ps-print-*-with-faces commands attempt to determine which faces
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
845 ;; should be printed in bold or italic, but their guesses aren't
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
846 ;; always right. For example, you might want to map colors into faces
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
847 ;; so that blue faces print in bold, and red faces in italic.
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
848 ;;
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
849 ;; It is possible to force ps-print to consider specific faces bold,
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
850 ;; italic or underline, no matter what font they are displayed in, by setting
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
851 ;; the variables `ps-bold-faces', `ps-italic-faces' and `ps-underlined-faces'.
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
852 ;; 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
853 ;; 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
854 ;; .emacs file:
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
855 ;;
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
856 ;; (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
857 ;; (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
858 ;; (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
859 ;;
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
860 ;; Faces like bold-italic that are both bold and italic should go in
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
861 ;; *both* lists.
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
862 ;;
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
863 ;; ps-print keeps internal lists of which fonts are bold and which are
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
864 ;; italic; these lists are built the first time you invoke ps-print.
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
865 ;; For the sake of efficiency, the lists are built only once; the same
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
866 ;; lists are referred in later invocations of ps-print.
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
867 ;;
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
868 ;; Because these lists are built only once, it's possible for them to
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
869 ;; get out of sync, if a face changes, or if new faces are added. To
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
870 ;; get the lists back in sync, you can set the variable
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
871 ;; `ps-build-face-reference' to t, and the lists will be rebuilt the
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
872 ;; next time ps-print is invoked. If you need that the lists always be
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
873 ;; rebuilt when ps-print is invoked, set the variable
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
874 ;; `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
875 ;;
28760
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
876 ;; 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
877 ;; 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
878 ;; be used. Valid values are:
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
879 ;;
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
880 ;; t always use face background color.
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
881 ;; nil never use face background color.
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
882 ;; (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
883 ;;
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
884 ;; Any other value will be treated as t.
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
885 ;; The default value is t.
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
886 ;;
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
887 ;;
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
888 ;; 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
889 ;; -----------------------------
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
890 ;;
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
891 ;; ps-print detects faces with foreground and background colors
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
892 ;; defined and embeds color information in the PostScript image.
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
893 ;; The default foreground and background colors are defined by the
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
894 ;; variables `ps-default-fg' and `ps-default-bg'.
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
895 ;; On black-and-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
896 ;; To turn off color output, set `ps-print-color-p' to nil.
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
897 ;;
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
898 ;;
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
899 ;; How Ps-Print Maps Faces
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
900 ;; -----------------------
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
901 ;;
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
902 ;; As ps-print uses PostScript to print buffers, it is possible to have
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
903 ;; other attributes associated with faces. So the new attributes used
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
904 ;; by ps-print are:
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
905 ;;
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
906 ;; 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
907 ;; 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
908 ;; shadow - text will have a shadow.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
909 ;; 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
910 ;; 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
911 ;;
19879
87952270ceeb (ps-emacs-face-kind-p): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents: 19843
diff changeset
912 ;; 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
913 ;;
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
914 ;; 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
915 ;; color and bold attribute:
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
916 ;;
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
917 ;; (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
918 ;;
19446
15ecd855fec8 (ps-print-face-extension-alist): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 19445
diff changeset
919 ;; If you want to use a new face, define it first with `defface',
15ecd855fec8 (ps-print-face-extension-alist): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 19445
diff changeset
920 ;; and then call `ps-extend-face' to specify how to print it.
15ecd855fec8 (ps-print-face-extension-alist): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 19445
diff changeset
921 ;;
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
922 ;;
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
923 ;; 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
924 ;; --------------------------------------------------
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
925 ;;
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
926 ;; 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
927 ;; 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
928 ;; 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
929 ;;
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
930 ;; 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
931 ;; 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
932 ;;
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
933 ;; 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
934 ;; `ps-print-background-image'.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
935 ;;
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
936 ;; 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
937 ;; "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
938 ;;
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
939 ;; (setq ps-print-background-text
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
940 ;; '(("preliminary")
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
941 ;; ("special"
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
942 ;; "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
943 ;; ; (upper left corner)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
944 ;; nil nil nil
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
945 ;; "PrintHeight neg PrintPageWidth atan" ; angle
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
946 ;; 5 (11 . 17)) ; page list
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
947 ;; ))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
948 ;;
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
949 ;; 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
950 ;; 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
951 ;; specify:
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
952 ;;
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
953 ;; (setq ps-print-background-image
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
954 ;; '(("~/images/EPS-image1.ps"
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
955 ;; "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
956 ;; ("~/images/EPS-image2.ps"
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
957 ;; "LeftMargin" "BottomMargin PrintHeight 2 div add" ; X and Y position
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
958 ;; ; (upper left corner)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
959 ;; nil nil nil
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
960 ;; 5 (11 . 17)) ; page list
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
961 ;; ))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
962 ;;
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
963 ;; 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
964 ;; is ignored.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
965 ;;
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
966 ;; The printing order is:
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
967 ;;
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
968 ;; 1. Print background color
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
969 ;; 2. Print zebra stripes
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
970 ;; 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
971 ;; 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
972 ;; 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
973 ;; 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
974 ;; 7. Print header
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
975 ;; 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
976 ;;
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
977 ;;
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
978 ;; Utilities
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
979 ;; ---------
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
980 ;;
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
981 ;; 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
982 ;;
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
983 ;; `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
984 ;;
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
985 ;; To avoid wrapping too many lines, you may want to adjust the
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
986 ;; left and right margins and the font size. On UN*X systems, do:
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
987 ;; 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
988 ;; to determine the longest lines of your file.
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
989 ;; Then, the command `ps-line-lengths' will give you the correspondence
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
990 ;; between a line length (number of characters) and the maximum font
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
991 ;; size which doesn't wrap such a line with the current ps-print setup.
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
992 ;;
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
993 ;; The commands `ps-nb-pages-buffer' and `ps-nb-pages-region' display
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
994 ;; the correspondence between a number of pages and the maximum font
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
995 ;; size which allow the number of lines of the current buffer or of
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
996 ;; its current region to fit in this number of pages.
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
997 ;;
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
998 ;; 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
999 ;; 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
1000 ;;
27161
0a2452a20c74 ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 26883
diff changeset
1001 ;; 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
1002 ;; ps-print options.
0a2452a20c74 ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 26883
diff changeset
1003 ;;
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1004 ;;
10738
e7d5b119b583 (ps-print-version): Add caveat about version number.
Richard M. Stallman <rms@gnu.org>
parents: 10683
diff changeset
1005 ;; New since version 1.5
e7d5b119b583 (ps-print-version): Add caveat about version number.
Richard M. Stallman <rms@gnu.org>
parents: 10683
diff changeset
1006 ;; ---------------------
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1007 ;;
10738
e7d5b119b583 (ps-print-version): Add caveat about version number.
Richard M. Stallman <rms@gnu.org>
parents: 10683
diff changeset
1008 ;; Color output capability.
e7d5b119b583 (ps-print-version): Add caveat about version number.
Richard M. Stallman <rms@gnu.org>
parents: 10683
diff changeset
1009 ;; 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
1010 ;; 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
1011 ;; Slightly faster.
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1012 ;; 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
1013 ;; 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
1014 ;;
e7d5b119b583 (ps-print-version): Add caveat about version number.
Richard M. Stallman <rms@gnu.org>
parents: 10683
diff changeset
1015 ;;
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1016 ;; 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
1017 ;; ---------------------
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1018 ;;
28153
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
1019 ;; [vinicius] 20000310 Vinicius Jose Latorre <vinicius@cpqd.com.br>
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
1020 ;;
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
1021 ;; PostScript error handler.
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
1022 ;; `ps-user-defined-prologue' and `ps-error-handler-message'.
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
1023 ;;
27161
0a2452a20c74 ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 26883
diff changeset
1024 ;; [vinicius] 991211 Vinicius Jose Latorre <vinicius@cpqd.com.br>
0a2452a20c74 ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 26883
diff changeset
1025 ;;
0a2452a20c74 ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 26883
diff changeset
1026 ;; `ps-print-customize'.
0a2452a20c74 ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 26883
diff changeset
1027 ;;
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1028 ;; [vinicius] 990703 Vinicius Jose Latorre <vinicius@cpqd.com.br>
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1029 ;;
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1030 ;; Better customization.
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
1031 ;; `ps-banner-page-when-duplexing' and `ps-zebra-color'.
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1032 ;;
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1033 ;; [vinicius] 990513 Vinicius Jose Latorre <vinicius@cpqd.com.br>
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1034 ;;
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1035 ;; N-up printing.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1036 ;; Hook: `ps-print-begin-sheet-hook'.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1037 ;;
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1038 ;; [keinichi] 990509 Kein'ichi Handa <handa@etl.go.jp>
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1039 ;;
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1040 ;; `ps-print-region-function'
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1041 ;;
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1042 ;; [vinicius] 990301 Vinicius Jose Latorre <vinicius@cpqd.com.br>
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1043 ;;
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1044 ;; PostScript tumble and setpagedevice.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1045 ;;
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
1046 ;; [vinicius] 980922 Vinicius Jose Latorre <vinicius@cpqd.com.br>
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
1047 ;;
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
1048 ;; PostScript prologue header comment insertion.
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
1049 ;; Skip invisible text better.
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
1050 ;;
23091
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
1051 ;; [keinichi] 980819 Kein'ichi Handa <handa@etl.go.jp>
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
1052 ;;
23551
385d7c586ad2 Doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 23550
diff changeset
1053 ;; Multi-byte buffer handling.
23091
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
1054 ;;
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1055 ;; [vinicius] 980306 Vinicius Jose Latorre <vinicius@cpqd.com.br>
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1056 ;;
23091
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
1057 ;; Skip invisible text.
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1058 ;;
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1059 ;; [vinicius] 971130 Vinicius Jose Latorre <vinicius@cpqd.com.br>
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1060 ;;
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1061 ;; Hooks: `ps-print-hook', `ps-print-begin-page-hook' and
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1062 ;; `ps-print-begin-column-hook'.
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1063 ;; Put one header per page over the columns.
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1064 ;; Better database font management.
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1065 ;; Better control characters handling.
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1066 ;;
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
1067 ;; [vinicius] 971121 Vinicius Jose Latorre <vinicius@cpqd.com.br>
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1068 ;;
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1069 ;; Dynamic evaluation at print time of `ps-lpr-switches'.
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1070 ;; Handle control characters.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1071 ;; Face remapping.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1072 ;; New face attributes.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1073 ;; Line number.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1074 ;; Zebra stripes.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1075 ;; Text and/or image on background.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1076 ;;
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1077 ;; [jack] 960517 Jacques Duthen <duthen@cegelec-red.fr>
10738
e7d5b119b583 (ps-print-version): Add caveat about version number.
Richard M. Stallman <rms@gnu.org>
parents: 10683
diff changeset
1078 ;;
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
1079 ;; Font family and float size for text and header.
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1080 ;; Landscape mode.
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1081 ;; Multiple columns.
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1082 ;; Tools for page setup.
10738
e7d5b119b583 (ps-print-version): Add caveat about version number.
Richard M. Stallman <rms@gnu.org>
parents: 10683
diff changeset
1083 ;;
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1084 ;;
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
1085 ;; Known bugs and limitations of ps-print
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1086 ;; --------------------------------------
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1087 ;;
11799
4a04c7799790 Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents: 10738
diff changeset
1088 ;; Although color printing will work in XEmacs 19.12, it doesn't work
4a04c7799790 Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents: 10738
diff changeset
1089 ;; well; in particular, bold or italic fonts don't print in the right
4a04c7799790 Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents: 10738
diff changeset
1090 ;; background color.
4a04c7799790 Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents: 10738
diff changeset
1091 ;;
4a04c7799790 Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents: 10738
diff changeset
1092 ;; 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
1093 ;;
10738
e7d5b119b583 (ps-print-version): Add caveat about version number.
Richard M. Stallman <rms@gnu.org>
parents: 10683
diff changeset
1094 ;; Automatic font-attribute detection doesn't work well, especially
10683
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
1095 ;; with hilit19 and older versions of get-create-face. Users having
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1096 ;; problems with auto-font detection should use the lists
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
1097 ;; `ps-italic-faces', `ps-bold-faces' and `ps-underlined-faces' and/or
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
1098 ;; turn off automatic detection by setting `ps-auto-font-detect' to nil.
10683
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
1099 ;;
11799
4a04c7799790 Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents: 10738
diff changeset
1100 ;; Automatic font-attribute detection doesn't work with XEmacs 19.12
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
1101 ;; in tty mode; use the lists `ps-italic-faces', `ps-bold-faces' and
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
1102 ;; `ps-underlined-faces' instead.
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1103 ;;
10683
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
1104 ;; Still too slow; could use some hand-optimization.
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1105 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1106 ;; Default background color isn't working.
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1107 ;;
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1108 ;; Faces are always treated as opaque.
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1109 ;;
27163
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
1110 ;; Epoch and Emacs 19 not supported. At all.
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1111 ;;
19879
87952270ceeb (ps-emacs-face-kind-p): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents: 19843
diff changeset
1112 ;; 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
1113 ;;
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1114 ;; `ps-nb-pages-buffer' and `ps-nb-pages-region' don't take care
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1115 ;; of folding lines.
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1116 ;;
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1117 ;;
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
1118 ;; 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
1119 ;; ----------------
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1120 ;;
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1121 ;; Avoid page break inside a paragraph.
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1122 ;; Add `ps-non-bold-faces' and `ps-non-italic-faces' (should be easy).
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1123 ;; Improve the memory management for big files (hard?).
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1124 ;; `ps-nb-pages-buffer' and `ps-nb-pages-region' should take care
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1125 ;; of folding lines.
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1126 ;;
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1127 ;;
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1128 ;; Acknowledgements
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1129 ;; ----------------
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1130 ;;
28979
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
1131 ;; 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
1132 ;; 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
1133 ;;
28760
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
1134 ;; 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
1135 ;; level 1 compatibility.
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
1136 ;;
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
1137 ;; Thanks to Colin Marquardt <colin.marquardt@usa.alcatel.com> for upside-down
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
1138 ;; and line number step suggestions.
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
1139 ;;
28153
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
1140 ;; Thanks to Klaus Berndl <klaus.berndl@sdm.de> for user defined PostScript
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
1141 ;; prologue code suggestion.
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
1142 ;;
23551
385d7c586ad2 Doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 23550
diff changeset
1143 ;; Thanks to Kein'ichi Handa <handa@etl.go.jp> for multi-byte buffer handling.
23138
14e74d2a49cb (ps-print-control-characters): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23091
diff changeset
1144 ;;
14e74d2a49cb (ps-print-control-characters): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23091
diff changeset
1145 ;; 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
1146 ;; empty columns.
14e74d2a49cb (ps-print-control-characters): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23091
diff changeset
1147 ;;
14e74d2a49cb (ps-print-control-characters): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23091
diff changeset
1148 ;; 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
1149 ;; last page.
14e74d2a49cb (ps-print-control-characters): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23091
diff changeset
1150 ;;
21954
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
1151 ;; 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
1152 ;; `ps-print-control-characters' variable documentation.
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
1153 ;;
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1154 ;; 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
1155 ;; database font management.
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1156 ;;
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1157 ;; 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
1158 ;; 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
1159 ;; region.
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1160 ;;
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1161 ;; 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
1162 ;; print time of `ps-lpr-switches'.
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1163 ;;
21954
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
1164 ;; 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
1165 ;; (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
1166 ;;
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1167 ;; Thanks to some suggestions on:
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1168 ;; * 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
1169 ;; * 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
1170 ;; * 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
1171 ;;
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
1172 ;; Thanks to Jacques Duthen <duthen@cegelec-red.fr> (Jack) for the 3.4 version
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
1173 ;; I started from. [vinicius]
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
1174 ;;
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1175 ;; Thanks to Jim Thompson <?@?> for the 2.8 version I started from.
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1176 ;; [jack]
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1177 ;;
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1178 ;; Thanks to Kevin Rodgers <kevinr@ihs.com> for adding support for
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1179 ;; color and the invisible property.
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1180 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1181 ;; Thanks to Avishai Yacobi, avishaiy@mcil.comm.mot.com, for writing
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1182 ;; the initial port to Emacs 19. His code is no longer part of
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1183 ;; ps-print, but his work is still appreciated.
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1184 ;;
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1185 ;; Thanks to Remi Houdaille and Michel Train, michel@metasoft.fdn.org,
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1186 ;; for adding underline support. Their code also is no longer part of
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1187 ;; ps-print, but their efforts are not forgotten.
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1188 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1189 ;; Thanks also to all of you who mailed code to add features to
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1190 ;; ps-print; although I didn't use your code, I still appreciate your
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1191 ;; sharing it with me.
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1192 ;;
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1193 ;; Thanks to all who mailed comments, encouragement, and criticism.
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1194 ;; Thanks also to all who responded to my survey; I had too many
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1195 ;; responses to reply to them all, but I greatly appreciate your
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1196 ;; interest.
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1197 ;;
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1198 ;; Jim
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1199 ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1200
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1201 ;;; Code:
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1202
16870
4a5fa29f79d6 (ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents: 16361
diff changeset
1203 (unless (featurep 'lisp-float-type)
4a5fa29f79d6 (ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents: 16361
diff changeset
1204 (error "`ps-print' requires floating point support"))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1205
26563
79f9edcc8bde Define mule funs without checking if mule package is
Kenichi Handa <handa@m17n.org>
parents: 26483
diff changeset
1206
23892
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
1207 ;; For Emacs 20.2 and the earlier version.
26563
79f9edcc8bde Define mule funs without checking if mule package is
Kenichi Handa <handa@m17n.org>
parents: 26483
diff changeset
1208
79f9edcc8bde Define mule funs without checking if mule package is
Kenichi Handa <handa@m17n.org>
parents: 26483
diff changeset
1209 (or (fboundp 'set-buffer-multibyte)
79f9edcc8bde Define mule funs without checking if mule package is
Kenichi Handa <handa@m17n.org>
parents: 26483
diff changeset
1210 (defun set-buffer-multibyte (arg)
79f9edcc8bde Define mule funs without checking if mule package is
Kenichi Handa <handa@m17n.org>
parents: 26483
diff changeset
1211 (setq enable-multibyte-characters arg)))
79f9edcc8bde Define mule funs without checking if mule package is
Kenichi Handa <handa@m17n.org>
parents: 26483
diff changeset
1212
79f9edcc8bde Define mule funs without checking if mule package is
Kenichi Handa <handa@m17n.org>
parents: 26483
diff changeset
1213 (or (fboundp 'string-as-unibyte)
79f9edcc8bde Define mule funs without checking if mule package is
Kenichi Handa <handa@m17n.org>
parents: 26483
diff changeset
1214 (defun string-as-unibyte (arg) arg))
79f9edcc8bde Define mule funs without checking if mule package is
Kenichi Handa <handa@m17n.org>
parents: 26483
diff changeset
1215
79f9edcc8bde Define mule funs without checking if mule package is
Kenichi Handa <handa@m17n.org>
parents: 26483
diff changeset
1216 (or (fboundp 'string-as-multibyte)
79f9edcc8bde Define mule funs without checking if mule package is
Kenichi Handa <handa@m17n.org>
parents: 26483
diff changeset
1217 (defun string-as-multibyte (arg) arg))
79f9edcc8bde Define mule funs without checking if mule package is
Kenichi Handa <handa@m17n.org>
parents: 26483
diff changeset
1218
79f9edcc8bde Define mule funs without checking if mule package is
Kenichi Handa <handa@m17n.org>
parents: 26483
diff changeset
1219 (or (fboundp 'charset-after)
79f9edcc8bde Define mule funs without checking if mule package is
Kenichi Handa <handa@m17n.org>
parents: 26483
diff changeset
1220 (defun charset-after (&optional arg)
79f9edcc8bde Define mule funs without checking if mule package is
Kenichi Handa <handa@m17n.org>
parents: 26483
diff changeset
1221 (char-charset (char-after arg))))
23892
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
1222
27161
0a2452a20c74 ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 26883
diff changeset
1223
28601
419ab8689a3f Check for line-beginning-position definition.
Gerd Moellmann <gerd@gnu.org>
parents: 28576
diff changeset
1224 (or (fboundp 'line-beginning-position)
419ab8689a3f Check for line-beginning-position definition.
Gerd Moellmann <gerd@gnu.org>
parents: 28576
diff changeset
1225 (defun line-beginning-position (&optional n)
419ab8689a3f Check for line-beginning-position definition.
Gerd Moellmann <gerd@gnu.org>
parents: 28576
diff changeset
1226 (save-excursion
419ab8689a3f Check for line-beginning-position definition.
Gerd Moellmann <gerd@gnu.org>
parents: 28576
diff changeset
1227 (and n (/= n 1) (forward-line (1- n)))
419ab8689a3f Check for line-beginning-position definition.
Gerd Moellmann <gerd@gnu.org>
parents: 28576
diff changeset
1228 (beginning-of-line)
419ab8689a3f Check for line-beginning-position definition.
Gerd Moellmann <gerd@gnu.org>
parents: 28576
diff changeset
1229 (point))))
419ab8689a3f Check for line-beginning-position definition.
Gerd Moellmann <gerd@gnu.org>
parents: 28576
diff changeset
1230
419ab8689a3f Check for line-beginning-position definition.
Gerd Moellmann <gerd@gnu.org>
parents: 28576
diff changeset
1231
28760
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
1232 (defconst ps-windows-system
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
1233 (memq system-type '(win32 w32 mswindows ms-dos windows-nt)))
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
1234 (defconst ps-lp-system
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
1235 (memq system-type '(usq-unix-v dgux hpux irix)))
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
1236
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
1237
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1238 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1239 ;; User Variables:
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1240
27161
0a2452a20c74 ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 26883
diff changeset
1241
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1242 ;;; 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
1243
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1244 (defgroup postscript nil
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1245 "PostScript Group"
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1246 :tag "PostScript"
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1247 :group 'emacs)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1248
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1249 (defgroup ps-print nil
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
1250 "PostScript generator for Emacs 19"
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1251 :prefix "ps-"
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1252 :group 'wp
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1253 :group 'postscript)
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1254
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1255 (defgroup ps-print-horizontal nil
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1256 "Horizontal page layout"
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1257 :prefix "ps-"
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1258 :tag "Horizontal"
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1259 :group 'ps-print)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1260
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1261 (defgroup ps-print-vertical nil
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1262 "Vertical page layout"
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1263 :prefix "ps-"
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1264 :tag "Vertical"
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1265 :group 'ps-print)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1266
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
1267 (defgroup ps-print-headers nil
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1268 "Headers layout"
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1269 :prefix "ps-"
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1270 :tag "Header"
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1271 :group 'ps-print)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1272
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1273 (defgroup ps-print-font nil
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1274 "Fonts customization"
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1275 :prefix "ps-"
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1276 :tag "Font"
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1277 :group 'ps-print)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1278
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1279 (defgroup ps-print-color nil
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1280 "Color customization"
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1281 :prefix "ps-"
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1282 :tag "Color"
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1283 :group 'ps-print)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1284
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1285 (defgroup ps-print-face nil
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1286 "Faces customization"
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1287 :prefix "ps-"
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1288 :tag "PS Faces"
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1289 :group 'ps-print
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1290 :group 'faces)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1291
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1292 (defgroup ps-print-n-up nil
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1293 "N-up customization"
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1294 :prefix "ps-"
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1295 :tag "N-Up"
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1296 :group 'ps-print)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1297
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1298 (defgroup ps-print-zebra nil
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1299 "Zebra customization"
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1300 :prefix "ps-"
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1301 :tag "Zebra"
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1302 :group 'ps-print)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1303
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1304 (defgroup ps-print-background nil
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1305 "Background customization"
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1306 :prefix "ps-"
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1307 :tag "Background"
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1308 :group 'ps-print)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1309
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1310 (defgroup ps-print-printer nil
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1311 "Printer customization"
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1312 :prefix "ps-"
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1313 :tag "Printer"
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1314 :group 'ps-print)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1315
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1316 (defgroup ps-print-page nil
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1317 "Page customization"
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1318 :prefix "ps-"
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1319 :tag "Page"
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1320 :group 'ps-print)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1321
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
1322 (defgroup ps-print-miscellany nil
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
1323 "Miscellany customization"
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
1324 :prefix "ps-"
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
1325 :tag "Miscellany"
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
1326 :group 'ps-print)
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
1327
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1328
28153
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
1329 (defcustom ps-error-handler-message 'paper
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
1330 "*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
1331
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
1332 Valid values are:
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
1333
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
1334 `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
1335
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
1336 `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
1337
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
1338 `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
1339 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
1340 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
1341 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
1342 the system to you.
28153
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
1343
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
1344 `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
1345 send back the error message to printing system.
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
1346
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
1347 Any other value is treated as `paper'."
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
1348 :type '(choice :tag "Error Handler Message"
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
1349 (const none) (const paper)
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
1350 (const system) (const paper-and-system))
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
1351 :group 'ps-print-miscellany)
28153
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
1352
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
1353 (defcustom ps-user-defined-prologue nil
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
1354 "*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
1355
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
1356 `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
1357 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
1358 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
1359 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
1360 ps-print settings.
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
1361
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
1362 It's recommended to initiate and terminate the string with \"\\n\".
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
1363
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
1364 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
1365 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
1366 initialization that only your printing system needs.
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
1367
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
1368 Do not insert code for duplex printing, n-up printing or error handler, ps-print
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
1369 handles this in a suitable way.
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
1370
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
1371 For more information about PostScript, see:
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
1372 PostScript Language Reference Manual (2nd edition)
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
1373 Adobe Systems Incorporated"
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
1374 :type '(choice :tag "User Defined Prologue"
28979
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
1375 (const :tag "none" nil) string symbol)
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
1376 :group 'ps-print-miscellany)
28153
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
1377
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
1378 (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
1379 "*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
1380
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
1381 `ps-print-prologue-header' may be a string or a symbol function which
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
1382 returns a string. Note that this string is inserted on PostScript prologue
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
1383 header section which is used to define some document characteristic through
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
1384 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
1385
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
1386 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
1387 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
1388 \"%%+\" 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
1389 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
1390
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
1391 (setq ps-print-prologue-header
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
1392 \"%%+ 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
1393
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
1394 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
1395
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
1396 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
1397
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
1398 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
1399 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
1400 Adobe Systems Incorporated
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
1401 Appendix G: Document Structuring Conventions -- Version 3.0"
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1402 :type '(choice :tag "Prologue Header"
28979
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
1403 (const :tag "none" nil) string symbol)
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
1404 :group 'ps-print-miscellany)
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
1405
23892
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
1406 (defcustom ps-printer-name (and (boundp 'printer-name)
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
1407 printer-name)
22680
3cf03f32956c (ps-printer-name): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22596
diff changeset
1408 "*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
1409
3cf03f32956c (ps-printer-name): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22596
diff changeset
1410 On Unix-like systems, a string value should be a name understood by
24090
3a9da940e5f2 (ps-printer-name): Update docstring about usage on
Andrew Innes <andrewi@gnu.org>
parents: 23938
diff changeset
1411 lpr's -P option; a value of nil means use the value of `printer-name'
3a9da940e5f2 (ps-printer-name): Update docstring about usage on
Andrew Innes <andrewi@gnu.org>
parents: 23938
diff changeset
1412 instead. Any other value will be ignored.
3a9da940e5f2 (ps-printer-name): Update docstring about usage on
Andrew Innes <andrewi@gnu.org>
parents: 23938
diff changeset
1413
3a9da940e5f2 (ps-printer-name): Update docstring about usage on
Andrew Innes <andrewi@gnu.org>
parents: 23938
diff changeset
1414 On MS-DOS and MS-Windows systems, a string value is taken as the name of
3a9da940e5f2 (ps-printer-name): Update docstring about usage on
Andrew Innes <andrewi@gnu.org>
parents: 23938
diff changeset
1415 the printer device or port to which PostScript files are written,
3a9da940e5f2 (ps-printer-name): Update docstring about usage on
Andrew Innes <andrewi@gnu.org>
parents: 23938
diff changeset
1416 provided `ps-lpr-command' is \"\". By default it is the same as
3a9da940e5f2 (ps-printer-name): Update docstring about usage on
Andrew Innes <andrewi@gnu.org>
parents: 23938
diff changeset
1417 `printer-name'; typical non-default settings would be \"LPT1\" to
3a9da940e5f2 (ps-printer-name): Update docstring about usage on
Andrew Innes <andrewi@gnu.org>
parents: 23938
diff changeset
1418 \"LPT3\" for parallel printers, or \"COM1\" to \"COM4\" or \"AUX\" for
3a9da940e5f2 (ps-printer-name): Update docstring about usage on
Andrew Innes <andrewi@gnu.org>
parents: 23938
diff changeset
1419 serial printers, or \"//hostname/printer\" for a shared network printer.
3a9da940e5f2 (ps-printer-name): Update docstring about usage on
Andrew Innes <andrewi@gnu.org>
parents: 23938
diff changeset
1420 You can also set it to a name of a file, in which case the output gets
3a9da940e5f2 (ps-printer-name): Update docstring about usage on
Andrew Innes <andrewi@gnu.org>
parents: 23938
diff changeset
1421 appended to that file. \(Note that `ps-print' package already has
3a9da940e5f2 (ps-printer-name): Update docstring about usage on
Andrew Innes <andrewi@gnu.org>
parents: 23938
diff changeset
1422 facilities for printing to a file, so you might as well use them instead
24833
7b18c1a51e98 (ps-printer-name): Fix custom type.
Karl Heuer <kwzh@gnu.org>
parents: 24708
diff changeset
1423 of changing the setting of this variable.\) If you want to silently
24090
3a9da940e5f2 (ps-printer-name): Update docstring about usage on
Andrew Innes <andrewi@gnu.org>
parents: 23938
diff changeset
1424 discard the printed output, set this to \"NUL\"."
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1425 :type '(choice :tag "Printer Name"
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
1426 (file :tag "Print to file")
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
1427 (string :tag "Pipe to ps-lpr-command")
28576
1694ed739e69 Customization fix, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28426
diff changeset
1428 (const :tag "Same as printer-name" nil))
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1429 :group 'ps-print-printer)
22680
3cf03f32956c (ps-printer-name): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22596
diff changeset
1430
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1431 (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
1432 "*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
1433
3a9da940e5f2 (ps-printer-name): Update docstring about usage on
Andrew Innes <andrewi@gnu.org>
parents: 23938
diff changeset
1434 On MS-DOS and MS-Windows systems, if the value is an empty string then
3a9da940e5f2 (ps-printer-name): Update docstring about usage on
Andrew Innes <andrewi@gnu.org>
parents: 23938
diff changeset
1435 Emacs will write directly to the printer port named by `ps-printer-name'.
3a9da940e5f2 (ps-printer-name): Update docstring about usage on
Andrew Innes <andrewi@gnu.org>
parents: 23938
diff changeset
1436 The programs `print' and `nprint' (the standard print programs on Windows
3a9da940e5f2 (ps-printer-name): Update docstring about usage on
Andrew Innes <andrewi@gnu.org>
parents: 23938
diff changeset
1437 NT and Novell Netware respectively) are handled specially, using
3a9da940e5f2 (ps-printer-name): Update docstring about usage on
Andrew Innes <andrewi@gnu.org>
parents: 23938
diff changeset
1438 `ps-printer-name' as the destination for output; any other program is
3a9da940e5f2 (ps-printer-name): Update docstring about usage on
Andrew Innes <andrewi@gnu.org>
parents: 23938
diff changeset
1439 treated like `lpr' except that an explicit filename is given as the last
3a9da940e5f2 (ps-printer-name): Update docstring about usage on
Andrew Innes <andrewi@gnu.org>
parents: 23938
diff changeset
1440 argument."
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1441 :type 'string
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1442 :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
1443
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1444 (defcustom ps-lpr-switches lpr-switches
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1445 "*A list of extra switches to pass to `ps-lpr-command'."
28576
1694ed739e69 Customization fix, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28426
diff changeset
1446 :type '(repeat :tag "PostScript lpr Switches"
1694ed739e69 Customization fix, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28426
diff changeset
1447 (choice string symbol (repeat sexp)))
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1448 :group 'ps-print-printer)
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1449
24090
3a9da940e5f2 (ps-printer-name): Update docstring about usage on
Andrew Innes <andrewi@gnu.org>
parents: 23938
diff changeset
1450 (defcustom ps-print-region-function nil
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1451 "*Specify a function to print the region on a PostScript printer.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1452 See definition of `call-process-region' for calling conventions. The fourth and
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1453 the sixth arguments are both nil."
24090
3a9da940e5f2 (ps-printer-name): Update docstring about usage on
Andrew Innes <andrewi@gnu.org>
parents: 23938
diff changeset
1454 :type 'function
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1455 :group 'ps-print-printer)
24090
3a9da940e5f2 (ps-printer-name): Update docstring about usage on
Andrew Innes <andrewi@gnu.org>
parents: 23938
diff changeset
1456
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1457 ;;; Page layout
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1458
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1459 ;; 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
1460 ;; 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
1461 ;; 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
1462
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1463 ;; 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
1464 ;; 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
1465 ;; 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
1466
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1467 ;; 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
1468 ;; 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
1469 ;; 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
1470 ;; 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
1471 ;; 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
1472 ;; 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
1473 ;; 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
1474 ;; 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
1475 ;; 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
1476
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1477 (defcustom ps-page-dimensions-database
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1478 (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
1479 (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
1480 (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
1481 (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
1482 (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
1483 (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
1484 (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
1485 (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
1486 (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
1487 (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
1488 (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
1489 (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
1490 "*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
1491 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
1492 :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
1493 (symbol :tag "Name")
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1494 (number :tag "Width")
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1495 (number :tag "Height")
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1496 (string :tag "Media")))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1497 :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
1498
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
1499 ;;;###autoload
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1500 (defcustom ps-paper-type 'letter
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1501 "*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
1502 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
1503 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
1504 :type '(symbol :validate (lambda (wid)
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1505 (if (assq (widget-value wid)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1506 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
1507 nil
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1508 (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
1509 wid)))
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1510 :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
1511
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1512 (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
1513 "*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
1514 :type 'boolean
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1515 :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
1516
28760
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
1517 (defcustom ps-print-upside-down nil
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
1518 "*Non-nil means print upside-down."
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
1519 :type 'boolean
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
1520 :group 'ps-print-page)
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
1521
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
1522 (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
1523 "*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
1524 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
1525 it is sent the string \"^D\".
21954
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
1526
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
1527 Valid values are:
21954
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
1528
22093
5818374d88e7 (ps-file-end): Put Trailer and Pages before EndDoc.
Richard M. Stallman <rms@gnu.org>
parents: 21999
diff changeset
1529 `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
1530 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
1531 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
1532 octal encoding.
21954
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
1533
22093
5818374d88e7 (ps-file-end): Put Trailer and Pages before EndDoc.
Richard M. Stallman <rms@gnu.org>
parents: 21999
diff changeset
1534 `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
1535 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
1536 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
1537 the current font.
21954
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
1538
23307
5d6530954ece Skip invisible overlay.
Karl Heuer <kwzh@gnu.org>
parents: 23273
diff changeset
1539 `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
1540 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
1541 the current font.
21954
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
1542
22093
5818374d88e7 (ps-file-end): Put Trailer and Pages before EndDoc.
Richard M. Stallman <rms@gnu.org>
parents: 21999
diff changeset
1543 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
1544 current font.
21954
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
1545
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
1546 Any other value is treated as nil."
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1547 :type '(choice :tag "Control Char"
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1548 (const 8-bit) (const control-8-bit)
28576
1694ed739e69 Customization fix, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28426
diff changeset
1549 (const control) (const :tag "nil" nil))
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
1550 :group 'ps-print-miscellany)
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
1551
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1552 (defcustom ps-n-up-printing 1
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1553 "*Specify the number of pages per sheet paper."
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1554 :type '(integer
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1555 :tag "N Up Printing"
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1556 :validate
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1557 (lambda (wid)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1558 (if (and (< 0 (widget-value wid))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1559 (<= (widget-value wid) 100))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1560 nil
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1561 (widget-put
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1562 wid :error
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1563 "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
1564 wid)))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1565 :group 'ps-print-n-up)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1566
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1567 (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
1568 "*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
1569 :type 'number
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1570 :group 'ps-print-n-up)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1571
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1572 (defcustom ps-n-up-border-p t
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1573 "*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
1574 :type 'boolean
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1575 :group 'ps-print-n-up)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1576
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1577 (defcustom ps-n-up-filling 'left-top
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1578 "*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
1579
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1580 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
1581 using a 3x4 page matrix:
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1582
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1583 `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
1584 5 6 7 8 5 6 7 8
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1585 9 10 11 12 1 2 3 4
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1586
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1587 `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
1588 8 7 6 5 8 7 6 5
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1589 12 11 10 9 4 3 2 1
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1590
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1591 `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
1592 2 5 8 11 2 5 8 11
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1593 3 6 9 12 1 4 7 10
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1594
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1595 `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
1596 11 8 5 2 11 8 5 2
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1597 12 9 6 3 10 7 4 1
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1598
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1599 Any other value is treated as `left-top'."
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1600 :type '(choice :tag "N-Up Filling"
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1601 (const left-top) (const left-bottom)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1602 (const right-top) (const right-bottom)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1603 (const top-left) (const bottom-left)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1604 (const top-right) (const bottom-right))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1605 :group 'ps-print-n-up)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1606
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1607 (defcustom ps-number-of-columns (if ps-landscape-mode 2 1)
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1608 "*Specify the number of columns"
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1609 :type 'number
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
1610 :group 'ps-print-miscellany)
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1611
19485
eab8baa19dfa (ps-zebra-stripes): Renamed from ps-zebra-stripe.
Richard M. Stallman <rms@gnu.org>
parents: 19446
diff changeset
1612 (defcustom ps-zebra-stripes nil
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1613 "*Non-nil means print zebra stripes.
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
1614 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
1615 :type 'boolean
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1616 :group 'ps-print-zebra)
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1617
19485
eab8baa19dfa (ps-zebra-stripes): Renamed from ps-zebra-stripe.
Richard M. Stallman <rms@gnu.org>
parents: 19446
diff changeset
1618 (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
1619 "*Number of zebra stripe lines.
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
1620 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
1621 :type 'number
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1622 :group 'ps-print-zebra)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1623
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
1624 (defcustom ps-zebra-color 0.95
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
1625 "*Zebra stripe gray scale or RGB color.
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1626 See also documentation for `ps-zebra-stripes' and `ps-zebra-stripe-height'."
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
1627 :type '(choice :tag "Zebra Gray/Color"
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
1628 (number :tag "Gray Scale" :value 0.95)
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
1629 (string :tag "Color Name" :value "gray95")
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
1630 (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
1631 (number :tag "Red")
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
1632 (number :tag "Green")
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
1633 (number :tag "Blue")))
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1634 :group 'ps-print-zebra)
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1635
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1636 (defcustom ps-line-number nil
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1637 "*Non-nil means print line number."
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1638 :type 'boolean
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
1639 :group 'ps-print-miscellany)
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1640
28760
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
1641 (defcustom ps-line-number-step 1
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
1642 "*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
1643
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
1644 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
1645
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
1646 1 one line
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
1647 one line
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
1648 3 one line
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
1649 one line
28979
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
1650 5 one line
28760
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
1651 one line
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
1652 ...
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
1653
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
1654 Valid values are:
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
1655
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
1656 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
1657 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
1658 value 1.
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
1659
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
1660 `zebra' specifies that only the line number of the first line in a zebra
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
1661 stripe is to be printed.
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
1662
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
1663 Any other value is treated as `zebra'."
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
1664 :type '(choice :tag "Line Number Step"
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
1665 (integer :tag "Step Interval")
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
1666 (const :tag "Synchronize Zebra" zebra))
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
1667 :group 'ps-print-miscellany)
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
1668
28979
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
1669 (defcustom ps-line-number-start 1
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
1670 "*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
1671
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
1672 For example, if `ps-line-number-step' is set to 3 and `ps-line-number-start' is set to 3, the
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
1673 printing will look like:
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
1674
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
1675 one line
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
1676 one line
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
1677 3 one line
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
1678 one line
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
1679 one line
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
1680 6 one line
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
1681 one line
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
1682 one line
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
1683 9 one line
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
1684 one line
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
1685 ...
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
1686
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
1687 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
1688
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
1689 * 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
1690 of `ps-line-number-step' inclusive.
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
1691
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
1692 * 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
1693 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
1694 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
1695 :type '(integer :tag "Start Step Interval")
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
1696 :group 'ps-print-miscellany)
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
1697
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1698 (defcustom ps-print-background-image nil
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1699 "*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
1700
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1701 The elements are:
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1702
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1703 (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
1704
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1705 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
1706 programming like EPS.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1707 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
1708
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1709 X and Y are relative positions on paper to put the image.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1710 If X and Y are nil, the image is centralized on paper.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1711
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1712 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
1713 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
1714
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1715 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
1716
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1717 PAGES designates the page to print background image.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1718 PAGES may be a number or a cons cell (FROM . TO) designating FROM page
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1719 to TO page.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1720 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
1721
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1722 X, Y, XSCALE, YSCALE and ROTATION may be a floating point number,
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1723 an integer number or a string. If it is a string, the string should contain
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1724 PostScript programming that returns a float or integer value.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1725
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1726 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
1727
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1728 '((\"~/images/EPS-image.ps\"))"
28979
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
1729 :type '(repeat
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
1730 (list
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
1731 (file :tag "EPS File")
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
1732 (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
1733 (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
1734 (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
1735 (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
1736 (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
1737 (repeat :tag "Pages" :inline t
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
1738 (radio (integer :tag "Page")
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
1739 (cons :tag "Range"
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
1740 (integer :tag "From")
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
1741 (integer :tag "To"))))))
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1742 :group 'ps-print-background)
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1743
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1744 (defcustom ps-print-background-text nil
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1745 "*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
1746
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1747 The elements are:
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1748
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1749 (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
1750
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1751 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
1752
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1753 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
1754 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
1755
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1756 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
1757 If nil, \"Times-Roman\" is used.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1758
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1759 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
1760
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1761 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
1762 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
1763
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1764 ROTATION is the text rotation angle; if nil, the angle is given by
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1765 the diagonal from lower left corner to upper right corner.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1766
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1767 PAGES designates the page to print background text.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1768 PAGES may be a number or a cons cell (FROM . TO) designating FROM page
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1769 to TO page.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1770 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
1771
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1772 X, Y, FONTSIZE, GRAY and ROTATION may be a floating point number,
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1773 an integer number or a string. If it is a string, the string should contain
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1774 PostScript programming that returns a float or integer value.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1775
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1776 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
1777
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1778 '((\"Preliminary\"))"
28979
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
1779 :type '(repeat
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
1780 (list
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
1781 (string :tag "Text")
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
1782 (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
1783 (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
1784 (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
1785 (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
1786 (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
1787 (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
1788 (repeat :tag "Pages" :inline t
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
1789 (radio (integer :tag "Page")
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
1790 (cons :tag "Range"
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
1791 (integer :tag "From")
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
1792 (integer :tag "To"))))))
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1793 :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
1794
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1795 ;;; Horizontal layout
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1796
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1797 ;; ------------------------------------------
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1798 ;; | | | | | | | |
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1799 ;; | 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
1800 ;; | | | | | | | |
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1801 ;; ------------------------------------------
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1802
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1803 (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
1804 "*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
1805 :type 'number
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1806 :group 'ps-print-horizontal)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1807
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1808 (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
1809 "*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
1810 :type 'number
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1811 :group 'ps-print-horizontal)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1812
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1813 (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
1814 "*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
1815 :type 'number
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1816 :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
1817
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1818 ;;; Vertical layout
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1819
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1820 ;; |--------|
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1821 ;; | tm |
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1822 ;; |--------|
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1823 ;; | header |
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1824 ;; |--------|
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1825 ;; | ho |
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1826 ;; |--------|
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1827 ;; | text |
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1828 ;; |--------|
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1829 ;; | bm |
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1830 ;; |--------|
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1831
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1832 (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
1833 "*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
1834 :type 'number
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1835 :group 'ps-print-vertical)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1836
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1837 (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
1838 "*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
1839 :type 'number
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1840 :group 'ps-print-vertical)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1841
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1842 (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
1843 "*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
1844 :type 'number
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1845 :group 'ps-print-vertical)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1846
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1847 (defcustom ps-header-line-pad 0.15
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1848 "*Portion of a header title line height to insert between the header frame
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1849 and the text it contains, both in the vertical and horizontal directions."
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1850 :type 'number
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1851 :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
1852
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1853 ;;; Header setup
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1854
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1855 (defcustom ps-print-header t
10493
ed52763e77d6 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 10492
diff changeset
1856 "*Non-nil means print a header at the top of each page.
ed52763e77d6 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 10492
diff changeset
1857 By default, the header displays the buffer name, page number, and, if
ed52763e77d6 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 10492
diff changeset
1858 the buffer is visiting a file, the file's directory. Headers are
16949
18731f7e2c73 (ps-print-header): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 16870
diff changeset
1859 customizable by changing variables `ps-left-header' and
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1860 `ps-right-header'."
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1861 :type 'boolean
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
1862 :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
1863
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1864 (defcustom ps-print-only-one-header nil
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1865 "*Non-nil means print only one header at the top of each page.
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1866 This is useful when printing more than one column, so it is possible
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1867 to have only one header over all columns or one header per column.
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1868 See also `ps-print-header'."
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1869 :type 'boolean
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
1870 :group 'ps-print-headers)
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1871
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1872 (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
1873 "*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
1874 :type 'boolean
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
1875 :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
1876
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1877 (defcustom ps-header-lines 2
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
1878 "*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
1879 :type 'integer
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
1880 :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
1881
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1882 (defcustom ps-show-n-of-n t
10683
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
1883 "*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
1884 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
1885 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
1886 :type 'boolean
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
1887 :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
1888
28576
1694ed739e69 Customization fix, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28426
diff changeset
1889 (defcustom ps-spool-config
28760
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
1890 (if ps-windows-system
28576
1694ed739e69 Customization fix, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28426
diff changeset
1891 nil
1694ed739e69 Customization fix, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28426
diff changeset
1892 'lpr-switches)
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1893 "*Specify who is responsable for setting duplex and page size switches.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1894
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1895 Valid values are:
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1896
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1897 `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
1898 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
1899 printing for your printer.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1900
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1901 `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
1902 setpagedevice PostScript operator.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1903
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1904 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
1905 the setpagedevice PostScript operator.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1906
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1907 Any other value is treated as nil.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1908
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1909 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
1910 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
1911 setpagedevice affects zebra stripes; on other printers, setpagedevice
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1912 affects the left margin.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1913 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
1914 specified by setpagedevice, your printing will be aborted.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1915 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
1916 `setpagedevice', generate a test file and send it to your printer; if
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1917 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
1918 :type '(choice :tag "Spool Config"
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1919 (const lpr-switches) (const setpagedevice)
28576
1694ed739e69 Customization fix, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28426
diff changeset
1920 (const :tag "nil" nil))
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
1921 :group 'ps-print-headers)
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1922
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1923 (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
1924 ; so default to nil.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1925 "*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
1926 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
1927 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
1928 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
1929 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
1930 even-numbered pages.
0a2452a20c74 ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 26883
diff changeset
1931
0a2452a20c74 ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 26883
diff changeset
1932 See also `ps-spool-tumble'."
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1933 :type 'boolean
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
1934 :group 'ps-print-headers)
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1935
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1936 (defcustom ps-spool-tumble nil
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1937 "*Specify how the page images on opposite sides of a sheet are oriented.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1938 If `ps-spool-tumble' is nil, produces output suitable for binding on the left or
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1939 right. If `ps-spool-tumble' is non-nil, produces output suitable for binding at
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1940 the top or bottom.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1941
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
1942 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
1943 :type 'boolean
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
1944 :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
1945
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1946 ;;; Fonts
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1947
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1948 (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
1949 '((Courier ; the family key
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1950 (fonts (normal . "Courier")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1951 (bold . "Courier-Bold")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1952 (italic . "Courier-Oblique")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1953 (bold-italic . "Courier-BoldOblique"))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1954 (size . 10.0)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1955 (line-height . 10.55)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1956 (space-width . 6.0)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1957 (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
1958 (Helvetica ; the family key
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1959 (fonts (normal . "Helvetica")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1960 (bold . "Helvetica-Bold")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1961 (italic . "Helvetica-Oblique")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1962 (bold-italic . "Helvetica-BoldOblique"))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1963 (size . 10.0)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1964 (line-height . 11.56)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1965 (space-width . 2.78)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1966 (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
1967 (Times
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1968 (fonts (normal . "Times-Roman")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1969 (bold . "Times-Bold")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1970 (italic . "Times-Italic")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1971 (bold-italic . "Times-BoldItalic"))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1972 (size . 10.0)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1973 (line-height . 11.0)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1974 (space-width . 2.5)
23273
519bc559e950 (ps-font-info-database): Add missing dots in value.
Andreas Schwab <schwab@suse.de>
parents: 23204
diff changeset
1975 (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
1976 (Palatino
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1977 (fonts (normal . "Palatino-Roman")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1978 (bold . "Palatino-Bold")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1979 (italic . "Palatino-Italic")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1980 (bold-italic . "Palatino-BoldItalic"))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1981 (size . 10.0)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1982 (line-height . 12.1)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1983 (space-width . 2.5)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1984 (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
1985 (Helvetica-Narrow
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1986 (fonts (normal . "Helvetica-Narrow")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1987 (bold . "Helvetica-Narrow-Bold")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1988 (italic . "Helvetica-Narrow-Oblique")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1989 (bold-italic . "Helvetica-Narrow-BoldOblique"))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1990 (size . 10.0)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1991 (line-height . 11.56)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1992 (space-width . 2.2796)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1993 (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
1994 (NewCenturySchlbk
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1995 (fonts (normal . "NewCenturySchlbk-Roman")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1996 (bold . "NewCenturySchlbk-Bold")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1997 (italic . "NewCenturySchlbk-Italic")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1998 (bold-italic . "NewCenturySchlbk-BoldItalic"))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1999 (size . 10.0)
23273
519bc559e950 (ps-font-info-database): Add missing dots in value.
Andreas Schwab <schwab@suse.de>
parents: 23204
diff changeset
2000 (line-height . 12.15)
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2001 (space-width . 2.78)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2002 (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
2003 ;; 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
2004 (AvantGarde-Book
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2005 (fonts (normal . "AvantGarde-Book")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2006 (italic . "AvantGarde-BookOblique"))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2007 (size . 10.0)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2008 (line-height . 11.77)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2009 (space-width . 2.77)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2010 (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
2011 (AvantGarde-Demi
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2012 (fonts (normal . "AvantGarde-Demi")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2013 (italic . "AvantGarde-DemiOblique"))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2014 (size . 10.0)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2015 (line-height . 12.72)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2016 (space-width . 2.8)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2017 (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
2018 (Bookman-Demi
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2019 (fonts (normal . "Bookman-Demi")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2020 (italic . "Bookman-DemiItalic"))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2021 (size . 10.0)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2022 (line-height . 11.77)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2023 (space-width . 3.4)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2024 (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
2025 (Bookman-Light
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2026 (fonts (normal . "Bookman-Light")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2027 (italic . "Bookman-LightItalic"))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2028 (size . 10.0)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2029 (line-height . 11.79)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2030 (space-width . 3.2)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2031 (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
2032 ;; 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
2033 (Symbol
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2034 (fonts (normal . "Symbol"))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2035 (size . 10.0)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2036 (line-height . 13.03)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2037 (space-width . 2.5)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2038 (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
2039 (Zapf-Dingbats
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2040 (fonts (normal . "Zapf-Dingbats"))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2041 (size . 10.0)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2042 (line-height . 9.63)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2043 (space-width . 2.78)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2044 (avg-char-width . 2.78))
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2045 (Zapf-Chancery-MediumItalic
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2046 (fonts (normal . "Zapf-Chancery-MediumItalic"))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2047 (size . 10.0)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2048 (line-height . 11.45)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2049 (space-width . 2.2)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2050 (avg-char-width . 4.10811))
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2051 )
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2052 "*Font info database: font family (the key), name, bold, italic, bold-italic,
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2053 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
2054 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
2055 - 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
2056 - generate the PostScript image to a file (C-u M-x ps-print-buffer)
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
2057 - open this file and delete the leading `%' (which is the PostScript
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2058 comment character) from the line
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2059 `% 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
2060 to get the line
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2061 `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
2062 - add the values to `ps-font-info-database'.
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2063 You can get all the fonts of YOUR printer using `ReportAllFontInfo'."
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2064 :type '(repeat (list :tag "Font Definition"
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2065 (symbol :tag "Font Family")
23273
519bc559e950 (ps-font-info-database): Add missing dots in value.
Andreas Schwab <schwab@suse.de>
parents: 23204
diff changeset
2066 (cons :format "%v"
519bc559e950 (ps-font-info-database): Add missing dots in value.
Andreas Schwab <schwab@suse.de>
parents: 23204
diff changeset
2067 (const :format "" fonts)
519bc559e950 (ps-font-info-database): Add missing dots in value.
Andreas Schwab <schwab@suse.de>
parents: 23204
diff changeset
2068 (repeat :tag "Faces"
519bc559e950 (ps-font-info-database): Add missing dots in value.
Andreas Schwab <schwab@suse.de>
parents: 23204
diff changeset
2069 (cons (choice (const normal)
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2070 (const bold)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2071 (const italic)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2072 (const bold-italic)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2073 (symbol :tag "Face"))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2074 (string :tag "Font Name"))))
23273
519bc559e950 (ps-font-info-database): Add missing dots in value.
Andreas Schwab <schwab@suse.de>
parents: 23204
diff changeset
2075 (cons :format "%v"
519bc559e950 (ps-font-info-database): Add missing dots in value.
Andreas Schwab <schwab@suse.de>
parents: 23204
diff changeset
2076 (const :format "" size)
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2077 (number :tag "Reference Size"))
23273
519bc559e950 (ps-font-info-database): Add missing dots in value.
Andreas Schwab <schwab@suse.de>
parents: 23204
diff changeset
2078 (cons :format "%v"
519bc559e950 (ps-font-info-database): Add missing dots in value.
Andreas Schwab <schwab@suse.de>
parents: 23204
diff changeset
2079 (const :format "" line-height)
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2080 (number :tag "Line Height"))
23273
519bc559e950 (ps-font-info-database): Add missing dots in value.
Andreas Schwab <schwab@suse.de>
parents: 23204
diff changeset
2081 (cons :format "%v"
519bc559e950 (ps-font-info-database): Add missing dots in value.
Andreas Schwab <schwab@suse.de>
parents: 23204
diff changeset
2082 (const :format "" space-width)
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2083 (number :tag "Space Width"))
23273
519bc559e950 (ps-font-info-database): Add missing dots in value.
Andreas Schwab <schwab@suse.de>
parents: 23204
diff changeset
2084 (cons :format "%v"
519bc559e950 (ps-font-info-database): Add missing dots in value.
Andreas Schwab <schwab@suse.de>
parents: 23204
diff changeset
2085 (const :format "" avg-char-width)
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2086 (number :tag "Average Character Width"))))
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2087 :group 'ps-print-font)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2088
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2089 (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
2090 "*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
2091 :type 'symbol
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2092 :group 'ps-print-font)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2093
24414
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
2094 (defcustom ps-font-size '(7 . 8.5)
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
2095 "*Font size, in points, for ordinary text, when generating PostScript."
24414
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
2096 :type '(choice (number :tag "Text Size")
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
2097 (cons :tag "Landscape/Portrait"
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
2098 (number :tag "Landscape Text Size")
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
2099 (number :tag "Portrait Text Size")))
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2100 :group 'ps-print-font)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2101
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2102 (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
2103 "*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
2104 :type 'symbol
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2105 :group 'ps-print-font)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2106
24414
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
2107 (defcustom ps-header-font-size '(10 . 12)
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
2108 "*Font size, in points, for text in the header, when generating PostScript."
24414
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
2109 :type '(choice (number :tag "Header Size")
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
2110 (cons :tag "Landscape/Portrait"
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
2111 (number :tag "Landscape Header Size")
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
2112 (number :tag "Portrait Header Size")))
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2113 :group 'ps-print-font)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2114
24414
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
2115 (defcustom ps-header-title-font-size '(12 . 14)
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
2116 "*Font size, in points, for the top line of text in header, in PostScript."
24414
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
2117 :type '(choice (number :tag "Header Title Size")
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
2118 (cons :tag "Landscape/Portrait"
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
2119 (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
2120 (number :tag "Portrait Header Title Size")))
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2121 :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
2122
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2123 ;;; Colors
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2124
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2125 ;; Printing color requires x-color-values.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2126 (defcustom ps-print-color-p (or (fboundp 'x-color-values) ; Emacs
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2127 (fboundp 'color-instance-rgb-components))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2128 ; XEmacs
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2129 "*Non-nil means print the buffer's text in color."
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2130 :type 'boolean
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2131 :group 'ps-print-color)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2132
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2133 (defcustom ps-default-fg '(0.0 0.0 0.0)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2134 "*RGB values of the default foreground color. Defaults to black."
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
2135 :type '(choice :tag "Default Foreground Gray/Color"
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
2136 (number :tag "Gray Scale" :value 0.0)
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
2137 (string :tag "Color Name" :value "black")
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
2138 (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
2139 (number :tag "Red")
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
2140 (number :tag "Green")
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
2141 (number :tag "Blue")))
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2142 :group 'ps-print-color)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2143
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2144 (defcustom ps-default-bg '(1.0 1.0 1.0)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2145 "*RGB values of the default background color. Defaults to white."
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
2146 :type '(choice :tag "Default Background Gray/Color"
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
2147 (number :tag "Gray Scale" :value 1.0)
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
2148 (string :tag "Color Name" :value "white")
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
2149 (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
2150 (number :tag "Red")
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
2151 (number :tag "Green")
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
2152 (number :tag "Blue")))
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2153 :group 'ps-print-color)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2154
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2155 (defcustom ps-auto-font-detect t
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2156 "*Non-nil means automatically detect bold/italic face attributes.
19843
0c9342c1054d (ps-face-bold-p): Use face-bold-p.
Richard M. Stallman <rms@gnu.org>
parents: 19787
diff changeset
2157 If nil, we rely solely on the lists `ps-bold-faces', `ps-italic-faces',
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2158 and `ps-underlined-faces'."
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2159 :type 'boolean
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2160 :group 'ps-print-font)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2161
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2162 (defcustom ps-bold-faces
16870
4a5fa29f79d6 (ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents: 16361
diff changeset
2163 (unless ps-print-color-p
4a5fa29f79d6 (ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents: 16361
diff changeset
2164 '(font-lock-function-name-face
4a5fa29f79d6 (ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents: 16361
diff changeset
2165 font-lock-builtin-face
4a5fa29f79d6 (ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents: 16361
diff changeset
2166 font-lock-variable-name-face
4a5fa29f79d6 (ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents: 16361
diff changeset
2167 font-lock-keyword-face
4a5fa29f79d6 (ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents: 16361
diff changeset
2168 font-lock-warning-face))
10493
ed52763e77d6 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 10492
diff changeset
2169 "*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
2170 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
2171 :type '(repeat face)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2172 :group 'ps-print-face)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2173
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2174 (defcustom ps-italic-faces
16870
4a5fa29f79d6 (ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents: 16361
diff changeset
2175 (unless ps-print-color-p
4a5fa29f79d6 (ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents: 16361
diff changeset
2176 '(font-lock-variable-name-face
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
2177 font-lock-type-face
16870
4a5fa29f79d6 (ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents: 16361
diff changeset
2178 font-lock-string-face
4a5fa29f79d6 (ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents: 16361
diff changeset
2179 font-lock-comment-face
4a5fa29f79d6 (ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents: 16361
diff changeset
2180 font-lock-warning-face))
10493
ed52763e77d6 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 10492
diff changeset
2181 "*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
2182 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
2183 :type '(repeat face)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2184 :group 'ps-print-face)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2185
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2186 (defcustom ps-underlined-faces
16870
4a5fa29f79d6 (ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents: 16361
diff changeset
2187 (unless ps-print-color-p
4a5fa29f79d6 (ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents: 16361
diff changeset
2188 '(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
2189 font-lock-constant-face
16870
4a5fa29f79d6 (ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents: 16361
diff changeset
2190 font-lock-warning-face))
10493
ed52763e77d6 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 10492
diff changeset
2191 "*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
2192 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
2193 :type '(repeat face)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2194 :group 'ps-print-face)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2195
28760
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
2196 (defcustom ps-use-face-background nil
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
2197 "*Specify if face background should be used.
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
2198
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
2199 Valid values are:
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
2200
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
2201 t always use face background color.
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
2202 nil never use face background color.
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
2203 (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
2204
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
2205 Any other value will be treated as t."
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
2206 :type '(choice :tag "Use Face Background"
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
2207 (const :tag "Always Use Face Background" t)
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
2208 (const :tag "Never Use Face Background" nil)
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
2209 (repeat :menu-tag "Face Background List"
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
2210 :tag "Face Background List"
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
2211 face))
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
2212 :group 'ps-print-face)
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
2213
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2214 (defcustom ps-left-header
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2215 (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
2216 "*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
2217 This applies to generating PostScript.
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2218
10493
ed52763e77d6 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 10492
diff changeset
2219 The value should be a list of strings and symbols, each representing an
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2220 entry in the PostScript array HeaderLinesLeft.
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2221
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2222 Strings are inserted unchanged into the array; those representing
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2223 PostScript string literals should be delimited with PostScript string
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2224 delimiters '(' and ')'.
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2225
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2226 For symbols with bound functions, the function is called and should
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2227 return a string to be inserted into the array. For symbols with bound
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2228 values, the value should be a string to be inserted into the array.
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2229 In either case, function or variable, the string value has PostScript
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2230 string delimiters added to it."
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2231 :type '(repeat (choice string symbol))
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
2232 :group 'ps-print-headers)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2233
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2234 (defcustom ps-right-header
16870
4a5fa29f79d6 (ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents: 16361
diff changeset
2235 (list "/pagenumberstring load" 'time-stamp-mon-dd-yyyy '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
2236 "*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
2237 This applies to generating PostScript.
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2238
10493
ed52763e77d6 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 10492
diff changeset
2239 See the variable `ps-left-header' for a description of the format of
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2240 this variable."
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2241 :type '(repeat (choice string symbol))
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
2242 :group 'ps-print-headers)
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2243
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2244 (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
2245 "*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
2246 :type 'boolean
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
2247 :group 'ps-print-miscellany)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2248
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2249 (defcustom ps-adobe-tag "%!PS-Adobe-3.0\n"
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2250 "*Contains the header line identifying the output as PostScript.
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2251 By default, `ps-adobe-tag' contains the standard identifier. Some
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2252 printers require slightly different versions of this line."
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2253 :type 'string
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
2254 :group 'ps-print-miscellany)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2255
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2256 (defcustom ps-build-face-reference t
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2257 "*Non-nil means build the reference face lists.
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2258
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
2259 ps-print sets this value to nil after it builds its internal reference
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2260 lists of bold and italic faces. By settings its value back to t, you
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2261 can force ps-print to rebuild the lists the next time you invoke one
10493
ed52763e77d6 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 10492
diff changeset
2262 of the ...-with-faces commands.
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2263
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2264 You should set this value back to t after you change the attributes of
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2265 any face, or create new faces. Most users shouldn't have to worry
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2266 about its setting, though."
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2267 :type 'boolean
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2268 :group 'ps-print-face)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2269
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2270 (defcustom ps-always-build-face-reference nil
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2271 "*Non-nil means always rebuild the reference face lists.
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2272
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2273 If this variable is non-nil, ps-print will rebuild its internal
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2274 reference lists of bold and italic faces *every* time one of the
21955
c4de7c7bc14a (ps-header-title-font-size): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 21954
diff changeset
2275 ...-with-faces commands is called. Most users shouldn't need to set this
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2276 variable."
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2277 :type 'boolean
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
2278 :group 'ps-print-face)
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2279
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2280 (defcustom ps-banner-page-when-duplexing nil
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2281 "*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
2282 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
2283 :type 'boolean
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
2284 :group 'ps-print-headers)
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2285
28979
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
2286 (defcustom ps-postscript-code-directory
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
2287 (or (and (fboundp 'locate-data-directory) ; xemacs
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
2288 (locate-data-directory "ps-print"))
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
2289 data-directory) ; emacs
27163
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
2290 "*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
2291 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
2292 :type 'directory
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
2293 :group 'ps-print-miscellany)
27163
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
2294
27161
0a2452a20c74 ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 26883
diff changeset
2295
0a2452a20c74 ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 26883
diff changeset
2296 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
0a2452a20c74 ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 26883
diff changeset
2297 ;; Customization
0a2452a20c74 ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 26883
diff changeset
2298
0a2452a20c74 ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 26883
diff changeset
2299
0a2452a20c74 ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 26883
diff changeset
2300 ;;;###autoload
0a2452a20c74 ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 26883
diff changeset
2301 (defun ps-print-customize ()
0a2452a20c74 ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 26883
diff changeset
2302 "Customization of ps-print group."
0a2452a20c74 ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 26883
diff changeset
2303 (interactive)
0a2452a20c74 ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 26883
diff changeset
2304 (customize-group 'ps-print))
0a2452a20c74 ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 26883
diff changeset
2305
0a2452a20c74 ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 26883
diff changeset
2306
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2307 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2308 ;; User commands
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2309
27161
0a2452a20c74 ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 26883
diff changeset
2310
10683
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
2311 ;;;###autoload
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2312 (defun ps-print-buffer (&optional filename)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2313 "Generate and print a PostScript image of the buffer.
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2314
23466
fa40617f5902 (ps-print-buffer): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 23310
diff changeset
2315 Interactively, when you use a prefix argument (C-u), the command
fa40617f5902 (ps-print-buffer): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 23310
diff changeset
2316 prompts the user for a file name, and saves the PostScript image
fa40617f5902 (ps-print-buffer): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 23310
diff changeset
2317 in that file instead of sending it to the printer.
fa40617f5902 (ps-print-buffer): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 23310
diff changeset
2318
fa40617f5902 (ps-print-buffer): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 23310
diff changeset
2319 Noninteractively, the argument FILENAME is treated as follows: if it
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2320 is nil, send the image to the printer. If FILENAME is a string, save
23468
969f4c2e38c0 (ps-print-buffer): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 23466
diff changeset
2321 the PostScript image in a file with that name."
10683
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
2322 (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
2323 (ps-print-without-faces (point-min) (point-max) filename))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2324
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2325
10683
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
2326 ;;;###autoload
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2327 (defun ps-print-buffer-with-faces (&optional filename)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2328 "Generate and print a PostScript image of the buffer.
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2329 Like `ps-print-buffer', but includes font, color, and underline
13807
2042acfaf58b Doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 12769
diff changeset
2330 information in the generated image. This command works only if you
2042acfaf58b Doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 12769
diff changeset
2331 are using a window system, so it has a way to determine color values."
10683
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
2332 (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
2333 (ps-print-with-faces (point-min) (point-max) filename))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2334
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2335
10683
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
2336 ;;;###autoload
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2337 (defun ps-print-region (from to &optional filename)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2338 "Generate and print a PostScript image of the region.
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2339 Like `ps-print-buffer', but prints just the current region."
10683
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
2340 (interactive (list (point) (mark) (ps-print-preprint current-prefix-arg)))
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2341 (ps-print-without-faces from to filename t))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2342
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2343
10683
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
2344 ;;;###autoload
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2345 (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
2346 "Generate and print a PostScript image of the region.
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2347 Like `ps-print-region', but includes font, color, and underline
13807
2042acfaf58b Doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 12769
diff changeset
2348 information in the generated image. This command works only if you
2042acfaf58b Doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 12769
diff changeset
2349 are using a window system, so it has a way to determine color values."
10683
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
2350 (interactive (list (point) (mark) (ps-print-preprint current-prefix-arg)))
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2351 (ps-print-with-faces from to filename t))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2352
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2353
10683
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
2354 ;;;###autoload
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2355 (defun ps-spool-buffer ()
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2356 "Generate and spool a PostScript image of the buffer.
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2357 Like `ps-print-buffer' except that the PostScript image is saved in a
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2358 local buffer to be sent to the printer later.
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2359
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2360 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
2361 (interactive)
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2362 (ps-spool-without-faces (point-min) (point-max)))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2363
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2364
10683
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
2365 ;;;###autoload
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2366 (defun ps-spool-buffer-with-faces ()
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2367 "Generate and spool a PostScript image of the buffer.
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2368 Like `ps-spool-buffer', but includes font, color, and underline
13807
2042acfaf58b Doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 12769
diff changeset
2369 information in the generated image. This command works only if you
13828
612d7bd4b5d1 (ps-spool-buffer-with-faces): Fix typo in previous chg.
Richard M. Stallman <rms@gnu.org>
parents: 13807
diff changeset
2370 are using a window system, so it has a way to determine color values.
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2371
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2372 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
2373 (interactive)
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2374 (ps-spool-with-faces (point-min) (point-max)))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2375
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2376
10683
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
2377 ;;;###autoload
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2378 (defun ps-spool-region (from to)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2379 "Generate a PostScript image of the region and spool locally.
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2380 Like `ps-spool-buffer', but spools just the current region.
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2381
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2382 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
2383 (interactive "r")
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2384 (ps-spool-without-faces from to t))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2385
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2386
10683
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
2387 ;;;###autoload
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2388 (defun ps-spool-region-with-faces (from to)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2389 "Generate a PostScript image of the region and spool locally.
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2390 Like `ps-spool-region', but includes font, color, and underline
13807
2042acfaf58b Doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 12769
diff changeset
2391 information in the generated image. This command works only if you
13828
612d7bd4b5d1 (ps-spool-buffer-with-faces): Fix typo in previous chg.
Richard M. Stallman <rms@gnu.org>
parents: 13807
diff changeset
2392 are using a window system, so it has a way to determine color values.
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2393
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2394 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
2395 (interactive "r")
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2396 (ps-spool-with-faces from to t))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2397
10683
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
2398 ;;;###autoload
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2399 (defun ps-despool (&optional filename)
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2400 "Send the spooled PostScript to the printer.
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2401
23468
969f4c2e38c0 (ps-print-buffer): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 23466
diff changeset
2402 Interactively, when you use a prefix argument (C-u), the command
969f4c2e38c0 (ps-print-buffer): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 23466
diff changeset
2403 prompts the user for a file name, and saves the spooled PostScript
969f4c2e38c0 (ps-print-buffer): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 23466
diff changeset
2404 image in that file instead of sending it to the printer.
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2405
23892
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
2406 Noninteractively, the argument FILENAME is treated as follows: if it
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2407 is nil, send the image to the printer. If FILENAME is a string, save
23468
969f4c2e38c0 (ps-print-buffer): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 23466
diff changeset
2408 the PostScript image in a file with that name."
10683
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
2409 (interactive (list (ps-print-preprint current-prefix-arg)))
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
2410 (ps-do-despool filename))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2411
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2412 ;;;###autoload
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2413 (defun ps-line-lengths ()
19879
87952270ceeb (ps-emacs-face-kind-p): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents: 19843
diff changeset
2414 "Display the correspondence between a line length and a font size,
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2415 using the current ps-print setup.
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2416 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
2417 (interactive)
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2418 (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
2419
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2420 ;;;###autoload
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2421 (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
2422 "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
2423 The table depends on 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
2424 (interactive (list (count-lines (point-min) (point-max))))
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2425 (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
2426
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2427 ;;;###autoload
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2428 (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
2429 "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
2430 The table depends on 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
2431 (interactive (list (count-lines (mark) (point))))
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2432 (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
2433
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2434 ;;;###autoload
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2435 (defun ps-setup ()
21955
c4de7c7bc14a (ps-header-title-font-size): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 21954
diff changeset
2436 "Return the current PostScript-generation setup."
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2437 (format
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2438 "
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2439 \(setq ps-print-color-p %s
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2440 ps-lpr-command %S
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2441 ps-lpr-switches %s
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2442 ps-printer-name %S
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2443 ps-print-region-function %s
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
2444
24414
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
2445 ps-paper-type %s
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
2446 ps-landscape-mode %s
28760
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
2447 ps-print-upside-down %s
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
2448 ps-number-of-columns %s
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
2449
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
2450 ps-zebra-stripes %s
19787
4ea00387fb08 (ps-setup): ps-zebra-stripe => ps-zebra-stripes.
Richard M. Stallman <rms@gnu.org>
parents: 19773
diff changeset
2451 ps-zebra-stripe-height %s
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
2452 ps-zebra-color %s
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
2453 ps-line-number %s
28760
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
2454 ps-line-number-step %s
28979
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
2455 ps-line-number-start %S
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2456
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
2457 ps-default-fg %s
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
2458 ps-default-bg %s
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
2459
28760
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
2460 ps-use-face-background %s
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
2461
24414
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
2462 ps-print-control-characters %s
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
2463
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
2464 ps-print-background-image %s
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
2465
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
2466 ps-print-background-text %s
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
2467
28153
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
2468 ps-error-handler-message %s
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
2469 ps-user-defined-prologue %s
24414
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
2470 ps-print-prologue-header %s
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
2471
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2472 ps-left-margin %s
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2473 ps-right-margin %s
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2474 ps-inter-column %s
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2475 ps-bottom-margin %s
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2476 ps-top-margin %s
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2477 ps-header-offset %s
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2478 ps-header-line-pad %s
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2479 ps-print-header %s
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2480 ps-print-only-one-header %s
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2481 ps-print-header-frame %s
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2482 ps-header-lines %s
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2483 ps-show-n-of-n %s
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2484 ps-spool-config %s
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2485 ps-spool-duplex %s
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2486 ps-spool-tumble %s
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2487 ps-banner-page-when-duplexing %s
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2488
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2489 ps-n-up-printing %s
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2490 ps-n-up-margin %s
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2491 ps-n-up-border-p %s
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2492 ps-n-up-filling %s
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
2493
24414
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
2494 ps-multibyte-buffer %s
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
2495 ps-font-family %s
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2496 ps-font-size %s
24414
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
2497 ps-header-font-family %s
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2498 ps-header-font-size %s
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2499 ps-header-title-font-size %s)
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2500 "
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2501 ps-print-color-p
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2502 ps-lpr-command
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
2503 (ps-print-quote ps-lpr-switches)
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
2504 ps-printer-name
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2505 (ps-print-quote ps-print-region-function)
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
2506 (ps-print-quote ps-paper-type)
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2507 ps-landscape-mode
28760
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
2508 ps-print-upside-down
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2509 ps-number-of-columns
19787
4ea00387fb08 (ps-setup): ps-zebra-stripe => ps-zebra-stripes.
Richard M. Stallman <rms@gnu.org>
parents: 19773
diff changeset
2510 ps-zebra-stripes
4ea00387fb08 (ps-setup): ps-zebra-stripe => ps-zebra-stripes.
Richard M. Stallman <rms@gnu.org>
parents: 19773
diff changeset
2511 ps-zebra-stripe-height
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
2512 (ps-print-quote ps-zebra-color)
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2513 ps-line-number
28760
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
2514 (ps-print-quote ps-line-number-step)
28979
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
2515 ps-line-number-start
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
2516 (ps-print-quote ps-default-fg)
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
2517 (ps-print-quote ps-default-bg)
28760
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
2518 (ps-print-quote ps-use-face-background)
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
2519 (ps-print-quote ps-print-control-characters)
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
2520 (ps-print-quote ps-print-background-image)
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
2521 (ps-print-quote ps-print-background-text)
28153
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
2522 (ps-print-quote ps-error-handler-message)
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
2523 (ps-print-quote ps-user-defined-prologue)
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
2524 (ps-print-quote ps-print-prologue-header)
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2525 ps-left-margin
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2526 ps-right-margin
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2527 ps-inter-column
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2528 ps-bottom-margin
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2529 ps-top-margin
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2530 ps-header-offset
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2531 ps-header-line-pad
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2532 ps-print-header
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
2533 ps-print-only-one-header
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2534 ps-print-header-frame
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2535 ps-header-lines
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2536 ps-show-n-of-n
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2537 (ps-print-quote ps-spool-config)
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2538 ps-spool-duplex
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2539 ps-spool-tumble
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2540 ps-banner-page-when-duplexing
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2541 ps-n-up-printing
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2542 ps-n-up-margin
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2543 ps-n-up-border-p
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2544 (ps-print-quote ps-n-up-filling)
27161
0a2452a20c74 ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 26883
diff changeset
2545 (ps-print-quote ps-multibyte-buffer) ; see `ps-mule.el'
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
2546 (ps-print-quote ps-font-family)
24414
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
2547 (ps-print-quote ps-font-size)
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
2548 (ps-print-quote ps-header-font-family)
24414
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
2549 (ps-print-quote ps-header-font-size)
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
2550 (ps-print-quote ps-header-title-font-size)))
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2551
27161
0a2452a20c74 ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 26883
diff changeset
2552
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2553 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2554 ;; Utility functions and variables:
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2555
27161
0a2452a20c74 ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 26883
diff changeset
2556
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
2557 (defun ps-print-quote (sym)
24414
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
2558 (cond ((null sym)
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
2559 nil)
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
2560 ((or (symbolp sym) (listp sym))
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
2561 (format "'%S" sym))
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
2562 ((stringp sym)
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
2563 (format "%S" sym))
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
2564 (t
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
2565 sym)))
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
2566
12769
4a905565cfa6 (ps-print-emacs-type): Renamed from emacs-type.
Richard M. Stallman <rms@gnu.org>
parents: 12768
diff changeset
2567 (defvar ps-print-emacs-type
4a905565cfa6 (ps-print-emacs-type): Renamed from emacs-type.
Richard M. Stallman <rms@gnu.org>
parents: 12768
diff changeset
2568 (cond ((string-match "XEmacs" emacs-version) 'xemacs)
4a905565cfa6 (ps-print-emacs-type): Renamed from emacs-type.
Richard M. Stallman <rms@gnu.org>
parents: 12768
diff changeset
2569 ((string-match "Lucid" emacs-version) 'lucid)
4a905565cfa6 (ps-print-emacs-type): Renamed from emacs-type.
Richard M. Stallman <rms@gnu.org>
parents: 12768
diff changeset
2570 ((string-match "Epoch" emacs-version) 'epoch)
4a905565cfa6 (ps-print-emacs-type): Renamed from emacs-type.
Richard M. Stallman <rms@gnu.org>
parents: 12768
diff changeset
2571 (t 'emacs)))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2572
12769
4a905565cfa6 (ps-print-emacs-type): Renamed from emacs-type.
Richard M. Stallman <rms@gnu.org>
parents: 12768
diff changeset
2573 (if (or (eq ps-print-emacs-type 'lucid)
4a905565cfa6 (ps-print-emacs-type): Renamed from emacs-type.
Richard M. Stallman <rms@gnu.org>
parents: 12768
diff changeset
2574 (eq ps-print-emacs-type 'xemacs))
11799
4a04c7799790 Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents: 10738
diff changeset
2575 (if (< emacs-minor-version 12)
4a04c7799790 Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents: 10738
diff changeset
2576 (setq ps-print-color-p nil))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2577 (require 'faces)) ; face-font, face-underline-p,
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2578 ; x-font-regexp
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2579
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2580 ;; Return t if the device (which can be changed during an emacs session)
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2581 ;; can handle colors.
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2582 ;; This is function is not yet implemented for GNU emacs.
23091
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
2583 (cond ((and (eq ps-print-emacs-type 'xemacs)
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
2584 (>= emacs-minor-version 12)) ; xemacs
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
2585 (defun ps-color-device ()
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
2586 (eq (device-class) 'color))
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
2587 )
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
2588
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
2589 (t ; emacs
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
2590 (defun ps-color-device ()
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
2591 t)
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
2592 ))
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
2593
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2594
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2595 (require 'time-stamp)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2596
27163
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
2597
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
2598 (defun ps-prologue-file (filenumber)
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
2599 (save-excursion
28760
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
2600 (let* ((filename (format "%sps-prin%d.ps"
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
2601 ps-postscript-code-directory filenumber))
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
2602 (buffer
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
2603 (or (find-file-noselect filename 'no-warn 'rawfile)
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
2604 (error "ps-print PostScript prologue `%s' file was not found."
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
2605 filename))))
27163
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
2606 (set-buffer buffer)
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
2607 (prog1
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
2608 (buffer-string)
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
2609 (kill-buffer buffer)))))
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
2610
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
2611
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
2612 (defvar ps-mark-code-directory nil)
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
2613
28153
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
2614 (defvar ps-print-prologue-0 ""
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
2615 "ps-print PostScript error handler.")
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
2616
27163
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
2617 (defvar ps-print-prologue-1 ""
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
2618 "ps-print PostScript prologue begin.")
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
2619
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
2620 (defvar ps-print-prologue-2 ""
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
2621 "ps-print PostScript prologue end.")
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
2622
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
2623 (defvar ps-print-duplex-feature ""
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
2624 "ps-print PostScript duplex feature.")
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2625
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2626 ;; Start Editing Here:
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2627
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2628 (defvar ps-source-buffer nil)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2629 (defvar ps-spool-buffer-name "*PostScript*")
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2630 (defvar ps-spool-buffer nil)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2631
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2632 (defvar ps-output-head nil)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2633 (defvar ps-output-tail nil)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2634
22397
31b7f6a60174 Fix spooled file bugs.
Richard M. Stallman <rms@gnu.org>
parents: 22204
diff changeset
2635 (defvar ps-page-postscript 0)
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2636 (defvar ps-page-order 0)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2637 (defvar ps-page-count 0)
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2638 (defvar ps-showline-count 1)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2639
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2640 (defvar ps-control-or-escape-regexp nil)
28979
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
2641 (defvar ps-n-up-on nil)
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2642
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2643 (defvar ps-background-pages nil)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2644 (defvar ps-background-all-pages nil)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2645 (defvar ps-background-text-count 0)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2646 (defvar ps-background-image-count 0)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2647
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2648 (defvar ps-current-font 0)
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
2649 (defvar ps-default-foreground nil)
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
2650 (defvar ps-default-color nil)
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
2651 (defvar ps-current-color nil)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2652 (defvar ps-current-bg nil)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2653
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2654 (defvar ps-razchunk 0)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2655
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
2656 (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
2657 (defvar ps-color-format
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2658 (if (eq ps-print-emacs-type 'emacs)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2659
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2660 ;; Emacs understands the %f format; we'll use it to limit color RGB
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2661 ;; values to three decimals to cut down some on the size of the
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2662 ;; PostScript output.
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2663 "%0.3f %0.3f %0.3f"
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2664
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2665 ;; Lucid emacsen will have to make do with %s (princ) for floats.
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2666 "%s %s %s"))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2667
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2668 ;; These values determine how much print-height to deduct when headers
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2669 ;; are turned on. This is a pretty clumsy way of handling it, but
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2670 ;; it'll do for now.
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2671
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2672 (defvar ps-header-pad 0
21955
c4de7c7bc14a (ps-header-title-font-size): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 21954
diff changeset
2673 "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
2674 This is in units of points (1/72 inch).")
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2675
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2676 ;; Define accessors to the dimensions list.
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2677
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2678 (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
2679 (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
2680 (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
2681
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2682 (defvar ps-landscape-page-height nil)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2683
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2684 (defvar ps-print-width nil)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2685 (defvar ps-print-height nil)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2686
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
2687 (defvar ps-height-remaining nil)
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
2688 (defvar ps-width-remaining nil)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2689
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2690 (defvar ps-print-color-scale nil)
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2691
24414
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
2692 (defvar ps-font-size-internal nil)
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
2693 (defvar ps-header-font-size-internal nil)
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
2694 (defvar ps-header-title-font-size-internal nil)
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
2695
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2696
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2697 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2698 ;; Internal Variables
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2699
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2700
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2701 (defvar ps-print-face-extension-alist nil
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2702 "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
2703 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
2704
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2705 (FACE . [BITS FG BG])
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2706
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2707 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
2708 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
2709 to a feature (bold, underline, etc)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2710 (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
2711 FG foreground color (string or nil)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2712 BG background color (string or nil)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2713
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2714 Don't change this list directly; instead,
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2715 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
2716 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
2717
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2718
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2719 (defvar ps-print-face-alist nil
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2720 "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
2721
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2722 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
2723 `ps-print-face-extension-alist'.
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2724
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2725 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
2726 `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
2727
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2728
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2729 (defconst ps-print-face-map-alist
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2730 '((bold . 1)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2731 (italic . 2)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2732 (underline . 4)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2733 (strikeout . 8)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2734 (overline . 16)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2735 (shadow . 32)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2736 (box . 64)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2737 (outline . 128))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2738 "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
2739 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
2740
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2741
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2742 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2743 ;; Remapping Faces
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2744
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2745
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2746 ;;;###autoload
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2747 (defun ps-extend-face-list (face-extension-list &optional merge-p)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2748 "Extend face in `ps-print-face-extension-alist'.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2749
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2750 If optional MERGE-P is non-nil, extensions in FACE-EXTENSION-LIST are merged
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2751 with face extension in `ps-print-face-extension-alist'; otherwise, overrides.
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2752
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2753 The elements in FACE-EXTENSION-LIST is like those for `ps-extend-face'.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2754
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2755 See `ps-extend-face' for documentation."
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2756 (while face-extension-list
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2757 (ps-extend-face (car face-extension-list) merge-p)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2758 (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
2759
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2760
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2761 ;;;###autoload
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2762 (defun ps-extend-face (face-extension &optional merge-p)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2763 "Extend face in `ps-print-face-extension-alist'.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2764
21954
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
2765 If optional MERGE-P is non-nil, extensions in FACE-EXTENSION list are merged
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2766 with face extensions in `ps-print-face-extension-alist'; otherwise, overrides.
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2767
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2768 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
2769
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2770 (FACE-NAME FOREGROUND BACKGROUND EXTENSION...)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2771
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2772 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
2773
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2774 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
2775 foreground and background colors respectively.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2776
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2777 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
2778 bold - use bold font.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2779 italic - use italic font.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2780 underline - put a line under text.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2781 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
2782 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
2783 shadow - text will have a shadow.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2784 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
2785 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
2786
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2787 If EXTENSION is any other symbol, it is ignored."
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2788 (let* ((face-name (nth 0 face-extension))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2789 (foreground (nth 1 face-extension))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2790 (background (nth 2 face-extension))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2791 (ps-face (cdr (assq face-name ps-print-face-extension-alist)))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2792 (face-vector (or ps-face (vector 0 nil nil)))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2793 (face-bit (ps-extension-bit face-extension)))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2794 ;; extend face
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2795 (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
2796 (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
2797 face-bit))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2798 (and foreground (stringp foreground) (aset face-vector 1 foreground))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2799 (and background (stringp background) (aset face-vector 2 background))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2800 ;; 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
2801 (or ps-face
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2802 (setq ps-print-face-extension-alist
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2803 (cons (cons face-name face-vector)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2804 ps-print-face-extension-alist)))))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2805
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2806
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2807 (defun ps-extension-bit (face-extension)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2808 (let ((face-bit 0))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2809 ;; 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
2810 (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
2811 (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
2812 (setq face-bit (logior face-bit
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2813 (or (cdr (assq (car face-extension)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2814 ps-print-face-map-alist))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2815 0))))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2816 face-bit))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2817
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2818
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2819 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2820 ;; Adapted from font-lock: (obsolete stuff)
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2821 ;; 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
2822 ;; 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
2823 ;; 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
2824 ;; 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
2825
27161
0a2452a20c74 ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 26883
diff changeset
2826
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2827 (defun ps-font-lock-face-attributes ()
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2828 (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
2829 (boundp 'font-lock-face-attributes)
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2830 (let ((face-attributes font-lock-face-attributes))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2831 (while face-attributes
21954
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
2832 (let* ((face-attribute
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
2833 (car (prog1 face-attributes
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
2834 (setq face-attributes (cdr face-attributes)))))
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2835 (face (car face-attribute)))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2836 ;; Rustle up a `defface' SPEC from a
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2837 ;; `font-lock-face-attributes' entry.
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2838 (unless (get face 'saved-face)
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2839 (let ((foreground (nth 1 face-attribute))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2840 (background (nth 2 face-attribute))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2841 (bold-p (nth 3 face-attribute))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2842 (italic-p (nth 4 face-attribute))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2843 (underline-p (nth 5 face-attribute))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2844 face-spec)
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2845 (when foreground
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2846 (setq face-spec (cons ':foreground
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2847 (cons foreground face-spec))))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2848 (when background
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2849 (setq face-spec (cons ':background
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2850 (cons background face-spec))))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2851 (when bold-p
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2852 (setq face-spec (append '(:bold t) face-spec)))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2853 (when italic-p
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2854 (setq face-spec (append '(:italic t) face-spec)))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2855 (when underline-p
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2856 (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
2857 (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
2858 )))))))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2859
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2860
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2861 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2862 ;; Internal functions and variables
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2863
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2864
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2865 (make-local-hook 'ps-print-hook)
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2866 (make-local-hook 'ps-print-begin-sheet-hook)
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2867 (make-local-hook 'ps-print-begin-page-hook)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2868 (make-local-hook 'ps-print-begin-column-hook)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2869
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2870
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2871 (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
2872 (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
2873 (ps-do-despool filename))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2874
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2875
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2876 (defun ps-spool-without-faces (from to &optional region-p)
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2877 (run-hooks 'ps-print-hook)
28601
419ab8689a3f Check for line-beginning-position definition.
Gerd Moellmann <gerd@gnu.org>
parents: 28576
diff changeset
2878 (ps-printing-region region-p from)
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2879 (ps-generate (current-buffer) from to 'ps-generate-postscript))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2880
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2881
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2882 (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
2883 (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
2884 (ps-do-despool filename))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2885
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2886
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2887 (defun ps-spool-with-faces (from to &optional region-p)
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2888 (run-hooks 'ps-print-hook)
28601
419ab8689a3f Check for line-beginning-position definition.
Gerd Moellmann <gerd@gnu.org>
parents: 28576
diff changeset
2889 (ps-printing-region region-p from)
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2890 (ps-generate (current-buffer) from to 'ps-generate-postscript-with-faces))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2891
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2892
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2893 (defun ps-count-lines (from to)
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2894 (+ (count-lines from to)
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2895 (save-excursion
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2896 (goto-char to)
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2897 (if (= (current-column) 0) 1 0))))
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2898
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2899
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2900 (defvar ps-printing-region nil
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2901 "Variable used to indicate if the region that ps-print is printing.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2902 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
2903 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
2904 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
2905 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
2906 file.")
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2907
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2908
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2909 (defvar ps-printing-region-p nil
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2910 "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
2911
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2912
28601
419ab8689a3f Check for line-beginning-position definition.
Gerd Moellmann <gerd@gnu.org>
parents: 28576
diff changeset
2913 (defun ps-printing-region (region-p from)
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2914 (setq ps-printing-region-p region-p
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2915 ps-printing-region
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2916 (cons (if region-p
28601
419ab8689a3f Check for line-beginning-position definition.
Gerd Moellmann <gerd@gnu.org>
parents: 28576
diff changeset
2917 (ps-count-lines (point-min) from)
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2918 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
2919 (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
2920
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2921
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2922 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2923 ;; Internal functions
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2924
27161
0a2452a20c74 ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 26883
diff changeset
2925
21999
35efe9eafc6c (ps-alist-position): Renamed from ps-position.
Richard M. Stallman <rms@gnu.org>
parents: 21955
diff changeset
2926 (defsubst ps-font-alist (font-sym)
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2927 (get font-sym 'fonts))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2928
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2929 (defun ps-font (font-sym font-type)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2930 "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
2931 (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
2932 (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
2933 (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
2934 (setq font-list (cdr font-list)))
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
2935 (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
2936
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2937 (defun ps-fonts (font-sym)
21999
35efe9eafc6c (ps-alist-position): Renamed from ps-position.
Richard M. Stallman <rms@gnu.org>
parents: 21955
diff changeset
2938 (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
2939
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2940 (defun 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
2941 (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
2942 0))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2943
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2944 (defsubst ps-line-height (font-sym)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2945 "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
2946 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
2947 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
2948 point at which page-breaks are placed.
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2949 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
2950 (get font-sym 'line-height))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2951
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2952 (defsubst ps-title-line-height (font-sym)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2953 "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
2954 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
2955 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
2956 point at which page-breaks are placed.
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2957 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
2958 (get font-sym 'title-line-height))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2959
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2960 (defsubst ps-space-width (font-sym)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2961 "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
2962 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
2963 (get font-sym 'space-width))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2964
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2965 (defsubst ps-avg-char-width (font-sym)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2966 "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
2967 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
2968 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
2969 which long lines wrap around."
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2970 (get font-sym 'avg-char-width))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2971
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2972 (defun ps-line-lengths-internal ()
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2973 "Display the correspondence between a line length and a font size,
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2974 using the current ps-print setup.
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2975 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
2976 (let ((buf (get-buffer-create "*Line-lengths*"))
24414
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
2977 (ifs ps-font-size-internal) ; initial font size
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2978 (icw (ps-avg-char-width 'ps-font-for-text)) ; initial character width
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2979 (print-width (progn (ps-get-page-dimensions)
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2980 ps-print-width))
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2981 (ps-setup (ps-setup)) ; setup for the current buffer
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2982 (fs-min 5) ; minimum font size
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2983 cw-min ; minimum character width
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2984 nb-cpl-max ; maximum nb of characters per line
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2985 (fs-max 14) ; maximum font size
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2986 cw-max ; maximum character width
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2987 nb-cpl-min ; minimum nb of characters per line
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2988 fs ; current font size
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2989 cw ; current character width
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2990 nb-cpl ; current nb of characters per line
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2991 )
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2992 (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
2993 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
2994 cw-max (/ (* icw fs-max) ifs)
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
2995 nb-cpl-min (floor (/ print-width cw-max))
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
2996 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
2997 (set-buffer buf)
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2998 (goto-char (point-max))
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
2999 (or (bolp) (insert "\n"))
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3000 (insert ps-setup
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3001 "nb 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
3002 (while (<= nb-cpl nb-cpl-max)
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3003 (setq cw (/ print-width (float nb-cpl))
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3004 fs (/ (* ifs cw) icw))
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3005 (insert (format "%3s %s\n" nb-cpl fs))
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3006 (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
3007 (insert "\n")
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3008 (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
3009
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3010 (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
3011 "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
3012 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
3013 and on 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
3014 (let ((buf (get-buffer-create "*Nb-Pages*"))
24414
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
3015 (ifs ps-font-size-internal) ; initial font size
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3016 (ilh (ps-line-height 'ps-font-for-text)) ; initial line height
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3017 (page-height (progn (ps-get-page-dimensions)
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3018 ps-print-height))
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3019 (ps-setup (ps-setup)) ; setup for the current buffer
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3020 (fs-min 4) ; minimum font size
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3021 lh-min ; minimum line height
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3022 nb-lpp-max ; maximum nb of lines per page
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3023 nb-page-min ; minimum nb of pages
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3024 (fs-max 14) ; maximum font size
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3025 lh-max ; maximum line height
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3026 nb-lpp-min ; minimum nb of lines per page
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3027 nb-page-max ; maximum nb of pages
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3028 fs ; current font size
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3029 lh ; current line height
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3030 nb-lpp ; current nb of lines per page
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3031 nb-page ; current nb of pages
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3032 )
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3033 (setq lh-min (/ (* ilh fs-min) ifs)
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3034 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
3035 nb-page-min (ceiling (/ (float nb-lines) nb-lpp-max))
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3036 lh-max (/ (* ilh fs-max) ifs)
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3037 nb-lpp-min (floor (/ page-height lh-max))
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3038 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
3039 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
3040 (set-buffer buf)
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3041 (goto-char (point-max))
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3042 (or (bolp) (insert "\n"))
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3043 (insert ps-setup
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3044 (format "%d lines\n" nb-lines)
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3045 "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
3046 (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
3047 (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
3048 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
3049 fs (/ (* ifs lh) ilh))
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3050 (insert (format "%s %s\n" nb-page fs))
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3051 (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
3052 (insert "\n")
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3053 (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
3054
21954
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
3055 ;; macros used in `ps-select-font'
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
3056 (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
3057 (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
3058
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3059 (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
3060 (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
3061 (or font-entry
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3062 (error "Don't have data to scale font %s. Known fonts families are %s"
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3063 font-family
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3064 (mapcar 'car ps-font-info-database)))
21954
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
3065 (let ((size (ps-lookup 'size)))
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
3066 (put sym 'fonts (ps-lookup 'fonts))
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
3067 (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
3068 (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
3069 (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
3070 (put sym 'title-line-height
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
3071 (/ (* (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
3072
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3073 (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
3074 (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
3075 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
3076 (cond
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3077 ((null page-dimensions)
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3078 (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
3079 (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
3080 ((< ps-number-of-columns 1)
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3081 (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
3082 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
3083
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3084 (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
3085 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
3086 (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
3087 ps-header-font-size-internal
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
3088 ps-header-title-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
3089
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3090 (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
3091 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
3092
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3093 ;; Landscape mode
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3094 (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
3095 ;; 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
3096 (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
3097
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3098 ;; 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
3099 (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
3100
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3101 ;; | 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
3102 ;; 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
3103 ;; => 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
3104 (setq ps-print-width (/ (- page-width
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3105 ps-left-margin ps-right-margin
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3106 (* (1- ps-number-of-columns) ps-inter-column))
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3107 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
3108 (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
3109 (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
3110 page-width == %s
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3111 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
3112 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
3113 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
3114 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
3115 | 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
3116 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
3117 => print-width == %d !"
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3118 page-width
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3119 ps-left-margin
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3120 ps-right-margin
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3121 ps-inter-column
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3122 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
3123 ps-print-width))
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3124
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3125 (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
3126 (- 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
3127 (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
3128 (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
3129 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
3130 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
3131 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
3132 => print-height == %d !"
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3133 ps-top-margin
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3134 ps-bottom-margin
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3135 ps-print-height))
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3136 ;; If headers are turned on, deduct the height of the header from
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3137 ;; the print height.
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3138 (if ps-print-header
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3139 (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
3140 (ps-title-line-height 'ps-font-for-header))
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3141 ps-print-height (- ps-print-height
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3142 ps-header-offset
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3143 ps-header-pad
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3144 (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
3145 (* (ps-line-height 'ps-font-for-header)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3146 (1- ps-header-lines))
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3147 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
3148 (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
3149 (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
3150 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
3151 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
3152 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
3153 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
3154 header-height == %s
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3155 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
3156 => print-height == %d !"
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3157 ps-top-margin
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3158 ps-bottom-margin
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3159 ps-header-offset
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3160 ps-header-pad
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3161 (+ ps-header-pad
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3162 (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
3163 (* (ps-line-height 'ps-font-for-header)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3164 (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
3165 ps-header-pad)
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3166 ps-print-height))))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3167
28576
1694ed739e69 Customization fix, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28426
diff changeset
3168 (defun ps-print-preprint (prefix-arg)
1694ed739e69 Customization fix, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28426
diff changeset
3169 (and prefix-arg
1694ed739e69 Customization fix, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28426
diff changeset
3170 (or (numberp prefix-arg)
1694ed739e69 Customization fix, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28426
diff changeset
3171 (listp prefix-arg))
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
3172 (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
3173 (buffer-name)))
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
3174 ".ps"))
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3175 (prompt (format "Save PostScript to file: (default %s) " name))
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3176 (res (read-file-name prompt default-directory name nil)))
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
3177 (while (cond ((not (file-writable-p res))
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
3178 (ding)
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
3179 (setq prompt "is unwritable"))
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
3180 ((file-exists-p res)
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
3181 (setq prompt "exists")
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
3182 (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
3183 res))))
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
3184 (t nil))
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
3185 (setq res (read-file-name
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
3186 (format "File %s; save PostScript to file: " prompt)
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
3187 (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
3188 (file-name-nondirectory res))))
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3189 (if (file-directory-p res)
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3190 (expand-file-name name (file-name-as-directory res))
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3191 res))))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3192
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3193 ;; The following functions implement a simple list-buffering scheme so
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3194 ;; 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
3195 ;; 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
3196 ;; 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
3197 ;; insert its contents into the spool buffer (*PostScript*).
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3198
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3199 (defvar ps-string-escape-codes
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3200 (let ((table (make-vector 256 nil))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3201 (char ?\000))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3202 ;; control characters
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3203 (while (<= char ?\037)
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3204 (aset table char (format "\\%03o" char))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3205 (setq char (1+ char)))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3206 ;; printable characters
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3207 (while (< char ?\177)
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3208 (aset table char (format "%c" char))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3209 (setq char (1+ char)))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3210 ;; DEL and 8-bit characters
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3211 (while (<= char ?\377)
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3212 (aset table char (format "\\%o" char))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3213 (setq char (1+ char)))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3214 ;; 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
3215 (aset table ?\n "\\n") ; [NL] linefeed
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3216 (aset table ?\r "\\r") ; [CR] carriage return
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3217 (aset table ?\t "\\t") ; [HT] horizontal tab
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3218 (aset table ?\b "\\b") ; [BS] backspace
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3219 (aset table ?\f "\\f") ; [NP] form feed
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3220 ;; Escape PostScript escape and string delimiter characters:
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3221 (aset table ?\\ "\\\\")
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3222 (aset table ?\( "\\(")
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3223 (aset table ?\) "\\)")
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3224 table)
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3225 "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
3226
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3227 (defun ps-output-string-prim (string)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3228 (insert "(") ;insert start-string delimiter
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3229 (save-excursion ;insert string
23091
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
3230 (insert (string-as-unibyte string)))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3231 ;; Find and quote special characters as necessary for PS
23307
5d6530954ece Skip invisible overlay.
Karl Heuer <kwzh@gnu.org>
parents: 23273
diff changeset
3232 ;; 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
3233 (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
3234 (let ((special (following-char)))
23091
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
3235 (delete-char 1)
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
3236 (insert (aref ps-string-escape-codes special))))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3237 (goto-char (point-max))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3238 (insert ")")) ;insert end-string delimiter
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3239
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3240 (defun ps-init-output-queue ()
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3241 (setq ps-output-head '("")
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3242 ps-output-tail ps-output-head))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3243
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3244 (defun ps-output (&rest args)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3245 (setcdr ps-output-tail args)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3246 (while (cdr ps-output-tail)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3247 (setq ps-output-tail (cdr ps-output-tail))))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3248
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3249 (defun ps-output-string (string)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3250 (ps-output t string))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3251
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3252 (defun ps-output-list (the-list)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3253 (mapcar 'ps-output the-list))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3254
23091
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
3255 ;; 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
3256 (defun ps-output-prologue (args)
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
3257 (ps-output 'prologue (if (stringp args) (list args) args)))
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
3258
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3259 (defun ps-flush-output ()
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3260 (save-excursion
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3261 (set-buffer ps-spool-buffer)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3262 (goto-char (point-max))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3263 (while ps-output-head
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3264 (let ((it (car ps-output-head)))
23091
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
3265 (cond
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
3266 ((eq t it)
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
3267 (setq ps-output-head (cdr ps-output-head))
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
3268 (ps-output-string-prim (car ps-output-head)))
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
3269 ((eq 'prologue it)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3270 (setq ps-output-head (cdr ps-output-head))
23091
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
3271 (save-excursion
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
3272 (search-backward "\nBeginDoc")
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
3273 (forward-char 1)
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
3274 (apply 'insert (car ps-output-head))))
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
3275 (t
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
3276 (insert it))))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3277 (setq ps-output-head (cdr ps-output-head))))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3278 (ps-init-output-queue))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3279
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3280 (defun ps-insert-file (fname)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3281 (ps-flush-output)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3282 (save-excursion
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3283 (set-buffer ps-spool-buffer)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3284 (goto-char (point-max))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3285 (insert-file fname)))
19879
87952270ceeb (ps-emacs-face-kind-p): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents: 19843
diff changeset
3286
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3287 ;; These functions insert the arrays that define the contents of the
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3288 ;; headers.
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3289
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3290 (defun ps-generate-header-line (fonttag &optional content)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3291 (ps-output " [ " fonttag " ")
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3292 (cond
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3293 ;; Literal strings should be output as is -- the string must
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3294 ;; contain its own PS string delimiters, '(' and ')', if necessary.
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3295 ((stringp content)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3296 (ps-output content))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3297
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3298 ;; Functions are called -- they should return strings; they will be
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3299 ;; inserted as strings and the PS string delimiters added.
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3300 ((and (symbolp content) (fboundp content))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3301 (ps-output-string (funcall content)))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3302
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3303 ;; Variables will have their contents inserted. They should
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3304 ;; contain strings, and will be inserted as strings.
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3305 ((and (symbolp content) (boundp content))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3306 (ps-output-string (symbol-value content)))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3307
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3308 ;; Anything else will get turned into an empty string.
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3309 (t
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3310 (ps-output-string "")))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3311 (ps-output " ]\n"))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3312
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3313 (defun ps-generate-header (name contents)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3314 (ps-output "/" name " [\n")
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3315 (if (> ps-header-lines 0)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3316 (let ((count 1))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3317 (ps-generate-header-line "/h0" (car contents))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3318 (while (and (< count ps-header-lines)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3319 (setq contents (cdr contents)))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3320 (ps-generate-header-line "/h1" (car contents))
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3321 (setq count (1+ count)))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3322 (ps-output "] def\n"))))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3323
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3324
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
3325 (defun ps-output-boolean (name bool)
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
3326 (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
3327
19879
87952270ceeb (ps-emacs-face-kind-p): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents: 19843
diff changeset
3328
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3329 (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
3330 (if page-list
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3331 (mapcar
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3332 #'(lambda (pages)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3333 (let ((start (if (consp pages) (car pages) pages))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3334 (end (if (consp pages) (cdr pages) pages)))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3335 (and (integerp start) (integerp end) (<= start end)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3336 (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
3337 page-list)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3338 (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
3339
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3340
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3341 (defconst ps-boundingbox-re
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3342 "^%%BoundingBox:\
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3343 \\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
3344
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3345
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3346 (defun ps-get-boundingbox ()
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3347 (save-excursion
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3348 (set-buffer ps-spool-buffer)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3349 (save-excursion
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3350 (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
3351 (vector (string-to-number ; lower x
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3352 (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
3353 (string-to-number ; lower y
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3354 (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
3355 (string-to-number ; upper x
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3356 (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
3357 (string-to-number ; upper y
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3358 (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
3359 (vector 0 0 0 0)))))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3360
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3361
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3362 ;; 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
3363 ;; to three decimals to cut down some on the size of the PostScript output.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3364 ;; Lucid emacsen will have to make do with %s (princ) for floats.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3365
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3366 (defvar ps-float-format (if (eq ps-print-emacs-type 'emacs)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3367 "%0.3f " ; emacs
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3368 "%s ")) ; Lucid emacsen
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3369
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3370
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3371 (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
3372 (let ((literal (or value default)))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3373 (if literal
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3374 (format (if (numberp literal)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3375 ps-float-format
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3376 "%s ")
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3377 literal)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3378 " ")))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3379
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3380
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3381 (defun ps-background-text ()
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3382 (mapcar
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3383 #'(lambda (text)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3384 (setq ps-background-text-count (1+ ps-background-text-count))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3385 (ps-output (format "/ShowBackText-%d {\n" ps-background-text-count))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3386 (ps-output-string (nth 0 text)) ; text
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3387 (ps-output
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3388 "\n"
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3389 (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
3390 (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
3391 (ps-float-format (nth 6 text)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3392 "PrintHeight PrintPageWidth atan") ; rotation
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3393 (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
3394 (ps-float-format (nth 1 text) "0") ; x position
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3395 (ps-float-format (nth 2 text) "BottomMargin") ; y position
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3396 "\nShowBackText} def\n")
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3397 (ps-background-pages (nthcdr 7 text) ; page list
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3398 (format "ShowBackText-%d\n"
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3399 ps-background-text-count)))
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3400 ps-print-background-text))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3401
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3402
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3403 (defun ps-background-image ()
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3404 (mapcar
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3405 #'(lambda (image)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3406 (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
3407 (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
3408 (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
3409 (ps-output
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
3410 (format "/ShowBackImage-%d {\n--back-- "
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
3411 ps-background-image-count)
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
3412 (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
3413 (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
3414 (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
3415 (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
3416 "PrintPageWidth 2 div")
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
3417 (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
3418 "PrintHeight 2 div BottomMargin add")
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
3419 "\nBeginBackImage\n")
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
3420 (ps-insert-file image-file)
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
3421 ;; coordinate adjustment to centralize image
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
3422 ;; around x and y position
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
3423 (let ((box (ps-get-boundingbox)))
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
3424 (save-excursion
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
3425 (set-buffer ps-spool-buffer)
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
3426 (save-excursion
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
3427 (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
3428 (replace-match
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
3429 (format "%s %s"
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
3430 (ps-float-format
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
3431 (- (+ (/ (- (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
3432 (aref box 0))))
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
3433 (ps-float-format
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
3434 (- (+ (/ (- (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
3435 (aref box 1)))))
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
3436 t)))))
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
3437 (ps-output "\nEndBackImage} def\n")
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
3438 (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
3439 (format "ShowBackImage-%d\n"
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
3440 ps-background-image-count)))))
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3441 ps-print-background-image))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3442
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3443
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3444 (defun ps-background (page-number)
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3445 (let (has-local-background)
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3446 (mapcar #'(lambda (range)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3447 (and (<= (aref range 0) page-number)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3448 (<= page-number (aref range 1))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3449 (if has-local-background
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3450 (ps-output (aref range 2))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3451 (setq has-local-background t)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3452 (ps-output "/printLocalBackground {\n"
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3453 (aref range 2)))))
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3454 ps-background-pages)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3455 (and has-local-background (ps-output "} def\n"))))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3456
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3457
21800
d4b4f44ce8da (ps-remove-duplicates): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 21642
diff changeset
3458 ;; Return a list of the distinct elements of LIST.
d4b4f44ce8da (ps-remove-duplicates): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 21642
diff changeset
3459 ;; Elements are compared with `equal'.
d4b4f44ce8da (ps-remove-duplicates): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 21642
diff changeset
3460 (defun ps-remove-duplicates (list)
d4b4f44ce8da (ps-remove-duplicates): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 21642
diff changeset
3461 (let (new (tail list))
d4b4f44ce8da (ps-remove-duplicates): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 21642
diff changeset
3462 (while tail
d4b4f44ce8da (ps-remove-duplicates): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 21642
diff changeset
3463 (or (member (car tail) new)
d4b4f44ce8da (ps-remove-duplicates): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 21642
diff changeset
3464 (setq new (cons (car tail) new)))
d4b4f44ce8da (ps-remove-duplicates): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 21642
diff changeset
3465 (setq tail (cdr tail)))
d4b4f44ce8da (ps-remove-duplicates): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 21642
diff changeset
3466 (nreverse new)))
d4b4f44ce8da (ps-remove-duplicates): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 21642
diff changeset
3467
23307
5d6530954ece Skip invisible overlay.
Karl Heuer <kwzh@gnu.org>
parents: 23273
diff changeset
3468
21954
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
3469 ;; 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
3470 ;; 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
3471 ;; Elements are compared with `eq'.
21999
35efe9eafc6c (ps-alist-position): Renamed from ps-position.
Richard M. Stallman <rms@gnu.org>
parents: 21955
diff changeset
3472 (defun ps-alist-position (item list)
21954
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
3473 (let ((tail list) (index 0) found)
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
3474 (while tail
21999
35efe9eafc6c (ps-alist-position): Renamed from ps-position.
Richard M. Stallman <rms@gnu.org>
parents: 21955
diff changeset
3475 (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
3476 (setq tail nil)
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
3477 (setq index (1+ index)
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
3478 tail (cdr tail))))
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
3479 (and found index)))
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
3480
73f9f4219198 Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents: 21801
diff changeset
3481
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3482 (defconst ps-n-up-database
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3483 '((a4
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3484 (1 nil 1 1 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3485 (2 t 1 2 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3486 (4 nil 2 2 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3487 (6 t 2 3 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3488 (8 t 2 4 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3489 (9 nil 3 3 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3490 (12 t 3 4 2)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3491 (16 nil 4 4 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3492 (18 t 3 6 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3493 (20 nil 5 4 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3494 (25 nil 5 5 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3495 (30 nil 6 5 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3496 (32 t 4 8 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3497 (36 nil 6 6 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3498 (42 nil 7 6 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3499 (49 nil 7 7 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3500 (50 t 5 10 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3501 (56 nil 8 7 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3502 (64 nil 8 8 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3503 (72 nil 9 8 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3504 (81 nil 9 9 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3505 (90 nil 10 9 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3506 (100 nil 10 10 0))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3507 (a3
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3508 (1 nil 1 1 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3509 (2 t 1 2 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3510 (4 nil 2 2 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3511 (6 t 2 3 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3512 (8 t 2 4 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3513 (9 nil 3 3 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3514 (12 nil 4 3 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3515 (16 nil 4 4 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3516 (18 t 3 6 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3517 (20 nil 5 4 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3518 (25 nil 5 5 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3519 (30 nil 6 5 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3520 (32 t 4 8 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3521 (36 nil 6 6 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3522 (42 nil 7 6 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3523 (49 nil 7 7 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3524 (50 t 5 10 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3525 (56 nil 8 7 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3526 (64 nil 8 8 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3527 (72 nil 9 8 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3528 (81 nil 9 9 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3529 (90 nil 10 9 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3530 (100 nil 10 10 0))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3531 (letter
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3532 (1 nil 1 1 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3533 (4 nil 2 2 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3534 (6 t 2 3 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3535 (9 nil 3 3 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3536 (12 nil 4 3 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3537 (16 nil 4 4 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3538 (20 nil 5 4 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3539 (25 nil 5 5 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3540 (30 nil 6 5 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3541 (36 nil 6 6 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3542 (40 t 5 8 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3543 (42 nil 7 6 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3544 (49 nil 7 7 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3545 (56 nil 8 7 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3546 (64 nil 8 8 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3547 (72 nil 9 8 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3548 (81 nil 9 9 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3549 (90 nil 10 9 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3550 (100 nil 10 10 0))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3551 (legal
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3552 (1 nil 1 1 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3553 (2 t 1 2 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3554 (4 nil 2 2 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3555 (6 nil 3 2 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3556 (9 nil 3 3 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3557 (10 t 2 5 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3558 (12 nil 4 3 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3559 (16 nil 4 4 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3560 (20 nil 5 4 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3561 (25 nil 5 5 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3562 (30 nil 6 5 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3563 (36 nil 6 6 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3564 (42 nil 7 6 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3565 (49 nil 7 7 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3566 (56 nil 8 7 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3567 (64 nil 8 8 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3568 (70 t 5 14 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3569 (72 nil 9 8 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3570 (81 nil 9 9 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3571 (90 nil 10 9 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3572 (100 nil 10 10 0))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3573 (letter-small
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3574 (1 nil 1 1 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3575 (4 nil 2 2 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3576 (6 t 2 3 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3577 (9 nil 3 3 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3578 (12 t 3 4 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3579 (15 t 3 5 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3580 (16 nil 4 4 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3581 (20 nil 5 4 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3582 (25 nil 5 5 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3583 (28 t 4 7 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3584 (30 nil 6 5 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3585 (36 nil 6 6 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3586 (40 t 5 8 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3587 (42 nil 7 6 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3588 (49 nil 7 7 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3589 (56 nil 8 7 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3590 (60 t 6 10 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3591 (64 nil 8 8 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3592 (72 ni 9 8 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3593 (81 nil 9 9 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3594 (84 t 7 12 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3595 (90 nil 10 9 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3596 (100 nil 10 10 0))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3597 (tabloid
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3598 (1 nil 1 1 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3599 (2 t 1 2 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3600 (4 nil 2 2 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3601 (6 t 2 3 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3602 (8 t 2 4 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3603 (9 nil 3 3 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3604 (12 nil 4 3 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3605 (16 nil 4 4 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3606 (20 nil 5 4 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3607 (25 nil 5 5 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3608 (30 nil 6 5 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3609 (36 nil 6 6 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3610 (42 nil 7 6 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3611 (49 nil 7 7 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3612 (56 nil 8 7 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3613 (64 nil 8 8 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3614 (72 nil 9 8 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3615 (81 nil 9 9 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3616 (84 t 6 14 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3617 (90 nil 10 9 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3618 (100 nil 10 10 0))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3619 ;; 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
3620 ;; 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
3621 ;; 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
3622 (ledger
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3623 (1 nil 1 1 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3624 (2 pag 1 2 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3625 (4 nil 2 2 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3626 (6 pag 2 3 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3627 (8 pag 2 4 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3628 (9 nil 3 3 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3629 (12 nil 4 3 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3630 (16 nil 4 4 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3631 (20 nil 5 4 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3632 (25 nil 5 5 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3633 (30 nil 6 5 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3634 (36 nil 6 6 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3635 (42 nil 7 6 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3636 (49 nil 7 7 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3637 (56 nil 8 7 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3638 (64 nil 8 8 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3639 (72 nil 9 8 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3640 (81 nil 9 9 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3641 (84 pag 6 14 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3642 (90 nil 10 9 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3643 (100 nil 10 10 0))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3644 (statement
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3645 (1 nil 1 1 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3646 (2 t 1 2 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3647 (4 nil 2 2 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3648 (6 nil 3 2 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3649 (9 nil 3 3 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3650 (10 t 2 5 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3651 (12 nil 4 3 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3652 (16 nil 4 4 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3653 (20 nil 5 4 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3654 (21 t 3 7 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3655 (25 nil 5 5 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3656 (30 nil 6 5 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3657 (36 nil 6 6 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3658 (40 t 4 10 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3659 (42 nil 7 6 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3660 (49 nil 7 7 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3661 (56 nil 8 7 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3662 (60 t 5 12 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3663 (64 nil 8 8 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3664 (72 nil 9 8 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3665 (81 nil 9 9 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3666 (90 nil 10 9 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3667 (100 nil 10 10 0))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3668 (executive
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3669 (1 nil 1 1 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3670 (4 nil 2 2 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3671 (6 t 2 3 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3672 (9 nil 3 3 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3673 (12 nil 4 3 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3674 (16 nil 4 4 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3675 (20 nil 5 4 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3676 (25 nil 5 5 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3677 (28 t 4 7 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3678 (30 nil 6 5 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3679 (36 nil 6 6 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3680 (42 nil 7 6 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3681 (45 t 5 9 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3682 (49 nil 7 7 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3683 (56 nil 8 7 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3684 (60 t 6 10 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3685 (64 nil 8 8 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3686 (72 nil 9 8 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3687 (81 nil 9 9 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3688 (84 t 7 12 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3689 (90 nil 10 9 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3690 (100 nil 10 10 0))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3691 (a4small
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3692 (1 nil 1 1 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3693 (2 t 1 2 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3694 (4 nil 2 2 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3695 (6 t 2 3 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3696 (8 t 2 4 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3697 (9 nil 3 3 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3698 (12 nil 4 3 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3699 (16 nil 4 4 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3700 (18 t 3 6 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3701 (20 nil 5 4 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3702 (25 nil 5 5 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3703 (30 nil 6 5 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3704 (32 t 4 8 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3705 (36 nil 6 6 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3706 (42 nil 7 6 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3707 (49 nil 7 7 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3708 (50 t 5 10 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3709 (56 nil 8 7 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3710 (64 nil 8 8 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3711 (72 nil 9 8 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3712 (78 t 6 13 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3713 (81 nil 9 9 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3714 (90 nil 10 9 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3715 (100 nil 10 10 0))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3716 (b4
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3717 (1 nil 1 1 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3718 (2 t 1 2 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3719 (4 nil 2 2 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3720 (6 t 2 3 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3721 (8 t 2 4 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3722 (9 nil 3 3 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3723 (12 nil 4 3 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3724 (16 nil 4 4 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3725 (18 t 3 6 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3726 (20 nil 5 4 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3727 (25 nil 5 5 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3728 (30 nil 6 5 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3729 (32 t 4 8 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3730 (36 nil 6 6 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3731 (42 nil 7 6 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3732 (49 nil 7 7 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3733 (50 t 5 10 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3734 (56 nil 8 7 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3735 (64 nil 8 8 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3736 (72 nil 9 8 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3737 (81 nil 9 9 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3738 (90 nil 10 9 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3739 (100 nil 10 10 0))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3740 (b5
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3741 (1 nil 1 1 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3742 (2 t 1 2 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3743 (4 nil 2 2 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3744 (6 t 2 3 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3745 (8 t 2 4 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3746 (9 nil 3 3 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3747 (12 nil 4 3 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3748 (16 nil 4 4 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3749 (18 t 3 6 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3750 (20 nil 5 4 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3751 (25 nil 5 5 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3752 (30 nil 6 5 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3753 (32 t 4 8 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3754 (36 nil 6 6 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3755 (42 nil 7 6 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3756 (49 nil 7 7 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3757 (50 t 5 10 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3758 (56 nil 8 7 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3759 (64 nil 8 8 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3760 (72 nil 9 8 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3761 (81 nil 9 9 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3762 (90 nil 10 9 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3763 (98 t 7 14 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3764 (100 nil 10 10 0)))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3765 "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
3766
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3767 Each element has the following form:
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3768
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3769 (PAGE
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3770 (MAX LANDSCAPE LINES COLUMNS COL-MISSING)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3771 ...)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3772
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3773 Where:
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3774 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
3775 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
3776 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
3777 values:
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3778 nil the sheet is in portrait mode.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3779 t the sheet is in landscape mode.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3780 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
3781 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
3782 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
3783 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
3784
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3785
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3786 (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
3787 (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
3788 (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
3789 (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
3790
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3791
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3792 (defun ps-n-up-printing ()
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3793 ;; 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
3794 (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
3795 ;; 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
3796 (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
3797 (and the-list
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3798 (while (> ps-n-up-printing (caar the-list))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3799 (setq the-list (cdr the-list))))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3800 (car the-list)))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3801
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3802
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3803 (defconst ps-n-up-filling-database
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3804 '((left-top
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3805 "PageWidth" ; N-Up-XColumn
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3806 "0" ; N-Up-YColumn
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3807 "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
3808 "LandscapePageHeight neg" ; N-Up-YLine
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3809 "N-Up-Lines" ; N-Up-Repeat
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3810 "N-Up-Columns" ; N-Up-End
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3811 "0" ; N-Up-XStart
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3812 "0") ; N-Up-YStart
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3813 (left-bottom
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3814 "PageWidth" ; N-Up-XColumn
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3815 "0" ; N-Up-YColumn
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3816 "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
3817 "LandscapePageHeight" ; N-Up-YLine
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3818 "N-Up-Lines" ; N-Up-Repeat
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3819 "N-Up-Columns" ; N-Up-End
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3820 "0" ; N-Up-XStart
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3821 "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
3822 (right-top
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3823 "PageWidth neg" ; N-Up-XColumn
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3824 "0" ; N-Up-YColumn
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3825 "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
3826 "LandscapePageHeight neg" ; N-Up-YLine
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3827 "N-Up-Lines" ; N-Up-Repeat
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3828 "N-Up-Columns" ; N-Up-End
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3829 "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
3830 "0") ; N-Up-YStart
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3831 (right-bottom
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3832 "PageWidth neg" ; N-Up-XColumn
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3833 "0" ; N-Up-YColumn
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3834 "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
3835 "LandscapePageHeight" ; N-Up-YLine
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3836 "N-Up-Lines" ; N-Up-Repeat
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3837 "N-Up-Columns" ; N-Up-End
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3838 "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
3839 "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
3840 (top-left
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3841 "0" ; N-Up-XColumn
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3842 "LandscapePageHeight neg" ; N-Up-YColumn
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3843 "PageWidth" ; N-Up-XLine
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3844 "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
3845 "N-Up-Columns" ; N-Up-Repeat
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3846 "N-Up-Lines" ; N-Up-End
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3847 "0" ; N-Up-XStart
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3848 "0") ; N-Up-YStart
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3849 (bottom-left
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3850 "0" ; N-Up-XColumn
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3851 "LandscapePageHeight" ; N-Up-YColumn
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3852 "PageWidth" ; N-Up-XLine
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3853 "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
3854 "N-Up-Columns" ; N-Up-Repeat
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3855 "N-Up-Lines" ; N-Up-End
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3856 "0" ; N-Up-XStart
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3857 "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
3858 (top-right
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3859 "0" ; N-Up-XColumn
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3860 "LandscapePageHeight neg" ; N-Up-YColumn
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3861 "PageWidth neg" ; N-Up-XLine
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3862 "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
3863 "N-Up-Columns" ; N-Up-Repeat
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3864 "N-Up-Lines" ; N-Up-End
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3865 "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
3866 "0") ; N-Up-YStart
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3867 (bottom-right
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3868 "0" ; N-Up-XColumn
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3869 "LandscapePageHeight" ; N-Up-YColumn
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3870 "PageWidth neg" ; N-Up-XLine
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3871 "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
3872 "N-Up-Columns" ; N-Up-Repeat
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3873 "N-Up-Lines" ; N-Up-End
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3874 "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
3875 "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
3876 "Alist for n-up printing initializations.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3877
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3878 Each element has the following form:
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3879
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3880 (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
3881
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3882 Where:
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3883 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
3884 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
3885 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
3886 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
3887 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
3888 a row.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3889 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
3890
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3891
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3892 (defun ps-n-up-filling ()
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3893 (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
3894 (assq 'left-top ps-n-up-filling-database))))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3895
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3896
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3897 (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
3898 (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
3899 (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
3900 (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
3901 (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
3902 (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
3903 (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
3904 (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
3905
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3906
28153
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
3907 (defconst ps-error-handler-alist
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
3908 '((none . 0)
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
3909 (paper . 1)
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
3910 (system . 2)
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
3911 (paper-and-system . 3))
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
3912 "Alist for error handler message")
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
3913
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
3914
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3915 (defun ps-begin-file ()
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3916 (ps-get-page-dimensions)
22397
31b7f6a60174 Fix spooled file bugs.
Richard M. Stallman <rms@gnu.org>
parents: 22204
diff changeset
3917 (setq ps-page-postscript 0
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3918 ps-page-order 0
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3919 ps-background-text-count 0
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3920 ps-background-image-count 0
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3921 ps-background-pages nil
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3922 ps-background-all-pages nil)
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3923
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3924 (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
3925 (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
3926 (n-up (ps-n-up-printing))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3927 (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
3928 (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
3929 (ps-output
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3930 ps-adobe-tag
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3931 "%%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
3932 ; first buffer printed
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3933 "\n%%Creator: " (user-full-name)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3934 " (using ps-print v" ps-print-version
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3935 ")\n%%CreationDate: "
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3936 (time-stamp-hh:mm:ss) " " (time-stamp-mon-dd-yyyy)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3937 "\n%%Orientation: "
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3938 (if ps-landscape-mode "Landscape" "Portrait")
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3939 "\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
3940 (mapconcat 'identity
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3941 (ps-remove-duplicates
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3942 (append (ps-fonts 'ps-font-for-text)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3943 (list (ps-font 'ps-font-for-header 'normal)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3944 (ps-font 'ps-font-for-header 'bold))))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3945 "\n%%+ font ")
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3946 "\n%%DocumentMedia: " (ps-page-dimensions-get-media dimensions)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3947 (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
3948 (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
3949 " 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
3950 (if ps-spool-duplex
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3951 (format " duplex%s" (if tumble "(tumble)\n" "\n"))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3952 "\n"))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3953
28153
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
3954 (ps-insert-string ps-print-prologue-header)
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3955
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3956 (ps-output "%%EndComments\n\n%%BeginPrologue\n\n"
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
3957 "/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
3958 (format "/ErrorMessage %s def\n\n"
28153
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
3959 (or (cdr (assoc ps-error-handler-message
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
3960 ps-error-handler-alist))
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
3961 1)) ; send to paper
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
3962 ps-print-prologue-0
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
3963 "\n%%BeginProcSet: UserDefinedPrologue\n\n")
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
3964
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
3965 (ps-insert-string ps-user-defined-prologue)
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
3966
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
3967 (ps-output "\n%%EndProcSet\n\n")
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3968
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3969 (ps-output-boolean "LandscapeMode "
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3970 (or ps-landscape-mode
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3971 (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
3972 (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
3973 (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
3974
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3975 (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
3976 (format "/PrintPageWidth %s def\n"
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3977 (- (* (+ ps-print-width ps-inter-column)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3978 ps-number-of-columns)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3979 ps-inter-column))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3980 (format "/PrintWidth %s def\n" ps-print-width)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3981 (format "/PrintHeight %s def\n" ps-print-height)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3982
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3983 (format "/LeftMargin %s def\n" ps-left-margin)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3984 (format "/RightMargin %s def\n" ps-right-margin)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3985 (format "/InterColumn %s def\n" ps-inter-column)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3986
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3987 (format "/BottomMargin %s def\n" ps-bottom-margin)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3988 (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
3989 (format "/HeaderOffset %s def\n" ps-header-offset)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3990 (format "/HeaderPad %s def\n" ps-header-pad))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3991
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3992 (ps-output-boolean "PrintHeader " ps-print-header)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3993 (ps-output-boolean "PrintOnlyOneHeader" ps-print-only-one-header)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3994 (ps-output-boolean "PrintHeaderFrame " ps-print-header-frame)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3995 (ps-output-boolean "ShowNofN " ps-show-n-of-n)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3996 (ps-output-boolean "DuplexValue " ps-spool-duplex)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3997 (ps-output-boolean "TumbleValue " tumble)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3998
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
3999 (let ((line-height (ps-line-height 'ps-font-for-text)))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4000 (ps-output (format "/LineHeight %s def\n" line-height)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4001 (format "/LinesPerColumn %d def\n"
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4002 (round (/ (+ ps-print-height
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4003 (* line-height 0.45))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4004 line-height)))))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4005
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4006 (ps-output-boolean "Zebra " ps-zebra-stripes)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4007 (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
4008 (ps-output-boolean "SyncLineZebra " (not (integerp ps-line-number-step)))
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
4009 (ps-output (format "/PrintLineStep %d def\n"
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
4010 (if (integerp ps-line-number-step)
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
4011 ps-line-number-step
28979
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
4012 ps-zebra-stripe-height))
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
4013 (format "/PrintLineStart %d def\n" ps-line-number-start)
28760
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
4014 (format "/ZebraHeight %d def\n" ps-zebra-stripe-height)
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
4015 "/ZebraColor "
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
4016 (ps-format-color ps-zebra-color 0.95)
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
4017 "def\n/BackgroundColor "
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
4018 (ps-format-color ps-default-bg 1.0)
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
4019 "def\n/UseSetpagedevice "
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4020 (if (eq ps-spool-config 'setpagedevice)
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
4021 "/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
4022 "false")
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
4023 " def\n\n/PageWidth "
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4024 "PrintPageWidth LeftMargin add RightMargin add def\n\n"
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4025 (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
4026 (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
4027 (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
4028 (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
4029 (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
4030 (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
4031 (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
4032 "/N-Up-Repeat "
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4033 (if ps-landscape-mode
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4034 (ps-n-up-end n-up-filling)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4035 (ps-n-up-repeat n-up-filling))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4036 " def\n/N-Up-End "
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4037 (if ps-landscape-mode
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4038 (ps-n-up-repeat n-up-filling)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4039 (ps-n-up-end n-up-filling))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4040 " 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
4041 " 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
4042 " 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
4043 " 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
4044 " 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
4045 " 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
4046
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4047 (ps-background-text)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4048 (ps-background-image)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4049 (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
4050 ps-background-pages (nreverse ps-background-pages))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4051
27163
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
4052 (ps-output "\n" ps-print-prologue-1)
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
4053
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
4054 (ps-output "\n/printGlobalBackground {\n")
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4055 (ps-output-list ps-background-all-pages)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4056 (ps-output "} def\n/printLocalBackground {\n} def\n")
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4057
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4058 ;; Header fonts
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4059 (ps-output (format "/h0 %s (%s) cvn DefFont\n" ; /h0 14 /Helvetica-Bold DefFont
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4060 ps-header-title-font-size-internal
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4061 (ps-font 'ps-font-for-header 'bold))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4062 (format "/h1 %s (%s) cvn DefFont\n" ; /h1 12 /Helvetica DefFont
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4063 ps-header-font-size-internal
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4064 (ps-font 'ps-font-for-header 'normal)))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4065
27163
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
4066 (ps-output "\n" ps-print-prologue-2 "\n")
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4067
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4068 ;; Text fonts
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4069 (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
4070 (i 0))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4071 (while font
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4072 (ps-output (format "/f%d %s (%s) cvn DefFont\n"
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4073 i
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4074 ps-font-size-internal
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4075 (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
4076 (setq font (cdr font)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4077 i (1+ i))))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4078
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4079 (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
4080 (ps-output (format "/SpaceWidthRatio %f def\n"
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4081 (/ (ps-lookup 'space-width) (ps-lookup 'size)))))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4082
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4083 (ps-output "\n%%EndPrologue\n\n%%BeginSetup\n")
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4084 (unless (eq ps-spool-config 'lpr-switches)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4085 (ps-output "\n%%BeginFeature: *Duplex "
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4086 (ps-boolean-capitalized ps-spool-duplex)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4087 " *Tumble "
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4088 (ps-boolean-capitalized tumble)
27163
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
4089 "\n\n"
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4090 ps-print-duplex-feature
27163
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
4091 "\n%%EndFeature\n")))
28286
02eba379a4e5 Skip banner page fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28266
diff changeset
4092 (ps-output "\n/Lines 0 def\n/PageCount 0 def\n\nBeginDoc\n%%EndSetup\n")
02eba379a4e5 Skip banner page fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28266
diff changeset
4093 (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
4094 (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
4095
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4096
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
4097 (defun ps-format-color (color &optional default)
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
4098 (let ((the-color (if (stringp color)
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
4099 (ps-color-scale color)
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
4100 color)))
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
4101 (if (and the-color (listp the-color))
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
4102 (concat "["
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
4103 (format ps-color-format
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
4104 (nth 0 the-color)
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
4105 (nth 1 the-color)
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
4106 (nth 2 the-color))
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
4107 "] ")
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
4108 (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
4109
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
4110
28153
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
4111 (defun ps-insert-string (prologue)
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
4112 (let ((str (if (functionp prologue)
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
4113 (funcall prologue)
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
4114 prologue)))
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
4115 (and (stringp str)
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
4116 (ps-output str))))
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
4117
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
4118
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4119 (defun ps-boolean-capitalized (bool)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4120 (if bool "True" "False"))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4121
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4122
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4123 (defun ps-header-dirpart ()
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4124 (let ((fname (buffer-file-name)))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4125 (if fname
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4126 (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
4127 (abbreviate-file-name (file-name-directory fname))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4128 fname)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4129 "")))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4130
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4131
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4132 (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
4133 (cond
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4134 ;; 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
4135 ((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
4136 "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
4137 ;; 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
4138 ((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
4139 "Super! C'est sokoban.el!")
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4140 (t (concat
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4141 (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
4142 (buffer-name)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4143 (and (buffer-modified-p) " (unsaved)")))))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4144
24414
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
4145
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
4146 (defun ps-get-font-size (font-sym)
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
4147 (let ((font-size (symbol-value font-sym)))
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
4148 (cond ((numberp font-size)
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
4149 font-size)
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
4150 ((and (consp font-size)
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
4151 (numberp (car font-size))
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
4152 (numberp (cdr font-size)))
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
4153 (if ps-landscape-mode
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
4154 (car font-size)
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
4155 (cdr font-size)))
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
4156 (t
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
4157 (error "Invalid font size `%S' for `%S'" font-size font-sym)))))
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
4158
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
4159
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4160 (defun ps-begin-job ()
28760
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
4161 (let ((last-char (aref ps-postscript-code-directory
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
4162 (1- (length ps-postscript-code-directory)))))
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
4163 (or (eq last-char ?/)
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
4164 (and ps-windows-system (eq last-char ?\\))
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
4165 (setq ps-postscript-code-directory
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
4166 (concat ps-postscript-code-directory "/"))))
27163
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
4167 (or (equal ps-mark-code-directory ps-postscript-code-directory)
28153
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
4168 (setq ps-print-prologue-0 (ps-prologue-file 0)
111343598e3e PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents: 27163
diff changeset
4169 ps-print-prologue-1 (ps-prologue-file 1)
27163
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
4170 ps-print-prologue-2 (ps-prologue-file 2)
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
4171 ps-print-duplex-feature (ps-prologue-file 3)
ea8740d15178 PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 27161
diff changeset
4172 ps-mark-code-directory ps-postscript-code-directory))
28760
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
4173 (or (listp ps-use-face-background)
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
4174 (setq ps-use-face-background t))
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
4175 (and (integerp ps-line-number-step)
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
4176 (<= ps-line-number-step 0)
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
4177 (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
4178 (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
4179 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
4180 (if (integerp ps-line-number-step)
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
4181 ps-line-number-step
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
4182 ps-zebra-stripe-height))))
22397
31b7f6a60174 Fix spooled file bugs.
Richard M. Stallman <rms@gnu.org>
parents: 22204
diff changeset
4183 (save-excursion
31b7f6a60174 Fix spooled file bugs.
Richard M. Stallman <rms@gnu.org>
parents: 22204
diff changeset
4184 (set-buffer ps-spool-buffer)
31b7f6a60174 Fix spooled file bugs.
Richard M. Stallman <rms@gnu.org>
parents: 22204
diff changeset
4185 (goto-char (point-max))
31b7f6a60174 Fix spooled file bugs.
Richard M. Stallman <rms@gnu.org>
parents: 22204
diff changeset
4186 (and (re-search-backward "^%%Trailer$" nil t)
31b7f6a60174 Fix spooled file bugs.
Richard M. Stallman <rms@gnu.org>
parents: 22204
diff changeset
4187 (delete-region (match-beginning 0) (point-max))))
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4188 (setq ps-showline-count (car ps-printing-region)
22397
31b7f6a60174 Fix spooled file bugs.
Richard M. Stallman <rms@gnu.org>
parents: 22204
diff changeset
4189 ps-page-count 0
24414
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
4190 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
4191 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
4192 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
4193 (ps-get-font-size 'ps-header-title-font-size)
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4194 ps-control-or-escape-regexp
23892
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
4195 (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
4196 (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
4197 ((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
4198 (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
4199 ((eq ps-print-control-characters 'control)
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
4200 "[\000-\037\177]")
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
4201 (t "[\t\n\f]"))
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
4202 ps-default-foreground (ps-rgb-color ps-default-fg 0.0)
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
4203 ps-default-color (and ps-print-color-p ps-default-foreground)
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
4204 ps-current-color ps-default-color
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
4205 ;; Set the color scale. We do it here instead of in the defvar so
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
4206 ;; that ps-print can be dumped into emacs. This expression can't be
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
4207 ;; evaluated at dump-time because X isn't initialized.
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
4208 ps-color-p (and ps-print-color-p (ps-color-device))
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
4209 ps-print-color-scale (if ps-color-p
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
4210 (float (car (ps-color-values "white")))
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
4211 1.0)))
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
4212
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
4213
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
4214 (defun ps-rgb-color (color default)
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
4215 (cond ((and color (listp color)) color)
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
4216 ((stringp color) (ps-color-scale color))
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
4217 ((numberp color) (list color color color))
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
4218 (t (list default default default))
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
4219 ))
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
4220
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4221
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4222 (defmacro ps-page-number ()
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4223 `(1+ (/ (1- ps-page-count) ps-number-of-columns)))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4224
28286
02eba379a4e5 Skip banner page fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28266
diff changeset
4225 (defun ps-end-file (needs-begin-file)
28266
3c235aa015c4 N-up last page fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28153
diff changeset
4226 (ps-flush-output)
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4227 ;; Back to the PS output buffer to set the last page n-up printing
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4228 (save-excursion
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4229 (let ((pages-per-sheet (mod ps-page-postscript ps-n-up-printing))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4230 case-fold-search)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4231 (set-buffer ps-spool-buffer)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4232 (goto-char (point-max))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4233 (and (> pages-per-sheet 0)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4234 (re-search-backward "^[0-9]+ BeginSheet$" nil t)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4235 (replace-match (format "%d BeginSheet" pages-per-sheet) t))))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4236 ;; Set dummy page
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4237 (and ps-spool-duplex (= (mod ps-page-order 2) 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4238 (ps-dummy-page))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4239 ;; Set end of PostScript file
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4240 (ps-output "EndSheet\n\n%%Trailer\n%%Pages: "
28286
02eba379a4e5 Skip banner page fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28266
diff changeset
4241 (format "%d"
02eba379a4e5 Skip banner page fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28266
diff changeset
4242 (if (and needs-begin-file ps-banner-page-when-duplexing)
02eba379a4e5 Skip banner page fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28266
diff changeset
4243 (1+ ps-page-order)
02eba379a4e5 Skip banner page fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28266
diff changeset
4244 ps-page-order))
22093
5818374d88e7 (ps-file-end): Put Trailer and Pages before EndDoc.
Richard M. Stallman <rms@gnu.org>
parents: 21999
diff changeset
4245 "\n\nEndDoc\n\n%%EOF\n"))
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4246
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4247
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4248 (defun ps-next-page ()
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4249 (ps-end-page)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4250 (ps-flush-output)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4251 (ps-begin-page))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4252
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4253
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4254 (defun ps-header-sheet ()
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4255 ;; Print only when a new sheet begins.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4256 (setq ps-page-postscript (1+ ps-page-postscript)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4257 ps-page-order (1+ ps-page-order))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4258 (and (> ps-page-order 1)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4259 (ps-output "EndSheet\n"))
28979
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
4260 (ps-output (if ps-n-up-on
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
4261 (format "\n%%%%Page: (%d \\(%d\\)) %d\n"
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
4262 ps-page-order ps-page-postscript ps-page-order)
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
4263 (format "\n%%%%Page: %d %d\n"
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
4264 ps-page-postscript ps-page-order))
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
4265 (format "%d BeginSheet\nBeginDSCPage\n" ps-n-up-printing)))
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4266
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4267
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4268 (defsubst ps-header-page ()
22397
31b7f6a60174 Fix spooled file bugs.
Richard M. Stallman <rms@gnu.org>
parents: 22204
diff changeset
4269 ;; 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
4270 ;; (see `ps-generate')
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4271 (run-hooks
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4272 (if (prog1
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4273 (zerop (mod ps-page-count ps-number-of-columns))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4274 (setq ps-page-count (1+ ps-page-count)))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4275 (prog1
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4276 (if (zerop (mod ps-page-postscript ps-n-up-printing))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4277 ;; Print only when a new sheet begins.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4278 (progn
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4279 (ps-header-sheet)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4280 'ps-print-begin-sheet-hook)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4281 ;; Print only when a new page begins.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4282 (setq ps-page-postscript (1+ ps-page-postscript))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4283 (ps-output "BeginDSCPage\n")
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4284 'ps-print-begin-page-hook)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4285 (ps-background ps-page-postscript))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4286 ;; Print only when a new column begins.
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4287 (ps-output "BeginDSCPage\n")
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4288 'ps-print-begin-column-hook)))
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4289
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
4290 (defun ps-begin-page ()
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4291 (ps-get-page-dimensions)
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
4292 (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
4293 ps-height-remaining ps-print-height)
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4294
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4295 (ps-header-page)
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4296
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4297 (ps-output (format "/LineNumber %d def\n" ps-showline-count)
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4298 (format "/PageNumber %d def\n" (if ps-print-only-one-header
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4299 (ps-page-number)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4300 ps-page-count)))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4301
16870
4a5fa29f79d6 (ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents: 16361
diff changeset
4302 (when ps-print-header
4a5fa29f79d6 (ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents: 16361
diff changeset
4303 (ps-generate-header "HeaderLinesLeft" ps-left-header)
4a5fa29f79d6 (ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents: 16361
diff changeset
4304 (ps-generate-header "HeaderLinesRight" ps-right-header)
4a5fa29f79d6 (ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents: 16361
diff changeset
4305 (ps-output (format "%d SetHeaderLines\n" ps-header-lines)))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4306
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4307 (ps-output "BeginPage\n")
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4308 (ps-set-font ps-current-font)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4309 (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
4310 (ps-set-color ps-current-color)
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
4311 (ps-mule-begin-page))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4312
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4313 (defun ps-end-page ()
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4314 (ps-output "EndPage\nEndDSCPage\n"))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4315
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4316 (defun ps-dummy-page ()
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4317 (let ((ps-n-up-printing 0))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4318 (ps-header-sheet))
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4319 (ps-output "/PrintHeader false def
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4320 /ColumnIndex 0 def
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4321 /PrintLineNumber false def
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4322 BeginPage
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4323 EndPage
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4324 EndDSCPage\n")
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4325 (setq ps-page-postscript ps-n-up-printing))
19879
87952270ceeb (ps-emacs-face-kind-p): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents: 19843
diff changeset
4326
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4327 (defun ps-next-line ()
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4328 (setq ps-showline-count (1+ ps-showline-count))
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4329 (let ((lh (ps-line-height 'ps-font-for-text)))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4330 (if (< ps-height-remaining lh)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4331 (ps-next-page)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4332 (setq ps-width-remaining ps-print-width
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4333 ps-height-remaining (- ps-height-remaining lh))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4334 (ps-output "HL\n"))))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4335
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4336 (defun ps-continue-line ()
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4337 (let ((lh (ps-line-height 'ps-font-for-text)))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4338 (if (< ps-height-remaining lh)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4339 (ps-next-page)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4340 (setq ps-width-remaining ps-print-width
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4341 ps-height-remaining (- ps-height-remaining lh))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4342 (ps-output "SL\n"))))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4343
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4344 (defun ps-find-wrappoint (from to char-width)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4345 (let ((avail (truncate (/ ps-width-remaining char-width)))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4346 (todo (- to from)))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4347 (if (< todo avail)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4348 (cons to (* todo char-width))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4349 (cons (+ from avail) ps-width-remaining))))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4350
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4351 (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
4352 (let* ((wrappoint (ps-find-wrappoint from to
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4353 (ps-avg-char-width 'ps-font-for-text)))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4354 (to (car wrappoint))
23892
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
4355 (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
4356 (ps-mule-prepare-ascii-font string)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4357 (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
4358 (ps-output " S\n")
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4359 wrappoint))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4360
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4361 (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
4362 (let* ((wrappoint (ps-find-wrappoint from to
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4363 (ps-space-width 'ps-font-for-text)))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4364 (to (car wrappoint)))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4365 (ps-output (format "%d W\n" (- to from)))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4366 wrappoint))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4367
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4368 (defun ps-plot (plotfunc from to &optional bg-color)
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4369 (while (< from to)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4370 (let* ((wrappoint (funcall plotfunc from to bg-color))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4371 (plotted-to (car wrappoint))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4372 (plotted-width (cdr wrappoint)))
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
4373 (setq from plotted-to
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
4374 ps-width-remaining (- ps-width-remaining plotted-width))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4375 (if (< from to)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4376 (ps-continue-line))))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4377 (if ps-razzle-dazzle
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4378 (let* ((q-todo (- (point-max) (point-min)))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4379 (q-done (- (point) (point-min)))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4380 (chunkfrac (/ q-todo 8))
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4381 (chunksize (min chunkfrac 1000)))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4382 (if (> (- q-done ps-razchunk) chunksize)
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
4383 (progn
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4384 (setq ps-razchunk q-done)
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
4385 (message "Formatting...%3d%%"
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
4386 (if (< q-todo 100)
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
4387 (/ (* 100 q-done) q-todo)
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
4388 (/ q-done (/ q-todo 100)))
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
4389 ))))))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4390
23892
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
4391 (defvar ps-last-font nil)
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
4392
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4393 (defun ps-set-font (font)
23091
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
4394 (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
4395 (ps-output (format "/%s F\n" ps-last-font)))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4396
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4397 (defun ps-set-bg (color)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4398 (if (setq ps-current-bg color)
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
4399 (ps-output (format ps-color-format
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
4400 (nth 0 color) (nth 1 color) (nth 2 color))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4401 " true BG\n")
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4402 (ps-output "false BG\n")))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4403
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4404 (defun ps-set-color (color)
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
4405 (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
4406 (ps-output (format ps-color-format
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
4407 (nth 0 ps-current-color)
11799
4a04c7799790 Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents: 10738
diff changeset
4408 (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
4409 " FG\n"))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4410
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4411
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4412 (defvar ps-current-effect 0)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4413
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4414
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4415 (defun ps-plot-region (from to font &optional fg-color bg-color effects)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4416 (if (not (equal font ps-current-font))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4417 (ps-set-font font))
19879
87952270ceeb (ps-emacs-face-kind-p): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents: 19843
diff changeset
4418
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4419 ;; Specify a foreground color only if one's specified and it's
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4420 ;; different than the current.
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4421 (if (not (equal fg-color ps-current-color))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4422 (ps-set-color fg-color))
19879
87952270ceeb (ps-emacs-face-kind-p): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents: 19843
diff changeset
4423
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4424 (if (not (equal bg-color ps-current-bg))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4425 (ps-set-bg bg-color))
19879
87952270ceeb (ps-emacs-face-kind-p): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents: 19843
diff changeset
4426
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4427 ;; Specify effects (underline, overline, box, etc)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4428 (cond
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4429 ((not (integerp effects))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4430 (ps-output "0 EF\n")
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4431 (setq ps-current-effect 0))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4432 ((/= effects ps-current-effect)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4433 (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
4434 (setq ps-current-effect effects)))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4435
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4436 ;; Starting at the beginning of the specified region...
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4437 (save-excursion
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4438 (goto-char from)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4439
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4440 ;; ...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
4441 ;; pagefeeds, control characters, and plot each chunk.
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4442 (while (< from to)
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4443 (if (re-search-forward ps-control-or-escape-regexp to t)
23551
385d7c586ad2 Doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 23550
diff changeset
4444 ;; 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
4445 (let* ((match-point (match-beginning 0))
26883
c1e6932eea92 (ps-plot-region): Handle new composition.
Kenichi Handa <handa@m17n.org>
parents: 26563
diff changeset
4446 (match (char-after match-point))
c1e6932eea92 (ps-plot-region): Handle new composition.
Kenichi Handa <handa@m17n.org>
parents: 26563
diff changeset
4447 (composition (find-composition from (1+ match-point))))
c1e6932eea92 (ps-plot-region): Handle new composition.
Kenichi Handa <handa@m17n.org>
parents: 26563
diff changeset
4448 (if composition
c1e6932eea92 (ps-plot-region): Handle new composition.
Kenichi Handa <handa@m17n.org>
parents: 26563
diff changeset
4449 (if (and (nth 2 composition)
c1e6932eea92 (ps-plot-region): Handle new composition.
Kenichi Handa <handa@m17n.org>
parents: 26563
diff changeset
4450 (<= (car composition) match-point))
c1e6932eea92 (ps-plot-region): Handle new composition.
Kenichi Handa <handa@m17n.org>
parents: 26563
diff changeset
4451 (progn
c1e6932eea92 (ps-plot-region): Handle new composition.
Kenichi Handa <handa@m17n.org>
parents: 26563
diff changeset
4452 (setq match-point (car composition)
c1e6932eea92 (ps-plot-region): Handle new composition.
Kenichi Handa <handa@m17n.org>
parents: 26563
diff changeset
4453 match 0)
c1e6932eea92 (ps-plot-region): Handle new composition.
Kenichi Handa <handa@m17n.org>
parents: 26563
diff changeset
4454 (goto-char (nth 1 composition)))
c1e6932eea92 (ps-plot-region): Handle new composition.
Kenichi Handa <handa@m17n.org>
parents: 26563
diff changeset
4455 (setq composition nil)))
23091
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
4456 (when (< from match-point)
23892
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
4457 (ps-mule-set-ascii-font)
23091
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
4458 (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
4459 (cond
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4460 ((= match ?\t) ; tab
23167
ada869918064 (ps-mule-font-info-database-bdf): The include ASCII
Kenichi Handa <handa@m17n.org>
parents: 23138
diff changeset
4461 (let ((linestart (line-beginning-position)))
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4462 (forward-char -1)
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4463 (setq from (+ linestart (current-column)))
23091
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
4464 (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
4465 (ps-mule-set-ascii-font)
23091
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
4466 (ps-plot 'ps-basic-plot-whitespace
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
4467 from (+ linestart (current-column))
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
4468 bg-color))))
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4469
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4470 ((= match ?\n) ; newline
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4471 (ps-next-line))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4472
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4473 ((= match ?\f) ; form feed
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4474 ;; 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
4475 ;; it is a beginning of page.
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4476 (or (and (= (char-after (1- match-point)) ?\n)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4477 (= ps-height-remaining ps-print-height))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4478 (ps-next-page)))
23091
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
4479
26883
c1e6932eea92 (ps-plot-region): Handle new composition.
Kenichi Handa <handa@m17n.org>
parents: 26563
diff changeset
4480 (composition ; a composite sequence
c1e6932eea92 (ps-plot-region): Handle new composition.
Kenichi Handa <handa@m17n.org>
parents: 26563
diff changeset
4481 (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
4482
c1e6932eea92 (ps-plot-region): Handle new composition.
Kenichi Handa <handa@m17n.org>
parents: 26563
diff changeset
4483 ; characters from ^@ to ^_ and
23551
385d7c586ad2 Doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 23550
diff changeset
4484 ((> match 255) ; a multi-byte character
26883
c1e6932eea92 (ps-plot-region): Handle new composition.
Kenichi Handa <handa@m17n.org>
parents: 26563
diff changeset
4485 (let* ((charset (char-charset match))
c1e6932eea92 (ps-plot-region): Handle new composition.
Kenichi Handa <handa@m17n.org>
parents: 26563
diff changeset
4486 (composition (find-composition match-point to))
c1e6932eea92 (ps-plot-region): Handle new composition.
Kenichi Handa <handa@m17n.org>
parents: 26563
diff changeset
4487 (stop (if (nth 2 composition) (car composition) to)))
23091
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
4488 (or (eq charset 'composition)
26883
c1e6932eea92 (ps-plot-region): Handle new composition.
Kenichi Handa <handa@m17n.org>
parents: 26563
diff changeset
4489 (while (and (< (point) stop) (eq (charset-after) charset))
23892
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
4490 (forward-char 1)))
23091
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
4491 (ps-plot 'ps-mule-plot-string match-point (point) bg-color)))
26883
c1e6932eea92 (ps-plot-region): Handle new composition.
Kenichi Handa <handa@m17n.org>
parents: 26563
diff changeset
4492
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4493 (t ; characters from 127 to 255
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4494 (ps-control-character match)))
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4495 (setq from (point)))
23551
385d7c586ad2 Doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 23550
diff changeset
4496 ;; 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
4497 (ps-mule-set-ascii-font)
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4498 (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
4499 (setq from to)))))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4500
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4501 (defvar ps-string-control-codes
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4502 (let ((table (make-vector 256 nil))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4503 (char ?\000))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4504 ;; control character
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4505 (while (<= char ?\037)
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4506 (aset table char (format "^%c" (+ char ?@)))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4507 (setq char (1+ char)))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4508 ;; printable character
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4509 (while (< char ?\177)
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4510 (aset table char (format "%c" char))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4511 (setq char (1+ char)))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4512 ;; DEL
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4513 (aset table char "^?")
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4514 ;; 8-bit character
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4515 (while (<= (setq char (1+ char)) ?\377)
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4516 (aset table char (format "\\%o" char)))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4517 table)
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4518 "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
4519
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4520 (defun ps-control-character (char)
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4521 (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
4522 (from (1- (point)))
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4523 (len (length str))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4524 (to (+ from len))
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4525 (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
4526 (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
4527 (if (< (car wrappoint) to)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4528 (ps-continue-line))
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4529 (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
4530 (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
4531 (ps-output-string str)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4532 (ps-output " S\n")))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4533
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
4534 (defun ps-color-scale (color)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4535 ;; Scale 16-bit X-COLOR-VALUE to PostScript color value in [0, 1] interval.
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
4536 (mapcar #'(lambda (value) (/ value ps-print-color-scale))
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
4537 (ps-color-values color)))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4538
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
4539
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
4540 (cond ((eq ps-print-emacs-type 'emacs) ; emacs
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
4541
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
4542 (defun ps-color-values (x-color)
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
4543 (if (fboundp 'x-color-values)
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
4544 (x-color-values x-color)
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
4545 (error "No available function to determine X color values.")))
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
4546 )
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
4547 ; xemacs
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
4548 ; lucid
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
4549 (t ; epoch
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
4550 (defun ps-color-values (x-color)
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
4551 (let ((the-color (if (color-specifier-p x-color)
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
4552 (color-name x-color)
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
4553 x-color)))
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
4554 (cond
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
4555 ((fboundp 'x-color-values)
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
4556 (x-color-values the-color))
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
4557 ((and (fboundp 'color-instance-rgb-components)
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
4558 (ps-color-device))
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
4559 (color-instance-rgb-components
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
4560 (if (color-instance-p x-color)
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
4561 x-color
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
4562 (make-color-instance the-color))))
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
4563 (t
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
4564 (error "No available function to determine X color values.")))))
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
4565 ))
11799
4a04c7799790 Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents: 10738
diff changeset
4566
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4567
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4568 (defun ps-face-attributes (face)
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4569 "Return face attribute vector.
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4570
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4571 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
4572 `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
4573 return the attribute vector.
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4574
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4575 If FACE is not a valid face name, it is used default face."
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4576 (cdr (or (assq face ps-print-face-extension-alist)
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4577 (assq face ps-print-face-alist)
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4578 (let* ((the-face (if (facep face) face 'default))
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4579 (new-face (ps-screen-to-bit-face the-face)))
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4580 (or (and (eq the-face 'default)
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4581 (assq the-face ps-print-face-alist))
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4582 (setq ps-print-face-alist (cons new-face ps-print-face-alist)))
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4583 new-face))))
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4584
11799
4a04c7799790 Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents: 10738
diff changeset
4585
28760
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
4586 (defun ps-face-background (face background)
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
4587 (and (or (eq ps-use-face-background t)
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
4588 (cond ((symbolp face)
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
4589 (memq face ps-use-face-background))
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
4590 ((listp face)
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
4591 (let (ok)
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
4592 (while face
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
4593 (if (memq (car face) ps-use-face-background)
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
4594 (setq face nil
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
4595 ok t)
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
4596 (setq face (cdr face))))
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
4597 ok))
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
4598 (t
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
4599 nil)
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
4600 ))
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
4601 background))
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
4602
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
4603
11799
4a04c7799790 Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents: 10738
diff changeset
4604 (defun ps-face-attribute-list (face-or-list)
4a04c7799790 Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents: 10738
diff changeset
4605 (if (listp face-or-list)
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4606 ;; list of faces
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4607 (let ((effects 0)
28760
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
4608 foreground background face-attr face)
11799
4a04c7799790 Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents: 10738
diff changeset
4609 (while face-or-list
28760
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
4610 (setq face (car face-or-list)
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
4611 face-or-list (cdr face-or-list)
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
4612 face-attr (ps-face-attributes face)
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
4613 effects (logior effects (aref face-attr 0)))
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4614 (or foreground (setq foreground (aref face-attr 1)))
28760
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
4615 (or background
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
4616 (setq background (ps-face-background face (aref face-attr 2)))))
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4617 (vector effects foreground background))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4618 ;; simple face
11799
4a04c7799790 Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents: 10738
diff changeset
4619 (ps-face-attributes face-or-list)))
4a04c7799790 Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents: 10738
diff changeset
4620
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4621
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4622 (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
4623
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4624
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4625 (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
4626 (cond
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4627 ((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
4628 (ps-plot-region from to 0))
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4629 ((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
4630 (t ; otherwise, text has a valid face
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4631 (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
4632 (effect (aref face-bit 0))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4633 (foreground (aref face-bit 1))
28760
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
4634 (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
4635 (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
4636 (ps-color-scale foreground)
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4637 ps-default-color))
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
4638 (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
4639 (ps-color-scale background))))
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4640 (ps-plot-region
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4641 from to
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4642 (ps-font-number 'ps-font-for-text
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4643 (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
4644 face))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4645 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
4646 (goto-char to))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4647
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4648
28979
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
4649 (defun ps-xemacs-face-kind-p (face kind kind-regex)
23892
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
4650 (let* ((frame-font (or (face-font-instance face)
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
4651 (face-font-instance 'default)))
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
4652 (kind-cons (and frame-font
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
4653 (assq kind
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
4654 (font-instance-properties frame-font))))
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
4655 (kind-spec (cdr-safe kind-cons))
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
4656 (case-fold-search t))
28979
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
4657 (and kind-spec (string-match kind-regex kind-spec))))
23892
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
4658
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
4659
23091
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
4660 (cond ((eq ps-print-emacs-type 'emacs) ; emacs
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
4661
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
4662 (defun ps-face-bold-p (face)
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
4663 (or (face-bold-p face)
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
4664 (memq face ps-bold-faces)))
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
4665
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
4666 (defun ps-face-italic-p (face)
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
4667 (or (face-italic-p face)
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
4668 (memq face ps-italic-faces)))
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
4669 )
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
4670 ; xemacs
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
4671 ; lucid
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
4672 (t ; epoch
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
4673 (defun ps-face-bold-p (face)
28979
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
4674 (or (ps-xemacs-face-kind-p face 'WEIGHT_NAME "bold\\|demibold")
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
4675 (memq face ps-bold-faces))) ; Kludge-compatible
23091
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
4676
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
4677 (defun ps-face-italic-p (face)
28979
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
4678 (or (ps-xemacs-face-kind-p face 'ANGLE_NAME "i\\|o")
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
4679 (ps-xemacs-face-kind-p face 'SLANT "i\\|o")
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
4680 (memq face ps-italic-faces))) ; Kludge-compatible
23091
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
4681 ))
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
4682
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4683
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4684 (defun ps-face-underlined-p (face)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4685 (or (face-underline-p face)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4686 (memq face ps-underlined-faces)))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4687
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4688
11799
4a04c7799790 Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents: 10738
diff changeset
4689 ;; Ensure that face-list is fbound.
4a04c7799790 Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents: 10738
diff changeset
4690 (or (fboundp 'face-list) (defalias 'face-list 'list-faces))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4691
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4692
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4693 (defun ps-build-reference-face-lists ()
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4694 ;; 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
4695 ;; `font-lock-face-attributes' (obsolete stuff)
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4696 (ps-font-lock-face-attributes)
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4697 ;; Now, rebuild reference face lists
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4698 (setq ps-print-face-alist nil)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4699 (if ps-auto-font-detect
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4700 (mapcar 'ps-map-face (face-list))
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4701 (mapcar 'ps-set-face-bold ps-bold-faces)
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4702 (mapcar 'ps-set-face-italic ps-italic-faces)
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4703 (mapcar 'ps-set-face-underline ps-underlined-faces))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4704 (setq ps-build-face-reference nil))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4705
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4706
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4707 (defun ps-set-face-bold (face)
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4708 (ps-set-face-attribute face 1))
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4709
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4710 (defun ps-set-face-italic (face)
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4711 (ps-set-face-attribute face 2))
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4712
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4713 (defun ps-set-face-underline (face)
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4714 (ps-set-face-attribute face 4))
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4715
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4716
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4717 (defun ps-set-face-attribute (face effect)
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4718 (let ((face-bit (cdr (ps-map-face face))))
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4719 (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
4720
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4721
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4722 (defun ps-map-face (face)
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4723 (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
4724 (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
4725 (if ps-face-bit
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4726 ;; if face exists, merge both
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4727 (let ((face-bit (cdr face-map)))
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4728 (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
4729 (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
4730 (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
4731 ;; if face does not exist, insert it
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4732 (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
4733 face-map))
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4734
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4735
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4736 (defun ps-screen-to-bit-face (face)
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4737 (cons face
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4738 (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
4739 (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
4740 (if (ps-face-underlined-p face) 4 0)) ; underline
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4741 (face-foreground face)
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4742 (face-background face))))
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4743
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4744
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
4745 (cond ((not (eq ps-print-emacs-type 'emacs))
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
4746 ; xemacs
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
4747 ; lucid
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
4748 ; epoch
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
4749 (defun ps-mapper (extent list)
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
4750 (nconc list (list (list (extent-start-position extent) 'push extent)
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
4751 (list (extent-end-position extent) 'pull extent)))
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
4752 nil)
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
4753
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
4754 (defun ps-extent-sorter (a b)
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
4755 (< (extent-priority a) (extent-priority b)))
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
4756 ))
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
4757
11799
4a04c7799790 Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents: 10738
diff changeset
4758
4a04c7799790 Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents: 10738
diff changeset
4759 (defun ps-print-ensure-fontified (start end)
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4760 (and (boundp 'lazy-lock-mode) (symbol-value 'lazy-lock-mode)
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
4761 (lazy-lock-fontify-region start end)))
11799
4a04c7799790 Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents: 10738
diff changeset
4762
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4763 (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
4764 ;; Some initialization...
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4765 (setq ps-current-effect 0)
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4766
10683
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
4767 ;; Build the reference lists of faces if necessary.
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4768 (if (or ps-always-build-face-reference
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4769 ps-build-face-reference)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4770 (progn
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4771 (message "Collecting face information...")
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4772 (ps-build-reference-face-lists)))
10683
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
4773 ;; Generate some PostScript.
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4774 (save-restriction
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4775 (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
4776 (ps-print-ensure-fontified from to)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4777 (let ((face 'default)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4778 (position to))
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4779 (cond
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4780 ((or (eq ps-print-emacs-type 'lucid)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4781 (eq ps-print-emacs-type 'xemacs))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4782 ;; Build the list of extents...
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4783 (let ((a (cons 'dummy nil))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4784 record type extent extent-list)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4785 (map-extents 'ps-mapper nil from to a)
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
4786 (setq a (sort (cdr a) 'car-less-than-car)
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
4787 extent-list nil)
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4788
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4789 ;; Loop through the extents...
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4790 (while a
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
4791 (setq record (car a)
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
4792
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
4793 position (car record)
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
4794 record (cdr record)
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
4795
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
4796 type (car record)
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
4797 record (cdr record)
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
4798
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
4799 extent (car record))
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4800
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4801 ;; Plot up to this record.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4802 ;; 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
4803 ;; 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
4804 ;; positions less than 'from'. Since we've narrowed
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4805 ;; the buffer, this'll generate errors. This is a
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4806 ;; hack, but don't call ps-plot-with-face unless from >
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4807 ;; point-min.
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
4808 (and (>= from (point-min)) (<= position (point-max))
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
4809 (ps-plot-with-face from position face))
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4810
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4811 (cond
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4812 ((eq type 'push)
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
4813 (and (extent-face extent)
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
4814 (setq extent-list (sort (cons extent extent-list)
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
4815 'ps-extent-sorter))))
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4816
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4817 ((eq type 'pull)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4818 (setq extent-list (sort (delq extent extent-list)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4819 'ps-extent-sorter))))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4820
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
4821 (setq face (if extent-list
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
4822 (extent-face (car extent-list))
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
4823 'default)
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
4824 from position
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
4825 a (cdr a)))))
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4826
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4827 ((eq ps-print-emacs-type 'emacs)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4828 (let ((property-change from)
23091
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
4829 (overlay-change from)
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
4830 (save-buffer-invisibility-spec buffer-invisibility-spec)
23307
5d6530954ece Skip invisible overlay.
Karl Heuer <kwzh@gnu.org>
parents: 23273
diff changeset
4831 (buffer-invisibility-spec nil))
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4832 (while (< from to)
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
4833 (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
4834 ; unless previous search succeeded.
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
4835 (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
4836 (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
4837 ; unless previous search succeeded.
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
4838 (setq overlay-change (min (next-overlay-change from) to)))
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
4839 (setq position (min property-change overlay-change))
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4840 ;; 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
4841 ;; 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
4842 ;; 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
4843 ;; of buffer-invisibility-spec nonetheless overrides
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4844 ;; a face text property.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4845 (setq face
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4846 (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
4847 ;; Decide whether this invisible property
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4848 ;; really makes the text invisible.
23091
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
4849 (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
4850 (not (null prop))
23091
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
4851 (or (memq prop save-buffer-invisibility-spec)
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
4852 (assq prop save-buffer-invisibility-spec))))
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
4853 'emacs--invisible--face)
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4854 ((get-text-property from 'face))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4855 (t 'default)))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4856 (let ((overlays (overlays-at from))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4857 (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
4858 (while (and overlays
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
4859 (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
4860 (let* ((overlay (car overlays))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4861 (overlay-invisible (overlay-get overlay 'invisible))
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
4862 (overlay-priority (or (overlay-get overlay 'priority)
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4863 0)))
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
4864 (and (> overlay-priority face-priority)
23091
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
4865 (setq face
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
4866 (cond ((if (eq save-buffer-invisibility-spec t)
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
4867 (not (null overlay-invisible))
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
4868 (or (memq overlay-invisible
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
4869 save-buffer-invisibility-spec)
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
4870 (assq overlay-invisible
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
4871 save-buffer-invisibility-spec)))
23307
5d6530954ece Skip invisible overlay.
Karl Heuer <kwzh@gnu.org>
parents: 23273
diff changeset
4872 'emacs--invisible--face)
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
4873 ((overlay-get overlay 'face))
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
4874 (t face))
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
4875 face-priority overlay-priority)))
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4876 (setq overlays (cdr overlays))))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4877 ;; Plot up to this record.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4878 (ps-plot-with-face from position face)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4879 (setq from position)))))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4880 (ps-plot-with-face from to face))))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4881
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4882 (defun ps-generate-postscript (from to)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4883 (ps-plot-region from to 0 nil))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4884
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4885 (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
4886 (save-excursion
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4887 (let ((from (min to from))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4888 (to (max to from))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4889 ;; 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
4890 ;; are copied into ps-spool-buffer.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4891 (inhibit-read-only t))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4892 (save-restriction
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4893 (narrow-to-region from to)
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4894 (and ps-razzle-dazzle
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4895 (message "Formatting...%3d%%" (setq ps-razchunk 0)))
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
4896 (setq ps-source-buffer buffer
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
4897 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
4898 (ps-init-output-queue)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4899 (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
4900 (unwind-protect
10683
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
4901 (progn
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
4902 (set-buffer ps-spool-buffer)
22397
31b7f6a60174 Fix spooled file bugs.
Richard M. Stallman <rms@gnu.org>
parents: 22204
diff changeset
4903 (set-buffer-multibyte nil)
23138
14e74d2a49cb (ps-print-control-characters): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23091
diff changeset
4904
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4905 ;; 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
4906 ;; 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
4907 ;; the end of this marker onwards.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4908 (setq safe-marker (make-marker))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4909 (set-marker safe-marker (point-max))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4910
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4911 (goto-char (point-min))
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
4912 (or (looking-at (regexp-quote ps-adobe-tag))
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
4913 (setq needs-begin-file t))
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4914 (save-excursion
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4915 (set-buffer ps-source-buffer)
24414
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
4916 (ps-begin-job)
23892
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
4917 (when needs-begin-file
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
4918 (ps-begin-file)
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
4919 (ps-mule-initialize))
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
4920 (ps-mule-begin-job from to)
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4921 (ps-begin-page))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4922 (set-buffer ps-source-buffer)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4923 (funcall genfunc from to)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4924 (ps-end-page)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4925
28286
02eba379a4e5 Skip banner page fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28266
diff changeset
4926 (ps-end-file needs-begin-file)
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4927 (ps-end-job)
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4928
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4929 ;; 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
4930 ;; 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
4931 (setq completed-safely t))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4932
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4933 ;; 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
4934 ;; 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
4935 ;; 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
4936 ;; corrupted.
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
4937 (and (markerp safe-marker) (not completed-safely)
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
4938 (progn
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
4939 (set-buffer ps-spool-buffer)
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
4940 (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
4941
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4942 (and ps-razzle-dazzle (message "Formatting...done"))))))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4943
23091
25c95d9da0af Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents: 22751
diff changeset
4944
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4945 (defun ps-end-job ()
28266
3c235aa015c4 N-up last page fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28153
diff changeset
4946 (ps-flush-output)
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4947 (let ((total-lines (cdr ps-printing-region))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4948 (total-pages (if ps-print-only-one-header
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4949 (ps-page-number)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4950 ps-page-count))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4951 case-fold-search)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4952 (set-buffer ps-spool-buffer)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4953 ;; Back to the PS output buffer to set the page count
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4954 (goto-char (point-min))
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4955 (and (re-search-forward "^/Lines 0 def\n/PageCount 0 def$" nil t)
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4956 (replace-match (format "/Lines %d def\n/PageCount %d def"
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4957 total-lines total-pages) t))))
24414
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
4958
971efbc0ac2c Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents: 24090
diff changeset
4959
28979
b6e33b095c08 * ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28760
diff changeset
4960 (defvar ps-printer-name-option
28760
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
4961 (cond (ps-windows-system
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
4962 "-P")
28760
057be2bc2b43 Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents: 28601
diff changeset
4963 (ps-lp-system
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
4964 "-d")
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
4965 (t
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
4966 "-P" )))
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
4967
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
4968
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4969 ;; Permit dynamic evaluation at print time of `ps-lpr-switches'.
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4970 (defun ps-do-despool (filename)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4971 (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
4972 (not (symbol-value 'ps-spool-buffer)))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4973 (message "No spooled PostScript to print")
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4974 (if filename
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4975 (save-excursion
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4976 (and ps-razzle-dazzle (message "Saving..."))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4977 (set-buffer ps-spool-buffer)
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4978 (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
4979 (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
4980 (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
4981 (and ps-razzle-dazzle (message "Wrote %s" filename)))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4982 ;; Else, spool to the printer
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
4983 (and ps-razzle-dazzle (message "Printing..."))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4984 (save-excursion
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4985 (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
4986 (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
4987 (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
4988 (and (boundp 'printer-name)
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
4989 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
4990 (ps-lpr-switches
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4991 (append (and (stringp ps-printer-name)
28426
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
4992 (list (concat ps-printer-name-option
5236c7327cd6 PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28286
diff changeset
4993 ps-printer-name)))
26114
c19849fe02b5 Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents: 24851
diff changeset
4994 ps-lpr-switches)))
24090
3a9da940e5f2 (ps-printer-name): Update docstring about usage on
Andrew Innes <andrewi@gnu.org>
parents: 23938
diff changeset
4995 (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
4996 (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
4997 (and (fboundp 'start-process) 0)
3a9da940e5f2 (ps-printer-name): Update docstring about usage on
Andrew Innes <andrewi@gnu.org>
parents: 23938
diff changeset
4998 nil
3a9da940e5f2 (ps-printer-name): Update docstring about usage on
Andrew Innes <andrewi@gnu.org>
parents: 23938
diff changeset
4999 (ps-flatten-list ; dynamic evaluation
3a9da940e5f2 (ps-printer-name): Update docstring about usage on
Andrew Innes <andrewi@gnu.org>
parents: 23938
diff changeset
5000 (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
5001 (and ps-razzle-dazzle (message "Printing...done")))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
5002 (kill-buffer ps-spool-buffer)))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
5003
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
5004 ;; Dynamic evaluation
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
5005 (defun ps-eval-switch (arg)
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
5006 (cond ((stringp arg) arg)
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
5007 ((functionp arg) (apply arg nil))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
5008 ((symbolp arg) (symbol-value arg))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
5009 ((consp arg) (apply (car arg) (cdr arg)))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
5010 (t nil)))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
5011
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
5012 ;; `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
5013 ;; 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
5014 ;; 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
5015
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
5016 ;; (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
5017 ;; => (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
5018
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
5019 (defun ps-flatten-list (&rest list)
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
5020 (ps-flatten-list-1 list))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
5021
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
5022 (defun ps-flatten-list-1 (list)
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
5023 (cond ((null list) nil)
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
5024 ((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
5025 (ps-flatten-list-1 (cdr list))))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
5026 (t (list list))))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
5027
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
5028 (defun ps-kill-emacs-check ()
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
5029 (let (ps-buffer)
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
5030 (and (setq ps-buffer (get-buffer ps-spool-buffer-name))
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
5031 (buffer-modified-p ps-buffer)
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
5032 (y-or-n-p "Unprinted PostScript waiting; print now? ")
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
5033 (ps-despool))
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
5034 (and (setq ps-buffer (get-buffer ps-spool-buffer-name))
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
5035 (buffer-modified-p ps-buffer)
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
5036 (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
5037 (error "Unprinted PostScript"))))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
5038
23550
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
5039 (cond ((fboundp 'add-hook)
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
5040 (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
5041 (kill-emacs-hook
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
5042 (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
5043 (t
d8a958630c9d User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23484
diff changeset
5044 (setq kill-emacs-hook 'ps-kill-emacs-check)))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
5045
23892
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
5046
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
5047 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
5048 ;;; Sample Setup Code:
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
5049
27161
0a2452a20c74 ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents: 26883
diff changeset
5050
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
5051 ;; 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
5052 ;; 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
5053 ;; 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
5054
23892
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
5055 ;; 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
5056 ;; 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
5057
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
5058 (defmacro ps-prsc ()
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
5059 `(if (eq ps-print-emacs-type 'emacs) [f22] 'f22))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
5060 (defmacro ps-c-prsc ()
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
5061 `(if (eq ps-print-emacs-type 'emacs) [C-f22] '(control f22)))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
5062 (defmacro ps-s-prsc ()
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
5063 `(if (eq ps-print-emacs-type 'emacs) [S-f22] '(shift f22)))
10683
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
5064
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
5065 ;; 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
5066 ;; `ps-left-headers' specially for mail messages.
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
5067 (defun ps-rmail-mode-hook ()
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
5068 (local-set-key (ps-prsc) 'ps-rmail-print-message-from-summary)
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
5069 (setq ps-header-lines 3
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
5070 ps-left-header
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
5071 ;; 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
5072 ;; 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
5073 '(ps-article-subject ps-article-author buffer-name)))
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
5074
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
5075 ;; 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
5076 ;; same thing for rmail.
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
5077 (defun ps-rmail-print-message-from-summary ()
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
5078 (interactive)
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
5079 (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
5080
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
5081 ;; Used in `ps-rmail-print-article-from-summary',
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
5082 ;; `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
5083 (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
5084 (let ((ps-buf (or (and (boundp summary-buffer)
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
5085 (symbol-value summary-buffer))
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
5086 summary-default)))
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
5087 (and (get-buffer ps-buf)
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
5088 (save-excursion
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
5089 (set-buffer ps-buf)
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
5090 (ps-spool-buffer-with-faces)))))
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
5091
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
5092 ;; 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
5093 ;; placed in `ps-left-headers'.
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
5094 (defun ps-article-subject ()
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
5095 (save-excursion
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
5096 (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
5097 (if (re-search-forward "^Subject:[ \t]+\\(.*\\)$" nil t)
28576
1694ed739e69 Customization fix, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28426
diff changeset
5098 (buffer-substring (match-beginning 1) (match-end 1))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
5099 "Subject ???")))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
5100
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
5101 ;; 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
5102 ;; 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
5103 ;; 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
5104 (defun ps-article-author ()
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
5105 (save-excursion
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
5106 (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
5107 (if (re-search-forward "^From:[ \t]+\\(.*\\)$" nil t)
28576
1694ed739e69 Customization fix, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28426
diff changeset
5108 (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
5109 (cond
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
5110
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
5111 ;; Try first to match addresses that look like
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
5112 ;; thompson@wg2.waii.com (Jim Thompson)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
5113 ((string-match ".*[ \t]+(\\(.*\\))" fromstring)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
5114 (substring fromstring (match-beginning 1) (match-end 1)))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
5115
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
5116 ;; Next try to match addresses that look like
28576
1694ed739e69 Customization fix, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28426
diff changeset
5117 ;; Jim Thompson <thompson@wg2.waii.com> or
1694ed739e69 Customization fix, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28426
diff changeset
5118 ;; "Jim Thompson" <thompson@wg2.waii.com>
1694ed739e69 Customization fix, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28426
diff changeset
5119 ((string-match "\\(\"?\\)\\(.*\\)\\1[ \t]+<.*>" fromstring)
1694ed739e69 Customization fix, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28426
diff changeset
5120 (substring fromstring (match-beginning 2) (match-end 2)))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
5121
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
5122 ;; Couldn't find a real name -- show the address instead.
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
5123 (t fromstring)))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
5124 "From ???")))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
5125
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
5126 ;; 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
5127 ;; `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
5128 ;; `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
5129 ;; 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
5130 ;; 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
5131 ;; only alternative is `gnus-article-prepare-hook'.
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
5132 (defun ps-gnus-article-prepare-hook ()
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
5133 (setq ps-header-lines 3
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
5134 ps-left-header
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
5135 ;; The left headers will display the article's subject, its
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
5136 ;; author, and the newsgroup it was in.
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
5137 '(ps-article-subject ps-article-author gnus-newsgroup-name)))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
5138
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
5139 ;; 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
5140 ;; `ps-left-headers' specially for mail messages.
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
5141 (defun ps-vm-mode-hook ()
10683
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
5142 (local-set-key (ps-prsc) 'ps-vm-print-message-from-summary)
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
5143 (setq ps-header-lines 3
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
5144 ps-left-header
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
5145 ;; The left headers will display the message's subject, its
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
5146 ;; 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
5147 '(ps-article-subject ps-article-author buffer-name)))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
5148
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
5149 ;; 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
5150 ;; 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
5151 ;; 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
5152 ;; 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
5153 ;; buffers first.
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
5154 ;; sb: Updated for Gnus 5.
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
5155 (defun ps-gnus-print-article-from-summary ()
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
5156 (interactive)
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
5157 (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
5158
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
5159 ;; 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
5160 ;; same thing for vm.
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
5161 (defun ps-vm-print-message-from-summary ()
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
5162 (interactive)
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
5163 (ps-print-message-from-summary 'vm-mail-buffer ""))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
5164
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
5165 ;; 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
5166 ;; prsc.
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
5167 (defun ps-gnus-summary-setup ()
10683
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
5168 (local-set-key (ps-prsc) 'ps-gnus-print-article-from-summary))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
5169
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
5170 ;; 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
5171 ;; placed in `ps-left-headers'.
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
5172 (defun ps-info-file ()
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
5173 (save-excursion
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
5174 (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
5175 (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
5176 (buffer-substring (match-beginning 1) (match-end 1))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
5177 "File ???")))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
5178
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
5179 ;; 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
5180 ;; placed in `ps-left-headers'.
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
5181 (defun ps-info-node ()
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
5182 (save-excursion
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
5183 (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
5184 (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
5185 (buffer-substring (match-beginning 1) (match-end 1))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
5186 "Node ???")))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
5187
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
5188 (defun ps-info-mode-hook ()
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
5189 (setq ps-left-header
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
5190 ;; 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
5191 '(ps-info-node ps-info-file)))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
5192
11799
4a04c7799790 Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents: 10738
diff changeset
5193 ;; 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
5194 ;; 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
5195 ;; 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
5196 ;; 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
5197 ;; modification.)
4a04c7799790 Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents: 10738
diff changeset
5198
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
5199 (defun ps-jts-ps-setup ()
10683
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
5200 (global-set-key (ps-prsc) 'ps-spool-buffer-with-faces) ;f22 is prsc
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
5201 (global-set-key (ps-s-prsc) 'ps-spool-region-with-faces)
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
5202 (global-set-key (ps-c-prsc) 'ps-despool)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
5203 (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
5204 (add-hook 'gnus-summary-mode-hook 'ps-gnus-summary-setup)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
5205 (add-hook 'vm-mode-hook 'ps-vm-mode-hook)
10683
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
5206 (add-hook 'vm-mode-hooks 'ps-vm-mode-hook)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
5207 (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
5208 (setq ps-spool-duplex t
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
5209 ps-print-color-p nil
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
5210 ps-lpr-command "lpr"
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
5211 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
5212 '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
5213
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
5214 ;; 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
5215 ;; 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
5216 ;; (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
5217 ;; 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
5218 ;; without modification.)
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
5219
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
5220 (defun ps-jack-setup ()
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
5221 (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
5222 ps-lpr-command "lpr"
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
5223 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
5224
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
5225 ps-paper-type 'a4
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
5226 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
5227 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
5228
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
5229 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
5230 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
5231 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
5232 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
5233 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
5234 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
5235 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
5236 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
5237 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
5238 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
5239 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
5240 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
5241
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
5242 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
5243 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
5244 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
5245 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
5246 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
5247 'ps-jack-setup)
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
5248
23892
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
5249
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
5250 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
5251 ;; 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
5252 ;; But autoload them here to make the separation invisible.
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
5253
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
5254 (autoload 'ps-mule-prepare-ascii-font "ps-mule"
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
5255 "Setup special ASCII font for STRING.
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
5256 STRING should contain only ASCII characters.")
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
5257
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
5258 (autoload 'ps-mule-set-ascii-font "ps-mule"
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
5259 "Adjust current font if current charset is not ASCII.")
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
5260
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
5261 (autoload 'ps-mule-plot-string "ps-mule"
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
5262 "Generate PostScript code for ploting characters in the region FROM and TO.
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
5263
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
5264 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
5265
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
5266 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
5267
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
5268 Returns the value:
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
5269
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
5270 (ENDPOS . RUN-WIDTH)
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
5271
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
5272 Where ENDPOS is the end position of the sequence and RUN-WIDTH is the width of
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
5273 the sequence.")
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
5274
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
5275 (autoload 'ps-mule-initialize "ps-mule"
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
5276 "Initialize global data for printing multi-byte characters.")
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
5277
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
5278 (autoload 'ps-mule-begin-job "ps-mule"
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
5279 "Start printing job for multi-byte chars between FROM and TO.
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
5280 This checks if all multi-byte characters in the region are printable or not.")
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
5281
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
5282 (autoload 'ps-mule-begin-page "ps-mule"
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
5283 "Initialize multi-byte charset for printing current page.")
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
5284
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
5285
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
5286 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
f05e983b8486 (ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 23829
diff changeset
5287
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
5288 (provide 'ps-print)
10738
e7d5b119b583 (ps-print-version): Add caveat about version number.
Richard M. Stallman <rms@gnu.org>
parents: 10683
diff changeset
5289
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
5290 ;;; ps-print.el ends here