Mercurial > emacs
annotate lisp/ps-print.el @ 27161:0a2452a20c74
ps-vars eliminated, doc fix.
(ps-print-version): New version number (5.0.2).
(ps-spool-config): Initialization fix.
(ps-print-customize): New fun.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Wed, 05 Jan 2000 07:17:31 +0000 |
parents | c1e6932eea92 |
children | ea8740d15178 |
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 |
24414
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
3 ;; Copyright (C) 1993, 94, 95, 96, 97, 98, 1999 Free Software Foundation, Inc. |
7257 | 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 | 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 | 8 ;; Author: Kenichi Handa <handa@etl.go.jp> (multi-byte characters) |
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 |
27161
0a2452a20c74
ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
26883
diff
changeset
|
12 ;; Time-stamp: <99/12/11 20:14:41 vinicius> |
0a2452a20c74
ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
26883
diff
changeset
|
13 ;; Version: 5.0.2 |
0a2452a20c74
ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
26883
diff
changeset
|
14 |
0a2452a20c74
ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
26883
diff
changeset
|
15 (defconst ps-print-version "5.0.2" |
0a2452a20c74
ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
26883
diff
changeset
|
16 "ps-print.el, v 5.0.2 <99/12/11 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 |
16870
4a5fa29f79d6
(ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents:
16361
diff
changeset
|
19 Emacs without changes to the version number. When reporting bugs, |
4a5fa29f79d6
(ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents:
16361
diff
changeset
|
20 please also report the version of Emacs, if any, that ps-print was |
4a5fa29f79d6
(ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents:
16361
diff
changeset
|
21 distributed with. |
4a5fa29f79d6
(ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents:
16361
diff
changeset
|
22 |
4a5fa29f79d6
(ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents:
16361
diff
changeset
|
23 Please send all bug fixes and enhancements to |
20331 | 24 Vinicius Jose Latorre <vinicius@cpqd.com.br>. |
16870
4a5fa29f79d6
(ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents:
16361
diff
changeset
|
25 ") |
7257 | 26 |
10493 | 27 ;; This file is part of GNU Emacs. |
7257 | 28 |
29 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
30 ;; it under the terms of the GNU General Public License as published by | |
31 ;; the Free Software Foundation; either version 2, or (at your option) | |
32 ;; any later version. | |
33 | |
34 ;; GNU Emacs is distributed in the hope that it will be useful, | |
35 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
36 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
37 ;; GNU General Public License for more details. | |
38 | |
39 ;; You should have received a copy of the GNU General Public License | |
14169 | 40 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
41 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
42 ;; Boston, MA 02111-1307, USA. | |
7257 | 43 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
44 ;;; Commentary: |
7257 | 45 |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
46 ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
7257 | 47 ;; |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
48 ;; About ps-print |
7257 | 49 ;; -------------- |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
50 ;; |
27161
0a2452a20c74
ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
26883
diff
changeset
|
51 ;; 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
|
52 ;; 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
|
53 ;; 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
|
54 ;; 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
|
55 ;; |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
56 ;; 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
|
57 ;; 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
|
58 ;; 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
|
59 ;; |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
60 ;; 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
|
61 ;; 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
|
62 ;; 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
|
63 ;; 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
|
64 ;; |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
65 ;; |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
66 ;; Using ps-print |
7257 | 67 ;; -------------- |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
68 ;; |
23550
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
69 ;; ps-print provides eight commands for generating PostScript images |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
70 ;; of Emacs buffers: |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
71 ;; |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
72 ;; ps-print-buffer |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
73 ;; ps-print-buffer-with-faces |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
74 ;; ps-print-region |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
75 ;; ps-print-region-with-faces |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
76 ;; ps-spool-buffer |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
77 ;; ps-spool-buffer-with-faces |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
78 ;; ps-spool-region |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
79 ;; ps-spool-region-with-faces |
7257 | 80 ;; |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
81 ;; These commands all perform essentially the same function: they |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
82 ;; generate PostScript images suitable for printing on a PostScript |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
83 ;; printer or displaying with GhostScript. These commands are |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
84 ;; collectively referred to as "ps-print- commands". |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
85 ;; |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
86 ;; 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
|
87 ;; PostScript image is sent to the printer: |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
88 ;; |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
89 ;; print - The PostScript image is immediately sent to the |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
90 ;; printer; |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
91 ;; |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
92 ;; spool - The PostScript image is saved temporarily in an |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
93 ;; Emacs buffer. Many images may be spooled locally |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
94 ;; 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
|
95 ;; to the printer, use the command `ps-despool'. |
7257 | 96 ;; |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
97 ;; The spooling mechanism was designed for printing lots of small |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
98 ;; 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
|
99 ;; 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
|
100 ;; 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
|
101 ;; 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
|
102 ;; |
23550
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
103 ;; ps-print has a hook in the `kill-emacs-hook' so that you won't |
14040 | 104 ;; accidentally quit from Emacs while you have unprinted PostScript |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
105 ;; 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
|
106 ;; 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
|
107 ;; 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
|
108 ;; on the confirmation that Emacs uses for modified buffers. |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
109 ;; |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
110 ;; 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
|
111 ;; much of the buffer is printed: |
7257 | 112 ;; |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
113 ;; buffer - Print the entire buffer. |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
114 ;; |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
115 ;; region - Print just the current region. |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
116 ;; |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
117 ;; 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
|
118 ;; will include font, color, and underline information in the |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
119 ;; 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
|
120 ;; buffer. The ps-print- commands without the -with-faces suffix |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
121 ;; don't include font, color, or underline information; images printed |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
122 ;; 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
|
123 ;; |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
124 ;; Two ps-print- command examples: |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
125 ;; |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
126 ;; ps-print-buffer - print the entire buffer, |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
127 ;; without font, color, or |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
128 ;; underline information, and |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
129 ;; send it immediately to the |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
130 ;; printer. |
7257 | 131 ;; |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
132 ;; ps-spool-region-with-faces - print just the current region; |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
133 ;; include font, color, and |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
134 ;; underline information, and |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
135 ;; spool the image in Emacs to |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
136 ;; send to the printer later. |
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 ;; |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
139 ;; 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
|
140 ;; ----------------- |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
141 ;; |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
142 ;; To print your buffer, type |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
143 ;; |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
144 ;; M-x ps-print-buffer |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
145 ;; |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
146 ;; 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
|
147 ;; 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
|
148 ;; specified. By giving the command a prefix argument |
7257 | 149 ;; |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
150 ;; C-u M-x ps-print-buffer |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
151 ;; |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
152 ;; 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
|
153 ;; 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
|
154 ;; 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
|
155 ;; 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
|
156 ;; file by giving a prefix argument to `ps-despool': |
7257 | 157 ;; |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
158 ;; C-u M-x ps-despool |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
159 ;; |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
160 ;; 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
|
161 ;; the file to save to. |
7257 | 162 ;; |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
163 ;; 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
|
164 ;; 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
|
165 ;; 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
|
166 ;; |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
167 ;; (global-set-key 'f22 'ps-spool-buffer-with-faces) ;f22 is prsc |
7257 | 168 ;; (global-set-key '(shift f22) 'ps-spool-region-with-faces) |
169 ;; (global-set-key '(control f22) 'ps-despool) | |
170 ;; | |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
171 ;; |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
172 ;; 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
|
173 ;; --------------------- |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
174 ;; |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
175 ;; 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
|
176 ;; 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
|
177 ;; 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
|
178 ;; `lpr-command' and `lpr-switches'. |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
179 ;; |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
180 ;; 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
|
181 ;; 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
|
182 ;; |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
183 ;; 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
|
184 ;; printing PostScript files. |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
185 ;; |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
186 ;; 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
|
187 ;; 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
|
188 ;; `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
|
189 ;; 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
|
190 ;; 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
|
191 ;; `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
|
192 ;; `printer-name'. |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
193 ;; |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
194 ;; The variable `ps-print-region-function' specifies a function to print the |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
195 ;; region on a PostScript printer. |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
196 ;; See definition of `call-process-region' for calling conventions. The fourth |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
197 ;; and the sixth arguments are both nil. |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
198 ;; |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
199 ;; |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
200 ;; The Page Layout |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
201 ;; --------------- |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
202 ;; |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
203 ;; 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
|
204 ;; 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
|
205 ;; 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
|
206 ;; |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
207 ;; The variable `ps-paper-type' determines the size of paper ps-print |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
208 ;; formats for; it should contain one of the symbols: |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
209 ;; `a4' `a3' `letter' `legal' `letter-small' `tabloid' |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
210 ;; `ledger' `statement' `executive' `a4small' `b4' `b5' |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
211 ;; |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
212 ;; The variable `ps-landscape-mode' determines the orientation |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
213 ;; of the printing on the page: |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
214 ;; nil means `portrait' mode, non-nil means `landscape' mode. |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
215 ;; 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
|
216 ;; |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
217 ;; In landscape mode, the text is NOT scaled: you may print 70 lines |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
218 ;; in portrait mode and only 50 lignes in landscape mode. |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
219 ;; 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
|
220 ;; 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
|
221 ;; and the printed header, whatever the orientation is. |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
222 ;; |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
223 ;; The variable `ps-number-of-columns' determines the number of columns |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
224 ;; both in landscape and portrait mode. |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
225 ;; You can use: |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
226 ;; - (the standard) one column portrait mode |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
227 ;; - (my favorite) two columns landscape mode (which spares trees) |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
228 ;; but also |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
229 ;; - one column landscape mode for files with very long lines. |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
230 ;; - multi-column portrait or landscape mode |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
231 ;; |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
232 ;; |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
233 ;; Horizontal layout |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
234 ;; ----------------- |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
235 ;; |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
236 ;; 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
|
237 ;; `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
|
238 ;; as follows: |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
239 ;; |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
240 ;; ------------------------------------------ |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
241 ;; | | | | | | | | |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
242 ;; | 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
|
243 ;; | | | | | | | | |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
244 ;; ------------------------------------------ |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
245 ;; |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
246 ;; 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
|
247 ;; 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
|
248 ;; 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
|
249 ;; |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
250 ;; |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
251 ;; Vertical layout |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
252 ;; --------------- |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
253 ;; |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
254 ;; 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
|
255 ;; `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
|
256 ;; as follows: |
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 ;; | tm | | tm | |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
260 ;; |--------| |--------| |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
261 ;; | header | | | |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
262 ;; |--------| | | |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
263 ;; | ho | | | |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
264 ;; |--------| or | text | |
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 ;; | text | | | |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
267 ;; | | | | |
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 ;; | bm | | bm | |
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 ;; |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
272 ;; 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
|
273 ;; 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
|
274 ;; 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
|
275 ;; and the printed header, whatever the orientation is. |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
276 ;; |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
277 ;; |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
278 ;; Headers |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
279 ;; ------- |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
280 ;; |
23550
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
281 ;; 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
|
282 ;; 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
|
283 ;; 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
|
284 ;; 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
|
285 ;; 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
|
286 ;; |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
287 ;; ps-print.el 1/21 |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
288 ;; /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
|
289 ;; |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
290 ;; 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
|
291 ;; 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
|
292 ;; |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
293 ;; Headers are configurable: |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
294 ;; 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
|
295 ;; 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
|
296 ;; set `ps-print-header-frame' to nil. |
7257 | 297 ;; |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
298 ;; 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
|
299 ;; 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
|
300 ;; |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
301 ;; 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
|
302 ;; 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
|
303 ;; `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
|
304 ;; |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
305 ;; 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
|
306 ;; 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
|
307 ;; 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
|
308 ;; .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
|
309 |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
310 ;; 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
|
311 ;; 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
|
312 ;; set `ps-show-n-of-n' to nil. |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
313 ;; |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
314 ;; 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
|
315 ;; 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
|
316 ;; 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
|
317 ;; 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
|
318 ;; printing below the date. |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
319 ;; |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
320 ;; 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
|
321 ;; `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
|
322 ;; 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
|
323 ;; 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
|
324 ;; 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
|
325 ;; 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
|
326 ;; and should contain the PostScript string delimiters '(' and ')'. |
7257 | 327 ;; |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
328 ;; Symbols in the header format lists can either represent functions |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
329 ;; 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
|
330 ;; 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
|
331 ;; the header. In either case, function or variable, the PostScript |
14040 | 332 ;; 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
|
333 ;; the returned value. |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
334 ;; |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
335 ;; 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
|
336 ;; |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
337 ;; Moe |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
338 ;; Larry |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
339 ;; Curly |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
340 ;; |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
341 ;; where we have a function to return "Moe" |
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 ;; (defun moe-func () |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
344 ;; "Moe") |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
345 ;; |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
346 ;; a variable specifying "Larry" |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
347 ;; |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
348 ;; (setq larry-var "Larry") |
7257 | 349 ;; |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
350 ;; 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
|
351 ;; set: |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
352 ;; |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
353 ;; (setq ps-left-header (list 'moe-func 'larry-var "(Curly)")) |
7257 | 354 ;; |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
355 ;; 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
|
356 ;; 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
|
357 ;; |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
358 ;; 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
|
359 ;; 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
|
360 ;; |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
361 ;; 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
|
362 ;; 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
|
363 ;; |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
364 ;; Consider yourself warned! |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
365 ;; |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
366 ;; |
23550
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
367 ;; PostScript Prologue Header |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
368 ;; -------------------------- |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
369 ;; |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
370 ;; 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
|
371 ;; 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
|
372 ;; |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
373 ;; `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
|
374 ;; 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
|
375 ;; 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
|
376 ;; 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
|
377 ;; |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
378 ;; 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
|
379 ;; |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
380 ;; 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
|
381 ;; 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
|
382 ;; "%%+" 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
|
383 ;; 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
|
384 ;; |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
385 ;; (setq ps-print-prologue-header |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
386 ;; "%%+ 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
|
387 ;; |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
388 ;; 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
|
389 ;; |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
390 ;; 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
|
391 ;; |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
392 ;; 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
|
393 ;; 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
|
394 ;; Adobe Systems Incorporated |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
395 ;; 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
|
396 ;; |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
397 ;; |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
398 ;; Duplex Printers |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
399 ;; --------------- |
7257 | 400 ;; |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
401 ;; 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
|
402 ;; paper), set `ps-spool-duplex' to t. |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
403 ;; 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
|
404 ;; correct side of the paper. |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
405 ;; |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
406 ;; 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
|
407 ;; duplex and page size switches. Valid values are: |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
408 ;; |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
409 ;; 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
|
410 ;; 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
|
411 ;; printing for your printer. |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
412 ;; |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
413 ;; 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
|
414 ;; setpagedevice PostScript operator. |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
415 ;; |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
416 ;; 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
|
417 ;; the setpagedevice PostScript operator. |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
418 ;; |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
419 ;; Any other value is treated as nil. |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
420 ;; |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
421 ;; The default value is `lpr-switches'. |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
422 ;; |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
423 ;; 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
|
424 ;; 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
|
425 ;; setpagedevice affects zebra stripes; on other printers, |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
426 ;; setpagedevice affects the left margin. |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
427 ;; 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
|
428 ;; specified by setpagedevice, your printing will be aborted. |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
429 ;; 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
|
430 ;; `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
|
431 ;; 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
|
432 ;; |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
433 ;; 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
|
434 ;; 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
|
435 ;; `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
|
436 ;; 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
|
437 ;; 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
|
438 ;; The default value is nil. |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
439 ;; |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
440 ;; 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
|
441 ;; 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
|
442 ;; 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
|
443 ;; |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
444 ;; 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
|
445 ;; 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
|
446 ;; (\014). |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
447 ;; |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
448 ;; 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
|
449 ;; first page). |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
450 ;; |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
451 ;; |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
452 ;; N-up Printing |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
453 ;; ------------- |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
454 ;; |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
455 ;; 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
|
456 ;; 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
|
457 ;; |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
458 ;; 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
|
459 ;; 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
|
460 ;; |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
461 ;; 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
|
462 ;; 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
|
463 ;; or 28.35 points). |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
464 ;; |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
465 ;; 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
|
466 ;; The default is t. |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
467 ;; |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
468 ;; 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
|
469 ;; 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
|
470 ;; filling example using a 3x4 page matrix: |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
471 ;; |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
472 ;; 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
|
473 ;; 5 6 7 8 5 6 7 8 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
474 ;; 9 10 11 12 1 2 3 4 |
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 ;; 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
|
477 ;; 8 7 6 5 8 7 6 5 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
478 ;; 12 11 10 9 4 3 2 1 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
479 ;; |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
480 ;; 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
|
481 ;; 2 5 8 11 2 5 8 11 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
482 ;; 3 6 9 12 1 4 7 10 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
483 ;; |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
484 ;; 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
|
485 ;; 11 8 5 2 11 8 5 2 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
486 ;; 12 9 6 3 10 7 4 1 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
487 ;; |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
488 ;; Any other value is treated as left-top. |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
489 ;; |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
490 ;; 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
|
491 ;; |
19879
87952270ceeb
(ps-emacs-face-kind-p): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
19843
diff
changeset
|
492 ;; |
20516
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
493 ;; Control And 8-bit Characters |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
494 ;; ---------------------------- |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
495 ;; |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
496 ;; 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
|
497 ;; 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
|
498 ;; 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
|
499 ;; |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
500 ;; 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
|
501 ;; |
23307 | 502 ;; 8-bit This is the value to use when you want an ASCII encoding of |
503 ;; any control or non-ASCII character. Control characters are | |
504 ;; 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
|
505 ;; octal encoding. |
73f9f4219198
Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents:
21801
diff
changeset
|
506 ;; |
23307 | 507 ;; 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
|
508 ;; 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
|
509 ;; 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
|
510 ;; the current font. |
73f9f4219198
Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents:
21801
diff
changeset
|
511 ;; |
23307 | 512 ;; 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
|
513 ;; 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
|
514 ;; the current font. |
73f9f4219198
Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents:
21801
diff
changeset
|
515 ;; |
23307 | 516 ;; 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
|
517 ;; current font. |
20516
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
518 ;; |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
519 ;; Any other value is treated as nil. |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
520 ;; |
21955
c4de7c7bc14a
(ps-header-title-font-size): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
21954
diff
changeset
|
521 ;; The default is `control-8-bit'. |
20516
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
522 ;; |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
523 ;; 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
|
524 ;; |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
525 ;; |
23551 | 526 ;; Printing Multi-byte Buffer |
527 ;; -------------------------- | |
528 ;; | |
23892
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
529 ;; See ps-mule.el for documentation. |
23091
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
530 ;; |
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
531 ;; |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
532 ;; Line Number |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
533 ;; ----------- |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
534 ;; |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
535 ;; 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
|
536 ;; 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
|
537 ;; |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
538 ;; |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
539 ;; Zebra Stripes |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
540 ;; ------------- |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
541 ;; |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
542 ;; 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
|
543 ;; 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
|
544 ;; |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
545 ;; XXXXXXXXXXXXXXXXXXXXXXXX |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
546 ;; XXXXXXXXXXXXXXXXXXXXXXXX |
19485
eab8baa19dfa
(ps-zebra-stripes): Renamed from ps-zebra-stripe.
Richard M. Stallman <rms@gnu.org>
parents:
19446
diff
changeset
|
547 ;; XXXXXXXXXXXXXXXXXXXXXXXX |
eab8baa19dfa
(ps-zebra-stripes): Renamed from ps-zebra-stripe.
Richard M. Stallman <rms@gnu.org>
parents:
19446
diff
changeset
|
548 ;; |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
549 ;; |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
550 ;; |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
551 ;; XXXXXXXXXXXXXXXXXXXXXXXX |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
552 ;; XXXXXXXXXXXXXXXXXXXXXXXX |
19485
eab8baa19dfa
(ps-zebra-stripes): Renamed from ps-zebra-stripe.
Richard M. Stallman <rms@gnu.org>
parents:
19446
diff
changeset
|
553 ;; XXXXXXXXXXXXXXXXXXXXXXXX |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
554 ;; |
19879
87952270ceeb
(ps-emacs-face-kind-p): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
19843
diff
changeset
|
555 ;; 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
|
556 ;; 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
|
557 ;; |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
558 ;; 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
|
559 ;; 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
|
560 ;; The distance between stripes equals the height of a stripe. |
20331 | 561 ;; |
19787
4ea00387fb08
(ps-setup): ps-zebra-stripe => ps-zebra-stripes.
Richard M. Stallman <rms@gnu.org>
parents:
19773
diff
changeset
|
562 ;; 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
|
563 ;; 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
|
564 ;; |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
565 ;; The variable `ps-zebra-gray' controls the zebra stripes gray scale. |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
566 ;; It should be a float number between 0.0 (black color) and 1.0 (white color). |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
567 ;; The default is 0.95. |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
568 ;; |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
569 ;; 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
|
570 ;; |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
571 ;; |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
572 ;; Hooks |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
573 ;; ----- |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
574 ;; |
23550
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
575 ;; 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
|
576 ;; |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
577 ;; `ps-print-hook' |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
578 ;; 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
|
579 ;; place to initialize ps-print global data. |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
580 ;; 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
|
581 ;; |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
582 ;; `ps-print-begin-sheet-hook' |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
583 ;; 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
|
584 ;; 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
|
585 ;; evaluated. |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
586 ;; |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
587 ;; `ps-print-begin-page-hook' |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
588 ;; 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
|
589 ;; 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
|
590 ;; |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
591 ;; `ps-print-begin-column-hook' |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
592 ;; 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
|
593 ;; 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
|
594 ;; `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
|
595 ;; |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
596 ;; |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
597 ;; Font Managing |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
598 ;; ------------- |
7257 | 599 ;; |
24414
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
600 ;; 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
|
601 ;; `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
|
602 ;; (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
|
603 ;; `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
|
604 ;; 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
|
605 ;; 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
|
606 ;; |
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
607 ;; 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
|
608 ;; 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
|
609 ;; 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
|
610 ;; currently available font families. |
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
611 ;; |
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
612 ;; 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
|
613 ;; 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
|
614 ;; 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
|
615 ;; |
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
616 ;; (LANDSCAPE-SIZE . PORTRAIT-SIZE) |
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
617 ;; |
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
618 ;; 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
|
619 ;; 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
|
620 ;; |
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
621 ;; 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
|
622 ;; 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
|
623 ;; |
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
624 ;; 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
|
625 ;; for the top line of text in the header (similar to `ps-font-size'). |
7257 | 626 ;; |
10738
e7d5b119b583
(ps-print-version): Add caveat about version number.
Richard M. Stallman <rms@gnu.org>
parents:
10683
diff
changeset
|
627 ;; |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
628 ;; 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
|
629 ;; ------------------------ |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
630 ;; |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
631 ;; 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
|
632 ;; 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
|
633 ;; 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
|
634 ;; |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
635 ;; 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
|
636 ;; 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
|
637 ;; |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
638 ;; - 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
|
639 ;; - 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
|
640 ;; - 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
|
641 ;; `% 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
|
642 ;; - 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
|
643 ;; - 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
|
644 ;; 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
|
645 ;; `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
|
646 ;; - 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
|
647 ;; 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
|
648 ;; |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
649 ;; 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
|
650 ;; 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
|
651 ;; |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
652 ;; - 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
|
653 ;; (setq ps-font-info-database |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
654 ;; (append |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
655 ;; '((Helvetica ; the family key |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
656 ;; (fonts (normal . "Helvetica") |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
657 ;; (bold . "Helvetica-Bold") |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
658 ;; (italic . "Helvetica-Oblique") |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
659 ;; (bold-italic . "Helvetica-BoldOblique")) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
660 ;; (size . 10.0) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
661 ;; (line-height . 11.56) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
662 ;; (space-width . 2.78) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
663 ;; (avg-char-width . 5.09243))) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
664 ;; 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
|
665 ;; - 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
|
666 ;; (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
|
667 ;; - 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
|
668 ;; 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
|
669 ;; (require 'ps-print) |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
670 ;; (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
|
671 ;; 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
|
672 ;; (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
|
673 ;; 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
|
674 ;; (add-hook 'ps-print-hook |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
675 ;; '(lambda () |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
676 ;; (or (assq 'Helvetica ps-font-info-database) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
677 ;; (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
|
678 ;; |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
679 ;; 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
|
680 ;; (my-mixed-family |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
681 ;; (fonts (normal . "Courier-Bold") |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
682 ;; (bold . "Helvetica") |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
683 ;; (italic . "Zapf-Chancery-MediumItalic") |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
684 ;; (bold-italic . "NewCenturySchlbk-BoldItalic") |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
685 ;; (w3-table-hack-x-face . "LineDrawNormal")) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
686 ;; (size . 10.0) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
687 ;; (line-height . 10.55) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
688 ;; (space-width . 6.0) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
689 ;; (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
|
690 ;; |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
691 ;; 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
|
692 ;; (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
|
693 ;; |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
694 ;; 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
|
695 ;; 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
|
696 ;; `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
|
697 ;; 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
|
698 ;; 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
|
699 ;; |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
700 ;; 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
|
701 ;; example could also be written: |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
702 ;; (my-mixed-family |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
703 ;; (size . 10.0) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
704 ;; (fonts (w3-table-hack-x-face . "LineDrawNormal") |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
705 ;; (bold . "Helvetica") |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
706 ;; (bold-italic . "NewCenturySchlbk-BoldItalic") |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
707 ;; (italic . "Zapf-Chancery-MediumItalic") |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
708 ;; (normal . "Courier-Bold")) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
709 ;; (avg-char-width . 6.0) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
710 ;; (space-width . 6.0) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
711 ;; (line-height . 10.55)) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
712 ;; |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
713 ;; 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
|
714 ;; entry order be used. |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
715 ;; |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
716 ;; 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
|
717 ;; 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
|
718 ;; % 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
|
719 ;; |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
720 ;; 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
|
721 ;; 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
|
722 ;; 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
|
723 ;; 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
|
724 ;; much font info. |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
725 ;; |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
726 ;; |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
727 ;; 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
|
728 ;; ----------------------------- |
10738
e7d5b119b583
(ps-print-version): Add caveat about version number.
Richard M. Stallman <rms@gnu.org>
parents:
10683
diff
changeset
|
729 ;; |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
730 ;; 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
|
731 ;; 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
|
732 ;; 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
|
733 ;; 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
|
734 ;; |
20516
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
735 ;; 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
|
736 ;; 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
|
737 ;; 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
|
738 ;; 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
|
739 ;; 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
|
740 ;; .emacs file: |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
741 ;; |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
742 ;; (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
|
743 ;; (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
|
744 ;; (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
|
745 ;; |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
746 ;; 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
|
747 ;; *both* lists. |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
748 ;; |
23550
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
749 ;; 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
|
750 ;; 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
|
751 ;; 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
|
752 ;; 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
|
753 ;; |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
754 ;; 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
|
755 ;; 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
|
756 ;; 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
|
757 ;; `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
|
758 ;; 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
|
759 ;; 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
|
760 ;; `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
|
761 ;; |
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 ;; 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
|
764 ;; ----------------------------- |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
765 ;; |
23550
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
766 ;; 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
|
767 ;; 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
|
768 ;; 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
|
769 ;; variables `ps-default-fg' and `ps-default-bg'. |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
770 ;; On black-and-white printers, colors are displayed in grayscale. |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
771 ;; 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
|
772 ;; |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
773 ;; |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
774 ;; How Ps-Print Maps Faces |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
775 ;; ----------------------- |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
776 ;; |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
777 ;; 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
|
778 ;; 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
|
779 ;; by ps-print are: |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
780 ;; |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
781 ;; 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
|
782 ;; 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
|
783 ;; shadow - text will have a shadow. |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
784 ;; 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
|
785 ;; 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
|
786 ;; |
19879
87952270ceeb
(ps-emacs-face-kind-p): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
19843
diff
changeset
|
787 ;; 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
|
788 ;; |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
789 ;; 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
|
790 ;; color and bold attribute: |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
791 ;; |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
792 ;; (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
|
793 ;; |
19446
15ecd855fec8
(ps-print-face-extension-alist): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
19445
diff
changeset
|
794 ;; 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
|
795 ;; 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
|
796 ;; |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
797 ;; |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
798 ;; 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
|
799 ;; -------------------------------------------------- |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
800 ;; |
23550
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
801 ;; 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
|
802 ;; 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
|
803 ;; 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
|
804 ;; |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
805 ;; 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
|
806 ;; 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
|
807 ;; |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
808 ;; 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
|
809 ;; `ps-print-background-image'. |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
810 ;; |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
811 ;; 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
|
812 ;; "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
|
813 ;; |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
814 ;; (setq ps-print-background-text |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
815 ;; '(("preliminary") |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
816 ;; ("special" |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
817 ;; "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
|
818 ;; ; (upper left corner) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
819 ;; nil nil nil |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
820 ;; "PrintHeight neg PrintPageWidth atan" ; angle |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
821 ;; 5 (11 . 17)) ; page list |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
822 ;; )) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
823 ;; |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
824 ;; 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
|
825 ;; 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
|
826 ;; specify: |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
827 ;; |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
828 ;; (setq ps-print-background-image |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
829 ;; '(("~/images/EPS-image1.ps" |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
830 ;; "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
|
831 ;; ("~/images/EPS-image2.ps" |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
832 ;; "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
|
833 ;; ; (upper left corner) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
834 ;; nil nil nil |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
835 ;; 5 (11 . 17)) ; page list |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
836 ;; )) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
837 ;; |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
838 ;; 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
|
839 ;; is ignored. |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
840 ;; |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
841 ;; The printing order is: |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
842 ;; |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
843 ;; 1. Print zebra stripes |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
844 ;; 2. Print background texts that it should be on all pages |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
845 ;; 3. Print background images that it should be on all pages |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
846 ;; 4. Print background texts only for current page (if any) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
847 ;; 5. Print background images only for current page (if any) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
848 ;; 6. Print header |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
849 ;; 7. 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
|
850 ;; |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
851 ;; |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
852 ;; Utilities |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
853 ;; --------- |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
854 ;; |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
855 ;; 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
|
856 ;; |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
857 ;; `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
|
858 ;; |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
859 ;; 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
|
860 ;; 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
|
861 ;; 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
|
862 ;; 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
|
863 ;; 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
|
864 ;; 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
|
865 ;; 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
|
866 ;; |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
867 ;; 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
|
868 ;; 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
|
869 ;; 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
|
870 ;; 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
|
871 ;; |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
872 ;; 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
|
873 ;; 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
|
874 ;; |
27161
0a2452a20c74
ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
26883
diff
changeset
|
875 ;; 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
|
876 ;; ps-print options. |
0a2452a20c74
ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
26883
diff
changeset
|
877 ;; |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
878 ;; |
10738
e7d5b119b583
(ps-print-version): Add caveat about version number.
Richard M. Stallman <rms@gnu.org>
parents:
10683
diff
changeset
|
879 ;; New since version 1.5 |
e7d5b119b583
(ps-print-version): Add caveat about version number.
Richard M. Stallman <rms@gnu.org>
parents:
10683
diff
changeset
|
880 ;; --------------------- |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
881 ;; |
10738
e7d5b119b583
(ps-print-version): Add caveat about version number.
Richard M. Stallman <rms@gnu.org>
parents:
10683
diff
changeset
|
882 ;; Color output capability. |
e7d5b119b583
(ps-print-version): Add caveat about version number.
Richard M. Stallman <rms@gnu.org>
parents:
10683
diff
changeset
|
883 ;; 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
|
884 ;; 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
|
885 ;; Slightly faster. |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
886 ;; 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
|
887 ;; 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
|
888 ;; |
e7d5b119b583
(ps-print-version): Add caveat about version number.
Richard M. Stallman <rms@gnu.org>
parents:
10683
diff
changeset
|
889 ;; |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
890 ;; 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
|
891 ;; --------------------- |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
892 ;; |
27161
0a2452a20c74
ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
26883
diff
changeset
|
893 ;; [vinicius] 991211 Vinicius Jose Latorre <vinicius@cpqd.com.br> |
0a2452a20c74
ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
26883
diff
changeset
|
894 ;; |
0a2452a20c74
ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
26883
diff
changeset
|
895 ;; `ps-print-customize'. |
0a2452a20c74
ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
26883
diff
changeset
|
896 ;; |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
897 ;; [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
|
898 ;; |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
899 ;; Better customization. |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
900 ;; `ps-banner-page-when-duplexing' and `ps-zebra-gray'. |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
901 ;; |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
902 ;; [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
|
903 ;; |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
904 ;; N-up printing. |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
905 ;; Hook: `ps-print-begin-sheet-hook'. |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
906 ;; |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
907 ;; [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
|
908 ;; |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
909 ;; `ps-print-region-function' |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
910 ;; |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
911 ;; [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
|
912 ;; |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
913 ;; PostScript tumble and setpagedevice. |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
914 ;; |
23550
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
915 ;; [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
|
916 ;; |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
917 ;; PostScript prologue header comment insertion. |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
918 ;; Skip invisible text better. |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
919 ;; |
23091
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
920 ;; [keinichi] 980819 Kein'ichi Handa <handa@etl.go.jp> |
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
921 ;; |
23551 | 922 ;; Multi-byte buffer handling. |
23091
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
923 ;; |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
924 ;; [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
|
925 ;; |
23091
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
926 ;; Skip invisible text. |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
927 ;; |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
928 ;; [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
|
929 ;; |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
930 ;; 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
|
931 ;; `ps-print-begin-column-hook'. |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
932 ;; 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
|
933 ;; Better database font management. |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
934 ;; Better control characters handling. |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
935 ;; |
20516
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
936 ;; [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
|
937 ;; |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
938 ;; 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
|
939 ;; Handle control characters. |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
940 ;; Face remapping. |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
941 ;; New face attributes. |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
942 ;; Line number. |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
943 ;; Zebra stripes. |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
944 ;; Text and/or image on background. |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
945 ;; |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
946 ;; [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
|
947 ;; |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
948 ;; 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
|
949 ;; Landscape mode. |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
950 ;; Multiple columns. |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
951 ;; Tools for page setup. |
10738
e7d5b119b583
(ps-print-version): Add caveat about version number.
Richard M. Stallman <rms@gnu.org>
parents:
10683
diff
changeset
|
952 ;; |
7257 | 953 ;; |
23550
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
954 ;; Known bugs and limitations of ps-print |
7257 | 955 ;; -------------------------------------- |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
956 ;; |
11799
4a04c7799790
Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents:
10738
diff
changeset
|
957 ;; 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
|
958 ;; 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
|
959 ;; background color. |
4a04c7799790
Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents:
10738
diff
changeset
|
960 ;; |
4a04c7799790
Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents:
10738
diff
changeset
|
961 ;; 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
|
962 ;; |
10738
e7d5b119b583
(ps-print-version): Add caveat about version number.
Richard M. Stallman <rms@gnu.org>
parents:
10683
diff
changeset
|
963 ;; Automatic font-attribute detection doesn't work well, especially |
10683 | 964 ;; 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
|
965 ;; 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
|
966 ;; `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
|
967 ;; turn off automatic detection by setting `ps-auto-font-detect' to nil. |
10683 | 968 ;; |
11799
4a04c7799790
Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents:
10738
diff
changeset
|
969 ;; 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
|
970 ;; 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
|
971 ;; `ps-underlined-faces' instead. |
7257 | 972 ;; |
10683 | 973 ;; Still too slow; could use some hand-optimization. |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
974 ;; |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
975 ;; Default background color isn't working. |
7257 | 976 ;; |
977 ;; Faces are always treated as opaque. | |
978 ;; | |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
979 ;; Epoch and Emacs 18 not supported. At all. |
7257 | 980 ;; |
19879
87952270ceeb
(ps-emacs-face-kind-p): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
19843
diff
changeset
|
981 ;; Fixed-pitch fonts work better for line folding, but are not required. |
7257 | 982 ;; |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
983 ;; `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
|
984 ;; of folding lines. |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
985 ;; |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
986 ;; |
23550
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
987 ;; 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
|
988 ;; ---------------- |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
989 ;; |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
990 ;; 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
|
991 ;; 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
|
992 ;; 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
|
993 ;; `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
|
994 ;; of folding lines. |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
995 ;; |
7257 | 996 ;; |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
997 ;; Acknowledgements |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
998 ;; ---------------- |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
999 ;; |
23551 | 1000 ;; 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
|
1001 ;; |
14e74d2a49cb
(ps-print-control-characters): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23091
diff
changeset
|
1002 ;; 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
|
1003 ;; empty columns. |
14e74d2a49cb
(ps-print-control-characters): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23091
diff
changeset
|
1004 ;; |
14e74d2a49cb
(ps-print-control-characters): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23091
diff
changeset
|
1005 ;; 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
|
1006 ;; last page. |
14e74d2a49cb
(ps-print-control-characters): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23091
diff
changeset
|
1007 ;; |
21954
73f9f4219198
Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents:
21801
diff
changeset
|
1008 ;; 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
|
1009 ;; `ps-print-control-characters' variable documentation. |
73f9f4219198
Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents:
21801
diff
changeset
|
1010 ;; |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1011 ;; 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
|
1012 ;; database font management. |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1013 ;; |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1014 ;; 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
|
1015 ;; 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
|
1016 ;; region. |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1017 ;; |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1018 ;; 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
|
1019 ;; print time of `ps-lpr-switches'. |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1020 ;; |
21954
73f9f4219198
Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents:
21801
diff
changeset
|
1021 ;; 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
|
1022 ;; (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
|
1023 ;; |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1024 ;; Thanks to some suggestions on: |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1025 ;; * 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
|
1026 ;; * 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
|
1027 ;; * 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
|
1028 ;; |
20516
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
1029 ;; 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
|
1030 ;; I started from. [vinicius] |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
1031 ;; |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
1032 ;; 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
|
1033 ;; [jack] |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
1034 ;; |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
1035 ;; 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
|
1036 ;; color and the invisible property. |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
1037 ;; |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
1038 ;; 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
|
1039 ;; 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
|
1040 ;; ps-print, but his work is still appreciated. |
7257 | 1041 ;; |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
1042 ;; 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
|
1043 ;; 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
|
1044 ;; ps-print, but their efforts are not forgotten. |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
1045 ;; |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
1046 ;; 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
|
1047 ;; 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
|
1048 ;; sharing it with me. |
7257 | 1049 ;; |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
1050 ;; Thanks to all who mailed comments, encouragement, and criticism. |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
1051 ;; 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
|
1052 ;; 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
|
1053 ;; interest. |
7257 | 1054 ;; |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
1055 ;; Jim |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1056 ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
7257 | 1057 |
1058 ;;; Code: | |
1059 | |
16870
4a5fa29f79d6
(ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents:
16361
diff
changeset
|
1060 (unless (featurep 'lisp-float-type) |
4a5fa29f79d6
(ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents:
16361
diff
changeset
|
1061 (error "`ps-print' requires floating point support")) |
7257 | 1062 |
26563
79f9edcc8bde
Define mule funs without checking if mule package is
Kenichi Handa <handa@m17n.org>
parents:
26483
diff
changeset
|
1063 |
23892
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
1064 ;; 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
|
1065 |
79f9edcc8bde
Define mule funs without checking if mule package is
Kenichi Handa <handa@m17n.org>
parents:
26483
diff
changeset
|
1066 (or (fboundp 'set-buffer-multibyte) |
79f9edcc8bde
Define mule funs without checking if mule package is
Kenichi Handa <handa@m17n.org>
parents:
26483
diff
changeset
|
1067 (defun set-buffer-multibyte (arg) |
79f9edcc8bde
Define mule funs without checking if mule package is
Kenichi Handa <handa@m17n.org>
parents:
26483
diff
changeset
|
1068 (setq enable-multibyte-characters arg))) |
79f9edcc8bde
Define mule funs without checking if mule package is
Kenichi Handa <handa@m17n.org>
parents:
26483
diff
changeset
|
1069 |
79f9edcc8bde
Define mule funs without checking if mule package is
Kenichi Handa <handa@m17n.org>
parents:
26483
diff
changeset
|
1070 (or (fboundp 'string-as-unibyte) |
79f9edcc8bde
Define mule funs without checking if mule package is
Kenichi Handa <handa@m17n.org>
parents:
26483
diff
changeset
|
1071 (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
|
1072 |
79f9edcc8bde
Define mule funs without checking if mule package is
Kenichi Handa <handa@m17n.org>
parents:
26483
diff
changeset
|
1073 (or (fboundp 'string-as-multibyte) |
79f9edcc8bde
Define mule funs without checking if mule package is
Kenichi Handa <handa@m17n.org>
parents:
26483
diff
changeset
|
1074 (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
|
1075 |
79f9edcc8bde
Define mule funs without checking if mule package is
Kenichi Handa <handa@m17n.org>
parents:
26483
diff
changeset
|
1076 (or (fboundp 'charset-after) |
79f9edcc8bde
Define mule funs without checking if mule package is
Kenichi Handa <handa@m17n.org>
parents:
26483
diff
changeset
|
1077 (defun charset-after (&optional arg) |
79f9edcc8bde
Define mule funs without checking if mule package is
Kenichi Handa <handa@m17n.org>
parents:
26483
diff
changeset
|
1078 (char-charset (char-after arg)))) |
23892
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
1079 |
27161
0a2452a20c74
ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
26883
diff
changeset
|
1080 |
7257 | 1081 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
1082 ;; User Variables: |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
1083 |
27161
0a2452a20c74
ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
26883
diff
changeset
|
1084 |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
1085 ;;; 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
|
1086 |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1087 (defgroup postscript nil |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1088 "PostScript Group" |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1089 :tag "PostScript" |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1090 :group 'emacs) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1091 |
17405
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1092 (defgroup ps-print nil |
20331 | 1093 "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
|
1094 :prefix "ps-" |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1095 :group 'wp |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1096 :group 'postscript) |
17405
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1097 |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1098 (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
|
1099 "Horizontal page layout" |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1100 :prefix "ps-" |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1101 :tag "Horizontal" |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1102 :group 'ps-print) |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1103 |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1104 (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
|
1105 "Vertical page layout" |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1106 :prefix "ps-" |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1107 :tag "Vertical" |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1108 :group 'ps-print) |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1109 |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1110 (defgroup ps-print-header nil |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1111 "Headers layout" |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1112 :prefix "ps-" |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1113 :tag "Header" |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1114 :group 'ps-print) |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1115 |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1116 (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
|
1117 "Fonts customization" |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1118 :prefix "ps-" |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1119 :tag "Font" |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1120 :group 'ps-print) |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1121 |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1122 (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
|
1123 "Color customization" |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1124 :prefix "ps-" |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1125 :tag "Color" |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1126 :group 'ps-print) |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1127 |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1128 (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
|
1129 "Faces customization" |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1130 :prefix "ps-" |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1131 :tag "PS Faces" |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1132 :group 'ps-print |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1133 :group 'faces) |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1134 |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1135 (defgroup ps-print-n-up nil |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1136 "N-up customization" |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1137 :prefix "ps-" |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1138 :tag "N-Up" |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1139 :group 'ps-print) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1140 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1141 (defgroup ps-print-zebra nil |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1142 "Zebra customization" |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1143 :prefix "ps-" |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1144 :tag "Zebra" |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1145 :group 'ps-print) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1146 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1147 (defgroup ps-print-background nil |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1148 "Background customization" |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1149 :prefix "ps-" |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1150 :tag "Background" |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1151 :group 'ps-print) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1152 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1153 (defgroup ps-print-printer nil |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1154 "Printer customization" |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1155 :prefix "ps-" |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1156 :tag "Printer" |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1157 :group 'ps-print) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1158 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1159 (defgroup ps-print-page nil |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1160 "Page customization" |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1161 :prefix "ps-" |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1162 :tag "Page" |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1163 :group 'ps-print) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1164 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1165 |
23550
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
1166 (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
|
1167 "*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
|
1168 |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
1169 `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
|
1170 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
|
1171 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
|
1172 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
|
1173 |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
1174 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
|
1175 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
|
1176 \"%%+\" 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
|
1177 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
|
1178 |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
1179 (setq ps-print-prologue-header |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
1180 \"%%+ 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
|
1181 |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
1182 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
|
1183 |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
1184 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
|
1185 |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
1186 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
|
1187 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
|
1188 Adobe Systems Incorporated |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
1189 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
|
1190 :type '(choice :tag "Prologue Header" |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1191 string symbol (other :tag "nil" nil)) |
23550
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
1192 :group 'ps-print) |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
1193 |
23892
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
1194 (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
|
1195 printer-name) |
22680
3cf03f32956c
(ps-printer-name): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22596
diff
changeset
|
1196 "*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
|
1197 |
3cf03f32956c
(ps-printer-name): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22596
diff
changeset
|
1198 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
|
1199 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
|
1200 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
|
1201 |
3a9da940e5f2
(ps-printer-name): Update docstring about usage on
Andrew Innes <andrewi@gnu.org>
parents:
23938
diff
changeset
|
1202 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
|
1203 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
|
1204 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
|
1205 `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
|
1206 \"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
|
1207 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
|
1208 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
|
1209 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
|
1210 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
|
1211 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
|
1212 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
|
1213 :type '(choice :tag "Printer Name" |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1214 file (other :tag "Pipe to ps-lpr-command" pipe)) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1215 :group 'ps-print-printer) |
22680
3cf03f32956c
(ps-printer-name): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22596
diff
changeset
|
1216 |
17405
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1217 (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
|
1218 "*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
|
1219 |
3a9da940e5f2
(ps-printer-name): Update docstring about usage on
Andrew Innes <andrewi@gnu.org>
parents:
23938
diff
changeset
|
1220 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
|
1221 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
|
1222 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
|
1223 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
|
1224 `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
|
1225 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
|
1226 argument." |
17405
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1227 :type 'string |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1228 :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
|
1229 |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1230 (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
|
1231 "*A list of extra switches to pass to `ps-lpr-command'." |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1232 :type '(repeat string) |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1233 :group 'ps-print-printer) |
7257 | 1234 |
24090
3a9da940e5f2
(ps-printer-name): Update docstring about usage on
Andrew Innes <andrewi@gnu.org>
parents:
23938
diff
changeset
|
1235 (defcustom ps-print-region-function nil |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1236 "*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
|
1237 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
|
1238 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
|
1239 :type 'function |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1240 :group 'ps-print-printer) |
24090
3a9da940e5f2
(ps-printer-name): Update docstring about usage on
Andrew Innes <andrewi@gnu.org>
parents:
23938
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 ;;; Page layout |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
1243 |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
1244 ;; 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
|
1245 ;; 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
|
1246 ;; 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
|
1247 |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
1248 ;; 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
|
1249 ;; 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
|
1250 ;; 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
|
1251 |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
1252 ;; 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
|
1253 ;; 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
|
1254 ;; 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
|
1255 ;; 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
|
1256 ;; 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
|
1257 ;; 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
|
1258 ;; 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
|
1259 ;; 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
|
1260 ;; 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
|
1261 |
17405
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1262 (defcustom ps-page-dimensions-database |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1263 (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
|
1264 (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
|
1265 (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
|
1266 (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
|
1267 (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
|
1268 (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
|
1269 (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
|
1270 (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
|
1271 (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
|
1272 (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
|
1273 (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
|
1274 (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
|
1275 "*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
|
1276 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
|
1277 :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
|
1278 (symbol :tag "Name") |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1279 (number :tag "Width") |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1280 (number :tag "Height") |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1281 (string :tag "Media"))) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1282 :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
|
1283 |
20516
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
1284 ;;;###autoload |
17405
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1285 (defcustom ps-paper-type 'letter |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1286 "*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
|
1287 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
|
1288 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
|
1289 :type '(symbol :validate (lambda (wid) |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1290 (if (assq (widget-value wid) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1291 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
|
1292 nil |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1293 (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
|
1294 wid))) |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1295 :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
|
1296 |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1297 (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
|
1298 "*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
|
1299 :type 'boolean |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1300 :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
|
1301 |
20516
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
1302 (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
|
1303 "*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
|
1304 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
|
1305 it is sent the string \"^D\". |
21954
73f9f4219198
Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents:
21801
diff
changeset
|
1306 |
20516
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
1307 Valid values are: |
21954
73f9f4219198
Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents:
21801
diff
changeset
|
1308 |
22093
5818374d88e7
(ps-file-end): Put Trailer and Pages before EndDoc.
Richard M. Stallman <rms@gnu.org>
parents:
21999
diff
changeset
|
1309 `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
|
1310 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
|
1311 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
|
1312 octal encoding. |
21954
73f9f4219198
Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents:
21801
diff
changeset
|
1313 |
22093
5818374d88e7
(ps-file-end): Put Trailer and Pages before EndDoc.
Richard M. Stallman <rms@gnu.org>
parents:
21999
diff
changeset
|
1314 `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
|
1315 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
|
1316 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
|
1317 the current font. |
21954
73f9f4219198
Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents:
21801
diff
changeset
|
1318 |
23307 | 1319 `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
|
1320 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
|
1321 the current font. |
21954
73f9f4219198
Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents:
21801
diff
changeset
|
1322 |
22093
5818374d88e7
(ps-file-end): Put Trailer and Pages before EndDoc.
Richard M. Stallman <rms@gnu.org>
parents:
21999
diff
changeset
|
1323 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
|
1324 current font. |
21954
73f9f4219198
Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents:
21801
diff
changeset
|
1325 |
20516
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
1326 Any other value is treated as nil." |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1327 :type '(choice :tag "Control Char" |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1328 (const 8-bit) (const control-8-bit) |
22596
b926b360d222
(ps-print-control-characters): Use `other' widget
Andreas Schwab <schwab@suse.de>
parents:
22397
diff
changeset
|
1329 (const control) (other :tag "nil" nil)) |
20516
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
1330 :group 'ps-print) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
1331 |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1332 (defcustom ps-n-up-printing 1 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1333 "*Specify the number of pages per sheet paper." |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1334 :type '(integer |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1335 :tag "N Up Printing" |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1336 :validate |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1337 (lambda (wid) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1338 (if (and (< 0 (widget-value wid)) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1339 (<= (widget-value wid) 100)) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1340 nil |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1341 (widget-put |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1342 wid :error |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1343 "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
|
1344 wid))) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1345 :group 'ps-print-n-up) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1346 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1347 (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
|
1348 "*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
|
1349 :type 'number |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1350 :group 'ps-print-n-up) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1351 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1352 (defcustom ps-n-up-border-p t |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1353 "*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
|
1354 :type 'boolean |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1355 :group 'ps-print-n-up) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1356 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1357 (defcustom ps-n-up-filling 'left-top |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1358 "*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
|
1359 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1360 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
|
1361 using a 3x4 page matrix: |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1362 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1363 `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
|
1364 5 6 7 8 5 6 7 8 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1365 9 10 11 12 1 2 3 4 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1366 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1367 `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
|
1368 8 7 6 5 8 7 6 5 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1369 12 11 10 9 4 3 2 1 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1370 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1371 `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
|
1372 2 5 8 11 2 5 8 11 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1373 3 6 9 12 1 4 7 10 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1374 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1375 `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
|
1376 11 8 5 2 11 8 5 2 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1377 12 9 6 3 10 7 4 1 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1378 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1379 Any other value is treated as `left-top'." |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1380 :type '(choice :tag "N-Up Filling" |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1381 (const left-top) (const left-bottom) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1382 (const right-top) (const right-bottom) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1383 (const top-left) (const bottom-left) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1384 (const top-right) (const bottom-right)) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1385 :group 'ps-print-n-up) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1386 |
17405
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1387 (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
|
1388 "*Specify the number of columns" |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1389 :type 'number |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1390 :group 'ps-print) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1391 |
19485
eab8baa19dfa
(ps-zebra-stripes): Renamed from ps-zebra-stripe.
Richard M. Stallman <rms@gnu.org>
parents:
19446
diff
changeset
|
1392 (defcustom ps-zebra-stripes nil |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1393 "*Non-nil means print zebra stripes. |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1394 See also documentation for `ps-zebra-stripe-height' and `ps-zebra-gray'." |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1395 :type 'boolean |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1396 :group 'ps-print-zebra) |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1397 |
19485
eab8baa19dfa
(ps-zebra-stripes): Renamed from ps-zebra-stripe.
Richard M. Stallman <rms@gnu.org>
parents:
19446
diff
changeset
|
1398 (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
|
1399 "*Number of zebra stripe lines. |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1400 See also documentation for `ps-zebra-stripes' and `ps-zebra-gray'." |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1401 :type 'number |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1402 :group 'ps-print-zebra) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1403 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1404 (defcustom ps-zebra-gray 0.95 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1405 "*Zebra stripe gray scale. |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1406 See also documentation for `ps-zebra-stripes' and `ps-zebra-stripe-height'." |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1407 :type 'number |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1408 :group 'ps-print-zebra) |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1409 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1410 (defcustom ps-line-number nil |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1411 "*Non-nil means print line number." |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1412 :type 'boolean |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1413 :group 'ps-print) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1414 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1415 (defcustom ps-print-background-image nil |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1416 "*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
|
1417 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1418 The elements are: |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1419 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1420 (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
|
1421 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1422 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
|
1423 programming like EPS. |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1424 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
|
1425 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1426 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
|
1427 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
|
1428 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1429 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
|
1430 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
|
1431 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1432 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
|
1433 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1434 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
|
1435 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
|
1436 to TO page. |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1437 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
|
1438 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1439 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
|
1440 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
|
1441 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
|
1442 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1443 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
|
1444 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1445 '((\"~/images/EPS-image.ps\"))" |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1446 :type '(repeat (list (file :tag "EPS File") |
20019
d8e290881d8c
(ps-print-background-image): Fix customize type.
Karl Heuer <kwzh@gnu.org>
parents:
19879
diff
changeset
|
1447 (choice :tag "X" number string (const nil)) |
d8e290881d8c
(ps-print-background-image): Fix customize type.
Karl Heuer <kwzh@gnu.org>
parents:
19879
diff
changeset
|
1448 (choice :tag "Y" number string (const nil)) |
d8e290881d8c
(ps-print-background-image): Fix customize type.
Karl Heuer <kwzh@gnu.org>
parents:
19879
diff
changeset
|
1449 (choice :tag "X Scale" number string (const nil)) |
d8e290881d8c
(ps-print-background-image): Fix customize type.
Karl Heuer <kwzh@gnu.org>
parents:
19879
diff
changeset
|
1450 (choice :tag "Y Scale" number string (const nil)) |
d8e290881d8c
(ps-print-background-image): Fix customize type.
Karl Heuer <kwzh@gnu.org>
parents:
19879
diff
changeset
|
1451 (choice :tag "Rotation" number string (const nil)) |
d8e290881d8c
(ps-print-background-image): Fix customize type.
Karl Heuer <kwzh@gnu.org>
parents:
19879
diff
changeset
|
1452 (repeat :tag "Pages" :inline t |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1453 (radio (integer :tag "Page") |
20019
d8e290881d8c
(ps-print-background-image): Fix customize type.
Karl Heuer <kwzh@gnu.org>
parents:
19879
diff
changeset
|
1454 (cons :tag "Range" |
d8e290881d8c
(ps-print-background-image): Fix customize type.
Karl Heuer <kwzh@gnu.org>
parents:
19879
diff
changeset
|
1455 (integer :tag "From") |
d8e290881d8c
(ps-print-background-image): Fix customize type.
Karl Heuer <kwzh@gnu.org>
parents:
19879
diff
changeset
|
1456 (integer :tag "To")))))) |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1457 :group 'ps-print-background) |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1458 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1459 (defcustom ps-print-background-text nil |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1460 "*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
|
1461 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1462 The elements are: |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1463 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1464 (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
|
1465 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1466 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
|
1467 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1468 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
|
1469 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
|
1470 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1471 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
|
1472 If nil, \"Times-Roman\" is used. |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1473 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1474 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
|
1475 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1476 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
|
1477 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
|
1478 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1479 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
|
1480 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
|
1481 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1482 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
|
1483 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
|
1484 to TO page. |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1485 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
|
1486 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1487 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
|
1488 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
|
1489 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
|
1490 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1491 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
|
1492 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1493 '((\"Preliminary\"))" |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1494 :type '(repeat (list (string :tag "Text") |
20019
d8e290881d8c
(ps-print-background-image): Fix customize type.
Karl Heuer <kwzh@gnu.org>
parents:
19879
diff
changeset
|
1495 (choice :tag "X" number string (const nil)) |
d8e290881d8c
(ps-print-background-image): Fix customize type.
Karl Heuer <kwzh@gnu.org>
parents:
19879
diff
changeset
|
1496 (choice :tag "Y" number string (const nil)) |
d8e290881d8c
(ps-print-background-image): Fix customize type.
Karl Heuer <kwzh@gnu.org>
parents:
19879
diff
changeset
|
1497 (choice :tag "Font" string (const nil)) |
d8e290881d8c
(ps-print-background-image): Fix customize type.
Karl Heuer <kwzh@gnu.org>
parents:
19879
diff
changeset
|
1498 (choice :tag "Fontsize" number string (const nil)) |
d8e290881d8c
(ps-print-background-image): Fix customize type.
Karl Heuer <kwzh@gnu.org>
parents:
19879
diff
changeset
|
1499 (choice :tag "Gray" number string (const nil)) |
d8e290881d8c
(ps-print-background-image): Fix customize type.
Karl Heuer <kwzh@gnu.org>
parents:
19879
diff
changeset
|
1500 (choice :tag "Rotation" number string (const nil)) |
d8e290881d8c
(ps-print-background-image): Fix customize type.
Karl Heuer <kwzh@gnu.org>
parents:
19879
diff
changeset
|
1501 (repeat :tag "Pages" :inline t |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1502 (radio (integer :tag "Page") |
20019
d8e290881d8c
(ps-print-background-image): Fix customize type.
Karl Heuer <kwzh@gnu.org>
parents:
19879
diff
changeset
|
1503 (cons :tag "Range" |
d8e290881d8c
(ps-print-background-image): Fix customize type.
Karl Heuer <kwzh@gnu.org>
parents:
19879
diff
changeset
|
1504 (integer :tag "From") |
d8e290881d8c
(ps-print-background-image): Fix customize type.
Karl Heuer <kwzh@gnu.org>
parents:
19879
diff
changeset
|
1505 (integer :tag "To")))))) |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1506 :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
|
1507 |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
1508 ;;; Horizontal layout |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
1509 |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
1510 ;; ------------------------------------------ |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
1511 ;; | | | | | | | | |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
1512 ;; | 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
|
1513 ;; | | | | | | | | |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
1514 ;; ------------------------------------------ |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
1515 |
17405
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1516 (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
|
1517 "*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
|
1518 :type 'number |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1519 :group 'ps-print-horizontal) |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1520 |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1521 (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
|
1522 "*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
|
1523 :type 'number |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1524 :group 'ps-print-horizontal) |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1525 |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1526 (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
|
1527 "*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
|
1528 :type 'number |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1529 :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
|
1530 |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
1531 ;;; Vertical layout |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
1532 |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
1533 ;; |--------| |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
1534 ;; | tm | |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
1535 ;; |--------| |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
1536 ;; | header | |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
1537 ;; |--------| |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
1538 ;; | ho | |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
1539 ;; |--------| |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
1540 ;; | text | |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
1541 ;; |--------| |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
1542 ;; | bm | |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
1543 ;; |--------| |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
1544 |
17405
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1545 (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
|
1546 "*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
|
1547 :type 'number |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1548 :group 'ps-print-vertical) |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1549 |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1550 (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
|
1551 "*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
|
1552 :type 'number |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1553 :group 'ps-print-vertical) |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1554 |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1555 (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
|
1556 "*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
|
1557 :type 'number |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1558 :group 'ps-print-vertical) |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1559 |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1560 (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
|
1561 "*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
|
1562 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
|
1563 :type 'number |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1564 :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
|
1565 |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
1566 ;;; Header setup |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
1567 |
17405
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1568 (defcustom ps-print-header t |
10493 | 1569 "*Non-nil means print a header at the top of each page. |
1570 By default, the header displays the buffer name, page number, and, if | |
1571 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
|
1572 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
|
1573 `ps-right-header'." |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1574 :type 'boolean |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1575 :group 'ps-print-header) |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1576 |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1577 (defcustom ps-print-only-one-header nil |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1578 "*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
|
1579 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
|
1580 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
|
1581 See also `ps-print-header'." |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1582 :type 'boolean |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1583 :group 'ps-print-header) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1584 |
17405
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1585 (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
|
1586 "*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
|
1587 :type 'boolean |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1588 :group 'ps-print-header) |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1589 |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1590 (defcustom ps-header-lines 2 |
20331 | 1591 "*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
|
1592 :type 'integer |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1593 :group 'ps-print-header) |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
1594 (make-variable-buffer-local 'ps-header-lines) |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
1595 |
17405
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1596 (defcustom ps-show-n-of-n t |
10683 | 1597 "*Non-nil means show page numbers as N/M, meaning page N of M. |
20331 | 1598 NOTE: page numbers are displayed as part of headers, |
1599 see variable `ps-print-headers'." | |
17405
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1600 :type 'boolean |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1601 :group 'ps-print-header) |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1602 |
27161
0a2452a20c74
ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
26883
diff
changeset
|
1603 (defcustom ps-spool-config (if (memq system-type '(ms-dos windows-nt)) |
0a2452a20c74
ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
26883
diff
changeset
|
1604 'setpagedevice |
0a2452a20c74
ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
26883
diff
changeset
|
1605 'lpr-switches) |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1606 "*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
|
1607 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1608 Valid values are: |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1609 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1610 `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
|
1611 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
|
1612 printing for your printer. |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1613 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1614 `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
|
1615 setpagedevice PostScript operator. |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1616 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1617 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
|
1618 the setpagedevice PostScript operator. |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1619 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1620 Any other value is treated as nil. |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1621 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1622 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
|
1623 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
|
1624 setpagedevice affects zebra stripes; on other printers, setpagedevice |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1625 affects the left margin. |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1626 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
|
1627 specified by setpagedevice, your printing will be aborted. |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1628 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
|
1629 `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
|
1630 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
|
1631 :type '(choice :tag "Spool Config" |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1632 (const lpr-switches) (const setpagedevice) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1633 (other :tag "nil" nil)) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1634 :group 'ps-print-header) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1635 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1636 (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
|
1637 ; so default to nil. |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1638 "*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
|
1639 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
|
1640 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
|
1641 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
|
1642 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
|
1643 even-numbered pages. |
0a2452a20c74
ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
26883
diff
changeset
|
1644 |
0a2452a20c74
ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
26883
diff
changeset
|
1645 See also `ps-spool-tumble'." |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1646 :type 'boolean |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1647 :group 'ps-print-header) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1648 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1649 (defcustom ps-spool-tumble nil |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1650 "*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
|
1651 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
|
1652 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
|
1653 the top or bottom. |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1654 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1655 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
|
1656 :type 'boolean |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1657 :group 'ps-print-header) |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
1658 |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
1659 ;;; Fonts |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
1660 |
17405
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1661 (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
|
1662 '((Courier ; the family key |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1663 (fonts (normal . "Courier") |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1664 (bold . "Courier-Bold") |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1665 (italic . "Courier-Oblique") |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1666 (bold-italic . "Courier-BoldOblique")) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1667 (size . 10.0) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1668 (line-height . 10.55) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1669 (space-width . 6.0) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1670 (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
|
1671 (Helvetica ; the family key |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1672 (fonts (normal . "Helvetica") |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1673 (bold . "Helvetica-Bold") |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1674 (italic . "Helvetica-Oblique") |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1675 (bold-italic . "Helvetica-BoldOblique")) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1676 (size . 10.0) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1677 (line-height . 11.56) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1678 (space-width . 2.78) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1679 (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
|
1680 (Times |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1681 (fonts (normal . "Times-Roman") |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1682 (bold . "Times-Bold") |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1683 (italic . "Times-Italic") |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1684 (bold-italic . "Times-BoldItalic")) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1685 (size . 10.0) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1686 (line-height . 11.0) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1687 (space-width . 2.5) |
23273
519bc559e950
(ps-font-info-database): Add missing dots in value.
Andreas Schwab <schwab@suse.de>
parents:
23204
diff
changeset
|
1688 (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
|
1689 (Palatino |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1690 (fonts (normal . "Palatino-Roman") |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1691 (bold . "Palatino-Bold") |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1692 (italic . "Palatino-Italic") |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1693 (bold-italic . "Palatino-BoldItalic")) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1694 (size . 10.0) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1695 (line-height . 12.1) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1696 (space-width . 2.5) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1697 (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
|
1698 (Helvetica-Narrow |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1699 (fonts (normal . "Helvetica-Narrow") |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1700 (bold . "Helvetica-Narrow-Bold") |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1701 (italic . "Helvetica-Narrow-Oblique") |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1702 (bold-italic . "Helvetica-Narrow-BoldOblique")) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1703 (size . 10.0) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1704 (line-height . 11.56) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1705 (space-width . 2.2796) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1706 (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
|
1707 (NewCenturySchlbk |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1708 (fonts (normal . "NewCenturySchlbk-Roman") |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1709 (bold . "NewCenturySchlbk-Bold") |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1710 (italic . "NewCenturySchlbk-Italic") |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1711 (bold-italic . "NewCenturySchlbk-BoldItalic")) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1712 (size . 10.0) |
23273
519bc559e950
(ps-font-info-database): Add missing dots in value.
Andreas Schwab <schwab@suse.de>
parents:
23204
diff
changeset
|
1713 (line-height . 12.15) |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1714 (space-width . 2.78) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1715 (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
|
1716 ;; 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
|
1717 (AvantGarde-Book |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1718 (fonts (normal . "AvantGarde-Book") |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1719 (italic . "AvantGarde-BookOblique")) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1720 (size . 10.0) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1721 (line-height . 11.77) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1722 (space-width . 2.77) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1723 (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
|
1724 (AvantGarde-Demi |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1725 (fonts (normal . "AvantGarde-Demi") |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1726 (italic . "AvantGarde-DemiOblique")) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1727 (size . 10.0) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1728 (line-height . 12.72) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1729 (space-width . 2.8) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1730 (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
|
1731 (Bookman-Demi |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1732 (fonts (normal . "Bookman-Demi") |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1733 (italic . "Bookman-DemiItalic")) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1734 (size . 10.0) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1735 (line-height . 11.77) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1736 (space-width . 3.4) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1737 (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
|
1738 (Bookman-Light |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1739 (fonts (normal . "Bookman-Light") |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1740 (italic . "Bookman-LightItalic")) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1741 (size . 10.0) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1742 (line-height . 11.79) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1743 (space-width . 3.2) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1744 (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
|
1745 ;; 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
|
1746 (Symbol |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1747 (fonts (normal . "Symbol")) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1748 (size . 10.0) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1749 (line-height . 13.03) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1750 (space-width . 2.5) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1751 (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
|
1752 (Zapf-Dingbats |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1753 (fonts (normal . "Zapf-Dingbats")) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1754 (size . 10.0) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1755 (line-height . 9.63) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1756 (space-width . 2.78) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1757 (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
|
1758 (Zapf-Chancery-MediumItalic |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1759 (fonts (normal . "Zapf-Chancery-MediumItalic")) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1760 (size . 10.0) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1761 (line-height . 11.45) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1762 (space-width . 2.2) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1763 (avg-char-width . 4.10811)) |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1764 ) |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
1765 "*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
|
1766 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
|
1767 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
|
1768 - 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
|
1769 - generate the PostScript image to a file (C-u M-x ps-print-buffer) |
20331 | 1770 - 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
|
1771 comment character) from the line |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1772 `% 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
|
1773 to get the line |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1774 `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
|
1775 - 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
|
1776 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
|
1777 :type '(repeat (list :tag "Font Definition" |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1778 (symbol :tag "Font Family") |
23273
519bc559e950
(ps-font-info-database): Add missing dots in value.
Andreas Schwab <schwab@suse.de>
parents:
23204
diff
changeset
|
1779 (cons :format "%v" |
519bc559e950
(ps-font-info-database): Add missing dots in value.
Andreas Schwab <schwab@suse.de>
parents:
23204
diff
changeset
|
1780 (const :format "" fonts) |
519bc559e950
(ps-font-info-database): Add missing dots in value.
Andreas Schwab <schwab@suse.de>
parents:
23204
diff
changeset
|
1781 (repeat :tag "Faces" |
519bc559e950
(ps-font-info-database): Add missing dots in value.
Andreas Schwab <schwab@suse.de>
parents:
23204
diff
changeset
|
1782 (cons (choice (const normal) |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1783 (const bold) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1784 (const italic) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1785 (const bold-italic) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1786 (symbol :tag "Face")) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1787 (string :tag "Font Name")))) |
23273
519bc559e950
(ps-font-info-database): Add missing dots in value.
Andreas Schwab <schwab@suse.de>
parents:
23204
diff
changeset
|
1788 (cons :format "%v" |
519bc559e950
(ps-font-info-database): Add missing dots in value.
Andreas Schwab <schwab@suse.de>
parents:
23204
diff
changeset
|
1789 (const :format "" size) |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1790 (number :tag "Reference Size")) |
23273
519bc559e950
(ps-font-info-database): Add missing dots in value.
Andreas Schwab <schwab@suse.de>
parents:
23204
diff
changeset
|
1791 (cons :format "%v" |
519bc559e950
(ps-font-info-database): Add missing dots in value.
Andreas Schwab <schwab@suse.de>
parents:
23204
diff
changeset
|
1792 (const :format "" line-height) |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1793 (number :tag "Line Height")) |
23273
519bc559e950
(ps-font-info-database): Add missing dots in value.
Andreas Schwab <schwab@suse.de>
parents:
23204
diff
changeset
|
1794 (cons :format "%v" |
519bc559e950
(ps-font-info-database): Add missing dots in value.
Andreas Schwab <schwab@suse.de>
parents:
23204
diff
changeset
|
1795 (const :format "" space-width) |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1796 (number :tag "Space Width")) |
23273
519bc559e950
(ps-font-info-database): Add missing dots in value.
Andreas Schwab <schwab@suse.de>
parents:
23204
diff
changeset
|
1797 (cons :format "%v" |
519bc559e950
(ps-font-info-database): Add missing dots in value.
Andreas Schwab <schwab@suse.de>
parents:
23204
diff
changeset
|
1798 (const :format "" avg-char-width) |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1799 (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
|
1800 :group 'ps-print-font) |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1801 |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1802 (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
|
1803 "*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
|
1804 :type 'symbol |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1805 :group 'ps-print-font) |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1806 |
24414
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
1807 (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
|
1808 "*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
|
1809 :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
|
1810 (cons :tag "Landscape/Portrait" |
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
1811 (number :tag "Landscape Text Size") |
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
1812 (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
|
1813 :group 'ps-print-font) |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1814 |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1815 (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
|
1816 "*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
|
1817 :type 'symbol |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1818 :group 'ps-print-font) |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1819 |
24414
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
1820 (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
|
1821 "*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
|
1822 :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
|
1823 (cons :tag "Landscape/Portrait" |
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
1824 (number :tag "Landscape Header Size") |
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
1825 (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
|
1826 :group 'ps-print-font) |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1827 |
24414
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
1828 (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
|
1829 "*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
|
1830 :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
|
1831 (cons :tag "Landscape/Portrait" |
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
1832 (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
|
1833 (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
|
1834 :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
|
1835 |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
1836 ;;; Colors |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
1837 |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1838 ;; Printing color requires x-color-values. |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1839 (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
|
1840 (fboundp 'color-instance-rgb-components)) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
1841 ; XEmacs |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1842 "*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
|
1843 :type 'boolean |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1844 :group 'ps-print-color) |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1845 |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1846 (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
|
1847 "*RGB values of the default foreground color. Defaults to black." |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1848 :type '(list (number :tag "Red") (number :tag "Green") (number :tag "Blue")) |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1849 :group 'ps-print-color) |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1850 |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1851 (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
|
1852 "*RGB values of the default background color. Defaults to white." |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1853 :type '(list (number :tag "Red") (number :tag "Green") (number :tag "Blue")) |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1854 :group 'ps-print-color) |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1855 |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1856 (defcustom ps-auto-font-detect t |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
1857 "*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
|
1858 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
|
1859 and `ps-underlined-faces'." |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1860 :type 'boolean |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1861 :group 'ps-print-font) |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1862 |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1863 (defcustom ps-bold-faces |
16870
4a5fa29f79d6
(ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents:
16361
diff
changeset
|
1864 (unless ps-print-color-p |
4a5fa29f79d6
(ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents:
16361
diff
changeset
|
1865 '(font-lock-function-name-face |
4a5fa29f79d6
(ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents:
16361
diff
changeset
|
1866 font-lock-builtin-face |
4a5fa29f79d6
(ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents:
16361
diff
changeset
|
1867 font-lock-variable-name-face |
4a5fa29f79d6
(ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents:
16361
diff
changeset
|
1868 font-lock-keyword-face |
4a5fa29f79d6
(ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents:
16361
diff
changeset
|
1869 font-lock-warning-face)) |
10493 | 1870 "*A list of the \(non-bold\) faces that should be printed in bold font. |
20331 | 1871 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
|
1872 :type '(repeat face) |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1873 :group 'ps-print-face) |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1874 |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1875 (defcustom ps-italic-faces |
16870
4a5fa29f79d6
(ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents:
16361
diff
changeset
|
1876 (unless ps-print-color-p |
4a5fa29f79d6
(ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents:
16361
diff
changeset
|
1877 '(font-lock-variable-name-face |
20331 | 1878 font-lock-type-face |
16870
4a5fa29f79d6
(ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents:
16361
diff
changeset
|
1879 font-lock-string-face |
4a5fa29f79d6
(ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents:
16361
diff
changeset
|
1880 font-lock-comment-face |
4a5fa29f79d6
(ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents:
16361
diff
changeset
|
1881 font-lock-warning-face)) |
10493 | 1882 "*A list of the \(non-italic\) faces that should be printed in italic font. |
20331 | 1883 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
|
1884 :type '(repeat face) |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1885 :group 'ps-print-face) |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1886 |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1887 (defcustom ps-underlined-faces |
16870
4a5fa29f79d6
(ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents:
16361
diff
changeset
|
1888 (unless ps-print-color-p |
4a5fa29f79d6
(ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents:
16361
diff
changeset
|
1889 '(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
|
1890 font-lock-constant-face |
16870
4a5fa29f79d6
(ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents:
16361
diff
changeset
|
1891 font-lock-warning-face)) |
10493 | 1892 "*A list of the \(non-underlined\) faces that should be printed underlined. |
20331 | 1893 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
|
1894 :type '(repeat face) |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1895 :group 'ps-print-face) |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1896 |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1897 (defcustom ps-left-header |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
1898 (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
|
1899 "*The items to display (each on a line) on the left part of the page header. |
20331 | 1900 This applies to generating PostScript. |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
1901 |
10493 | 1902 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
|
1903 entry in the PostScript array HeaderLinesLeft. |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
1904 |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
1905 Strings are inserted unchanged into the array; those representing |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
1906 PostScript string literals should be delimited with PostScript string |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
1907 delimiters '(' and ')'. |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
1908 |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
1909 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
|
1910 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
|
1911 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
|
1912 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
|
1913 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
|
1914 :type '(repeat (choice string symbol)) |
17681 | 1915 :group 'ps-print-header) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
1916 (make-variable-buffer-local 'ps-left-header) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
1917 |
17405
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1918 (defcustom ps-right-header |
16870
4a5fa29f79d6
(ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents:
16361
diff
changeset
|
1919 (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
|
1920 "*The items to display (each on a line) on the right part of the page header. |
20331 | 1921 This applies to generating PostScript. |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
1922 |
10493 | 1923 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
|
1924 this variable." |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1925 :type '(repeat (choice string symbol)) |
17681 | 1926 :group 'ps-print-header) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
1927 (make-variable-buffer-local 'ps-right-header) |
7257 | 1928 |
17405
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1929 (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
|
1930 "*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
|
1931 :type 'boolean |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1932 :group 'ps-print) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
1933 |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
1934 (defcustom ps-adobe-tag "%!PS-Adobe-3.0\n" |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
1935 "*Contains the header line identifying the output as PostScript. |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
1936 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
|
1937 printers require slightly different versions of this line." |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
1938 :type 'string |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
1939 :group 'ps-print) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
1940 |
17405
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1941 (defcustom ps-build-face-reference t |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
1942 "*Non-nil means build the reference face lists. |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
1943 |
23550
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
1944 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
|
1945 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
|
1946 can force ps-print to rebuild the lists the next time you invoke one |
10493 | 1947 of the ...-with-faces commands. |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
1948 |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
1949 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
|
1950 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
|
1951 about its setting, though." |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1952 :type 'boolean |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1953 :group 'ps-print-face) |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1954 |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1955 (defcustom ps-always-build-face-reference nil |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
1956 "*Non-nil means always rebuild the reference face lists. |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
1957 |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
1958 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
|
1959 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
|
1960 ...-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
|
1961 variable." |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1962 :type 'boolean |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1963 :group 'ps-print-face) |
7257 | 1964 |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1965 (defcustom ps-banner-page-when-duplexing nil |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1966 "*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
|
1967 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
|
1968 :type 'boolean |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1969 :group 'ps-print-header) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1970 |
27161
0a2452a20c74
ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
26883
diff
changeset
|
1971 |
0a2452a20c74
ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
26883
diff
changeset
|
1972 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
0a2452a20c74
ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
26883
diff
changeset
|
1973 ;; Customization |
0a2452a20c74
ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
26883
diff
changeset
|
1974 |
0a2452a20c74
ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
26883
diff
changeset
|
1975 |
0a2452a20c74
ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
26883
diff
changeset
|
1976 ;;;###autoload |
0a2452a20c74
ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
26883
diff
changeset
|
1977 (defun ps-print-customize () |
0a2452a20c74
ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
26883
diff
changeset
|
1978 "Customization of ps-print group." |
0a2452a20c74
ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
26883
diff
changeset
|
1979 (interactive) |
0a2452a20c74
ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
26883
diff
changeset
|
1980 (customize-group 'ps-print)) |
0a2452a20c74
ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
26883
diff
changeset
|
1981 |
0a2452a20c74
ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
26883
diff
changeset
|
1982 |
7257 | 1983 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
1984 ;; User commands |
7257 | 1985 |
27161
0a2452a20c74
ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
26883
diff
changeset
|
1986 |
10683 | 1987 ;;;###autoload |
7257 | 1988 (defun ps-print-buffer (&optional filename) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
1989 "Generate and print a PostScript image of the buffer. |
7257 | 1990 |
23466
fa40617f5902
(ps-print-buffer): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
23310
diff
changeset
|
1991 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
|
1992 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
|
1993 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
|
1994 |
fa40617f5902
(ps-print-buffer): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
23310
diff
changeset
|
1995 Noninteractively, the argument FILENAME is treated as follows: if it |
7257 | 1996 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
|
1997 the PostScript image in a file with that name." |
10683 | 1998 (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
|
1999 (ps-print-without-faces (point-min) (point-max) filename)) |
7257 | 2000 |
2001 | |
10683 | 2002 ;;;###autoload |
7257 | 2003 (defun ps-print-buffer-with-faces (&optional filename) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2004 "Generate and print a PostScript image of the buffer. |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2005 Like `ps-print-buffer', but includes font, color, and underline |
13807 | 2006 information in the generated image. This command works only if you |
2007 are using a window system, so it has a way to determine color values." | |
10683 | 2008 (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
|
2009 (ps-print-with-faces (point-min) (point-max) filename)) |
7257 | 2010 |
2011 | |
10683 | 2012 ;;;###autoload |
7257 | 2013 (defun ps-print-region (from to &optional filename) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2014 "Generate and print a PostScript image of the region. |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2015 Like `ps-print-buffer', but prints just the current region." |
10683 | 2016 (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
|
2017 (ps-print-without-faces from to filename t)) |
7257 | 2018 |
2019 | |
10683 | 2020 ;;;###autoload |
7257 | 2021 (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
|
2022 "Generate and print a PostScript image of the region. |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2023 Like `ps-print-region', but includes font, color, and underline |
13807 | 2024 information in the generated image. This command works only if you |
2025 are using a window system, so it has a way to determine color values." | |
10683 | 2026 (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
|
2027 (ps-print-with-faces from to filename t)) |
7257 | 2028 |
2029 | |
10683 | 2030 ;;;###autoload |
7257 | 2031 (defun ps-spool-buffer () |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2032 "Generate and spool a PostScript image of the buffer. |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2033 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
|
2034 local buffer to be sent to the printer later. |
7257 | 2035 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2036 Use the command `ps-despool' to send the spooled images to the printer." |
7257 | 2037 (interactive) |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2038 (ps-spool-without-faces (point-min) (point-max))) |
7257 | 2039 |
2040 | |
10683 | 2041 ;;;###autoload |
7257 | 2042 (defun ps-spool-buffer-with-faces () |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2043 "Generate and spool a PostScript image of the buffer. |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2044 Like `ps-spool-buffer', but includes font, color, and underline |
13807 | 2045 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
|
2046 are using a window system, so it has a way to determine color values. |
7257 | 2047 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2048 Use the command `ps-despool' to send the spooled images to the printer." |
7257 | 2049 (interactive) |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2050 (ps-spool-with-faces (point-min) (point-max))) |
7257 | 2051 |
2052 | |
10683 | 2053 ;;;###autoload |
7257 | 2054 (defun ps-spool-region (from to) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2055 "Generate a PostScript image of the region and spool locally. |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2056 Like `ps-spool-buffer', but spools just the current region. |
7257 | 2057 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2058 Use the command `ps-despool' to send the spooled images to the printer." |
7257 | 2059 (interactive "r") |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
2060 (ps-spool-without-faces from to t)) |
7257 | 2061 |
2062 | |
10683 | 2063 ;;;###autoload |
7257 | 2064 (defun ps-spool-region-with-faces (from to) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2065 "Generate a PostScript image of the region and spool locally. |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2066 Like `ps-spool-region', but includes font, color, and underline |
13807 | 2067 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
|
2068 are using a window system, so it has a way to determine color values. |
7257 | 2069 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2070 Use the command `ps-despool' to send the spooled images to the printer." |
7257 | 2071 (interactive "r") |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
2072 (ps-spool-with-faces from to t)) |
7257 | 2073 |
10683 | 2074 ;;;###autoload |
7257 | 2075 (defun ps-despool (&optional filename) |
2076 "Send the spooled PostScript to the printer. | |
2077 | |
23468
969f4c2e38c0
(ps-print-buffer): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
23466
diff
changeset
|
2078 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
|
2079 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
|
2080 image in that file instead of sending it to the printer. |
7257 | 2081 |
23892
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
2082 Noninteractively, the argument FILENAME is treated as follows: if it |
7257 | 2083 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
|
2084 the PostScript image in a file with that name." |
10683 | 2085 (interactive (list (ps-print-preprint current-prefix-arg))) |
2086 (ps-do-despool filename)) | |
7257 | 2087 |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2088 ;;;###autoload |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2089 (defun ps-line-lengths () |
19879
87952270ceeb
(ps-emacs-face-kind-p): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
19843
diff
changeset
|
2090 "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
|
2091 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
|
2092 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
|
2093 (interactive) |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2094 (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
|
2095 |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2096 ;;;###autoload |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2097 (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
|
2098 "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
|
2099 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
|
2100 (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
|
2101 (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
|
2102 |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2103 ;;;###autoload |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2104 (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
|
2105 "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
|
2106 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
|
2107 (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
|
2108 (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
|
2109 |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2110 ;;;###autoload |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2111 (defun ps-setup () |
21955
c4de7c7bc14a
(ps-header-title-font-size): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
21954
diff
changeset
|
2112 "Return the current PostScript-generation setup." |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
2113 (format |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
2114 " |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2115 \(setq ps-print-color-p %s |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2116 ps-lpr-command %S |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2117 ps-lpr-switches %s |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2118 ps-printer-name %S |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2119 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
|
2120 |
24414
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
2121 ps-paper-type %s |
20331 | 2122 ps-landscape-mode %s |
2123 ps-number-of-columns %s | |
2124 | |
2125 ps-zebra-stripes %s | |
19787
4ea00387fb08
(ps-setup): ps-zebra-stripe => ps-zebra-stripes.
Richard M. Stallman <rms@gnu.org>
parents:
19773
diff
changeset
|
2126 ps-zebra-stripe-height %s |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2127 ps-zebra-gray %s |
20331 | 2128 ps-line-number %s |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
2129 |
24414
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
2130 ps-print-control-characters %s |
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
2131 |
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
2132 ps-print-background-image %s |
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
2133 |
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
2134 ps-print-background-text %s |
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
2135 |
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
2136 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
|
2137 |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2138 ps-left-margin %s |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2139 ps-right-margin %s |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2140 ps-inter-column %s |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2141 ps-bottom-margin %s |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2142 ps-top-margin %s |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2143 ps-header-offset %s |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2144 ps-header-line-pad %s |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2145 ps-print-header %s |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2146 ps-print-only-one-header %s |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2147 ps-print-header-frame %s |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2148 ps-header-lines %s |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2149 ps-show-n-of-n %s |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2150 ps-spool-config %s |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2151 ps-spool-duplex %s |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2152 ps-spool-tumble %s |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2153 ps-banner-page-when-duplexing %s |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2154 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2155 ps-n-up-printing %s |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2156 ps-n-up-margin %s |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2157 ps-n-up-border-p %s |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2158 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
|
2159 |
24414
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
2160 ps-multibyte-buffer %s |
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
2161 ps-font-family %s |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
2162 ps-font-size %s |
24414
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
2163 ps-header-font-family %s |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
2164 ps-header-font-size %s |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
2165 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
|
2166 " |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
2167 ps-print-color-p |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
2168 ps-lpr-command |
23550
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
2169 (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
|
2170 ps-printer-name |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2171 (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
|
2172 (ps-print-quote ps-paper-type) |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
2173 ps-landscape-mode |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
2174 ps-number-of-columns |
19787
4ea00387fb08
(ps-setup): ps-zebra-stripe => ps-zebra-stripes.
Richard M. Stallman <rms@gnu.org>
parents:
19773
diff
changeset
|
2175 ps-zebra-stripes |
4ea00387fb08
(ps-setup): ps-zebra-stripe => ps-zebra-stripes.
Richard M. Stallman <rms@gnu.org>
parents:
19773
diff
changeset
|
2176 ps-zebra-stripe-height |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2177 ps-zebra-gray |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
2178 ps-line-number |
23550
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
2179 (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
|
2180 (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
|
2181 (ps-print-quote ps-print-background-text) |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
2182 (ps-print-quote ps-print-prologue-header) |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
2183 ps-left-margin |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
2184 ps-right-margin |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
2185 ps-inter-column |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
2186 ps-bottom-margin |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
2187 ps-top-margin |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
2188 ps-header-offset |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
2189 ps-header-line-pad |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
2190 ps-print-header |
23550
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
2191 ps-print-only-one-header |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
2192 ps-print-header-frame |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
2193 ps-header-lines |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
2194 ps-show-n-of-n |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2195 (ps-print-quote ps-spool-config) |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
2196 ps-spool-duplex |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2197 ps-spool-tumble |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2198 ps-banner-page-when-duplexing |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2199 ps-n-up-printing |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2200 ps-n-up-margin |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2201 ps-n-up-border-p |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2202 (ps-print-quote ps-n-up-filling) |
27161
0a2452a20c74
ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
26883
diff
changeset
|
2203 (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
|
2204 (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
|
2205 (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
|
2206 (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
|
2207 (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
|
2208 (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
|
2209 |
27161
0a2452a20c74
ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
26883
diff
changeset
|
2210 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2211 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2212 ;; Utility functions and variables: |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2213 |
27161
0a2452a20c74
ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
26883
diff
changeset
|
2214 |
23550
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
2215 (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
|
2216 (cond ((null sym) |
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
2217 nil) |
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
2218 ((or (symbolp sym) (listp sym)) |
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
2219 (format "'%S" sym)) |
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
2220 ((stringp sym) |
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
2221 (format "%S" sym)) |
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
2222 (t |
23550
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
2223 sym))) |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
2224 |
12769
4a905565cfa6
(ps-print-emacs-type): Renamed from emacs-type.
Richard M. Stallman <rms@gnu.org>
parents:
12768
diff
changeset
|
2225 (defvar ps-print-emacs-type |
4a905565cfa6
(ps-print-emacs-type): Renamed from emacs-type.
Richard M. Stallman <rms@gnu.org>
parents:
12768
diff
changeset
|
2226 (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
|
2227 ((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
|
2228 ((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
|
2229 (t 'emacs))) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2230 |
12769
4a905565cfa6
(ps-print-emacs-type): Renamed from emacs-type.
Richard M. Stallman <rms@gnu.org>
parents:
12768
diff
changeset
|
2231 (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
|
2232 (eq ps-print-emacs-type 'xemacs)) |
11799
4a04c7799790
Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents:
10738
diff
changeset
|
2233 (if (< emacs-minor-version 12) |
4a04c7799790
Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents:
10738
diff
changeset
|
2234 (setq ps-print-color-p nil)) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2235 (require 'faces)) ; face-font, face-underline-p, |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2236 ; x-font-regexp |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2237 |
20516
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
2238 ;; 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
|
2239 ;; can handle colors. |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
2240 ;; 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
|
2241 (cond ((and (eq ps-print-emacs-type 'xemacs) |
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
2242 (>= emacs-minor-version 12)) ; xemacs |
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
2243 (defun ps-color-device () |
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
2244 (eq (device-class) 'color)) |
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
2245 ) |
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
2246 |
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
2247 (t ; emacs |
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
2248 (defun ps-color-device () |
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
2249 t) |
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
2250 )) |
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
2251 |
20516
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
2252 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2253 (require 'time-stamp) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2254 |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2255 (defconst ps-print-prologue-1 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2256 " |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2257 % ISOLatin1Encoding stolen from ps_init.ps in GhostScript 2.6.1.4: |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2258 /ISOLatin1Encoding where { pop } { |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2259 % -- The ISO Latin-1 encoding vector isn't known, so define it. |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2260 % -- The first half is the same as the standard encoding, |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2261 % -- except for minus instead of hyphen at code 055. |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2262 /ISOLatin1Encoding |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2263 StandardEncoding 0 45 getinterval aload pop |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2264 /minus |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2265 StandardEncoding 46 82 getinterval aload pop |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2266 %*** NOTE: the following are missing in the Adobe documentation, |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2267 %*** but appear in the displayed table: |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2268 %*** macron at 0225, dieresis at 0230, cedilla at 0233, space at 0240. |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2269 % 0200 (128) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2270 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2271 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2272 /dotlessi /grave /acute /circumflex /tilde /macron /breve /dotaccent |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2273 /dieresis /.notdef /ring /cedilla /.notdef /hungarumlaut /ogonek /caron |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2274 % 0240 (160) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2275 /space /exclamdown /cent /sterling |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2276 /currency /yen /brokenbar /section |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2277 /dieresis /copyright /ordfeminine /guillemotleft |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2278 /logicalnot /hyphen /registered /macron |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2279 /degree /plusminus /twosuperior /threesuperior |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2280 /acute /mu /paragraph /periodcentered |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2281 /cedilla /onesuperior /ordmasculine /guillemotright |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2282 /onequarter /onehalf /threequarters /questiondown |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2283 % 0300 (192) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2284 /Agrave /Aacute /Acircumflex /Atilde |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2285 /Adieresis /Aring /AE /Ccedilla |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2286 /Egrave /Eacute /Ecircumflex /Edieresis |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2287 /Igrave /Iacute /Icircumflex /Idieresis |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2288 /Eth /Ntilde /Ograve /Oacute |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2289 /Ocircumflex /Otilde /Odieresis /multiply |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2290 /Oslash /Ugrave /Uacute /Ucircumflex |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2291 /Udieresis /Yacute /Thorn /germandbls |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2292 % 0340 (224) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2293 /agrave /aacute /acircumflex /atilde |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2294 /adieresis /aring /ae /ccedilla |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2295 /egrave /eacute /ecircumflex /edieresis |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2296 /igrave /iacute /icircumflex /idieresis |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2297 /eth /ntilde /ograve /oacute |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2298 /ocircumflex /otilde /odieresis /divide |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2299 /oslash /ugrave /uacute /ucircumflex |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2300 /udieresis /yacute /thorn /ydieresis |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2301 256 packedarray def |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2302 } ifelse |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2303 |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2304 /reencodeFontISO { %def |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2305 dup |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2306 length 12 add dict % Make a new font (a new dict the same size |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2307 % as the old one) with room for our new symbols. |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2308 |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2309 begin % Make the new font the current dictionary. |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2310 |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2311 |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2312 { 1 index /FID ne |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2313 { def } { pop pop } ifelse |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2314 } forall % Copy each of the symbols from the old dictionary |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2315 % to the new one except for the font ID. |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2316 |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2317 currentdict /FontType get 0 ne { |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2318 /Encoding ISOLatin1Encoding def % Override the encoding with |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2319 % the ISOLatin1 encoding. |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2320 } if |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2321 |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2322 % Use the font's bounding box to determine the ascent, descent, |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2323 % and overall height; don't forget that these values have to be |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2324 % transformed using the font's matrix. |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2325 |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2326 % ^ (x2 y2) |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2327 % | | |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2328 % | v |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2329 % | +----+ - - |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2330 % | | | ^ |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2331 % | | | | Ascent (usually > 0) |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2332 % | | | | |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2333 % (0 0) -> +--+----+--------> |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2334 % | | | |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2335 % | | v Descent (usually < 0) |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2336 % (x1 y1) --> +----+ - - |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2337 |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2338 currentdict /FontType get 0 ne { |
23091
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
2339 /FontBBox load aload pop % -- x1 y1 x2 y2 |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2340 FontMatrix transform /Ascent exch def pop |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2341 FontMatrix transform /Descent exch def pop |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2342 } { |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2343 /PrimaryFont FDepVector 0 get def |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2344 PrimaryFont /FontBBox get aload pop |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2345 PrimaryFont /FontMatrix get transform /Ascent exch def pop |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2346 PrimaryFont /FontMatrix get transform /Descent exch def pop |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2347 } ifelse |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2348 |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2349 /FontHeight Ascent Descent sub def % use `sub' because descent < 0 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2350 |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2351 % Define these in case they're not in the FontInfo |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2352 % (also, here they're easier to get to). |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2353 /UnderlinePosition Descent 0.70 mul def |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2354 /OverlinePosition Descent UnderlinePosition sub Ascent add def |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2355 /StrikeoutPosition Ascent 0.30 mul def |
23091
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
2356 /LineThickness FontHeight 0.05 mul def |
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
2357 /Xshadow FontHeight 0.08 mul def |
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
2358 /Yshadow FontHeight -0.09 mul def |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2359 /SpaceBackground Descent neg UnderlinePosition add def |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2360 /XBox Descent neg def |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2361 /YBox LineThickness 0.7 mul def |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2362 |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2363 currentdict % Leave the new font on the stack |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2364 end % Stop using the font as the current dictionary. |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2365 definefont % Put the font into the font dictionary |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2366 pop % Discard the returned font. |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2367 } bind def |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2368 |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2369 /DefFont { % Font definition |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2370 findfont exch scalefont reencodeFontISO |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2371 } def |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2372 |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2373 /F { % Font selection |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2374 findfont |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2375 dup /Ascent get /Ascent exch def |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2376 dup /Descent get /Descent exch def |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2377 dup /FontHeight get /FontHeight exch def |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2378 dup /UnderlinePosition get /UnderlinePosition exch def |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2379 dup /OverlinePosition get /OverlinePosition exch def |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2380 dup /StrikeoutPosition get /StrikeoutPosition exch def |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2381 dup /LineThickness get /LineThickness exch def |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2382 dup /Xshadow get /Xshadow exch def |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2383 dup /Yshadow get /Yshadow exch def |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2384 dup /SpaceBackground get /SpaceBackground exch def |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2385 dup /XBox get /XBox exch def |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2386 dup /YBox get /YBox exch def |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2387 setfont |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2388 } def |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2389 |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2390 /FG /setrgbcolor load def |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2391 |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2392 /bg false def |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2393 /BG { |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2394 dup /bg exch def |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2395 {mark 4 1 roll ]} |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2396 {[ 1.0 1.0 1.0 ]} |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2397 ifelse |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2398 /bgcolor exch def |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2399 } def |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2400 |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2401 % B width C |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2402 % +-----------+ |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2403 % | Ascent (usually > 0) |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2404 % A + + |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2405 % | Descent (usually < 0) |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2406 % +-----------+ |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2407 % E width D |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2408 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2409 /dobackground { % width -- |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2410 currentpoint % -- width x y |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2411 gsave |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2412 newpath |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2413 moveto % A (x y) |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2414 0 Ascent rmoveto % B |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2415 dup 0 rlineto % C |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2416 0 Descent Ascent sub rlineto % D |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2417 neg 0 rlineto % E |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2418 closepath |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2419 bgcolor aload pop setrgbcolor |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2420 fill |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2421 grestore |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2422 } def |
7257 | 2423 |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2424 /eolbg { % dobackground until right margin |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2425 PrintWidth % -- x-eol |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2426 currentpoint pop % -- cur-x |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2427 sub % -- width until eol |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2428 dobackground |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2429 } def |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2430 |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2431 /PLN {PrintLineNumber {doLineNumber}if} def |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2432 |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2433 /SL { % Soft Linefeed |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2434 bg { eolbg } if |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2435 0 currentpoint exch pop LineHeight sub moveto |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2436 } def |
7257 | 2437 |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2438 /HL {SL PLN} def % Hard Linefeed |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2439 |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2440 % Some debug |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2441 /dcp { currentpoint exch 40 string cvs print (, ) print = } def |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2442 /dp { print 2 copy exch 40 string cvs print (, ) print = } def |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2443 |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2444 /W { |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2445 ( ) stringwidth % Get the width of a space in the current font. |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2446 pop % Discard the Y component. |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2447 mul % Multiply the width of a space |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2448 % by the number of spaces to plot |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2449 bg { dup dobackground } if |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2450 0 rmoveto |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2451 } def |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2452 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2453 /Effect 0 def |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2454 /EF {/Effect exch def} def |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2455 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2456 % stack: string |- -- |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2457 % effect: 1 - underline 2 - strikeout 4 - overline |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2458 % 8 - shadow 16 - box 32 - outline |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2459 /S { |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2460 /xx currentpoint dup Descent add /yy exch def |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2461 Ascent add /YY exch def def |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2462 dup stringwidth pop xx add /XX exch def |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2463 Effect 8 and 0 ne { |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2464 /yy yy Yshadow add def |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2465 /XX XX Xshadow add def |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2466 } if |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2467 bg { |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2468 true |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2469 Effect 16 and 0 ne |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2470 {SpaceBackground doBox} |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2471 {xx yy XX YY doRect} |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2472 ifelse |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2473 } if % background |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2474 Effect 16 and 0 ne {false 0 doBox}if % box |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2475 Effect 8 and 0 ne {dup doShadow}if % shadow |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2476 Effect 32 and 0 ne |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2477 {true doOutline} % outline |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2478 {show} % normal text |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2479 ifelse |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2480 Effect 1 and 0 ne {UnderlinePosition Hline}if % underline |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2481 Effect 2 and 0 ne {StrikeoutPosition Hline}if % strikeout |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2482 Effect 4 and 0 ne {OverlinePosition Hline}if % overline |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2483 } bind def |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2484 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2485 % stack: position |- -- |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2486 /Hline { |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2487 currentpoint exch pop add dup |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2488 gsave |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2489 newpath |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2490 xx exch moveto |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2491 XX exch lineto |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2492 closepath |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2493 LineThickness setlinewidth stroke |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2494 grestore |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2495 } bind def |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2496 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2497 % stack: fill-or-not delta |- -- |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2498 /doBox { |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2499 /dd exch def |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2500 xx XBox sub dd sub yy YBox sub dd sub |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2501 XX XBox add dd add YY YBox add dd add |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2502 doRect |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2503 } bind def |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2504 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2505 % stack: fill-or-not lower-x lower-y upper-x upper-y |- -- |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2506 /doRect { |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2507 /rYY exch def |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2508 /rXX exch def |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2509 /ryy exch def |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2510 /rxx exch def |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2511 gsave |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2512 newpath |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2513 rXX rYY moveto |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2514 rxx rYY lineto |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2515 rxx ryy lineto |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2516 rXX ryy lineto |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2517 closepath |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2518 % top of stack: fill-or-not |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2519 {FillBgColor} |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2520 {LineThickness setlinewidth stroke} |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2521 ifelse |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2522 grestore |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2523 } bind def |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2524 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2525 % stack: string |- -- |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2526 /doShadow { |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2527 gsave |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2528 Xshadow Yshadow rmoveto |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2529 false doOutline |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2530 grestore |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2531 } bind def |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2532 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2533 /st 1 string def |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2534 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2535 % stack: string fill-or-not |- -- |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2536 /doOutline { |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2537 /-fillp- exch def |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2538 /-ox- currentpoint /-oy- exch def def |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2539 gsave |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2540 LineThickness setlinewidth |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2541 { |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2542 st 0 3 -1 roll put |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2543 st dup true charpath |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2544 -fillp- {gsave FillBgColor grestore}if |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2545 stroke stringwidth |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2546 -oy- add /-oy- exch def |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2547 -ox- add /-ox- exch def |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2548 -ox- -oy- moveto |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2549 } forall |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2550 grestore |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2551 -ox- -oy- moveto |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2552 } bind def |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2553 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2554 % stack: -- |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2555 /FillBgColor {bgcolor aload pop setrgbcolor fill} bind def |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2556 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2557 /L0 6 /Times-Italic DefFont |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2558 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2559 % stack: -- |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2560 /doLineNumber { |
22204
e1921cd8a532
(ps-print-version): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
22093
diff
changeset
|
2561 /LineNumber where |
e1921cd8a532
(ps-print-version): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
22093
diff
changeset
|
2562 { |
e1921cd8a532
(ps-print-version): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
22093
diff
changeset
|
2563 pop |
e1921cd8a532
(ps-print-version): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
22093
diff
changeset
|
2564 currentfont |
e1921cd8a532
(ps-print-version): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
22093
diff
changeset
|
2565 gsave |
e1921cd8a532
(ps-print-version): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
22093
diff
changeset
|
2566 0.0 0.0 0.0 setrgbcolor |
e1921cd8a532
(ps-print-version): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
22093
diff
changeset
|
2567 /L0 findfont setfont |
e1921cd8a532
(ps-print-version): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
22093
diff
changeset
|
2568 LineNumber Lines ge |
e1921cd8a532
(ps-print-version): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
22093
diff
changeset
|
2569 {(end )} |
e1921cd8a532
(ps-print-version): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
22093
diff
changeset
|
2570 {LineNumber 6 string cvs ( ) strcat} |
e1921cd8a532
(ps-print-version): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
22093
diff
changeset
|
2571 ifelse |
e1921cd8a532
(ps-print-version): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
22093
diff
changeset
|
2572 dup stringwidth pop neg 0 rmoveto |
e1921cd8a532
(ps-print-version): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
22093
diff
changeset
|
2573 show |
e1921cd8a532
(ps-print-version): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
22093
diff
changeset
|
2574 grestore |
e1921cd8a532
(ps-print-version): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
22093
diff
changeset
|
2575 setfont |
e1921cd8a532
(ps-print-version): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
22093
diff
changeset
|
2576 /LineNumber LineNumber 1 add def |
e1921cd8a532
(ps-print-version): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
22093
diff
changeset
|
2577 } if |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2578 } def |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2579 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2580 % stack: -- |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2581 /printZebra { |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2582 gsave |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2583 ZebraGray setgray |
20516
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
2584 /double-zebra ZebraHeight ZebraHeight add def |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2585 /yiter double-zebra LineHeight mul neg def |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2586 /xiter PrintWidth InterColumn add def |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2587 NumberOfColumns {LinesPerColumn doColumnZebra xiter 0 rmoveto}repeat |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2588 grestore |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2589 } def |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2590 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2591 % stack: lines-per-column |- -- |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2592 /doColumnZebra { |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2593 gsave |
20516
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
2594 dup double-zebra idiv {ZebraHeight doZebra 0 yiter rmoveto}repeat |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2595 double-zebra mod |
20516
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
2596 dup 0 le {pop}{dup ZebraHeight gt {pop ZebraHeight}if doZebra}ifelse |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2597 grestore |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2598 } def |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2599 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2600 % stack: zebra-height (in lines) |- -- |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2601 /doZebra { |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2602 /zh exch 0.05 sub LineHeight mul def |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2603 gsave |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2604 0 LineHeight 0.65 mul rmoveto |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2605 PrintWidth 0 rlineto |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2606 0 zh neg rlineto |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2607 PrintWidth neg 0 rlineto |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2608 0 zh rlineto |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2609 fill |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2610 grestore |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2611 } def |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2612 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2613 % tx ty rotation xscale yscale xpos ypos BeginBackImage |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2614 /BeginBackImage { |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2615 /-save-image- save def |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2616 /showpage {}def |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2617 translate |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2618 scale |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2619 rotate |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2620 translate |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2621 } def |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2622 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2623 /EndBackImage { |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2624 -save-image- restore |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2625 } def |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2626 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2627 % string fontsize fontname rotation gray xpos ypos ShowBackText |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2628 /ShowBackText { |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2629 gsave |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2630 translate |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2631 setgray |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2632 rotate |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2633 findfont exch dup /-offset- exch -0.25 mul def scalefont setfont |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2634 0 -offset- moveto |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2635 /-saveLineThickness- LineThickness def |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2636 /LineThickness 1 def |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2637 false doOutline |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2638 /LineThickness -saveLineThickness- def |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2639 grestore |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2640 } def |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2641 |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2642 /BeginDoc { |
23091
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
2643 % ---- Remember space width of the normal text font `f0'. |
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
2644 /SpaceWidth /f0 findfont setfont ( ) stringwidth pop def |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2645 % ---- save the state of the document (useful for ghostscript!) |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2646 /docState save def |
23666
53776c6e94b8
(ps-print-prologue-1): In BeginDoc procedure, call setpagedevice to
Andrew Innes <andrewi@gnu.org>
parents:
23551
diff
changeset
|
2647 % ---- [andrewi] set PageSize based on chosen dimensions |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2648 UseSetpagedevice { |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2649 0 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2650 {<< /PageSize [PageWidth LandscapePageHeight] >> setpagedevice} |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2651 CheckConfig |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2652 }{ |
23691
cfeb9bcbd372
(ps-print-prologue-1): Only use old LandscapeMode handling if
Andrew Innes <andrewi@gnu.org>
parents:
23666
diff
changeset
|
2653 LandscapeMode { |
cfeb9bcbd372
(ps-print-prologue-1): Only use old LandscapeMode handling if
Andrew Innes <andrewi@gnu.org>
parents:
23666
diff
changeset
|
2654 % ---- translate to bottom-right corner of Portrait page |
cfeb9bcbd372
(ps-print-prologue-1): Only use old LandscapeMode handling if
Andrew Innes <andrewi@gnu.org>
parents:
23666
diff
changeset
|
2655 LandscapePageHeight 0 translate |
cfeb9bcbd372
(ps-print-prologue-1): Only use old LandscapeMode handling if
Andrew Innes <andrewi@gnu.org>
parents:
23666
diff
changeset
|
2656 90 rotate |
cfeb9bcbd372
(ps-print-prologue-1): Only use old LandscapeMode handling if
Andrew Innes <andrewi@gnu.org>
parents:
23666
diff
changeset
|
2657 }if |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2658 }ifelse |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2659 % ---- [jack] Kludge: my ghostscript window is 21x27.7 instead of 21x29.7 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2660 /JackGhostscript where {pop 1 27.7 29.7 div scale}if |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2661 % ---- N-Up printing |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2662 N-Up 1 gt { |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2663 % ---- landscape |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2664 N-Up-Landscape { |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2665 PageWidth 0 translate |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2666 90 rotate |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2667 }if |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2668 N-Up-Margin dup translate |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2669 % ---- scale |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2670 LandscapeMode{ |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2671 /HH PageWidth def |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2672 /WW LandscapePageHeight def |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2673 }{ |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2674 /HH LandscapePageHeight def |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2675 /WW PageWidth def |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2676 }ifelse |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2677 WW N-Up-Margin sub N-Up-Margin sub |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2678 N-Up-Landscape |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2679 {N-Up-Lines div HH}{N-Up-Columns N-Up-Missing add div WW}ifelse |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2680 div dup scale |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2681 0 N-Up-Repeat 1 sub LandscapePageHeight mul translate |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2682 % ---- go to start position in page matrix |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2683 N-Up-XStart N-Up-Missing 0.5 mul |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2684 LandscapeMode{ |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2685 LandscapePageHeight mul N-Up-YStart add |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2686 }{ |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2687 PageWidth mul add N-Up-YStart |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2688 }ifelse |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2689 translate |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2690 }if |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2691 /ColumnWidth PrintWidth InterColumn add def |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2692 % ---- translate to lower left corner of TEXT |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2693 LeftMargin BottomMargin translate |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2694 % ---- define where printing will start |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2695 /f0 F % this installs Ascent |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2696 /PrintStartY PrintHeight Ascent sub def |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2697 /ColumnIndex 1 def |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2698 /N-Up-Counter N-Up-End 1 sub def |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2699 SkipFirstPage{save showpage restore}if |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2700 }def |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2701 |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2702 /EndDoc { |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2703 % ---- restore the state of the document (useful for ghostscript!) |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2704 docState restore |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2705 }def |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2706 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2707 /BeginDSCPage { |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2708 % ---- when 1st column, save the state of the page |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2709 ColumnIndex 1 eq { |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2710 /pageState save def |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2711 }if |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
2712 % ---- save the state of the column |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
2713 /columnState save def |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2714 }def |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
2715 |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2716 /PrintHeaderWidth PrintOnlyOneHeader{PrintPageWidth}{PrintWidth}ifelse def |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2717 |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
2718 /BeginPage { |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
2719 % ---- when 1st column, print all background effects |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
2720 ColumnIndex 1 eq { |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2721 0 PrintStartY moveto % move to where printing will start |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2722 Zebra {printZebra}if |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2723 printGlobalBackground |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2724 printLocalBackground |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2725 }if |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2726 PrintHeader { |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2727 PrintOnlyOneHeader{ColumnIndex 1 eq}{true}ifelse { |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2728 PrintHeaderFrame {HeaderFrame}if |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2729 HeaderText |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2730 }if |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2731 }if |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2732 0 PrintStartY moveto % move to where printing will start |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2733 PLN |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2734 }def |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2735 |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2736 /EndPage { |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2737 bg {eolbg}if |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2738 }def |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2739 |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2740 /EndDSCPage { |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2741 ColumnIndex NumberOfColumns eq { |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2742 % ---- restore the state of the page |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2743 pageState restore |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2744 /ColumnIndex 1 def |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2745 % ---- N-up printing |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2746 N-Up 1 gt { |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2747 N-Up-Counter 0 gt { |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2748 % ---- Next page on same row |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2749 /N-Up-Counter N-Up-Counter 1 sub def |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2750 N-Up-XColumn N-Up-YColumn |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2751 }{ |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2752 % ---- Next page on next line |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2753 /N-Up-Counter N-Up-End 1 sub def |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2754 N-Up-XLine N-Up-YLine |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2755 }ifelse |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2756 translate |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2757 }if |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2758 }{ % else |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2759 % ---- restore the state of the current column |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2760 columnState restore |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2761 % ---- and translate to the next column |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2762 ColumnWidth 0 translate |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2763 /ColumnIndex ColumnIndex 1 add def |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2764 }ifelse |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2765 }def |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2766 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2767 % stack: number-of-pages-per-sheet |- -- |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2768 /BeginSheet { |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2769 /sheetState save def |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2770 /pages-per-sheet exch def |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2771 % ---- N-up printing |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2772 N-Up 1 gt N-Up-Border and pages-per-sheet 0 gt and { |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2773 % ---- page border |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2774 gsave |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2775 0 setgray |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2776 LeftMargin neg BottomMargin neg moveto |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2777 N-Up-Repeat |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2778 {N-Up-End |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2779 {gsave |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2780 PageWidth 0 rlineto |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2781 0 LandscapePageHeight rlineto |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2782 PageWidth neg 0 rlineto |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2783 closepath stroke |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2784 grestore |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2785 /pages-per-sheet pages-per-sheet 1 sub def |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2786 pages-per-sheet 0 le{exit}if |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2787 N-Up-XColumn N-Up-YColumn rmoveto |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2788 }repeat |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2789 pages-per-sheet 0 le{exit}if |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2790 N-Up-XLine N-Up-XColumn sub N-Up-YLine rmoveto |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2791 }repeat |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2792 grestore |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2793 }if |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2794 }def |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2795 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2796 /EndSheet { |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2797 showpage |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2798 sheetState restore |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2799 }def |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2800 |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2801 /SetHeaderLines { % nb-lines -- |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2802 /HeaderLines exch def |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2803 % ---- bottom up |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2804 HeaderPad |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2805 HeaderLines 1 sub HeaderLineHeight mul add |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2806 HeaderTitleLineHeight add |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2807 HeaderPad add |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2808 /HeaderHeight exch def |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2809 } def |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2810 |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2811 % |---------| |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2812 % | tm | |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2813 % |---------| |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2814 % | header | |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2815 % |-+-------| <-- (x y) |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2816 % | ho | |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2817 % |---------| |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2818 % | text | |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2819 % |-+-------| <-- (0 0) |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2820 % | bm | |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2821 % |---------| |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2822 |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2823 /HeaderFrameStart { % -- x y |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2824 0 PrintHeight HeaderOffset add |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2825 } def |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2826 |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2827 /HeaderFramePath { |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2828 PrintHeaderWidth 0 rlineto |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2829 0 HeaderHeight rlineto |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2830 PrintHeaderWidth neg 0 rlineto |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2831 0 HeaderHeight neg rlineto |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2832 } def |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2833 |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2834 /HeaderFrame { |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2835 gsave |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2836 0.4 setlinewidth |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2837 % ---- fill a black rectangle (the shadow of the next one) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2838 HeaderFrameStart moveto |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2839 1 -1 rmoveto |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2840 HeaderFramePath |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2841 0 setgray fill |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2842 % ---- do the next rectangle ... |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2843 HeaderFrameStart moveto |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2844 HeaderFramePath |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2845 gsave 0.9 setgray fill grestore % filled with grey |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2846 gsave 0 setgray stroke grestore % drawn with black |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2847 grestore |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2848 } def |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2849 |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2850 /HeaderStart { |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2851 HeaderFrameStart |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2852 exch HeaderPad add exch % horizontal pad |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2853 % ---- bottom up |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2854 HeaderPad add % vertical pad |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2855 HeaderDescent sub |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2856 HeaderLineHeight HeaderLines 1 sub mul add |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2857 } def |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2858 |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2859 /strcat { |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2860 dup length 3 -1 roll dup length dup 4 -1 roll add string dup |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2861 0 5 -1 roll putinterval |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2862 dup 4 2 roll exch putinterval |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2863 } def |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2864 |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2865 /pagenumberstring { |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2866 PageNumber 32 string cvs |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2867 ShowNofN { |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2868 (/) strcat |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2869 PageCount 32 string cvs strcat |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2870 } if |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2871 } def |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2872 |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2873 /HeaderText { |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2874 HeaderStart moveto |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2875 |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2876 HeaderLinesRight HeaderLinesLeft % -- rightLines leftLines |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2877 |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2878 % ---- hack: `PN 1 and' == `PN 2 modulo' |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2879 |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2880 % ---- if even page number and duplex, then exchange left and right |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2881 PageNumber 1 and 0 eq DuplexValue and { exch } if |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2882 |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2883 { % ---- process the left lines |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2884 aload pop |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2885 exch F |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2886 gsave |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2887 dup xcheck { exec } if |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2888 show |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2889 grestore |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2890 0 HeaderLineHeight neg rmoveto |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2891 } forall |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2892 |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2893 HeaderStart moveto |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2894 |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2895 { % ---- process the right lines |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2896 aload pop |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2897 exch F |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2898 gsave |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2899 dup xcheck { exec } if |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2900 dup stringwidth pop |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2901 PrintHeaderWidth exch sub HeaderPad 2 mul sub 0 rmoveto |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2902 show |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2903 grestore |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2904 0 HeaderLineHeight neg rmoveto |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2905 } forall |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2906 } def |
7257 | 2907 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2908 /ReportFontInfo { |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2909 2 copy |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2910 /t0 3 1 roll DefFont |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2911 /t0 F |
10683 | 2912 /lh FontHeight def |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2913 /sw ( ) stringwidth pop def |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2914 /aw (01234567890abcdefghijklmnopqrstuvwxyz) dup length exch |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2915 stringwidth pop exch div def |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2916 /t1 12 /Helvetica-Oblique DefFont |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2917 /t1 F |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2918 gsave |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2919 (languagelevel = ) show |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2920 gs_languagelevel 32 string cvs show |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2921 grestore |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2922 0 FontHeight neg rmoveto |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2923 gsave |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2924 (For ) show |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2925 128 string cvs show |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2926 ( ) show |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2927 32 string cvs show |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2928 ( point, the line height is ) show |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2929 lh 32 string cvs show |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2930 (, the space width is ) show |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2931 sw 32 string cvs show |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2932 (,) show |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2933 grestore |
10683 | 2934 0 FontHeight neg rmoveto |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2935 gsave |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2936 (and a crude estimate of average character width is ) show |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2937 aw 32 string cvs show |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2938 (.) show |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2939 grestore |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2940 0 FontHeight neg rmoveto |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2941 } def |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2942 |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2943 /cm { % cm to point |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2944 72 mul 2.54 div |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2945 } def |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2946 |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2947 /ReportAllFontInfo { |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2948 FontDirectory |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2949 { % key = font name value = font dictionary |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2950 pop 10 exch ReportFontInfo |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2951 } forall |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2952 } def |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2953 |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2954 % 3 cm 20 cm moveto 10 /Courier ReportFontInfo showpage |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2955 % 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
|
2956 |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2957 /ErrorMessages |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2958 [(This PostScript printer is not configured with this document page size.) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2959 (Duplex printing is not supported on this PostScript printer.)]def |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2960 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2961 % stack: error-index proc |- -- |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2962 /CheckConfig { |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2963 stopped { |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2964 1 cm LandscapePageHeight 0.5 mul moveto |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2965 /Courier findfont 10 scalefont setfont |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2966 gsave |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2967 (ps-print error:) show |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2968 grestore |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2969 0 -10 rmoveto |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2970 ErrorMessages exch get show |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2971 showpage |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2972 $error /newerror false put |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2973 stop |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2974 }if |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2975 } bind def |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2976 |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2977 ") |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2978 |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2979 (defconst ps-print-prologue-2 |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2980 " |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2981 % ---- These lines must be kept together because... |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2982 |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2983 /h0 F |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2984 /HeaderTitleLineHeight FontHeight def |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2985 |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2986 /h1 F |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2987 /HeaderLineHeight FontHeight def |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2988 /HeaderDescent Descent def |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2989 |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2990 % ---- ...because `F' has a side-effect on `FontHeight' and `Descent' |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2991 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2992 ") |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2993 |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2994 (defconst ps-print-duplex-feature |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2995 " |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2996 % --- duplex feature verification |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2997 1 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2998 UseSetpagedevice { |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2999 {<< /Duplex DuplexValue /Tumble TumbleValue >> setpagedevice} |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3000 }{ |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3001 {statusdict begin |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3002 DuplexValue setduplexmode TumbleValue settumble |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3003 end} |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3004 }ifelse |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3005 CheckConfig |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3006 ") |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3007 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3008 ;; Start Editing Here: |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3009 |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3010 (defvar ps-source-buffer nil) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3011 (defvar ps-spool-buffer-name "*PostScript*") |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3012 (defvar ps-spool-buffer nil) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3013 |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3014 (defvar ps-output-head nil) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3015 (defvar ps-output-tail nil) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3016 |
22397 | 3017 (defvar ps-page-postscript 0) |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3018 (defvar ps-page-order 0) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3019 (defvar ps-page-count 0) |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3020 (defvar ps-showline-count 1) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3021 |
20516
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
3022 (defvar ps-control-or-escape-regexp nil) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
3023 |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3024 (defvar ps-background-pages nil) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3025 (defvar ps-background-all-pages nil) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3026 (defvar ps-background-text-count 0) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3027 (defvar ps-background-image-count 0) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3028 |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3029 (defvar ps-current-font 0) |
23550
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
3030 (defvar ps-default-color (and ps-print-color-p ps-default-fg)) ; black |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3031 (defvar ps-current-color ps-default-color) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3032 (defvar ps-current-bg nil) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3033 |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3034 (defvar ps-razchunk 0) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3035 |
23550
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
3036 (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
|
3037 (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
|
3038 (if (eq ps-print-emacs-type 'emacs) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3039 |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
3040 ;; 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
|
3041 ;; 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
|
3042 ;; PostScript output. |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
3043 "%0.3f %0.3f %0.3f" |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
3044 |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
3045 ;; 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
|
3046 "%s %s %s")) |
7257 | 3047 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3048 ;; 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
|
3049 ;; 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
|
3050 ;; it'll do for now. |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3051 |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
3052 (defvar ps-header-pad 0 |
21955
c4de7c7bc14a
(ps-header-title-font-size): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
21954
diff
changeset
|
3053 "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
|
3054 This is in units of points (1/72 inch).") |
7257 | 3055 |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
3056 ;; Define accessors to the dimensions list. |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3057 |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
3058 (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
|
3059 (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
|
3060 (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
|
3061 |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3062 (defvar ps-landscape-page-height nil) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3063 |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3064 (defvar ps-print-width nil) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3065 (defvar ps-print-height nil) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3066 |
20331 | 3067 (defvar ps-height-remaining nil) |
3068 (defvar ps-width-remaining nil) | |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3069 |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
3070 (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
|
3071 |
24414
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
3072 (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
|
3073 (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
|
3074 (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
|
3075 |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3076 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3077 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3078 ;; Internal Variables |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3079 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3080 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3081 (defvar ps-print-face-extension-alist nil |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
3082 "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
|
3083 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
|
3084 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3085 (FACE . [BITS FG BG]) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3086 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3087 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
|
3088 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
|
3089 to a feature (bold, underline, etc) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3090 (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
|
3091 FG foreground color (string or nil) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3092 BG background color (string or nil) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3093 |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
3094 Don't change this list directly; instead, |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
3095 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
|
3096 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
|
3097 |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
3098 |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
3099 (defvar ps-print-face-alist nil |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
3100 "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
|
3101 |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
3102 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
|
3103 `ps-print-face-extension-alist'. |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
3104 |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
3105 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
|
3106 `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
|
3107 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3108 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3109 (defconst ps-print-face-map-alist |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3110 '((bold . 1) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3111 (italic . 2) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3112 (underline . 4) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3113 (strikeout . 8) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3114 (overline . 16) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3115 (shadow . 32) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3116 (box . 64) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3117 (outline . 128)) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3118 "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
|
3119 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
|
3120 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3121 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3122 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
3123 ;; Remapping Faces |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3124 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3125 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3126 ;;;###autoload |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3127 (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
|
3128 "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
|
3129 |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
3130 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
|
3131 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
|
3132 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3133 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
|
3134 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3135 See `ps-extend-face' for documentation." |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3136 (while face-extension-list |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3137 (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
|
3138 (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
|
3139 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3140 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3141 ;;;###autoload |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3142 (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
|
3143 "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
|
3144 |
21954
73f9f4219198
Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents:
21801
diff
changeset
|
3145 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
|
3146 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
|
3147 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3148 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
|
3149 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3150 (FACE-NAME FOREGROUND BACKGROUND EXTENSION...) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3151 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3152 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
|
3153 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3154 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
|
3155 foreground and background colors respectively. |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3156 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3157 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
|
3158 bold - use bold font. |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3159 italic - use italic font. |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3160 underline - put a line under text. |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3161 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
|
3162 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
|
3163 shadow - text will have a shadow. |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3164 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
|
3165 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
|
3166 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3167 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
|
3168 (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
|
3169 (foreground (nth 1 face-extension)) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3170 (background (nth 2 face-extension)) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3171 (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
|
3172 (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
|
3173 (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
|
3174 ;; extend face |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3175 (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
|
3176 (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
|
3177 face-bit)) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3178 (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
|
3179 (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
|
3180 ;; 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
|
3181 (or ps-face |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3182 (setq ps-print-face-extension-alist |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3183 (cons (cons face-name face-vector) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3184 ps-print-face-extension-alist))))) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3185 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3186 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3187 (defun ps-extension-bit (face-extension) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3188 (let ((face-bit 0)) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3189 ;; 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
|
3190 (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
|
3191 (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
|
3192 (setq face-bit (logior face-bit |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3193 (or (cdr (assq (car face-extension) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3194 ps-print-face-map-alist)) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3195 0)))) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3196 face-bit)) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3197 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3198 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3199 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3200 ;; Adapted from font-lock: (obsolete stuff) |
20516
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
3201 ;; 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
|
3202 ;; 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
|
3203 ;; 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
|
3204 ;; 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
|
3205 |
27161
0a2452a20c74
ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
26883
diff
changeset
|
3206 |
20516
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
3207 (defun ps-font-lock-face-attributes () |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
3208 (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
|
3209 (boundp 'font-lock-face-attributes) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
3210 (let ((face-attributes font-lock-face-attributes)) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
3211 (while face-attributes |
21954
73f9f4219198
Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents:
21801
diff
changeset
|
3212 (let* ((face-attribute |
73f9f4219198
Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents:
21801
diff
changeset
|
3213 (car (prog1 face-attributes |
73f9f4219198
Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents:
21801
diff
changeset
|
3214 (setq face-attributes (cdr face-attributes))))) |
20516
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
3215 (face (car face-attribute))) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
3216 ;; Rustle up a `defface' SPEC from a |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
3217 ;; `font-lock-face-attributes' entry. |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
3218 (unless (get face 'saved-face) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
3219 (let ((foreground (nth 1 face-attribute)) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
3220 (background (nth 2 face-attribute)) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
3221 (bold-p (nth 3 face-attribute)) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
3222 (italic-p (nth 4 face-attribute)) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
3223 (underline-p (nth 5 face-attribute)) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
3224 face-spec) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
3225 (when foreground |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
3226 (setq face-spec (cons ':foreground |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
3227 (cons foreground face-spec)))) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
3228 (when background |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
3229 (setq face-spec (cons ':background |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
3230 (cons background face-spec)))) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
3231 (when bold-p |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
3232 (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
|
3233 (when italic-p |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
3234 (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
|
3235 (when underline-p |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
3236 (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
|
3237 (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
|
3238 ))))))) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
3239 |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
3240 |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
3241 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3242 ;; Internal functions and variables |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3243 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3244 |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
3245 (make-local-hook 'ps-print-hook) |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3246 (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
|
3247 (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
|
3248 (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
|
3249 |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
3250 |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
3251 (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
|
3252 (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
|
3253 (ps-do-despool filename)) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3254 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3255 |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
3256 (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
|
3257 (run-hooks 'ps-print-hook) |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
3258 (ps-printing-region region-p) |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3259 (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
|
3260 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3261 |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
3262 (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
|
3263 (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
|
3264 (ps-do-despool filename)) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3265 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3266 |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
3267 (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
|
3268 (run-hooks 'ps-print-hook) |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
3269 (ps-printing-region region-p) |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3270 (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
|
3271 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3272 |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3273 (defun ps-count-lines (from to) |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
3274 (+ (count-lines from to) |
20516
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
3275 (save-excursion |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
3276 (goto-char to) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
3277 (if (= (current-column) 0) 1 0)))) |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
3278 |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
3279 |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
3280 (defvar ps-printing-region nil |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3281 "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
|
3282 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
|
3283 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
|
3284 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
|
3285 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
|
3286 file.") |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3287 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3288 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3289 (defvar ps-printing-region-p nil |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3290 "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
|
3291 |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
3292 |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
3293 (defun ps-printing-region (region-p) |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3294 (setq ps-printing-region-p region-p |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3295 ps-printing-region |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3296 (cons (if region-p |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3297 (ps-count-lines (point-min) (region-beginning)) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3298 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3299 (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
|
3300 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3301 |
10492
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 ;; Internal functions |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3304 |
27161
0a2452a20c74
ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
26883
diff
changeset
|
3305 |
21999
35efe9eafc6c
(ps-alist-position): Renamed from ps-position.
Richard M. Stallman <rms@gnu.org>
parents:
21955
diff
changeset
|
3306 (defsubst ps-font-alist (font-sym) |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
3307 (get font-sym 'fonts)) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
3308 |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
3309 (defun ps-font (font-sym font-type) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
3310 "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
|
3311 (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
|
3312 (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
|
3313 (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
|
3314 (setq font-list (cdr font-list))) |
73f9f4219198
Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents:
21801
diff
changeset
|
3315 (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
|
3316 |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
3317 (defun ps-fonts (font-sym) |
21999
35efe9eafc6c
(ps-alist-position): Renamed from ps-position.
Richard M. Stallman <rms@gnu.org>
parents:
21955
diff
changeset
|
3318 (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
|
3319 |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
3320 (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
|
3321 (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
|
3322 0)) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
3323 |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
3324 (defsubst ps-line-height (font-sym) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
3325 "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
|
3326 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
|
3327 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
|
3328 point at which page-breaks are placed. |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
3329 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
|
3330 (get font-sym 'line-height)) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
3331 |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
3332 (defsubst ps-title-line-height (font-sym) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
3333 "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
|
3334 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
|
3335 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
|
3336 point at which page-breaks are placed. |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
3337 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
|
3338 (get font-sym 'title-line-height)) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
3339 |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
3340 (defsubst ps-space-width (font-sym) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
3341 "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
|
3342 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
|
3343 (get font-sym 'space-width)) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
3344 |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
3345 (defsubst ps-avg-char-width (font-sym) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
3346 "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
|
3347 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
|
3348 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
|
3349 which long lines wrap around." |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
3350 (get font-sym 'avg-char-width)) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
3351 |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
3352 (defun ps-line-lengths-internal () |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3353 "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
|
3354 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
|
3355 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
|
3356 (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
|
3357 (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
|
3358 (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
|
3359 (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
|
3360 ps-print-width)) |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
3361 (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
|
3362 (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
|
3363 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
|
3364 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
|
3365 (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
|
3366 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
|
3367 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
|
3368 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
|
3369 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
|
3370 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
|
3371 ) |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
3372 (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
|
3373 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
|
3374 cw-max (/ (* icw fs-max) ifs) |
20331 | 3375 nb-cpl-min (floor (/ print-width cw-max)) |
3376 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
|
3377 (set-buffer buf) |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
3378 (goto-char (point-max)) |
20331 | 3379 (or (bolp) (insert "\n")) |
3380 (insert ps-setup | |
3381 "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
|
3382 (while (<= nb-cpl nb-cpl-max) |
20331 | 3383 (setq cw (/ print-width (float nb-cpl)) |
3384 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
|
3385 (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
|
3386 (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
|
3387 (insert "\n") |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
3388 (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
|
3389 |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
3390 (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
|
3391 "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
|
3392 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
|
3393 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
|
3394 (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
|
3395 (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
|
3396 (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
|
3397 (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
|
3398 ps-print-height)) |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
3399 (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
|
3400 (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
|
3401 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
|
3402 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
|
3403 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
|
3404 (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
|
3405 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
|
3406 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
|
3407 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
|
3408 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
|
3409 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
|
3410 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
|
3411 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
|
3412 ) |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
3413 (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
|
3414 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
|
3415 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
|
3416 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
|
3417 nb-lpp-min (floor (/ page-height lh-max)) |
20331 | 3418 nb-page-max (ceiling (/ (float nb-lines) nb-lpp-min)) |
3419 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
|
3420 (set-buffer buf) |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
3421 (goto-char (point-max)) |
20331 | 3422 (or (bolp) (insert "\n")) |
3423 (insert ps-setup | |
3424 (format "%d lines\n" nb-lines) | |
3425 "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
|
3426 (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
|
3427 (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
|
3428 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
|
3429 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
|
3430 (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
|
3431 (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
|
3432 (insert "\n") |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
3433 (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
|
3434 |
21954
73f9f4219198
Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents:
21801
diff
changeset
|
3435 ;; macros used in `ps-select-font' |
73f9f4219198
Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents:
21801
diff
changeset
|
3436 (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
|
3437 (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
|
3438 |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
3439 (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
|
3440 (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
|
3441 (or font-entry |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
3442 (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
|
3443 font-family |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
3444 (mapcar 'car ps-font-info-database))) |
21954
73f9f4219198
Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents:
21801
diff
changeset
|
3445 (let ((size (ps-lookup 'size))) |
73f9f4219198
Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents:
21801
diff
changeset
|
3446 (put sym 'fonts (ps-lookup 'fonts)) |
73f9f4219198
Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents:
21801
diff
changeset
|
3447 (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
|
3448 (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
|
3449 (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
|
3450 (put sym 'title-line-height |
73f9f4219198
Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents:
21801
diff
changeset
|
3451 (/ (* (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
|
3452 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3453 (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
|
3454 (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
|
3455 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
|
3456 (cond |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
3457 ((null page-dimensions) |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
3458 (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
|
3459 (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
|
3460 ((< ps-number-of-columns 1) |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
3461 (error "The number of columns %d should be positive" |
20331 | 3462 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
|
3463 |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
3464 (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
|
3465 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
|
3466 (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
|
3467 ps-header-font-size-internal |
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
3468 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
|
3469 |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
3470 (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
|
3471 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
|
3472 |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
3473 ;; Landscape mode |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
3474 (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
|
3475 ;; 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
|
3476 (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
|
3477 |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
3478 ;; 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
|
3479 (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
|
3480 |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
3481 ;; | 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
|
3482 ;; 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
|
3483 ;; => pw == (page-width - lm -rm - (n - 1) * ic) / n |
20331 | 3484 (setq ps-print-width (/ (- page-width |
3485 ps-left-margin ps-right-margin | |
3486 (* (1- ps-number-of-columns) ps-inter-column)) | |
3487 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
|
3488 (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
|
3489 (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
|
3490 page-width == %s |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
3491 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
|
3492 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
|
3493 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
|
3494 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
|
3495 | 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
|
3496 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
|
3497 => print-width == %d !" |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
3498 page-width |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
3499 ps-left-margin |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
3500 ps-right-margin |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
3501 ps-inter-column |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
3502 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
|
3503 ps-print-width)) |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
3504 |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
3505 (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
|
3506 (- 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
|
3507 (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
|
3508 (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
|
3509 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
|
3510 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
|
3511 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
|
3512 => print-height == %d !" |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
3513 ps-top-margin |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
3514 ps-bottom-margin |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
3515 ps-print-height)) |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
3516 ;; 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
|
3517 ;; the print height. |
20331 | 3518 (if ps-print-header |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
3519 (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
|
3520 (ps-title-line-height 'ps-font-for-header)) |
20331 | 3521 ps-print-height (- ps-print-height |
3522 ps-header-offset | |
3523 ps-header-pad | |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
3524 (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
|
3525 (* (ps-line-height 'ps-font-for-header) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
3526 (1- ps-header-lines)) |
20331 | 3527 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
|
3528 (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
|
3529 (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
|
3530 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
|
3531 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
|
3532 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
|
3533 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
|
3534 header-height == %s |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
3535 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
|
3536 => print-height == %d !" |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
3537 ps-top-margin |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
3538 ps-bottom-margin |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
3539 ps-header-offset |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
3540 ps-header-pad |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
3541 (+ ps-header-pad |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
3542 (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
|
3543 (* (ps-line-height 'ps-font-for-header) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
3544 (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
|
3545 ps-header-pad) |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
3546 ps-print-height)))) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3547 |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3548 (defun ps-print-preprint (&optional filename) |
20331 | 3549 (and filename |
3550 (or (numberp filename) | |
3551 (listp filename)) | |
23550
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
3552 (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
|
3553 (buffer-name))) |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
3554 ".ps")) |
20331 | 3555 (prompt (format "Save PostScript to file: (default %s) " name)) |
3556 (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
|
3557 (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
|
3558 (ding) |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
3559 (setq prompt "is unwritable")) |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
3560 ((file-exists-p res) |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
3561 (setq prompt "exists") |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
3562 (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
|
3563 res)))) |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
3564 (t nil)) |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
3565 (setq res (read-file-name |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
3566 (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
|
3567 (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
|
3568 (file-name-nondirectory res)))) |
20331 | 3569 (if (file-directory-p res) |
3570 (expand-file-name name (file-name-as-directory res)) | |
3571 res)))) | |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3572 |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3573 ;; The following functions implement a simple list-buffering scheme so |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3574 ;; 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
|
3575 ;; 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
|
3576 ;; 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
|
3577 ;; insert its contents into the spool buffer (*PostScript*). |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3578 |
20516
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
3579 (defvar ps-string-escape-codes |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
3580 (let ((table (make-vector 256 nil)) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
3581 (char ?\000)) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
3582 ;; control characters |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
3583 (while (<= char ?\037) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
3584 (aset table char (format "\\%03o" char)) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
3585 (setq char (1+ char))) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
3586 ;; printable characters |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
3587 (while (< char ?\177) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
3588 (aset table char (format "%c" char)) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
3589 (setq char (1+ char))) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
3590 ;; DEL and 8-bit characters |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
3591 (while (<= char ?\377) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
3592 (aset table char (format "\\%o" char)) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
3593 (setq char (1+ char))) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
3594 ;; 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
|
3595 (aset table ?\n "\\n") ; [NL] linefeed |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
3596 (aset table ?\r "\\r") ; [CR] carriage return |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
3597 (aset table ?\t "\\t") ; [HT] horizontal tab |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
3598 (aset table ?\b "\\b") ; [BS] backspace |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
3599 (aset table ?\f "\\f") ; [NP] form feed |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
3600 ;; Escape PostScript escape and string delimiter characters: |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
3601 (aset table ?\\ "\\\\") |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
3602 (aset table ?\( "\\(") |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
3603 (aset table ?\) "\\)") |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
3604 table) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
3605 "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
|
3606 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3607 (defun ps-output-string-prim (string) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3608 (insert "(") ;insert start-string delimiter |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3609 (save-excursion ;insert string |
23091
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
3610 (insert (string-as-unibyte string))) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3611 ;; Find and quote special characters as necessary for PS |
23307 | 3612 ;; 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
|
3613 (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
|
3614 (let ((special (following-char))) |
23091
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
3615 (delete-char 1) |
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
3616 (insert (aref ps-string-escape-codes special)))) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3617 (goto-char (point-max)) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3618 (insert ")")) ;insert end-string delimiter |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3619 |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3620 (defun ps-init-output-queue () |
20331 | 3621 (setq ps-output-head '("") |
3622 ps-output-tail ps-output-head)) | |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3623 |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3624 (defun ps-output (&rest args) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3625 (setcdr ps-output-tail args) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3626 (while (cdr ps-output-tail) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3627 (setq ps-output-tail (cdr ps-output-tail)))) |
7257 | 3628 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3629 (defun ps-output-string (string) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3630 (ps-output t string)) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3631 |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3632 (defun ps-output-list (the-list) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3633 (mapcar 'ps-output the-list)) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3634 |
23091
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
3635 ;; 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
|
3636 (defun ps-output-prologue (args) |
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
3637 (ps-output 'prologue (if (stringp args) (list args) args))) |
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
3638 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3639 (defun ps-flush-output () |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3640 (save-excursion |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3641 (set-buffer ps-spool-buffer) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3642 (goto-char (point-max)) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3643 (while ps-output-head |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3644 (let ((it (car ps-output-head))) |
23091
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
3645 (cond |
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
3646 ((eq t it) |
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
3647 (setq ps-output-head (cdr ps-output-head)) |
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
3648 (ps-output-string-prim (car ps-output-head))) |
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
3649 ((eq 'prologue it) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3650 (setq ps-output-head (cdr ps-output-head)) |
23091
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
3651 (save-excursion |
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
3652 (search-backward "\nBeginDoc") |
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
3653 (forward-char 1) |
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
3654 (apply 'insert (car ps-output-head)))) |
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
3655 (t |
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
3656 (insert it)))) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3657 (setq ps-output-head (cdr ps-output-head)))) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3658 (ps-init-output-queue)) |
7257 | 3659 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3660 (defun ps-insert-file (fname) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3661 (ps-flush-output) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3662 ;; Check to see that the file exists and is readable; if not, throw |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3663 ;; an error. |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3664 (or (file-readable-p fname) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3665 (error "Could not read file `%s'" fname)) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3666 (save-excursion |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3667 (set-buffer ps-spool-buffer) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3668 (goto-char (point-max)) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3669 (insert-file fname))) |
19879
87952270ceeb
(ps-emacs-face-kind-p): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
19843
diff
changeset
|
3670 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3671 ;; 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
|
3672 ;; headers. |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3673 |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3674 (defun ps-generate-header-line (fonttag &optional content) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3675 (ps-output " [ " fonttag " ") |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3676 (cond |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3677 ;; Literal strings should be output as is -- the string must |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3678 ;; contain its own PS string delimiters, '(' and ')', if necessary. |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3679 ((stringp content) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3680 (ps-output content)) |
7257 | 3681 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3682 ;; Functions are called -- they should return strings; they will be |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3683 ;; inserted as strings and the PS string delimiters added. |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3684 ((and (symbolp content) (fboundp content)) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3685 (ps-output-string (funcall content))) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3686 |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3687 ;; Variables will have their contents inserted. They should |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3688 ;; contain strings, and will be inserted as strings. |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3689 ((and (symbolp content) (boundp content)) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3690 (ps-output-string (symbol-value content))) |
7257 | 3691 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3692 ;; Anything else will get turned into an empty string. |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3693 (t |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3694 (ps-output-string ""))) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3695 (ps-output " ]\n")) |
7257 | 3696 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3697 (defun ps-generate-header (name contents) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3698 (ps-output "/" name " [\n") |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3699 (if (> ps-header-lines 0) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3700 (let ((count 1)) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3701 (ps-generate-header-line "/h0" (car contents)) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3702 (while (and (< count ps-header-lines) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3703 (setq contents (cdr contents))) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3704 (ps-generate-header-line "/h1" (car contents)) |
20331 | 3705 (setq count (1+ count))) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3706 (ps-output "] def\n")))) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3707 |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3708 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3709 (defun ps-output-boolean (name bool &optional no-def) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3710 (ps-output (format "/%s %s%s" |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3711 name (if bool "true" "false") (if no-def "\n" " def\n")))) |
7257 | 3712 |
19879
87952270ceeb
(ps-emacs-face-kind-p): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
19843
diff
changeset
|
3713 |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3714 (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
|
3715 (if page-list |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3716 (mapcar |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3717 #'(lambda (pages) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3718 (let ((start (if (consp pages) (car pages) pages)) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3719 (end (if (consp pages) (cdr pages) pages))) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3720 (and (integerp start) (integerp end) (<= start end) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3721 (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
|
3722 page-list) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3723 (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
|
3724 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3725 |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3726 (defconst ps-boundingbox-re |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3727 "^%%BoundingBox:\ |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3728 \\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
|
3729 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3730 |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3731 (defun ps-get-boundingbox () |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3732 (save-excursion |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3733 (set-buffer ps-spool-buffer) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3734 (save-excursion |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3735 (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
|
3736 (vector (string-to-number ; lower x |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3737 (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
|
3738 (string-to-number ; lower y |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3739 (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
|
3740 (string-to-number ; upper x |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3741 (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
|
3742 (string-to-number ; upper y |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3743 (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
|
3744 (vector 0 0 0 0))))) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3745 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3746 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3747 ;; 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
|
3748 ;; 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
|
3749 ;; 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
|
3750 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3751 (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
|
3752 "%0.3f " ; emacs |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3753 "%s ")) ; Lucid emacsen |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3754 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3755 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3756 (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
|
3757 (let ((literal (or value default))) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3758 (if literal |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3759 (format (if (numberp literal) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3760 ps-float-format |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3761 "%s ") |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3762 literal) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3763 " "))) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3764 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3765 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3766 (defun ps-background-text () |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3767 (mapcar |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3768 #'(lambda (text) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3769 (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
|
3770 (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
|
3771 (ps-output-string (nth 0 text)) ; text |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3772 (ps-output |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3773 "\n" |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3774 (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
|
3775 (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
|
3776 (ps-float-format (nth 6 text) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3777 "PrintHeight PrintPageWidth atan") ; rotation |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3778 (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
|
3779 (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
|
3780 (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
|
3781 "\nShowBackText} def\n") |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3782 (ps-background-pages (nthcdr 7 text) ; page list |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3783 (format "ShowBackText-%d\n" |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3784 ps-background-text-count))) |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3785 ps-print-background-text)) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3786 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3787 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3788 (defun ps-background-image () |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3789 (mapcar |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3790 #'(lambda (image) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3791 (let ((image-file (expand-file-name (nth 0 image)))) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3792 (if (file-readable-p image-file) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3793 (progn |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3794 (setq ps-background-image-count (1+ ps-background-image-count)) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3795 (ps-output |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3796 (format "/ShowBackImage-%d {\n--back-- " |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3797 ps-background-image-count) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3798 (ps-float-format (nth 5 image) 0.0) ; rotation |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3799 (ps-float-format (nth 3 image) 1.0) ; x scale |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3800 (ps-float-format (nth 4 image) 1.0) ; y scale |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3801 (ps-float-format (nth 1 image) ; x position |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3802 "PrintPageWidth 2 div") |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3803 (ps-float-format (nth 2 image) ; y position |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3804 "PrintHeight 2 div BottomMargin add") |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3805 "\nBeginBackImage\n") |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3806 (ps-insert-file image-file) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3807 ;; coordinate adjustment to centralize image |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3808 ;; around x and y position |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3809 (let ((box (ps-get-boundingbox))) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3810 (save-excursion |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3811 (set-buffer ps-spool-buffer) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3812 (save-excursion |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3813 (if (re-search-backward "^--back--" nil t) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3814 (replace-match |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3815 (format "%s %s" |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3816 (ps-float-format |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3817 (- (+ (/ (- (aref box 2) (aref box 0)) 2.0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3818 (aref box 0)))) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3819 (ps-float-format |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3820 (- (+ (/ (- (aref box 3) (aref box 1)) 2.0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3821 (aref box 1))))) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3822 t))))) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3823 (ps-output "\nEndBackImage} def\n") |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3824 (ps-background-pages (nthcdr 6 image) ; page list |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3825 (format "ShowBackImage-%d\n" |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3826 ps-background-image-count)))))) |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3827 ps-print-background-image)) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3828 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3829 |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
3830 (defun ps-background (page-number) |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3831 (let (has-local-background) |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3832 (mapcar #'(lambda (range) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3833 (and (<= (aref range 0) page-number) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3834 (<= page-number (aref range 1)) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3835 (if has-local-background |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3836 (ps-output (aref range 2)) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3837 (setq has-local-background t) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3838 (ps-output "/printLocalBackground {\n" |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3839 (aref range 2))))) |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3840 ps-background-pages) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3841 (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
|
3842 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3843 |
21800
d4b4f44ce8da
(ps-remove-duplicates): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
21642
diff
changeset
|
3844 ;; Return a list of the distinct elements of LIST. |
d4b4f44ce8da
(ps-remove-duplicates): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
21642
diff
changeset
|
3845 ;; Elements are compared with `equal'. |
d4b4f44ce8da
(ps-remove-duplicates): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
21642
diff
changeset
|
3846 (defun ps-remove-duplicates (list) |
d4b4f44ce8da
(ps-remove-duplicates): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
21642
diff
changeset
|
3847 (let (new (tail list)) |
d4b4f44ce8da
(ps-remove-duplicates): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
21642
diff
changeset
|
3848 (while tail |
d4b4f44ce8da
(ps-remove-duplicates): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
21642
diff
changeset
|
3849 (or (member (car tail) new) |
d4b4f44ce8da
(ps-remove-duplicates): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
21642
diff
changeset
|
3850 (setq new (cons (car tail) new))) |
d4b4f44ce8da
(ps-remove-duplicates): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
21642
diff
changeset
|
3851 (setq tail (cdr tail))) |
d4b4f44ce8da
(ps-remove-duplicates): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
21642
diff
changeset
|
3852 (nreverse new))) |
d4b4f44ce8da
(ps-remove-duplicates): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
21642
diff
changeset
|
3853 |
23307 | 3854 |
21954
73f9f4219198
Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents:
21801
diff
changeset
|
3855 ;; 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
|
3856 ;; 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
|
3857 ;; Elements are compared with `eq'. |
21999
35efe9eafc6c
(ps-alist-position): Renamed from ps-position.
Richard M. Stallman <rms@gnu.org>
parents:
21955
diff
changeset
|
3858 (defun ps-alist-position (item list) |
21954
73f9f4219198
Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents:
21801
diff
changeset
|
3859 (let ((tail list) (index 0) found) |
73f9f4219198
Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents:
21801
diff
changeset
|
3860 (while tail |
21999
35efe9eafc6c
(ps-alist-position): Renamed from ps-position.
Richard M. Stallman <rms@gnu.org>
parents:
21955
diff
changeset
|
3861 (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
|
3862 (setq tail nil) |
73f9f4219198
Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents:
21801
diff
changeset
|
3863 (setq index (1+ index) |
73f9f4219198
Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents:
21801
diff
changeset
|
3864 tail (cdr tail)))) |
73f9f4219198
Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents:
21801
diff
changeset
|
3865 (and found index))) |
73f9f4219198
Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents:
21801
diff
changeset
|
3866 |
73f9f4219198
Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents:
21801
diff
changeset
|
3867 |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3868 (defconst ps-n-up-database |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3869 '((a4 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3870 (1 nil 1 1 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3871 (2 t 1 2 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3872 (4 nil 2 2 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3873 (6 t 2 3 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3874 (8 t 2 4 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3875 (9 nil 3 3 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3876 (12 t 3 4 2) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3877 (16 nil 4 4 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3878 (18 t 3 6 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3879 (20 nil 5 4 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3880 (25 nil 5 5 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3881 (30 nil 6 5 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3882 (32 t 4 8 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3883 (36 nil 6 6 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3884 (42 nil 7 6 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3885 (49 nil 7 7 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3886 (50 t 5 10 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3887 (56 nil 8 7 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3888 (64 nil 8 8 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3889 (72 nil 9 8 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3890 (81 nil 9 9 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3891 (90 nil 10 9 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3892 (100 nil 10 10 0)) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3893 (a3 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3894 (1 nil 1 1 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3895 (2 t 1 2 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3896 (4 nil 2 2 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3897 (6 t 2 3 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3898 (8 t 2 4 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3899 (9 nil 3 3 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3900 (12 nil 4 3 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3901 (16 nil 4 4 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3902 (18 t 3 6 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3903 (20 nil 5 4 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3904 (25 nil 5 5 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3905 (30 nil 6 5 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3906 (32 t 4 8 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3907 (36 nil 6 6 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3908 (42 nil 7 6 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3909 (49 nil 7 7 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3910 (50 t 5 10 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3911 (56 nil 8 7 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3912 (64 nil 8 8 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3913 (72 nil 9 8 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3914 (81 nil 9 9 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3915 (90 nil 10 9 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3916 (100 nil 10 10 0)) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3917 (letter |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3918 (1 nil 1 1 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3919 (4 nil 2 2 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3920 (6 t 2 3 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3921 (9 nil 3 3 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3922 (12 nil 4 3 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3923 (16 nil 4 4 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3924 (20 nil 5 4 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3925 (25 nil 5 5 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3926 (30 nil 6 5 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3927 (36 nil 6 6 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3928 (40 t 5 8 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3929 (42 nil 7 6 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3930 (49 nil 7 7 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3931 (56 nil 8 7 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3932 (64 nil 8 8 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3933 (72 nil 9 8 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3934 (81 nil 9 9 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3935 (90 nil 10 9 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3936 (100 nil 10 10 0)) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3937 (legal |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3938 (1 nil 1 1 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3939 (2 t 1 2 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3940 (4 nil 2 2 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3941 (6 nil 3 2 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3942 (9 nil 3 3 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3943 (10 t 2 5 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3944 (12 nil 4 3 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3945 (16 nil 4 4 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3946 (20 nil 5 4 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3947 (25 nil 5 5 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3948 (30 nil 6 5 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3949 (36 nil 6 6 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3950 (42 nil 7 6 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3951 (49 nil 7 7 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3952 (56 nil 8 7 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3953 (64 nil 8 8 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3954 (70 t 5 14 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3955 (72 nil 9 8 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3956 (81 nil 9 9 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3957 (90 nil 10 9 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3958 (100 nil 10 10 0)) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3959 (letter-small |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3960 (1 nil 1 1 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3961 (4 nil 2 2 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3962 (6 t 2 3 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3963 (9 nil 3 3 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3964 (12 t 3 4 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3965 (15 t 3 5 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3966 (16 nil 4 4 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3967 (20 nil 5 4 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3968 (25 nil 5 5 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3969 (28 t 4 7 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3970 (30 nil 6 5 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3971 (36 nil 6 6 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3972 (40 t 5 8 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3973 (42 nil 7 6 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3974 (49 nil 7 7 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3975 (56 nil 8 7 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3976 (60 t 6 10 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3977 (64 nil 8 8 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3978 (72 ni 9 8 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3979 (81 nil 9 9 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3980 (84 t 7 12 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3981 (90 nil 10 9 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3982 (100 nil 10 10 0)) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3983 (tabloid |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3984 (1 nil 1 1 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3985 (2 t 1 2 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3986 (4 nil 2 2 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3987 (6 t 2 3 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3988 (8 t 2 4 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3989 (9 nil 3 3 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3990 (12 nil 4 3 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3991 (16 nil 4 4 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3992 (20 nil 5 4 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3993 (25 nil 5 5 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3994 (30 nil 6 5 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3995 (36 nil 6 6 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3996 (42 nil 7 6 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3997 (49 nil 7 7 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3998 (56 nil 8 7 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3999 (64 nil 8 8 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4000 (72 nil 9 8 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4001 (81 nil 9 9 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4002 (84 t 6 14 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4003 (90 nil 10 9 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4004 (100 nil 10 10 0)) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4005 ;; 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
|
4006 ;; 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
|
4007 ;; 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
|
4008 (ledger |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4009 (1 nil 1 1 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4010 (2 pag 1 2 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4011 (4 nil 2 2 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4012 (6 pag 2 3 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4013 (8 pag 2 4 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4014 (9 nil 3 3 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4015 (12 nil 4 3 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4016 (16 nil 4 4 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4017 (20 nil 5 4 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4018 (25 nil 5 5 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4019 (30 nil 6 5 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4020 (36 nil 6 6 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4021 (42 nil 7 6 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4022 (49 nil 7 7 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4023 (56 nil 8 7 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4024 (64 nil 8 8 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4025 (72 nil 9 8 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4026 (81 nil 9 9 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4027 (84 pag 6 14 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4028 (90 nil 10 9 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4029 (100 nil 10 10 0)) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4030 (statement |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4031 (1 nil 1 1 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4032 (2 t 1 2 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4033 (4 nil 2 2 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4034 (6 nil 3 2 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4035 (9 nil 3 3 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4036 (10 t 2 5 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4037 (12 nil 4 3 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4038 (16 nil 4 4 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4039 (20 nil 5 4 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4040 (21 t 3 7 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4041 (25 nil 5 5 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4042 (30 nil 6 5 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4043 (36 nil 6 6 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4044 (40 t 4 10 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4045 (42 nil 7 6 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4046 (49 nil 7 7 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4047 (56 nil 8 7 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4048 (60 t 5 12 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4049 (64 nil 8 8 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4050 (72 nil 9 8 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4051 (81 nil 9 9 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4052 (90 nil 10 9 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4053 (100 nil 10 10 0)) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4054 (executive |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4055 (1 nil 1 1 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4056 (4 nil 2 2 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4057 (6 t 2 3 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4058 (9 nil 3 3 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4059 (12 nil 4 3 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4060 (16 nil 4 4 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4061 (20 nil 5 4 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4062 (25 nil 5 5 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4063 (28 t 4 7 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4064 (30 nil 6 5 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4065 (36 nil 6 6 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4066 (42 nil 7 6 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4067 (45 t 5 9 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4068 (49 nil 7 7 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4069 (56 nil 8 7 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4070 (60 t 6 10 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4071 (64 nil 8 8 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4072 (72 nil 9 8 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4073 (81 nil 9 9 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4074 (84 t 7 12 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4075 (90 nil 10 9 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4076 (100 nil 10 10 0)) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4077 (a4small |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4078 (1 nil 1 1 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4079 (2 t 1 2 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4080 (4 nil 2 2 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4081 (6 t 2 3 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4082 (8 t 2 4 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4083 (9 nil 3 3 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4084 (12 nil 4 3 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4085 (16 nil 4 4 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4086 (18 t 3 6 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4087 (20 nil 5 4 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4088 (25 nil 5 5 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4089 (30 nil 6 5 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4090 (32 t 4 8 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4091 (36 nil 6 6 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4092 (42 nil 7 6 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4093 (49 nil 7 7 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4094 (50 t 5 10 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4095 (56 nil 8 7 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4096 (64 nil 8 8 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4097 (72 nil 9 8 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4098 (78 t 6 13 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4099 (81 nil 9 9 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4100 (90 nil 10 9 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4101 (100 nil 10 10 0)) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4102 (b4 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4103 (1 nil 1 1 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4104 (2 t 1 2 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4105 (4 nil 2 2 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4106 (6 t 2 3 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4107 (8 t 2 4 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4108 (9 nil 3 3 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4109 (12 nil 4 3 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4110 (16 nil 4 4 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4111 (18 t 3 6 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4112 (20 nil 5 4 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4113 (25 nil 5 5 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4114 (30 nil 6 5 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4115 (32 t 4 8 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4116 (36 nil 6 6 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4117 (42 nil 7 6 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4118 (49 nil 7 7 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4119 (50 t 5 10 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4120 (56 nil 8 7 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4121 (64 nil 8 8 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4122 (72 nil 9 8 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4123 (81 nil 9 9 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4124 (90 nil 10 9 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4125 (100 nil 10 10 0)) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4126 (b5 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4127 (1 nil 1 1 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4128 (2 t 1 2 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4129 (4 nil 2 2 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4130 (6 t 2 3 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4131 (8 t 2 4 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4132 (9 nil 3 3 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4133 (12 nil 4 3 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4134 (16 nil 4 4 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4135 (18 t 3 6 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4136 (20 nil 5 4 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4137 (25 nil 5 5 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4138 (30 nil 6 5 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4139 (32 t 4 8 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4140 (36 nil 6 6 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4141 (42 nil 7 6 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4142 (49 nil 7 7 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4143 (50 t 5 10 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4144 (56 nil 8 7 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4145 (64 nil 8 8 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4146 (72 nil 9 8 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4147 (81 nil 9 9 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4148 (90 nil 10 9 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4149 (98 t 7 14 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4150 (100 nil 10 10 0))) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4151 "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
|
4152 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4153 Each element has the following form: |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4154 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4155 (PAGE |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4156 (MAX LANDSCAPE LINES COLUMNS COL-MISSING) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4157 ...) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4158 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4159 Where: |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4160 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
|
4161 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
|
4162 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
|
4163 values: |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4164 nil the sheet is in portrait mode. |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4165 t the sheet is in landscape mode. |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4166 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
|
4167 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
|
4168 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
|
4169 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
|
4170 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4171 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4172 (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
|
4173 (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
|
4174 (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
|
4175 (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
|
4176 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4177 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4178 (defun ps-n-up-printing () |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4179 ;; 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
|
4180 (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
|
4181 ;; 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
|
4182 (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
|
4183 (and the-list |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4184 (while (> ps-n-up-printing (caar the-list)) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4185 (setq the-list (cdr the-list)))) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4186 (car the-list))) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4187 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4188 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4189 (defconst ps-n-up-filling-database |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4190 '((left-top |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4191 "PageWidth" ; N-Up-XColumn |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4192 "0" ; N-Up-YColumn |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4193 "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
|
4194 "LandscapePageHeight neg" ; N-Up-YLine |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4195 "N-Up-Lines" ; N-Up-Repeat |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4196 "N-Up-Columns" ; N-Up-End |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4197 "0" ; N-Up-XStart |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4198 "0") ; N-Up-YStart |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4199 (left-bottom |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4200 "PageWidth" ; N-Up-XColumn |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4201 "0" ; N-Up-YColumn |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4202 "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
|
4203 "LandscapePageHeight" ; N-Up-YLine |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4204 "N-Up-Lines" ; N-Up-Repeat |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4205 "N-Up-Columns" ; N-Up-End |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4206 "0" ; N-Up-XStart |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4207 "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
|
4208 (right-top |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4209 "PageWidth neg" ; N-Up-XColumn |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4210 "0" ; N-Up-YColumn |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4211 "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
|
4212 "LandscapePageHeight neg" ; N-Up-YLine |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4213 "N-Up-Lines" ; N-Up-Repeat |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4214 "N-Up-Columns" ; N-Up-End |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4215 "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
|
4216 "0") ; N-Up-YStart |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4217 (right-bottom |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4218 "PageWidth neg" ; N-Up-XColumn |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4219 "0" ; N-Up-YColumn |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4220 "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
|
4221 "LandscapePageHeight" ; N-Up-YLine |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4222 "N-Up-Lines" ; N-Up-Repeat |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4223 "N-Up-Columns" ; N-Up-End |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4224 "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
|
4225 "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
|
4226 (top-left |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4227 "0" ; N-Up-XColumn |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4228 "LandscapePageHeight neg" ; N-Up-YColumn |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4229 "PageWidth" ; N-Up-XLine |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4230 "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
|
4231 "N-Up-Columns" ; N-Up-Repeat |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4232 "N-Up-Lines" ; N-Up-End |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4233 "0" ; N-Up-XStart |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4234 "0") ; N-Up-YStart |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4235 (bottom-left |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4236 "0" ; N-Up-XColumn |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4237 "LandscapePageHeight" ; N-Up-YColumn |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4238 "PageWidth" ; N-Up-XLine |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4239 "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
|
4240 "N-Up-Columns" ; N-Up-Repeat |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4241 "N-Up-Lines" ; N-Up-End |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4242 "0" ; N-Up-XStart |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4243 "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
|
4244 (top-right |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4245 "0" ; N-Up-XColumn |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4246 "LandscapePageHeight neg" ; N-Up-YColumn |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4247 "PageWidth neg" ; N-Up-XLine |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4248 "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
|
4249 "N-Up-Columns" ; N-Up-Repeat |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4250 "N-Up-Lines" ; N-Up-End |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4251 "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
|
4252 "0") ; N-Up-YStart |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4253 (bottom-right |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4254 "0" ; N-Up-XColumn |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4255 "LandscapePageHeight" ; N-Up-YColumn |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4256 "PageWidth neg" ; N-Up-XLine |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4257 "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
|
4258 "N-Up-Columns" ; N-Up-Repeat |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4259 "N-Up-Lines" ; N-Up-End |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4260 "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
|
4261 "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
|
4262 "Alist for n-up printing initializations. |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4263 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4264 Each element has the following form: |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4265 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4266 (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
|
4267 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4268 Where: |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4269 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
|
4270 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
|
4271 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
|
4272 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
|
4273 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
|
4274 a row. |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4275 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
|
4276 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4277 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4278 (defun ps-n-up-filling () |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4279 (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
|
4280 (assq 'left-top ps-n-up-filling-database)))) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4281 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4282 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4283 (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
|
4284 (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
|
4285 (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
|
4286 (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
|
4287 (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
|
4288 (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
|
4289 (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
|
4290 (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
|
4291 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4292 |
7257 | 4293 (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
|
4294 (ps-get-page-dimensions) |
22397 | 4295 (setq ps-page-postscript 0 |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4296 ps-page-order 0 |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4297 ps-background-text-count 0 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4298 ps-background-image-count 0 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4299 ps-background-pages nil |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4300 ps-background-all-pages nil) |
7257 | 4301 |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4302 (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
|
4303 (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
|
4304 (n-up (ps-n-up-printing)) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4305 (n-up-filling (ps-n-up-filling))) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4306 (and (> ps-n-up-printing 1) (setq tumble (not tumble))) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4307 (ps-output |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4308 ps-adobe-tag |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4309 "%%Title: " (buffer-name) ; Take job name from name of |
20331 | 4310 ; first buffer printed |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4311 "\n%%Creator: " (user-full-name) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4312 " (using ps-print v" ps-print-version |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4313 ")\n%%CreationDate: " |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4314 (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
|
4315 "\n%%Orientation: " |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4316 (if ps-landscape-mode "Landscape" "Portrait") |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4317 "\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
|
4318 (mapconcat 'identity |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4319 (ps-remove-duplicates |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4320 (append (ps-fonts 'ps-font-for-text) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4321 (list (ps-font 'ps-font-for-header 'normal) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4322 (ps-font 'ps-font-for-header 'bold)))) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4323 "\n%%+ font ") |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4324 "\n%%DocumentMedia: " (ps-page-dimensions-get-media dimensions) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4325 (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
|
4326 (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
|
4327 " 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
|
4328 (if ps-spool-duplex |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4329 (format " duplex%s" (if tumble "(tumble)\n" "\n")) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4330 "\n")) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4331 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4332 (let ((comments (if (functionp ps-print-prologue-header) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4333 (funcall ps-print-prologue-header) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4334 ps-print-prologue-header))) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4335 (and (stringp comments) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4336 (ps-output comments))) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4337 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4338 (ps-output "%%EndComments\n\n%%BeginPrologue\n\n" |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4339 "/gs_languagelevel /languagelevel where {pop languagelevel}{1}ifelse def\n\n") |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4340 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4341 (ps-output-boolean "SkipFirstPage " ps-banner-page-when-duplexing) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4342 (ps-output-boolean "LandscapeMode " |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4343 (or ps-landscape-mode |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4344 (eq (ps-n-up-landscape n-up) 'pag))) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4345 (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
|
4346 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4347 (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
|
4348 (format "/PrintPageWidth %s def\n" |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4349 (- (* (+ ps-print-width ps-inter-column) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4350 ps-number-of-columns) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4351 ps-inter-column)) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4352 (format "/PrintWidth %s def\n" ps-print-width) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4353 (format "/PrintHeight %s def\n" ps-print-height) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4354 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4355 (format "/LeftMargin %s def\n" ps-left-margin) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4356 (format "/RightMargin %s def\n" ps-right-margin) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4357 (format "/InterColumn %s def\n" ps-inter-column) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4358 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4359 (format "/BottomMargin %s def\n" ps-bottom-margin) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4360 (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
|
4361 (format "/HeaderOffset %s def\n" ps-header-offset) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4362 (format "/HeaderPad %s def\n" ps-header-pad)) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4363 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4364 (ps-output-boolean "PrintHeader " ps-print-header) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4365 (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
|
4366 (ps-output-boolean "PrintHeaderFrame " ps-print-header-frame) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4367 (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
|
4368 (ps-output-boolean "DuplexValue " ps-spool-duplex) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4369 (ps-output-boolean "TumbleValue " tumble) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4370 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4371 (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
|
4372 (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
|
4373 (format "/LinesPerColumn %d def\n" |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4374 (round (/ (+ ps-print-height |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4375 (* line-height 0.45)) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4376 line-height))))) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4377 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4378 (ps-output-boolean "Zebra " ps-zebra-stripes) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4379 (ps-output-boolean "PrintLineNumber " ps-line-number) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4380 (ps-output (format "/ZebraHeight %d def\n" ps-zebra-stripe-height) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4381 (format "/ZebraGray %s def\n" ps-zebra-gray) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4382 "/UseSetpagedevice " |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4383 (if (eq ps-spool-config 'setpagedevice) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4384 "/setpagedevice where {pop true}{false}ifelse def\n" |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4385 "false def\n") |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4386 "\n/PageWidth " |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4387 "PrintPageWidth LeftMargin add RightMargin add def\n\n" |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4388 (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
|
4389 (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
|
4390 (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
|
4391 (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
|
4392 (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
|
4393 (format "/N-Up-Missing %d def\n" (ps-n-up-missing n-up)) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4394 (format "/N-Up-Margin %s" ps-n-up-margin) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4395 " def\n/N-Up-Repeat " |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4396 (if ps-landscape-mode |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4397 (ps-n-up-end n-up-filling) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4398 (ps-n-up-repeat n-up-filling)) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4399 " def\n/N-Up-End " |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4400 (if ps-landscape-mode |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4401 (ps-n-up-repeat n-up-filling) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4402 (ps-n-up-end n-up-filling)) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4403 " 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
|
4404 " 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
|
4405 " 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
|
4406 " 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
|
4407 " 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
|
4408 " 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
|
4409 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4410 (ps-background-text) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4411 (ps-background-image) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4412 (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
|
4413 ps-background-pages (nreverse ps-background-pages)) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4414 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4415 (ps-output ps-print-prologue-1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4416 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4417 (ps-output "/printGlobalBackground {\n") |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4418 (ps-output-list ps-background-all-pages) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4419 (ps-output "} def\n/printLocalBackground {\n} def\n") |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4420 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4421 ;; Header fonts |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4422 (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
|
4423 ps-header-title-font-size-internal |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4424 (ps-font 'ps-font-for-header 'bold)) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4425 (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
|
4426 ps-header-font-size-internal |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4427 (ps-font 'ps-font-for-header 'normal))) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4428 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4429 (ps-output ps-print-prologue-2) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4430 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4431 ;; Text fonts |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4432 (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
|
4433 (i 0)) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4434 (while font |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4435 (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
|
4436 i |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4437 ps-font-size-internal |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4438 (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
|
4439 (setq font (cdr font) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4440 i (1+ i)))) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4441 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4442 (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
|
4443 (ps-output (format "/SpaceWidthRatio %f def\n" |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4444 (/ (ps-lookup 'space-width) (ps-lookup 'size))))) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4445 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4446 (ps-output "\n%%EndPrologue\n\n%%BeginSetup\n") |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4447 (unless (eq ps-spool-config 'lpr-switches) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4448 (ps-output "\n%%BeginFeature: *Duplex " |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4449 (ps-boolean-capitalized ps-spool-duplex) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4450 " *Tumble " |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4451 (ps-boolean-capitalized tumble) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4452 ps-print-duplex-feature |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4453 "%%EndFeature\n"))) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4454 (ps-output "\n/Lines 0 def\n/PageCount 0 def\n\nBeginDoc\n%%EndSetup\n")) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4455 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4456 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4457 (defun ps-boolean-capitalized (bool) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4458 (if bool "True" "False")) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4459 |
7257 | 4460 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4461 (defun ps-header-dirpart () |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4462 (let ((fname (buffer-file-name))) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4463 (if fname |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4464 (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
|
4465 (abbreviate-file-name (file-name-directory fname)) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4466 fname) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4467 ""))) |
7257 | 4468 |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4469 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4470 (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
|
4471 (cond |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
4472 ;; 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
|
4473 ((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
|
4474 "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
|
4475 ;; 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
|
4476 ((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
|
4477 "Super! C'est sokoban.el!") |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4478 (t (concat |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4479 (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
|
4480 (buffer-name) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4481 (and (buffer-modified-p) " (unsaved)"))))) |
7257 | 4482 |
24414
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
4483 |
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
4484 (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
|
4485 (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
|
4486 (cond ((numberp font-size) |
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
4487 font-size) |
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
4488 ((and (consp font-size) |
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
4489 (numberp (car font-size)) |
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
4490 (numberp (cdr font-size))) |
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
4491 (if ps-landscape-mode |
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
4492 (car font-size) |
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
4493 (cdr font-size))) |
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
4494 (t |
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
4495 (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
|
4496 |
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
4497 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4498 (defun ps-begin-job () |
22397 | 4499 (save-excursion |
4500 (set-buffer ps-spool-buffer) | |
4501 (goto-char (point-max)) | |
4502 (and (re-search-backward "^%%Trailer$" nil t) | |
4503 (delete-region (match-beginning 0) (point-max)))) | |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4504 (setq ps-showline-count (car ps-printing-region) |
22397 | 4505 ps-page-count 0 |
24414
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
4506 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
|
4507 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
|
4508 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
|
4509 (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
|
4510 ps-control-or-escape-regexp |
23892
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
4511 (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
|
4512 (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
|
4513 ((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
|
4514 (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
|
4515 ((eq ps-print-control-characters 'control) |
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
4516 "[\000-\037\177]") |
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
4517 (t "[\t\n\f]")))) |
7257 | 4518 |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
4519 (defmacro ps-page-number () |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
4520 `(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
|
4521 |
7257 | 4522 (defun ps-end-file () |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4523 ;; 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
|
4524 (save-excursion |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4525 (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
|
4526 case-fold-search) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4527 (set-buffer ps-spool-buffer) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4528 (goto-char (point-max)) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4529 (and (> pages-per-sheet 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4530 (re-search-backward "^[0-9]+ BeginSheet$" nil t) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4531 (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
|
4532 ;; Set dummy page |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4533 (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
|
4534 (ps-dummy-page)) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4535 ;; Set end of PostScript file |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4536 (ps-output "EndSheet\n\n%%Trailer\n%%Pages: " |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4537 (format "%d" ps-page-order) |
22093
5818374d88e7
(ps-file-end): Put Trailer and Pages before EndDoc.
Richard M. Stallman <rms@gnu.org>
parents:
21999
diff
changeset
|
4538 "\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
|
4539 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4540 |
7257 | 4541 (defun ps-next-page () |
4542 (ps-end-page) | |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4543 (ps-flush-output) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4544 (ps-begin-page)) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4545 |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4546 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4547 (defun ps-header-sheet () |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4548 ;; Print only when a new sheet begins. |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4549 (setq ps-page-postscript (1+ ps-page-postscript) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4550 ps-page-order (1+ ps-page-order)) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4551 (and (> ps-page-order 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4552 (ps-output "EndSheet\n")) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4553 (ps-output (format "\n%%%%Page: %d %d\n" |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4554 ps-page-postscript ps-page-order)) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4555 (ps-output (format "%d BeginSheet\nBeginDSCPage\n" ps-n-up-printing))) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4556 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4557 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4558 (defsubst ps-header-page () |
22397 | 4559 ;; set total line and page number when printing has finished |
4560 ;; (see `ps-generate') | |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4561 (run-hooks |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4562 (if (prog1 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4563 (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
|
4564 (setq ps-page-count (1+ ps-page-count))) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4565 (prog1 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4566 (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
|
4567 ;; Print only when a new sheet begins. |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4568 (progn |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4569 (ps-header-sheet) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4570 'ps-print-begin-sheet-hook) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4571 ;; Print only when a new page begins. |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4572 (setq ps-page-postscript (1+ ps-page-postscript)) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4573 (ps-output "BeginDSCPage\n") |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4574 'ps-print-begin-page-hook) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4575 (ps-background ps-page-postscript)) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4576 ;; Print only when a new column begins. |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4577 (ps-output "BeginDSCPage\n") |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4578 'ps-print-begin-column-hook))) |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
4579 |
20331 | 4580 (defun ps-begin-page () |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4581 (ps-get-page-dimensions) |
20331 | 4582 (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
|
4583 ps-height-remaining ps-print-height) |
7257 | 4584 |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
4585 (ps-header-page) |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
4586 |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4587 (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
|
4588 (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
|
4589 (ps-page-number) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
4590 ps-page-count))) |
7257 | 4591 |
16870
4a5fa29f79d6
(ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents:
16361
diff
changeset
|
4592 (when ps-print-header |
4a5fa29f79d6
(ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents:
16361
diff
changeset
|
4593 (ps-generate-header "HeaderLinesLeft" ps-left-header) |
4a5fa29f79d6
(ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents:
16361
diff
changeset
|
4594 (ps-generate-header "HeaderLinesRight" ps-right-header) |
4a5fa29f79d6
(ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents:
16361
diff
changeset
|
4595 (ps-output (format "%d SetHeaderLines\n" ps-header-lines))) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4596 |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4597 (ps-output "BeginPage\n") |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4598 (ps-set-font ps-current-font) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4599 (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
|
4600 (ps-set-color ps-current-color) |
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
4601 (ps-mule-begin-page)) |
7257 | 4602 |
4603 (defun ps-end-page () | |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
4604 (ps-output "EndPage\nEndDSCPage\n")) |
7257 | 4605 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4606 (defun ps-dummy-page () |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4607 (let ((ps-n-up-printing 0)) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4608 (ps-header-sheet)) |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
4609 (ps-output "/PrintHeader false def |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4610 /ColumnIndex 0 def |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4611 /PrintLineNumber false def |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4612 BeginPage |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4613 EndPage |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4614 EndDSCPage\n") |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4615 (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
|
4616 |
7257 | 4617 (defun ps-next-line () |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4618 (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
|
4619 (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
|
4620 (if (< ps-height-remaining lh) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
4621 (ps-next-page) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
4622 (setq ps-width-remaining ps-print-width |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
4623 ps-height-remaining (- ps-height-remaining lh)) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
4624 (ps-output "HL\n")))) |
7257 | 4625 |
4626 (defun ps-continue-line () | |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
4627 (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
|
4628 (if (< ps-height-remaining lh) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
4629 (ps-next-page) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
4630 (setq ps-width-remaining ps-print-width |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
4631 ps-height-remaining (- ps-height-remaining lh)) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
4632 (ps-output "SL\n")))) |
7257 | 4633 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4634 (defun ps-find-wrappoint (from to char-width) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4635 (let ((avail (truncate (/ ps-width-remaining char-width))) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4636 (todo (- to from))) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4637 (if (< todo avail) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4638 (cons to (* todo char-width)) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4639 (cons (+ from avail) ps-width-remaining)))) |
7257 | 4640 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4641 (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
|
4642 (let* ((wrappoint (ps-find-wrappoint from to |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
4643 (ps-avg-char-width 'ps-font-for-text))) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4644 (to (car wrappoint)) |
23892
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
4645 (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
|
4646 (ps-mule-prepare-ascii-font string) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4647 (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
|
4648 (ps-output " S\n") |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4649 wrappoint)) |
7257 | 4650 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4651 (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
|
4652 (let* ((wrappoint (ps-find-wrappoint from to |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
4653 (ps-space-width 'ps-font-for-text))) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4654 (to (car wrappoint))) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4655 (ps-output (format "%d W\n" (- to from))) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4656 wrappoint)) |
7257 | 4657 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4658 (defun ps-plot (plotfunc from to &optional bg-color) |
7257 | 4659 (while (< from to) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4660 (let* ((wrappoint (funcall plotfunc from to bg-color)) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4661 (plotted-to (car wrappoint)) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4662 (plotted-width (cdr wrappoint))) |
20331 | 4663 (setq from plotted-to |
4664 ps-width-remaining (- ps-width-remaining plotted-width)) | |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4665 (if (< from to) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4666 (ps-continue-line)))) |
7257 | 4667 (if ps-razzle-dazzle |
4668 (let* ((q-todo (- (point-max) (point-min))) | |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4669 (q-done (- (point) (point-min))) |
7257 | 4670 (chunkfrac (/ q-todo 8)) |
20516
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4671 (chunksize (min chunkfrac 1000))) |
7257 | 4672 (if (> (- q-done ps-razchunk) chunksize) |
20331 | 4673 (progn |
7257 | 4674 (setq ps-razchunk q-done) |
20331 | 4675 (message "Formatting...%3d%%" |
4676 (if (< q-todo 100) | |
4677 (/ (* 100 q-done) q-todo) | |
4678 (/ q-done (/ q-todo 100))) | |
4679 )))))) | |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4680 |
23892
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
4681 (defvar ps-last-font nil) |
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
4682 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4683 (defun ps-set-font (font) |
23091
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
4684 (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
|
4685 (ps-output (format "/%s F\n" ps-last-font))) |
7257 | 4686 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4687 (defun ps-set-bg (color) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4688 (if (setq ps-current-bg color) |
20331 | 4689 (ps-output (format ps-color-format |
4690 (nth 0 color) (nth 1 color) (nth 2 color)) | |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4691 " true BG\n") |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4692 (ps-output "false BG\n"))) |
7257 | 4693 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4694 (defun ps-set-color (color) |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
4695 (setq ps-current-color (or color ps-default-fg)) |
20331 | 4696 (ps-output (format ps-color-format |
4697 (nth 0 ps-current-color) | |
11799
4a04c7799790
Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents:
10738
diff
changeset
|
4698 (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
|
4699 " FG\n")) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4700 |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4701 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4702 (defvar ps-current-effect 0) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4703 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4704 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4705 (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
|
4706 (if (not (equal font ps-current-font)) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4707 (ps-set-font font)) |
19879
87952270ceeb
(ps-emacs-face-kind-p): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
19843
diff
changeset
|
4708 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4709 ;; 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
|
4710 ;; different than the current. |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4711 (if (not (equal fg-color ps-current-color)) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4712 (ps-set-color fg-color)) |
19879
87952270ceeb
(ps-emacs-face-kind-p): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
19843
diff
changeset
|
4713 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4714 (if (not (equal bg-color ps-current-bg)) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4715 (ps-set-bg bg-color)) |
19879
87952270ceeb
(ps-emacs-face-kind-p): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
19843
diff
changeset
|
4716 |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4717 ;; Specify effects (underline, overline, box, etc) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4718 (cond |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4719 ((not (integerp effects)) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4720 (ps-output "0 EF\n") |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4721 (setq ps-current-effect 0)) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4722 ((/= effects ps-current-effect) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4723 (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
|
4724 (setq ps-current-effect effects))) |
7257 | 4725 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4726 ;; Starting at the beginning of the specified region... |
7257 | 4727 (save-excursion |
4728 (goto-char from) | |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4729 |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4730 ;; ...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
|
4731 ;; pagefeeds, control characters, and plot each chunk. |
7257 | 4732 (while (< from to) |
20516
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4733 (if (re-search-forward ps-control-or-escape-regexp to t) |
23551 | 4734 ;; 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
|
4735 (let* ((match-point (match-beginning 0)) |
26883
c1e6932eea92
(ps-plot-region): Handle new composition.
Kenichi Handa <handa@m17n.org>
parents:
26563
diff
changeset
|
4736 (match (char-after match-point)) |
c1e6932eea92
(ps-plot-region): Handle new composition.
Kenichi Handa <handa@m17n.org>
parents:
26563
diff
changeset
|
4737 (composition (find-composition from (1+ match-point)))) |
c1e6932eea92
(ps-plot-region): Handle new composition.
Kenichi Handa <handa@m17n.org>
parents:
26563
diff
changeset
|
4738 (if composition |
c1e6932eea92
(ps-plot-region): Handle new composition.
Kenichi Handa <handa@m17n.org>
parents:
26563
diff
changeset
|
4739 (if (and (nth 2 composition) |
c1e6932eea92
(ps-plot-region): Handle new composition.
Kenichi Handa <handa@m17n.org>
parents:
26563
diff
changeset
|
4740 (<= (car composition) match-point)) |
c1e6932eea92
(ps-plot-region): Handle new composition.
Kenichi Handa <handa@m17n.org>
parents:
26563
diff
changeset
|
4741 (progn |
c1e6932eea92
(ps-plot-region): Handle new composition.
Kenichi Handa <handa@m17n.org>
parents:
26563
diff
changeset
|
4742 (setq match-point (car composition) |
c1e6932eea92
(ps-plot-region): Handle new composition.
Kenichi Handa <handa@m17n.org>
parents:
26563
diff
changeset
|
4743 match 0) |
c1e6932eea92
(ps-plot-region): Handle new composition.
Kenichi Handa <handa@m17n.org>
parents:
26563
diff
changeset
|
4744 (goto-char (nth 1 composition))) |
c1e6932eea92
(ps-plot-region): Handle new composition.
Kenichi Handa <handa@m17n.org>
parents:
26563
diff
changeset
|
4745 (setq composition nil))) |
23091
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
4746 (when (< from match-point) |
23892
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
4747 (ps-mule-set-ascii-font) |
23091
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
4748 (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
|
4749 (cond |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4750 ((= match ?\t) ; tab |
23167
ada869918064
(ps-mule-font-info-database-bdf): The include ASCII
Kenichi Handa <handa@m17n.org>
parents:
23138
diff
changeset
|
4751 (let ((linestart (line-beginning-position))) |
20516
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4752 (forward-char -1) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4753 (setq from (+ linestart (current-column))) |
23091
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
4754 (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
|
4755 (ps-mule-set-ascii-font) |
23091
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
4756 (ps-plot 'ps-basic-plot-whitespace |
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
4757 from (+ linestart (current-column)) |
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
4758 bg-color)))) |
20516
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4759 |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4760 ((= match ?\n) ; newline |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4761 (ps-next-line)) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4762 |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4763 ((= match ?\f) ; form feed |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
4764 ;; 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
|
4765 ;; it is a beginning of page. |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
4766 (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
|
4767 (= ps-height-remaining ps-print-height)) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
4768 (ps-next-page))) |
23091
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
4769 |
26883
c1e6932eea92
(ps-plot-region): Handle new composition.
Kenichi Handa <handa@m17n.org>
parents:
26563
diff
changeset
|
4770 (composition ; a composite sequence |
c1e6932eea92
(ps-plot-region): Handle new composition.
Kenichi Handa <handa@m17n.org>
parents:
26563
diff
changeset
|
4771 (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
|
4772 |
c1e6932eea92
(ps-plot-region): Handle new composition.
Kenichi Handa <handa@m17n.org>
parents:
26563
diff
changeset
|
4773 ; characters from ^@ to ^_ and |
23551 | 4774 ((> match 255) ; a multi-byte character |
26883
c1e6932eea92
(ps-plot-region): Handle new composition.
Kenichi Handa <handa@m17n.org>
parents:
26563
diff
changeset
|
4775 (let* ((charset (char-charset match)) |
c1e6932eea92
(ps-plot-region): Handle new composition.
Kenichi Handa <handa@m17n.org>
parents:
26563
diff
changeset
|
4776 (composition (find-composition match-point to)) |
c1e6932eea92
(ps-plot-region): Handle new composition.
Kenichi Handa <handa@m17n.org>
parents:
26563
diff
changeset
|
4777 (stop (if (nth 2 composition) (car composition) to))) |
23091
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
4778 (or (eq charset 'composition) |
26883
c1e6932eea92
(ps-plot-region): Handle new composition.
Kenichi Handa <handa@m17n.org>
parents:
26563
diff
changeset
|
4779 (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
|
4780 (forward-char 1))) |
23091
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
4781 (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
|
4782 |
20516
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4783 (t ; characters from 127 to 255 |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4784 (ps-control-character match))) |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4785 (setq from (point))) |
23551 | 4786 ;; 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
|
4787 (ps-mule-set-ascii-font) |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4788 (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
|
4789 (setq from to))))) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4790 |
20516
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4791 (defvar ps-string-control-codes |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4792 (let ((table (make-vector 256 nil)) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4793 (char ?\000)) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4794 ;; control character |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4795 (while (<= char ?\037) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4796 (aset table char (format "^%c" (+ char ?@))) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4797 (setq char (1+ char))) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4798 ;; printable character |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4799 (while (< char ?\177) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4800 (aset table char (format "%c" char)) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4801 (setq char (1+ char))) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4802 ;; DEL |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4803 (aset table char "^?") |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4804 ;; 8-bit character |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4805 (while (<= (setq char (1+ char)) ?\377) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4806 (aset table char (format "\\%o" char))) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4807 table) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4808 "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
|
4809 |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4810 (defun ps-control-character (char) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4811 (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
|
4812 (from (1- (point))) |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4813 (len (length str)) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4814 (to (+ from len)) |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
4815 (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
|
4816 (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
|
4817 (if (< (car wrappoint) to) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4818 (ps-continue-line)) |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
4819 (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
|
4820 (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
|
4821 (ps-output-string str) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4822 (ps-output " S\n"))) |
7257 | 4823 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4824 (defun ps-color-value (x-color-value) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4825 ;; Scale 16-bit X-COLOR-VALUE to PostScript color value in [0, 1] interval. |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4826 (/ x-color-value ps-print-color-scale)) |
7257 | 4827 |
23550
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
4828 |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
4829 (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
|
4830 |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
4831 (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
|
4832 (if (fboundp 'x-color-values) |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
4833 (x-color-values x-color) |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
4834 (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
|
4835 ) |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
4836 ; xemacs |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
4837 ; lucid |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
4838 (t ; epoch |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
4839 (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
|
4840 (cond ((fboundp 'x-color-values) |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
4841 (x-color-values x-color)) |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
4842 ((and (fboundp 'color-instance-rgb-components) |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
4843 (ps-color-device)) |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
4844 (color-instance-rgb-components |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
4845 (if (color-instance-p x-color) |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
4846 x-color |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
4847 (make-color-instance |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
4848 (if (color-specifier-p x-color) |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
4849 (color-name x-color) |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
4850 x-color))))) |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4851 (t |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4852 (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
|
4853 )) |
11799
4a04c7799790
Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents:
10738
diff
changeset
|
4854 |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4855 |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
4856 (defun ps-face-attributes (face) |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
4857 "Return face attribute vector. |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
4858 |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
4859 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
|
4860 `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
|
4861 return the attribute vector. |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4862 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4863 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
|
4864 (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
|
4865 (assq face ps-print-face-alist) |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
4866 (let* ((the-face (if (facep face) face 'default)) |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
4867 (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
|
4868 (or (and (eq the-face 'default) |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
4869 (assq the-face ps-print-face-alist)) |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
4870 (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
|
4871 new-face)))) |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4872 |
11799
4a04c7799790
Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents:
10738
diff
changeset
|
4873 |
4a04c7799790
Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents:
10738
diff
changeset
|
4874 (defun ps-face-attribute-list (face-or-list) |
4a04c7799790
Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents:
10738
diff
changeset
|
4875 (if (listp face-or-list) |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4876 ;; list of faces |
20516
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4877 (let ((effects 0) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4878 foreground background face-attr) |
11799
4a04c7799790
Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents:
10738
diff
changeset
|
4879 (while face-or-list |
20516
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4880 (setq face-attr (ps-face-attributes (car face-or-list)) |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4881 effects (logior effects (aref face-attr 0))) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4882 (or foreground (setq foreground (aref face-attr 1))) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4883 (or background (setq background (aref face-attr 2))) |
11799
4a04c7799790
Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents:
10738
diff
changeset
|
4884 (setq face-or-list (cdr face-or-list))) |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4885 (vector effects foreground background)) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4886 ;; simple face |
11799
4a04c7799790
Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents:
10738
diff
changeset
|
4887 (ps-face-attributes face-or-list))) |
4a04c7799790
Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents:
10738
diff
changeset
|
4888 |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4889 |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
4890 (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
|
4891 |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
4892 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4893 (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
|
4894 (cond |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
4895 ((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
|
4896 (ps-plot-region from to 0)) |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
4897 ((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
|
4898 (t ; otherwise, text has a valid face |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
4899 (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
|
4900 (effect (aref face-bit 0)) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
4901 (foreground (aref face-bit 1)) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
4902 (background (aref face-bit 2)) |
23550
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
4903 (fg-color (if (and ps-color-p foreground) |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
4904 (mapcar 'ps-color-value |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
4905 (ps-color-values foreground)) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
4906 ps-default-color)) |
23550
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
4907 (bg-color (and ps-color-p background |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
4908 (mapcar 'ps-color-value |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
4909 (ps-color-values background))))) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
4910 (ps-plot-region |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
4911 from to |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
4912 (ps-font-number 'ps-font-for-text |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
4913 (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
|
4914 face)) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
4915 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
|
4916 (goto-char to)) |
7257 | 4917 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4918 |
23892
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
4919 (defun ps-xemacs-face-kind-p (face kind kind-regex kind-list) |
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
4920 (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
|
4921 (face-font-instance 'default))) |
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
4922 (kind-cons (and frame-font |
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
4923 (assq kind |
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
4924 (font-instance-properties frame-font)))) |
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
4925 (kind-spec (cdr-safe kind-cons)) |
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
4926 (case-fold-search t)) |
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
4927 (or (and kind-spec (string-match kind-regex kind-spec)) |
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
4928 ;; Kludge-compatible: |
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
4929 (memq face kind-list)))) |
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
4930 |
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
4931 |
23091
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
4932 (cond ((eq ps-print-emacs-type 'emacs) ; emacs |
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
4933 |
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
4934 (defun ps-face-bold-p (face) |
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
4935 (or (face-bold-p face) |
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
4936 (memq face ps-bold-faces))) |
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
4937 |
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
4938 (defun ps-face-italic-p (face) |
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
4939 (or (face-italic-p face) |
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
4940 (memq face ps-italic-faces))) |
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
4941 ) |
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
4942 ; xemacs |
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
4943 ; lucid |
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
4944 (t ; epoch |
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
4945 (defun ps-face-bold-p (face) |
23550
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
4946 (ps-xemacs-face-kind-p face 'WEIGHT_NAME "bold\\|demibold" |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
4947 ps-bold-faces)) |
23091
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
4948 |
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
4949 (defun ps-face-italic-p (face) |
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
4950 (or (ps-xemacs-face-kind-p face 'ANGLE_NAME "i\\|o" ps-italic-faces) |
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
4951 (ps-xemacs-face-kind-p face 'SLANT "i\\|o" ps-italic-faces))) |
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
4952 )) |
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
4953 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4954 |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4955 (defun ps-face-underlined-p (face) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4956 (or (face-underline-p face) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4957 (memq face ps-underlined-faces))) |
7257 | 4958 |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
4959 |
11799
4a04c7799790
Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents:
10738
diff
changeset
|
4960 ;; Ensure that face-list is fbound. |
4a04c7799790
Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents:
10738
diff
changeset
|
4961 (or (fboundp 'face-list) (defalias 'face-list 'list-faces)) |
7257 | 4962 |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
4963 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4964 (defun ps-build-reference-face-lists () |
20516
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4965 ;; 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
|
4966 ;; `font-lock-face-attributes' (obsolete stuff) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4967 (ps-font-lock-face-attributes) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4968 ;; Now, rebuild reference face lists |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
4969 (setq ps-print-face-alist nil) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4970 (if ps-auto-font-detect |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
4971 (mapcar 'ps-map-face (face-list)) |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
4972 (mapcar 'ps-set-face-bold ps-bold-faces) |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
4973 (mapcar 'ps-set-face-italic ps-italic-faces) |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
4974 (mapcar 'ps-set-face-underline ps-underlined-faces)) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4975 (setq ps-build-face-reference nil)) |
7257 | 4976 |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
4977 |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
4978 (defun ps-set-face-bold (face) |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
4979 (ps-set-face-attribute face 1)) |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
4980 |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
4981 (defun ps-set-face-italic (face) |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
4982 (ps-set-face-attribute face 2)) |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
4983 |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
4984 (defun ps-set-face-underline (face) |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
4985 (ps-set-face-attribute face 4)) |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
4986 |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
4987 |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
4988 (defun ps-set-face-attribute (face effect) |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
4989 (let ((face-bit (cdr (ps-map-face face)))) |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
4990 (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
|
4991 |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
4992 |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
4993 (defun ps-map-face (face) |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
4994 (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
|
4995 (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
|
4996 (if ps-face-bit |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
4997 ;; if face exists, merge both |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
4998 (let ((face-bit (cdr face-map))) |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
4999 (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
|
5000 (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
|
5001 (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
|
5002 ;; if face does not exist, insert it |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
5003 (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
|
5004 face-map)) |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
5005 |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
5006 |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
5007 (defun ps-screen-to-bit-face (face) |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
5008 (cons face |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
5009 (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
|
5010 (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
|
5011 (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
|
5012 (face-foreground face) |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
5013 (face-background face)))) |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
5014 |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
5015 |
23550
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
5016 (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
|
5017 ; xemacs |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
5018 ; lucid |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
5019 ; epoch |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
5020 (defun ps-mapper (extent list) |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
5021 (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
|
5022 (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
|
5023 nil) |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
5024 |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
5025 (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
|
5026 (< (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
|
5027 )) |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
5028 |
11799
4a04c7799790
Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents:
10738
diff
changeset
|
5029 |
4a04c7799790
Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents:
10738
diff
changeset
|
5030 (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
|
5031 (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
|
5032 (lazy-lock-fontify-region start end))) |
11799
4a04c7799790
Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents:
10738
diff
changeset
|
5033 |
7257 | 5034 (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
|
5035 ;; Some initialization... |
20516
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
5036 (setq ps-current-effect 0) |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5037 |
10683 | 5038 ;; Build the reference lists of faces if necessary. |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5039 (if (or ps-always-build-face-reference |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5040 ps-build-face-reference) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5041 (progn |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5042 (message "Collecting face information...") |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5043 (ps-build-reference-face-lists))) |
10683 | 5044 ;; Set the color scale. We do it here instead of in the defvar so |
5045 ;; that ps-print can be dumped into emacs. This expression can't be | |
5046 ;; evaluated at dump-time because X isn't initialized. | |
23550
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
5047 (setq ps-color-p (and ps-print-color-p (ps-color-device)) |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
5048 ps-print-color-scale (if ps-color-p |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
5049 (float (car (ps-color-values "white"))) |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
5050 1.0)) |
10683 | 5051 ;; Generate some PostScript. |
7257 | 5052 (save-restriction |
5053 (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
|
5054 (ps-print-ensure-fontified from to) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5055 (let ((face 'default) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5056 (position to)) |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5057 (cond |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5058 ((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
|
5059 (eq ps-print-emacs-type 'xemacs)) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5060 ;; Build the list of extents... |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5061 (let ((a (cons 'dummy nil)) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5062 record type extent extent-list) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5063 (map-extents 'ps-mapper nil from to a) |
20331 | 5064 (setq a (sort (cdr a) 'car-less-than-car) |
5065 extent-list nil) | |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5066 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5067 ;; Loop through the extents... |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5068 (while a |
20331 | 5069 (setq record (car a) |
5070 | |
5071 position (car record) | |
5072 record (cdr record) | |
5073 | |
5074 type (car record) | |
5075 record (cdr record) | |
5076 | |
5077 extent (car record)) | |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5078 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5079 ;; Plot up to this record. |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5080 ;; 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
|
5081 ;; 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
|
5082 ;; 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
|
5083 ;; 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
|
5084 ;; 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
|
5085 ;; point-min. |
20331 | 5086 (and (>= from (point-min)) (<= position (point-max)) |
5087 (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
|
5088 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5089 (cond |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5090 ((eq type 'push) |
23550
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
5091 (and (extent-face extent) |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
5092 (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
|
5093 'ps-extent-sorter)))) |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5094 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5095 ((eq type 'pull) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5096 (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
|
5097 'ps-extent-sorter)))) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5098 |
23550
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
5099 (setq face (if extent-list |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
5100 (extent-face (car extent-list)) |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
5101 'default) |
20331 | 5102 from position |
5103 a (cdr a))))) | |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5104 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5105 ((eq ps-print-emacs-type 'emacs) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5106 (let ((property-change from) |
23091
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
5107 (overlay-change from) |
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
5108 (save-buffer-invisibility-spec buffer-invisibility-spec) |
23307 | 5109 (buffer-invisibility-spec nil)) |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5110 (while (< from to) |
23550
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
5111 (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
|
5112 ; unless previous search succeeded. |
23550
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
5113 (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
|
5114 (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
|
5115 ; unless previous search succeeded. |
23550
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
5116 (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
|
5117 (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
|
5118 ;; 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
|
5119 ;; 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
|
5120 ;; 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
|
5121 ;; of buffer-invisibility-spec nonetheless overrides |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5122 ;; a face text property. |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5123 (setq face |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5124 (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
|
5125 ;; Decide whether this invisible property |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5126 ;; really makes the text invisible. |
23091
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
5127 (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
|
5128 (not (null prop)) |
23091
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
5129 (or (memq prop save-buffer-invisibility-spec) |
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
5130 (assq prop save-buffer-invisibility-spec)))) |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
5131 'emacs--invisible--face) |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5132 ((get-text-property from 'face)) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5133 (t 'default))) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5134 (let ((overlays (overlays-at from)) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5135 (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
|
5136 (while (and overlays |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
5137 (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
|
5138 (let* ((overlay (car overlays)) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5139 (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
|
5140 (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
|
5141 0))) |
23550
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
5142 (and (> overlay-priority face-priority) |
23091
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
5143 (setq face |
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
5144 (cond ((if (eq save-buffer-invisibility-spec t) |
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
5145 (not (null overlay-invisible)) |
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
5146 (or (memq overlay-invisible |
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
5147 save-buffer-invisibility-spec) |
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
5148 (assq overlay-invisible |
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
5149 save-buffer-invisibility-spec))) |
23307 | 5150 'emacs--invisible--face) |
23550
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
5151 ((overlay-get overlay 'face)) |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
5152 (t face)) |
20331 | 5153 face-priority overlay-priority))) |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5154 (setq overlays (cdr overlays)))) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5155 ;; Plot up to this record. |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5156 (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
|
5157 (setq from position))))) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5158 (ps-plot-with-face from to face)))) |
7257 | 5159 |
5160 (defun ps-generate-postscript (from to) | |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5161 (ps-plot-region from to 0 nil)) |
7257 | 5162 |
5163 (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
|
5164 (save-excursion |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5165 (let ((from (min to from)) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5166 (to (max to from)) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5167 ;; 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
|
5168 ;; are copied into ps-spool-buffer. |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5169 (inhibit-read-only t)) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5170 (save-restriction |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5171 (narrow-to-region from to) |
20516
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
5172 (and ps-razzle-dazzle |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
5173 (message "Formatting...%3d%%" (setq ps-razchunk 0))) |
20331 | 5174 (setq ps-source-buffer buffer |
5175 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
|
5176 (ps-init-output-queue) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5177 (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
|
5178 (unwind-protect |
10683 | 5179 (progn |
5180 (set-buffer ps-spool-buffer) | |
22397 | 5181 (set-buffer-multibyte nil) |
23138
14e74d2a49cb
(ps-print-control-characters): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23091
diff
changeset
|
5182 |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5183 ;; 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
|
5184 ;; 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
|
5185 ;; the end of this marker onwards. |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5186 (setq safe-marker (make-marker)) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5187 (set-marker safe-marker (point-max)) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5188 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5189 (goto-char (point-min)) |
20331 | 5190 (or (looking-at (regexp-quote ps-adobe-tag)) |
5191 (setq needs-begin-file t)) | |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5192 (save-excursion |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5193 (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
|
5194 (ps-begin-job) |
23892
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
5195 (when needs-begin-file |
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
5196 (ps-begin-file) |
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
5197 (ps-mule-initialize)) |
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
5198 (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
|
5199 (ps-begin-page)) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5200 (set-buffer ps-source-buffer) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5201 (funcall genfunc from to) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5202 (ps-end-page) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5203 |
22397 | 5204 (ps-end-file) |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5205 (ps-flush-output) |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5206 (ps-end-job) |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5207 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5208 ;; Setting this variable tells the unwind form that the |
20331 | 5209 ;; 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
|
5210 (setq completed-safely t)) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5211 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5212 ;; Unwind form: If some bad mojo occurred while generating |
20331 | 5213 ;; 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
|
5214 ;; 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
|
5215 ;; corrupted. |
20331 | 5216 (and (markerp safe-marker) (not completed-safely) |
5217 (progn | |
5218 (set-buffer ps-spool-buffer) | |
5219 (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
|
5220 |
20516
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
5221 (and ps-razzle-dazzle (message "Formatting...done")))))) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
5222 |
23091
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
5223 |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5224 (defun ps-end-job () |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5225 (let ((total-lines (cdr ps-printing-region)) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5226 (total-pages (if ps-print-only-one-header |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5227 (ps-page-number) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5228 ps-page-count)) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5229 case-fold-search) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5230 (set-buffer ps-spool-buffer) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5231 ;; 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
|
5232 (goto-char (point-min)) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5233 (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
|
5234 (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
|
5235 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
|
5236 |
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
5237 |
20516
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
5238 ;; Permit dynamic evaluation at print time of `ps-lpr-switches'. |
7257 | 5239 (defun ps-do-despool (filename) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5240 (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
|
5241 (not (symbol-value 'ps-spool-buffer))) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5242 (message "No spooled PostScript to print") |
7257 | 5243 (if filename |
5244 (save-excursion | |
20516
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
5245 (and ps-razzle-dazzle (message "Saving...")) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5246 (set-buffer ps-spool-buffer) |
7257 | 5247 (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
|
5248 (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
|
5249 (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
|
5250 (and ps-razzle-dazzle (message "Wrote %s" filename))) |
7257 | 5251 ;; Else, spool to the printer |
20516
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
5252 (and ps-razzle-dazzle (message "Printing...")) |
7257 | 5253 (save-excursion |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5254 (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
|
5255 (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
|
5256 (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
|
5257 (and (boundp 'printer-name) |
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
5258 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
|
5259 (ps-lpr-switches |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5260 (append (and (stringp ps-printer-name) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5261 (list (concat "-P" ps-printer-name))) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5262 ps-lpr-switches))) |
24090
3a9da940e5f2
(ps-printer-name): Update docstring about usage on
Andrew Innes <andrewi@gnu.org>
parents:
23938
diff
changeset
|
5263 (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
|
5264 (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
|
5265 (and (fboundp 'start-process) 0) |
3a9da940e5f2
(ps-printer-name): Update docstring about usage on
Andrew Innes <andrewi@gnu.org>
parents:
23938
diff
changeset
|
5266 nil |
3a9da940e5f2
(ps-printer-name): Update docstring about usage on
Andrew Innes <andrewi@gnu.org>
parents:
23938
diff
changeset
|
5267 (ps-flatten-list ; dynamic evaluation |
3a9da940e5f2
(ps-printer-name): Update docstring about usage on
Andrew Innes <andrewi@gnu.org>
parents:
23938
diff
changeset
|
5268 (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
|
5269 (and ps-razzle-dazzle (message "Printing...done"))) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5270 (kill-buffer ps-spool-buffer))) |
7257 | 5271 |
20516
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
5272 ;; Dynamic evaluation |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
5273 (defun ps-eval-switch (arg) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
5274 (cond ((stringp arg) arg) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
5275 ((functionp arg) (apply arg nil)) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
5276 ((symbolp arg) (symbol-value arg)) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
5277 ((consp arg) (apply (car arg) (cdr arg))) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
5278 (t nil))) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
5279 |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
5280 ;; `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
|
5281 ;; 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
|
5282 ;; 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
|
5283 |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
5284 ;; (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
|
5285 ;; => (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
|
5286 |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
5287 (defun ps-flatten-list (&rest list) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
5288 (ps-flatten-list-1 list)) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
5289 |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
5290 (defun ps-flatten-list-1 (list) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
5291 (cond ((null list) nil) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
5292 ((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
|
5293 (ps-flatten-list-1 (cdr list)))) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
5294 (t (list list)))) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
5295 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5296 (defun ps-kill-emacs-check () |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5297 (let (ps-buffer) |
20331 | 5298 (and (setq ps-buffer (get-buffer ps-spool-buffer-name)) |
5299 (buffer-modified-p ps-buffer) | |
5300 (y-or-n-p "Unprinted PostScript waiting; print now? ") | |
5301 (ps-despool)) | |
5302 (and (setq ps-buffer (get-buffer ps-spool-buffer-name)) | |
5303 (buffer-modified-p ps-buffer) | |
5304 (not (yes-or-no-p "Unprinted PostScript waiting; exit anyway? ")) | |
5305 (error "Unprinted PostScript")))) | |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5306 |
23550
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
5307 (cond ((fboundp 'add-hook) |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
5308 (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
|
5309 (kill-emacs-hook |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
5310 (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
|
5311 (t |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
5312 (setq kill-emacs-hook 'ps-kill-emacs-check))) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5313 |
23892
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
5314 |
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
5315 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5316 ;;; Sample Setup Code: |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5317 |
27161
0a2452a20c74
ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
26883
diff
changeset
|
5318 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5319 ;; 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
|
5320 ;; 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
|
5321 ;; 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
|
5322 |
23892
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
5323 ;; 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
|
5324 ;; 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
|
5325 |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5326 (defmacro ps-prsc () |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5327 `(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
|
5328 (defmacro ps-c-prsc () |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5329 `(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
|
5330 (defmacro ps-s-prsc () |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5331 `(if (eq ps-print-emacs-type 'emacs) [S-f22] '(shift f22))) |
10683 | 5332 |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
5333 ;; 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
|
5334 ;; `ps-left-headers' specially for mail messages. |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
5335 (defun ps-rmail-mode-hook () |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
5336 (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
|
5337 (setq ps-header-lines 3 |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
5338 ps-left-header |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
5339 ;; 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
|
5340 ;; 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
|
5341 '(ps-article-subject ps-article-author buffer-name))) |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
5342 |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
5343 ;; 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
|
5344 ;; same thing for rmail. |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
5345 (defun ps-rmail-print-message-from-summary () |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
5346 (interactive) |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
5347 (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
|
5348 |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
5349 ;; Used in `ps-rmail-print-article-from-summary', |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
5350 ;; `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
|
5351 (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
|
5352 (let ((ps-buf (or (and (boundp summary-buffer) |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
5353 (symbol-value summary-buffer)) |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
5354 summary-default))) |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
5355 (and (get-buffer ps-buf) |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
5356 (save-excursion |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
5357 (set-buffer ps-buf) |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
5358 (ps-spool-buffer-with-faces))))) |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
5359 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5360 ;; 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
|
5361 ;; placed in `ps-left-headers'. |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5362 (defun ps-article-subject () |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5363 (save-excursion |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5364 (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
|
5365 (if (re-search-forward "^Subject:[ \t]+\\(.*\\)$" nil t) |
17588
0054114145ca
change all buffer-substring to buffer-substring-no-properties.
Simon Marshall <simon@gnu.org>
parents:
17440
diff
changeset
|
5366 (buffer-substring-no-properties (match-beginning 1) (match-end 1)) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5367 "Subject ???"))) |
7257 | 5368 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5369 ;; 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
|
5370 ;; 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
|
5371 ;; 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
|
5372 (defun ps-article-author () |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5373 (save-excursion |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5374 (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
|
5375 (if (re-search-forward "^From:[ \t]+\\(.*\\)$" nil t) |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5376 (let ((fromstring (buffer-substring-no-properties (match-beginning 1) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5377 (match-end 1)))) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5378 (cond |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5379 |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5380 ;; Try first to match addresses that look like |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5381 ;; thompson@wg2.waii.com (Jim Thompson) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5382 ((string-match ".*[ \t]+(\\(.*\\))" fromstring) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5383 (substring fromstring (match-beginning 1) (match-end 1))) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5384 |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5385 ;; Next try to match addresses that look like |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5386 ;; Jim Thompson <thompson@wg2.waii.com> |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5387 ((string-match "\\(.*\\)[ \t]+<.*>" fromstring) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5388 (substring fromstring (match-beginning 1) (match-end 1))) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5389 |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5390 ;; Couldn't find a real name -- show the address instead. |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5391 (t fromstring))) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5392 "From ???"))) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5393 |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
5394 ;; 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
|
5395 ;; `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
|
5396 ;; `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
|
5397 ;; 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
|
5398 ;; 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
|
5399 ;; only alternative is `gnus-article-prepare-hook'. |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5400 (defun ps-gnus-article-prepare-hook () |
20331 | 5401 (setq ps-header-lines 3 |
5402 ps-left-header | |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5403 ;; The left headers will display the article's subject, its |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5404 ;; author, and the newsgroup it was in. |
20331 | 5405 '(ps-article-subject ps-article-author gnus-newsgroup-name))) |
7257 | 5406 |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
5407 ;; 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
|
5408 ;; `ps-left-headers' specially for mail messages. |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5409 (defun ps-vm-mode-hook () |
10683 | 5410 (local-set-key (ps-prsc) 'ps-vm-print-message-from-summary) |
20331 | 5411 (setq ps-header-lines 3 |
5412 ps-left-header | |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5413 ;; The left headers will display the message's subject, its |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5414 ;; author, and the name of the folder it was in. |
20331 | 5415 '(ps-article-subject ps-article-author buffer-name))) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5416 |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5417 ;; 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
|
5418 ;; 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
|
5419 ;; 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
|
5420 ;; 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
|
5421 ;; buffers first. |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5422 ;; sb: Updated for Gnus 5. |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5423 (defun ps-gnus-print-article-from-summary () |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5424 (interactive) |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
5425 (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
|
5426 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5427 ;; 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
|
5428 ;; same thing for vm. |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5429 (defun ps-vm-print-message-from-summary () |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5430 (interactive) |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
5431 (ps-print-message-from-summary 'vm-mail-buffer "")) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5432 |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5433 ;; 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
|
5434 ;; prsc. |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5435 (defun ps-gnus-summary-setup () |
10683 | 5436 (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
|
5437 |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5438 ;; 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
|
5439 ;; placed in `ps-left-headers'. |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5440 (defun ps-info-file () |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5441 (save-excursion |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5442 (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
|
5443 (if (re-search-forward "File:[ \t]+\\([^, \t\n]*\\)" nil t) |
17588
0054114145ca
change all buffer-substring to buffer-substring-no-properties.
Simon Marshall <simon@gnu.org>
parents:
17440
diff
changeset
|
5444 (buffer-substring-no-properties (match-beginning 1) (match-end 1)) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5445 "File ???"))) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5446 |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5447 ;; 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
|
5448 ;; placed in `ps-left-headers'. |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5449 (defun ps-info-node () |
7257 | 5450 (save-excursion |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5451 (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
|
5452 (if (re-search-forward "Node:[ \t]+\\([^,\t\n]*\\)" nil t) |
17588
0054114145ca
change all buffer-substring to buffer-substring-no-properties.
Simon Marshall <simon@gnu.org>
parents:
17440
diff
changeset
|
5453 (buffer-substring-no-properties (match-beginning 1) (match-end 1)) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5454 "Node ???"))) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5455 |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5456 (defun ps-info-mode-hook () |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5457 (setq ps-left-header |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5458 ;; The left headers will display the node name and file name. |
20331 | 5459 '(ps-info-node ps-info-file))) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5460 |
11799
4a04c7799790
Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents:
10738
diff
changeset
|
5461 ;; 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
|
5462 ;; 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
|
5463 ;; 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
|
5464 ;; 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
|
5465 ;; modification.) |
4a04c7799790
Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents:
10738
diff
changeset
|
5466 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5467 (defun ps-jts-ps-setup () |
10683 | 5468 (global-set-key (ps-prsc) 'ps-spool-buffer-with-faces) ;f22 is prsc |
5469 (global-set-key (ps-s-prsc) 'ps-spool-region-with-faces) | |
5470 (global-set-key (ps-c-prsc) 'ps-despool) | |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5471 (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
|
5472 (add-hook 'gnus-summary-mode-hook 'ps-gnus-summary-setup) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5473 (add-hook 'vm-mode-hook 'ps-vm-mode-hook) |
10683 | 5474 (add-hook 'vm-mode-hooks 'ps-vm-mode-hook) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5475 (add-hook 'Info-mode-hook 'ps-info-mode-hook) |
20331 | 5476 (setq ps-spool-duplex t |
5477 ps-print-color-p nil | |
5478 ps-lpr-command "lpr" | |
5479 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
|
5480 '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
|
5481 |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
5482 ;; 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
|
5483 ;; 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
|
5484 ;; (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
|
5485 ;; 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
|
5486 ;; without modification.) |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
5487 |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
5488 (defun ps-jack-setup () |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5489 (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
|
5490 ps-lpr-command "lpr" |
20331 | 5491 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
|
5492 |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5493 ps-paper-type 'a4 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5494 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
|
5495 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
|
5496 |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
5497 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
|
5498 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
|
5499 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
|
5500 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
|
5501 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
|
5502 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
|
5503 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
|
5504 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
|
5505 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
|
5506 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
|
5507 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
|
5508 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
|
5509 |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
5510 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
|
5511 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
|
5512 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
|
5513 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
|
5514 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
|
5515 'ps-jack-setup) |
7257 | 5516 |
23892
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
5517 |
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
5518 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
5519 ;; 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
|
5520 ;; 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
|
5521 |
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
5522 (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
|
5523 "Setup special ASCII font for STRING. |
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
5524 STRING should contain only ASCII characters.") |
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
5525 |
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
5526 (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
|
5527 "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
|
5528 |
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
5529 (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
|
5530 "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
|
5531 |
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
5532 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
|
5533 |
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
5534 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
|
5535 |
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
5536 Returns the value: |
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
5537 |
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
5538 (ENDPOS . RUN-WIDTH) |
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
5539 |
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
5540 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
|
5541 the sequence.") |
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
5542 |
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
5543 (autoload 'ps-mule-initialize "ps-mule" |
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
5544 "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
|
5545 |
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
5546 (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
|
5547 "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
|
5548 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
|
5549 |
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
5550 (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
|
5551 "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
|
5552 |
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
5553 |
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
5554 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
5555 |
7257 | 5556 (provide 'ps-print) |
10738
e7d5b119b583
(ps-print-version): Add caveat about version number.
Richard M. Stallman <rms@gnu.org>
parents:
10683
diff
changeset
|
5557 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5558 ;;; ps-print.el ends here |