Mercurial > emacs
annotate lisp/ps-print.el @ 59375:745578a62e8c
(Programming Tutorial): Replace kbd command by appropriate characters
for a keyboard macro.
author | Jay Belanger <jay.p.belanger@gmail.com> |
---|---|
date | Wed, 05 Jan 2005 17:09:28 +0000 |
parents | 8bdaf013a219 |
children | 697126c8e9d4 f2ebccfa87d4 |
rev | line source |
---|---|
38445 | 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 |
49763
e19e88bc6e58
Change the policy of background/foreground default color.
Juanma Barranquero <lekktu@gmail.com>
parents:
47674
diff
changeset
|
3 ;; Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, |
54233 | 4 ;; 2003, 2004 Free Software Foundation, Inc. |
7257 | 5 |
38445 | 6 ;; Author: Jim Thompson (was <thompson@wg2.waii.com>) |
7 ;; Jacques Duthen (was <duthen@cegelec-red.fr>) | |
50032
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
8 ;; Vinicius Jose Latorre <viniciusjl@ig.com.br> |
38445 | 9 ;; Kenichi Handa <handa@etl.go.jp> (multi-byte characters) |
10 ;; Maintainer: Kenichi Handa <handa@etl.go.jp> (multi-byte characters) | |
50032
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
11 ;; Vinicius Jose Latorre <viniciusjl@ig.com.br> |
38445 | 12 ;; Keywords: wp, print, PostScript |
56504
8d030ffc0866
Improve DSC compliance.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56127
diff
changeset
|
13 ;; Time-stamp: <2004/07/21 23:12:05 vinicius> |
8d030ffc0866
Improve DSC compliance.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56127
diff
changeset
|
14 ;; Version: 6.6.5 |
38445 | 15 ;; X-URL: http://www.cpqd.com.br/~vinicius/emacs/ |
32619
c09b494a5f49
Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents:
31253
diff
changeset
|
16 |
56504
8d030ffc0866
Improve DSC compliance.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56127
diff
changeset
|
17 (defconst ps-print-version "6.6.5" |
8d030ffc0866
Improve DSC compliance.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56127
diff
changeset
|
18 "ps-print.el, v 6.6.5 <2004/07/21 vinicius> |
16870
4a5fa29f79d6
(ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents:
16361
diff
changeset
|
19 |
19485
eab8baa19dfa
(ps-zebra-stripes): Renamed from ps-zebra-stripe.
Richard M. Stallman <rms@gnu.org>
parents:
19446
diff
changeset
|
20 Vinicius's last change version -- this file may have been edited as part of |
28760
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
21 Emacs without changes to the version number. When reporting bugs, please also |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
22 report the version of Emacs, if any, that ps-print was distributed with. |
16870
4a5fa29f79d6
(ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents:
16361
diff
changeset
|
23 |
4a5fa29f79d6
(ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents:
16361
diff
changeset
|
24 Please send all bug fixes and enhancements to |
50032
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
25 Vinicius Jose Latorre <viniciusjl@ig.com.br>.") |
7257 | 26 |
10493 | 27 ;; This file is part of GNU Emacs. |
7257 | 28 |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
29 ;; GNU Emacs is free software; you can redistribute it and/or modify it under |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
30 ;; the terms of the GNU General Public License as published by the Free |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
31 ;; Software Foundation; either version 2, or (at your option) any later |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
32 ;; version. |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
33 |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
34 ;; GNU Emacs is distributed in the hope that it will be useful, but WITHOUT ANY |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
35 ;; WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
36 ;; FOR A PARTICULAR PURPOSE. See the GNU General Public License for more |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
37 ;; details. |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
38 |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
39 ;; You should have received a copy of the GNU General Public License along with |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
40 ;; GNU Emacs; see the file COPYING. If not, write to the Free Software |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
41 ;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. |
7257 | 42 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
43 ;;; Commentary: |
7257 | 44 |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
45 ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
7257 | 46 ;; |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
47 ;; About ps-print |
7257 | 48 ;; -------------- |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
49 ;; |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
50 ;; This package provides printing of Emacs buffers on PostScript printers; the |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
51 ;; buffer's bold and italic text attributes are preserved in the printer |
47674
330113e9df2b
(ps-print-emacs-type): Error if ps-print is
Richard M. Stallman <rms@gnu.org>
parents:
47426
diff
changeset
|
52 ;; output. ps-print is intended for use with Emacs or XEmacs, together with a |
330113e9df2b
(ps-print-emacs-type): Error if ps-print is
Richard M. Stallman <rms@gnu.org>
parents:
47426
diff
changeset
|
53 ;; fontifying package such as font-lock or hilit. |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
54 ;; |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
55 ;; ps-print uses the same face attributes defined through font-lock or hilit to |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
56 ;; print a PostScript file, but some faces are better seeing on the screen than |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
57 ;; on paper, specially when you have a black/white PostScript printer. |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
58 ;; |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
59 ;; ps-print allows a remap of face to another one that it is better to print, |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
60 ;; for example, the face font-lock-comment-face (if you are using font-lock) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
61 ;; could have bold or italic attribute when printing, besides foreground color. |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
62 ;; This remap improves printing look (see How Ps-Print Maps Faces). |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
63 ;; |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
64 ;; |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
65 ;; Using ps-print |
7257 | 66 ;; -------------- |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
67 ;; |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
68 ;; ps-print provides eight commands for generating PostScript images of Emacs |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
69 ;; buffers: |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
70 ;; |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
71 ;; ps-print-buffer |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
72 ;; ps-print-buffer-with-faces |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
73 ;; ps-print-region |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
74 ;; ps-print-region-with-faces |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
75 ;; ps-spool-buffer |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
76 ;; ps-spool-buffer-with-faces |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
77 ;; ps-spool-region |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
78 ;; ps-spool-region-with-faces |
7257 | 79 ;; |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
80 ;; These commands all perform essentially the same function: they generate |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
81 ;; PostScript images suitable for printing on a PostScript printer or |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
82 ;; displaying with GhostScript. These commands are collectively referred to as |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
83 ;; "ps-print- commands". |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
84 ;; |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
85 ;; The word "print" or "spool" in the command name determines when the |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
86 ;; PostScript image is sent to the printer: |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
87 ;; |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
88 ;; print - The PostScript image is immediately sent to the printer; |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
89 ;; |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
90 ;; spool - The PostScript image is saved temporarily in an Emacs |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
91 ;; buffer. Many images may be spooled locally before |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
92 ;; printing them. To send the spooled images to the |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
93 ;; printer, use the command `ps-despool'. |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
94 ;; |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
95 ;; The spooling mechanism was designed for printing lots of small files (mail |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
96 ;; messages or netnews articles) to save paper that would otherwise be wasted |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
97 ;; on banner pages, and to make it easier to find your output at the printer |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
98 ;; (it's easier to pick up one 50-page printout than to find 50 single-page |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
99 ;; printouts). |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
100 ;; |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
101 ;; ps-print has a hook in the `kill-emacs-hook' so that you won't accidentally |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
102 ;; quit from Emacs while you have unprinted PostScript waiting in the spool |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
103 ;; buffer. If you do attempt to exit with spooled PostScript, you'll be asked |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
104 ;; if you want to print it, and if you decline, you'll be asked to confirm the |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
105 ;; exit; this is modeled on the confirmation that Emacs uses for modified |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
106 ;; buffers. |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
107 ;; |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
108 ;; The word "buffer" or "region" in the command name determines how much of the |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
109 ;; buffer is printed: |
7257 | 110 ;; |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
111 ;; buffer - Print the entire buffer. |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
112 ;; |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
113 ;; region - Print just the current region. |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
114 ;; |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
115 ;; The -with-faces suffix on the command name means that the command will |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
116 ;; include font, color, and underline information in the PostScript image, so |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
117 ;; the printed image can look as pretty as the buffer. The ps-print- commands |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
118 ;; without the -with-faces suffix don't include font, color, or underline |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
119 ;; information; images printed with these commands aren't as pretty, but are |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
120 ;; faster to generate. |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
121 ;; |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
122 ;; Two ps-print- command examples: |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
123 ;; |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
124 ;; ps-print-buffer - print the entire buffer, without font, |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
125 ;; color, or underline information, and |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
126 ;; send it immediately to the printer. |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
127 ;; |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
128 ;; ps-spool-region-with-faces - print just the current region; include |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
129 ;; font, color, and underline information, |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
130 ;; and spool the image in Emacs to send to |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
131 ;; the printer later. |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
132 ;; |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
133 ;; |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
134 ;; 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
|
135 ;; ----------------- |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
136 ;; |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
137 ;; To print your buffer, type |
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 ;; M-x ps-print-buffer |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
140 ;; |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
141 ;; or substitute one of the other seven ps-print- commands. The command will |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
142 ;; generate the PostScript image and print or spool it as specified. By giving |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
143 ;; the command a prefix argument |
7257 | 144 ;; |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
145 ;; C-u M-x ps-print-buffer |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
146 ;; |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
147 ;; it will save the PostScript image to a file instead of sending it to the |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
148 ;; printer; you will be prompted for the name of the file to save the image to. |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
149 ;; The prefix argument is ignored by the commands that spool their images, but |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
150 ;; you may save the spooled images to a file by giving a prefix argument to |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
151 ;; `ps-despool': |
7257 | 152 ;; |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
153 ;; C-u M-x ps-despool |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
154 ;; |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
155 ;; When invoked this way, `ps-despool' will prompt you for the name of the file |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
156 ;; to save to. |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
157 ;; |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
158 ;; Any of the `ps-print-' commands can be bound to keys; I recommend binding |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
159 ;; `ps-spool-buffer-with-faces', `ps-spool-region-with-faces', and |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
160 ;; `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
|
161 ;; |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
162 ;; (global-set-key 'f22 'ps-spool-buffer-with-faces) ;f22 is prsc |
7257 | 163 ;; (global-set-key '(shift f22) 'ps-spool-region-with-faces) |
164 ;; (global-set-key '(control f22) 'ps-despool) | |
165 ;; | |
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 ;; 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
|
168 ;; --------------------- |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
169 ;; |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
170 ;; The variables `ps-lpr-command' and `ps-lpr-switches' determine what command |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
171 ;; is used to send the PostScript images to the printer, and what arguments to |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
172 ;; give the command. These are analogous to `lpr-command' and `lpr-switches'. |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
173 ;; |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
174 ;; 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
|
175 ;; 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
|
176 ;; |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
177 ;; 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
|
178 ;; printing PostScript files. |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
179 ;; |
32619
c09b494a5f49
Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents:
31253
diff
changeset
|
180 ;; The variable `ps-printer-name-option' determines the option used by some |
c09b494a5f49
Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents:
31253
diff
changeset
|
181 ;; utilities to indicate the printer name, it's used only when |
c09b494a5f49
Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents:
31253
diff
changeset
|
182 ;; `ps-printer-name' is a non-empty string. If you're using lpr utility to |
c09b494a5f49
Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents:
31253
diff
changeset
|
183 ;; print, for example, `ps-printer-name-option' should be set to "-P". |
c09b494a5f49
Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents:
31253
diff
changeset
|
184 ;; |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
185 ;; NOTE: `ps-lpr-command' and `ps-lpr-switches' take their initial values from |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
186 ;; the variables `lpr-command' and `lpr-switches'. If you have |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
187 ;; `lpr-command' set to invoke a pretty-printer such as `enscript', then |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
188 ;; ps-print won't work properly. `ps-lpr-command' must name a program |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
189 ;; that does not format the files it prints. |
23550
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
190 ;; `ps-printer-name' takes its initial value from the variable |
32619
c09b494a5f49
Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents:
31253
diff
changeset
|
191 ;; `printer-name'. `ps-printer-name-option' tries to guess which system |
c09b494a5f49
Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents:
31253
diff
changeset
|
192 ;; Emacs is running and takes its initial value in accordance with this |
c09b494a5f49
Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents:
31253
diff
changeset
|
193 ;; guess. |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
194 ;; |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
195 ;; 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
|
196 ;; region on a PostScript printer. |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
197 ;; 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
|
198 ;; and the sixth arguments are both nil. |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
199 ;; |
29494
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
200 ;; The variable `ps-manual-feed' indicates if the printer will manually feed |
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
201 ;; paper. If it's nil, automatic feeding takes place. If it's non-nil, manual |
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
202 ;; feeding takes place. The default is nil (automatic feeding). |
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
203 ;; |
34045
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
204 ;; The variable `ps-end-with-control-d' specifies whether C-d (\x04) should be |
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
205 ;; inserted at end of PostScript generated. Non-nil means do so. The default |
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
206 ;; is nil (don't insert). |
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
207 ;; |
28979
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
208 ;; If you're using Emacs for Windows 95/98/NT or MS-DOS, don't forget to |
32619
c09b494a5f49
Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents:
31253
diff
changeset
|
209 ;; customize the following variables: `ps-printer-name', |
c09b494a5f49
Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents:
31253
diff
changeset
|
210 ;; `ps-printer-name-option', `ps-lpr-command', `ps-lpr-switches' and |
c09b494a5f49
Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents:
31253
diff
changeset
|
211 ;; `ps-spool-config'. See these variables documentation in the code or by |
c09b494a5f49
Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents:
31253
diff
changeset
|
212 ;; typing, for example, C-h v ps-printer-name RET. |
28576
1694ed739e69
Customization fix, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28426
diff
changeset
|
213 ;; |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
214 ;; |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
215 ;; The Page Layout |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
216 ;; --------------- |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
217 ;; |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
218 ;; 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
|
219 ;; 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
|
220 ;; 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
|
221 ;; |
28760
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
222 ;; The variable `ps-paper-type' determines the size of paper ps-print formats |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
223 ;; for; it should contain one of the symbols: `a4' `a3' `letter' `legal' |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
224 ;; `letter-small' `tabloid' `ledger' `statement' `executive' `a4small' `b4' |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
225 ;; `b5'. |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
226 ;; |
29494
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
227 ;; If variable `ps-warn-paper-type' is nil, it's *not* given an error if |
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
228 ;; PostScript printer doesn't have a paper with the size indicated by |
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
229 ;; `ps-paper-type', instead it uses the default paper size. If variable |
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
230 ;; `ps-warn-paper-type' is non-nil, it's given an error if PostScript printer |
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
231 ;; doesn't have a paper with the size indicated by `ps-paper-type'. It's used |
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
232 ;; when `ps-spool-config' is set to `setpagedevice' (see section Duplex |
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
233 ;; Printers). The default value is non-nil (it gives an error). |
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
234 ;; |
28760
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
235 ;; The variable `ps-landscape-mode' determines the orientation of the printing |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
236 ;; on the page: nil means `portrait' mode, non-nil means `landscape' mode. |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
237 ;; 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
|
238 ;; |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
239 ;; In landscape mode, the text is NOT scaled: you may print 70 lines in |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
240 ;; portrait mode and only 50 lines in landscape mode. The margins represent |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
241 ;; margins in the printed paper: the top margin is the margin between the top |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
242 ;; of the page and the printed header, whatever the orientation is. |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
243 ;; |
28760
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
244 ;; The variable `ps-number-of-columns' determines the number of columns both in |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
245 ;; landscape and portrait mode. |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
246 ;; You can use: |
28760
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
247 ;; - (the standard) one column portrait mode. |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
248 ;; - (my favorite) two columns landscape mode (which spares trees). |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
249 ;; but also: |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
250 ;; - one column landscape mode for files with very long lines. |
28760
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
251 ;; - multi-column portrait or landscape mode. |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
252 ;; |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
253 ;; The variable `ps-print-upside-down' determines other orientation for |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
254 ;; printing page: nil means `normal' printing, non-nil means `upside-down' |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
255 ;; printing (that is, the page is rotated by 180 grades). The default value is |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
256 ;; nil (`normal' printing). |
28760
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
257 ;; |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
258 ;; The `upside-down' orientation can be used in portrait or landscape mode. |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
259 ;; |
29848
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
260 ;; The variable `ps-selected-pages' specifies which pages to print. If it's |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
261 ;; nil, all pages are printed. If it's a list, the list element may be an |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
262 ;; integer or a cons cell (FROM . TO) designating FROM page to TO page; any |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
263 ;; invalid element is ignored, that is, an integer lesser than one or if FROM |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
264 ;; is greater than TO. Otherwise, it's treated as nil. The default value is |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
265 ;; nil (print all pages). After ps-print processing `ps-selected-pages' is set |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
266 ;; to nil. But the latest `ps-selected-pages' is saved in |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
267 ;; `ps-last-selected-pages' (see it for documentation). So you can restore the |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
268 ;; latest selected pages by using `ps-last-selected-pages' or by calling |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
269 ;; `ps-restore-selected-pages' command (see it for documentation). |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
270 ;; |
31253
4c40c1171b8b
Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
30522
diff
changeset
|
271 ;; The variable `ps-even-or-odd-pages' specifies if it prints even/odd pages. |
4c40c1171b8b
Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
30522
diff
changeset
|
272 ;; |
4c40c1171b8b
Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
30522
diff
changeset
|
273 ;; Valid values are: |
4c40c1171b8b
Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
30522
diff
changeset
|
274 ;; |
4c40c1171b8b
Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
30522
diff
changeset
|
275 ;; nil print all pages. |
4c40c1171b8b
Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
30522
diff
changeset
|
276 ;; |
33143
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
277 ;; even-page print only even pages. |
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
278 ;; |
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
279 ;; odd-page print only odd pages. |
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
280 ;; |
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
281 ;; even-sheet print only even sheets. |
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
282 ;; |
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
283 ;; odd-sheet print only odd sheets. |
31253
4c40c1171b8b
Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
30522
diff
changeset
|
284 ;; |
4c40c1171b8b
Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
30522
diff
changeset
|
285 ;; Any other value is treated as nil. The default value is nil. |
4c40c1171b8b
Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
30522
diff
changeset
|
286 ;; |
33143
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
287 ;; See `ps-even-or-odd-pages' for more detailed documentation. |
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
288 ;; |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
289 ;; |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
290 ;; Horizontal layout |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
291 ;; ----------------- |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
292 ;; |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
293 ;; 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
|
294 ;; `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
|
295 ;; as follows: |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
296 ;; |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
297 ;; ------------------------------------------ |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
298 ;; | | | | | | | | |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
299 ;; | 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
|
300 ;; | | | | | | | | |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
301 ;; ------------------------------------------ |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
302 ;; |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
303 ;; 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
|
304 ;; 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
|
305 ;; 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
|
306 ;; |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
307 ;; |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
308 ;; Vertical layout |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
309 ;; --------------- |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
310 ;; |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
311 ;; The vertical layout is determined by the variables |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
312 ;; `ps-bottom-margin' `ps-top-margin' `ps-header-offset' `ps-footer-offset' |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
313 ;; as follows: |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
314 ;; |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
315 ;; |--------| |--------| |--------| |--------| |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
316 ;; | tm | | tm | | tm | | tm | |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
317 ;; |--------| |--------| |--------| |--------| |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
318 ;; | header | | | | header | | | |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
319 ;; |--------| | | |--------| | | |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
320 ;; | ho | | | | ho | | | |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
321 ;; |--------| | | |--------| | | |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
322 ;; | | | | | | | | |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
323 ;; | text | or | text | or | text | or | text | |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
324 ;; | | | | | | | | |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
325 ;; | | |--------| |--------| | | |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
326 ;; | | | fo | | fo | | | |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
327 ;; | | |--------| |--------| | | |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
328 ;; | | | footer | | footer | | | |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
329 ;; |--------| |--------| |--------| |--------| |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
330 ;; | bm | | bm | | bm | | bm | |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
331 ;; |--------| |--------| |--------| |--------| |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
332 ;; |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
333 ;; If `ps-print-header' is nil, `ps-header-offset' is not relevant. |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
334 ;; If `ps-print-footer' is nil, `ps-footer-offset' is not relevant. |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
335 ;; The margins represent margins in the printed paper: |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
336 ;; the top margin is the margin between the top of the page and the printed |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
337 ;; header, whatever the orientation is; |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
338 ;; the bottom margin is the margin between the bottom of the page and the |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
339 ;; printed footer, whatever the orientation is. |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
340 ;; |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
341 ;; |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
342 ;; Headers & Footers |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
343 ;; ----------------- |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
344 ;; |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
345 ;; ps-print can print headers at the top of each column or at the top of each |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
346 ;; page; the default headers contain the following four items: on the left, the |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
347 ;; name of the buffer and, if the buffer is visiting a file, the file's |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
348 ;; directory; on the right, the page number and date of printing. The default |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
349 ;; headers look something like this: |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
350 ;; |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
351 ;; ps-print.el 1/21 |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
352 ;; /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
|
353 ;; |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
354 ;; When printing on duplex printers, left and right are reversed so that the |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
355 ;; page numbers are toward the outside (cf. `ps-spool-duplex'). |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
356 ;; |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
357 ;; Headers are configurable: |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
358 ;; 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
|
359 ;; 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
|
360 ;; set `ps-print-header-frame' to nil. |
7257 | 361 ;; |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
362 ;; The variable `ps-header-frame-alist' specifies header frame properties |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
363 ;; alist. Valid frame properties are: |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
364 ;; |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
365 ;; fore-color Specify the foreground frame color. |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
366 ;; It should be a float number between 0.0 (black color) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
367 ;; and 1.0 (white color), a string which is a color name, |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
368 ;; or a list of 3 float numbers which corresponds to the |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
369 ;; Red Green Blue color scale, each float number between |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
370 ;; 0.0 (dark color) and 1.0 (bright color). |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
371 ;; The default is 0 ("black"). |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
372 ;; |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
373 ;; back-color Specify the background frame color (similar to |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
374 ;; fore-color). The default is 0.9 ("gray90"). |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
375 ;; |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
376 ;; shadow-color Specify the shadow color (similar to fore-color). |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
377 ;; The default is 0 ("black"). |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
378 ;; |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
379 ;; border-color Specify the border color (similar to fore-color). |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
380 ;; The default is 0 ("black"). |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
381 ;; |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
382 ;; border-width Specify the border width. |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
383 ;; The default is 0.4. |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
384 ;; |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
385 ;; Any other property is ignored. |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
386 ;; |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
387 ;; Don't change this alist directly, instead use customization, or `ps-value', |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
388 ;; `ps-get', `ps-put' and `ps-del' functions (see them for documentation). |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
389 ;; |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
390 ;; To print only one header at the top of each page, set |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
391 ;; `ps-print-only-one-header' to t. |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
392 ;; |
29494
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
393 ;; To switch headers, set `ps-switch-header' to: |
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
394 ;; |
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
395 ;; nil Never switch headers. |
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
396 ;; |
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
397 ;; t Always switch headers. |
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
398 ;; |
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
399 ;; duplex Switch headers only when duplexing is on, that is, when |
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
400 ;; `ps-spool-duplex' is non-nil (see Duplex Printers). |
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
401 ;; |
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
402 ;; Any other value is treated as t. The default value is `duplex'. |
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
403 ;; |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
404 ;; The font family and size of text in the header are determined by the |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
405 ;; 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
|
406 ;; `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
|
407 ;; |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
408 ;; The variable `ps-header-line-pad' determines the portion of a header title |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
409 ;; line height to insert between the header frame and the text it contains, |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
410 ;; both in the vertical and horizontal directions: .5 means half a line. |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
411 ;; |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
412 ;; Page numbers are printed in `n/m' format, indicating page n of m pages; to |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
413 ;; omit the total page count and just print the page number, set |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
414 ;; `ps-show-n-of-n' to nil. |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
415 ;; |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
416 ;; The amount of information in the header can be changed by changing the |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
417 ;; number of lines. To show less, set `ps-header-lines' to 1, and the header |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
418 ;; will show only the buffer name and page number. To show more, set |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
419 ;; `ps-header-lines' to 3, and the header will show the time of printing below |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
420 ;; the date. |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
421 ;; |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
422 ;; To change the content of the headers, change the variables `ps-left-header' |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
423 ;; and `ps-right-header'. |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
424 ;; These variables are lists, specifying top-to-bottom the text to display on |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
425 ;; the left or right side of the header. Each element of the list should be a |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
426 ;; string or a symbol. Strings are inserted directly into the PostScript |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
427 ;; arrays, and should contain the PostScript string delimiters '(' and ')'. |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
428 ;; |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
429 ;; Symbols in the header format lists can either represent functions or |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
430 ;; variables. Functions are called, and should return a string to show in the |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
431 ;; header. Variables should contain strings to display in the header. In |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
432 ;; either case, function or variable, the PostScript string delimiters are |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
433 ;; added by ps-print, and should not be part of the returned value. |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
434 ;; |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
435 ;; 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
|
436 ;; |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
437 ;; Moe |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
438 ;; Larry |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
439 ;; Curly |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
440 ;; |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
441 ;; where we have a function to return "Moe" |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
442 ;; |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
443 ;; (defun moe-func () |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
444 ;; "Moe") |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
445 ;; |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
446 ;; a variable specifying "Larry" |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
447 ;; |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
448 ;; (setq larry-var "Larry") |
7257 | 449 ;; |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
450 ;; and a literal for "Curly". Here's how `ps-left-header' should be set: |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
451 ;; |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
452 ;; (setq ps-left-header (list 'moe-func 'larry-var "(Curly)")) |
7257 | 453 ;; |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
454 ;; Note that Curly has the PostScript string delimiters inside his quotes -- |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
455 ;; those aren't misplaced lisp delimiters! |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
456 ;; |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
457 ;; Without them, PostScript would attempt to call the undefined function Curly, |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
458 ;; which would result in a PostScript error. |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
459 ;; |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
460 ;; Since most printers don't report PostScript errors except by aborting the |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
461 ;; 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
|
462 ;; |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
463 ;; Consider yourself warned! |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
464 ;; |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
465 ;; ps-print also print footers. The footer variables are: `ps-print-footer', |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
466 ;; `ps-footer-offset', `ps-print-footer-frame', `ps-footer-font-family', |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
467 ;; `ps-footer-font-size', `ps-footer-line-pad', `ps-footer-lines', |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
468 ;; `ps-left-footer', `ps-right-footer' and `ps-footer-frame-alist'. These |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
469 ;; variables are similar to those one that control headers. |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
470 ;; |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
471 ;; The variables `ps-print-only-one-header' and `ps-switch-header' also control |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
472 ;; the footer (The same way that control header). |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
473 ;; |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
474 ;; As a footer example, if you want to have a centered page number in the |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
475 ;; footer but without headers, set: |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
476 ;; |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
477 ;; (setq ps-print-header nil |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
478 ;; ps-print-footer t |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
479 ;; ps-print-footer-frame nil |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
480 ;; ps-footer-lines 1 |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
481 ;; ps-right-footer nil |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
482 ;; ps-left-footer |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
483 ;; (list (concat "{pagenumberstring dup stringwidth pop" |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
484 ;; " 2 div PrintWidth 2 div exch sub 0 rmoveto}"))) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
485 ;; |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
486 ;; |
23550
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
487 ;; PostScript Prologue Header |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
488 ;; -------------------------- |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
489 ;; |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
490 ;; 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
|
491 ;; 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
|
492 ;; |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
493 ;; `ps-print-prologue-header' may be a string or a symbol function which |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
494 ;; returns a string. Note that this string is inserted on PostScript prologue |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
495 ;; header section which is used to define some document characteristic through |
23550
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
496 ;; 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
|
497 ;; |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
498 ;; 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
|
499 ;; |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
500 ;; ps-print always inserts the %%Requirements: comment, so if you need to |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
501 ;; insert more requirements put them first in `ps-print-prologue-header' using |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
502 ;; the "%%+" comment. For example, if you need to set numcopies to 3 and jog |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
503 ;; on requirements and set %%LanguageLevel: to 2, do: |
23550
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
504 ;; |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
505 ;; (setq ps-print-prologue-header |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
506 ;; "%%+ 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
|
507 ;; |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
508 ;; The duplex requirement is inserted by ps-print (see section Duplex |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
509 ;; Printers). |
23550
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
510 ;; |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
511 ;; 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
|
512 ;; |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
513 ;; 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
|
514 ;; 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
|
515 ;; Adobe Systems Incorporated |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
516 ;; 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
|
517 ;; |
28153
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
518 ;; It is also possible to add an user defined PostScript prologue code before |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
519 ;; all generated prologue code by setting the variable |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
520 ;; `ps-user-defined-prologue'. |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
521 ;; |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
522 ;; `ps-user-defined-prologue' may be a string or a symbol function which |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
523 ;; returns a string. Note that this string is inserted after `ps-adobe-tag' |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
524 ;; and PostScript prologue comments, and before ps-print PostScript prologue |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
525 ;; code section. That is, this string is inserted after error handler |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
526 ;; initialization and before ps-print settings. |
28153
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
527 ;; |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
528 ;; By default `ps-user-defined-prologue' is nil. |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
529 ;; |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
530 ;; It's strongly recommended only insert PostScript code and/or comments |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
531 ;; specific for your printing system particularities. For example, some |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
532 ;; special initialization that only your printing system needs. |
28153
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
533 ;; |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
534 ;; Do not insert code for duplex printing, n-up printing or error handler, |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
535 ;; ps-print handles this in a suitable way. |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
536 ;; |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
537 ;; For more information about PostScript, see: |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
538 ;; PostScript Language Reference Manual (2nd edition) |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
539 ;; Adobe Systems Incorporated |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
540 ;; |
31253
4c40c1171b8b
Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
30522
diff
changeset
|
541 ;; As an example for `ps-user-defined-prologue' setting: |
4c40c1171b8b
Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
30522
diff
changeset
|
542 ;; |
4c40c1171b8b
Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
30522
diff
changeset
|
543 ;; ;; Setting for HP PostScript printer |
4c40c1171b8b
Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
30522
diff
changeset
|
544 ;; (setq ps-user-defined-prologue |
4c40c1171b8b
Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
30522
diff
changeset
|
545 ;; (concat "<</DeferredMediaSelection true /PageSize [612 792] " |
4c40c1171b8b
Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
30522
diff
changeset
|
546 ;; "/MediaPosition 2 /MediaType (Plain)>> setpagedevice")) |
4c40c1171b8b
Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
30522
diff
changeset
|
547 ;; |
28153
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
548 ;; |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
549 ;; PostScript Error Handler |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
550 ;; ------------------------ |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
551 ;; |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
552 ;; ps-print instruments generated PostScript code with an error handler. |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
553 ;; |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
554 ;; The variable `ps-error-handler-message' specifies where the error handler |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
555 ;; message should be sent. |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
556 ;; |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
557 ;; Valid values are: |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
558 ;; |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
559 ;; none catch the error and *DON'T* send any message. |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
560 ;; |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
561 ;; paper catch the error and print on paper the error message. |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
562 ;; This is the default value. |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
563 ;; |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
564 ;; system catch the error and send back the error message to |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
565 ;; printing system. This is useful only if printing |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
566 ;; system send back an email reporting the error, or if |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
567 ;; there is some other alternative way to report back the |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
568 ;; error from the system to you. |
28153
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
569 ;; |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
570 ;; paper-and-system catch the error, print on paper the error message and |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
571 ;; send back the error message to printing system. |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
572 ;; |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
573 ;; Any other value is treated as `paper'. |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
574 ;; |
23550
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
575 ;; |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
576 ;; Duplex Printers |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
577 ;; --------------- |
7257 | 578 ;; |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
579 ;; 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
|
580 ;; paper), set `ps-spool-duplex' to t. |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
581 ;; 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
|
582 ;; correct side of the paper. |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
583 ;; |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
584 ;; The variable `ps-spool-config' specifies who is the responsible for setting |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
585 ;; duplex and page size. Valid values are: |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
586 ;; |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
587 ;; 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
|
588 ;; 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
|
589 ;; printing for your printer. |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
590 ;; |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
591 ;; 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
|
592 ;; setpagedevice PostScript operator. |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
593 ;; |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
594 ;; 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
|
595 ;; the setpagedevice PostScript operator. |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
596 ;; |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
597 ;; Any other value is treated as nil. |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
598 ;; |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
599 ;; The default value is `lpr-switches'. |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
600 ;; |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
601 ;; WARNING: The setpagedevice PostScript operator affects ghostview utility |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
602 ;; when viewing file generated using landscape. Also on some |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
603 ;; printers, setpagedevice affects zebra stripes; on other printers, |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
604 ;; setpagedevice affects the left margin. |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
605 ;; 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
|
606 ;; specified by setpagedevice, your printing will be aborted. |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
607 ;; 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
|
608 ;; `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
|
609 ;; 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
|
610 ;; |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
611 ;; 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
|
612 ;; sides of a sheet are oriented with respect to each other. If |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
613 ;; `ps-spool-tumble' is nil, produces output suitable for binding on the left |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
614 ;; or right. If `ps-spool-tumble' is non-nil, produces output suitable for |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
615 ;; binding at the top or bottom. It has effect only when `ps-spool-duplex' is |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
616 ;; non-nil. The default value is nil. |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
617 ;; |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
618 ;; Some printer system prints a header page and forces the first page be |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
619 ;; printed on header page back, when using duplex. If your printer system has |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
620 ;; this behavior, set variable `ps-banner-page-when-duplexing' to t. |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
621 ;; |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
622 ;; When `ps-banner-page-when-duplexing' is non-nil, it prints a blank page as |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
623 ;; the very first printed page. So, it behaves as the very first character of |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
624 ;; buffer (or region) is ^L (\014). |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
625 ;; |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
626 ;; The default for `ps-banner-page-when-duplexing' is nil (*don't* skip the |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
627 ;; very first page). |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
628 ;; |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
629 ;; |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
630 ;; N-up Printing |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
631 ;; ------------- |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
632 ;; |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
633 ;; 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
|
634 ;; 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
|
635 ;; |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
636 ;; NOTE: some PostScript printer may crash printing if `ps-n-up-printing' is |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
637 ;; set to a high value (for example, 23). If this happens, set a lower value. |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
638 ;; |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
639 ;; 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
|
640 ;; 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
|
641 ;; or 28.35 points). |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
642 ;; |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
643 ;; If variable `ps-n-up-border-p' is non-nil a border is drawn around each |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
644 ;; page. The default is t. |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
645 ;; |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
646 ;; 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
|
647 ;; 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
|
648 ;; filling example using a 3x4 page matrix: |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
649 ;; |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
650 ;; 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
|
651 ;; 5 6 7 8 5 6 7 8 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
652 ;; 9 10 11 12 1 2 3 4 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
653 ;; |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
654 ;; 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
|
655 ;; 8 7 6 5 8 7 6 5 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
656 ;; 12 11 10 9 4 3 2 1 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
657 ;; |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
658 ;; 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
|
659 ;; 2 5 8 11 2 5 8 11 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
660 ;; 3 6 9 12 1 4 7 10 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
661 ;; |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
662 ;; 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
|
663 ;; 11 8 5 2 11 8 5 2 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
664 ;; 12 9 6 3 10 7 4 1 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
665 ;; |
39327
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
666 ;; Any other value is treated as `left-top'. |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
667 ;; |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
668 ;; 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
|
669 ;; |
19879
87952270ceeb
(ps-emacs-face-kind-p): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
19843
diff
changeset
|
670 ;; |
20516
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
671 ;; Control And 8-bit Characters |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
672 ;; ---------------------------- |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
673 ;; |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
674 ;; 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
|
675 ;; 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
|
676 ;; 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
|
677 ;; |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
678 ;; 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
|
679 ;; |
23307 | 680 ;; 8-bit This is the value to use when you want an ASCII encoding of |
681 ;; any control or non-ASCII character. Control characters are | |
682 ;; 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
|
683 ;; octal encoding. |
73f9f4219198
Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents:
21801
diff
changeset
|
684 ;; |
23307 | 685 ;; 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
|
686 ;; 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
|
687 ;; 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
|
688 ;; the current font. |
73f9f4219198
Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents:
21801
diff
changeset
|
689 ;; |
23307 | 690 ;; 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
|
691 ;; 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
|
692 ;; the current font. |
73f9f4219198
Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents:
21801
diff
changeset
|
693 ;; |
23307 | 694 ;; 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
|
695 ;; current font. |
20516
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
696 ;; |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
697 ;; Any other value is treated as nil. |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
698 ;; |
21955
c4de7c7bc14a
(ps-header-title-font-size): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
21954
diff
changeset
|
699 ;; The default is `control-8-bit'. |
20516
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
700 ;; |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
701 ;; 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
|
702 ;; |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
703 ;; |
23551 | 704 ;; Printing Multi-byte Buffer |
705 ;; -------------------------- | |
706 ;; | |
23892
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
707 ;; See ps-mule.el for documentation. |
23091
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
708 ;; |
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
709 ;; |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
710 ;; Line Number |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
711 ;; ----------- |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
712 ;; |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
713 ;; 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
|
714 ;; 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
|
715 ;; |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
716 ;; The variable `ps-line-number-color' specifies the color for line number. |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
717 ;; See `ps-zebra-color' for documentation. The default is "black" (or 0.0, or |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
718 ;; '(0.0 0.0 0.0)). |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
719 ;; |
34045
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
720 ;; The variable `ps-line-number-font' specifies the font for line number. |
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
721 ;; The default is "Times-Italic". |
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
722 ;; |
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
723 ;; The variable `ps-line-number-font-size' specifies the font size in points |
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
724 ;; for line number. See `ps-font-size' for documentation. The default is 6. |
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
725 ;; |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
726 ;; The variable `ps-line-number-step' specifies the interval that line number |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
727 ;; is printed. For example, if `ps-line-number-step' is set to 2, the printing |
28760
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
728 ;; will look like: |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
729 ;; |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
730 ;; 1 one line |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
731 ;; one line |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
732 ;; 3 one line |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
733 ;; one line |
28979
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
734 ;; 5 one line |
28760
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
735 ;; one line |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
736 ;; ... |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
737 ;; |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
738 ;; Valid values are: |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
739 ;; |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
740 ;; integer an integer that specifies the interval that line number is |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
741 ;; printed. If it's lesser than or equal to zero, it's used the |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
742 ;; value 1. |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
743 ;; |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
744 ;; `zebra' specifies that only the line number of the first line in a |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
745 ;; zebra stripe is to be printed. |
28760
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
746 ;; |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
747 ;; Any other value is treated as `zebra'. |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
748 ;; The default value is 1, so each line number is printed. |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
749 ;; |
28979
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
750 ;; The variable `ps-line-number-start' specifies the starting point in the |
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
751 ;; interval given by `ps-line-number-step'. For example, if |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
752 ;; `ps-line-number-step' is set to 3 and `ps-line-number-start' is set to 3, |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
753 ;; the printing will look like: |
28979
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
754 ;; |
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
755 ;; one line |
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
756 ;; one line |
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
757 ;; 3 one line |
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
758 ;; one line |
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
759 ;; one line |
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
760 ;; 6 one line |
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
761 ;; one line |
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
762 ;; one line |
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
763 ;; 9 one line |
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
764 ;; one line |
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
765 ;; ... |
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
766 ;; |
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
767 ;; The values for `ps-line-number-start': |
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
768 ;; |
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
769 ;; * If `ps-line-number-step' is an integer, must be between 1 and the value |
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
770 ;; of `ps-line-number-step' inclusive. |
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
771 ;; |
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
772 ;; * If `ps-line-number-step' is set to `zebra', must be between 1 and the |
31253
4c40c1171b8b
Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
30522
diff
changeset
|
773 ;; value of `ps-zebra-stripe-height' inclusive. |
28979
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
774 ;; |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
775 ;; The default value is 1, so the line number of the first line of each |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
776 ;; interval is printed. |
28979
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
777 ;; |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
778 ;; |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
779 ;; Zebra Stripes |
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 ;; |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
782 ;; Zebra stripes are a kind of background that appear "underneath" the text and |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
783 ;; 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
|
784 ;; |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
785 ;; XXXXXXXXXXXXXXXXXXXXXXXX |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
786 ;; XXXXXXXXXXXXXXXXXXXXXXXX |
19485
eab8baa19dfa
(ps-zebra-stripes): Renamed from ps-zebra-stripe.
Richard M. Stallman <rms@gnu.org>
parents:
19446
diff
changeset
|
787 ;; XXXXXXXXXXXXXXXXXXXXXXXX |
eab8baa19dfa
(ps-zebra-stripes): Renamed from ps-zebra-stripe.
Richard M. Stallman <rms@gnu.org>
parents:
19446
diff
changeset
|
788 ;; |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
789 ;; |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
790 ;; |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
791 ;; XXXXXXXXXXXXXXXXXXXXXXXX |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
792 ;; XXXXXXXXXXXXXXXXXXXXXXXX |
19485
eab8baa19dfa
(ps-zebra-stripes): Renamed from ps-zebra-stripe.
Richard M. Stallman <rms@gnu.org>
parents:
19446
diff
changeset
|
793 ;; XXXXXXXXXXXXXXXXXXXXXXXX |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
794 ;; |
19879
87952270ceeb
(ps-emacs-face-kind-p): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
19843
diff
changeset
|
795 ;; 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
|
796 ;; 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
|
797 ;; |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
798 ;; The height, in lines, of each rectangle is controlled by the variable |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
799 ;; `ps-zebra-stripe-height', which is 3 by default. The distance between |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
800 ;; stripes equals the height of a stripe. |
20331 | 801 ;; |
19787
4ea00387fb08
(ps-setup): ps-zebra-stripe => ps-zebra-stripes.
Richard M. Stallman <rms@gnu.org>
parents:
19773
diff
changeset
|
802 ;; 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
|
803 ;; 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
|
804 ;; |
28426
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
805 ;; The variable `ps-zebra-color' controls the zebra stripes gray scale or RGB |
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
806 ;; color. It should be a float number between 0.0 (black color) and 1.0 (white |
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
807 ;; color), a string which is a color name, or a list of 3 numbers which |
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
808 ;; corresponds to the Red Green Blue color scale. |
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
809 ;; The default is 0.95 (or "gray95", or '(0.95 0.95 0.95)). |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
810 ;; |
36215
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
811 ;; The variable `ps-zebra-stripe-follow' specifies how zebra stripes continue |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
812 ;; on next page. Visually, valid values are (the character `+' at right of |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
813 ;; each column indicates that a line is printed): |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
814 ;; |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
815 ;; `nil' `follow' `full' `full-follow' |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
816 ;; Current Page -------- ----------- --------- ---------------- |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
817 ;; 1 XXXXX + 1 XXXXXXXX + 1 XXXXXX + 1 XXXXXXXXXXXXX + |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
818 ;; 2 XXXXX + 2 XXXXXXXX + 2 XXXXXX + 2 XXXXXXXXXXXXX + |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
819 ;; 3 XXXXX + 3 XXXXXXXX + 3 XXXXXX + 3 XXXXXXXXXXXXX + |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
820 ;; 4 + 4 + 4 + 4 + |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
821 ;; 5 + 5 + 5 + 5 + |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
822 ;; 6 + 6 + 6 + 6 + |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
823 ;; 7 XXXXX + 7 XXXXXXXX + 7 XXXXXX + 7 XXXXXXXXXXXXX + |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
824 ;; 8 XXXXX + 8 XXXXXXXX + 8 XXXXXX + 8 XXXXXXXXXXXXX + |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
825 ;; 9 XXXXX + 9 XXXXXXXX + 9 XXXXXX + 9 XXXXXXXXXXXXX + |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
826 ;; 10 + 10 + |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
827 ;; 11 + 11 + |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
828 ;; -------- ----------- --------- ---------------- |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
829 ;; Next Page -------- ----------- --------- ---------------- |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
830 ;; 12 XXXXX + 12 + 10 XXXXXX + 10 + |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
831 ;; 13 XXXXX + 13 XXXXXXXX + 11 XXXXXX + 11 + |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
832 ;; 14 XXXXX + 14 XXXXXXXX + 12 XXXXXX + 12 + |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
833 ;; 15 + 15 XXXXXXXX + 13 + 13 XXXXXXXXXXXXX + |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
834 ;; 16 + 16 + 14 + 14 XXXXXXXXXXXXX + |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
835 ;; 17 + 17 + 15 + 15 XXXXXXXXXXXXX + |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
836 ;; 18 XXXXX + 18 + 16 XXXXXX + 16 + |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
837 ;; 19 XXXXX + 19 XXXXXXXX + 17 XXXXXX + 17 + |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
838 ;; 20 XXXXX + 20 XXXXXXXX + 18 XXXXXX + 18 + |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
839 ;; 21 + 21 XXXXXXXX + |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
840 ;; 22 + 22 + |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
841 ;; -------- ----------- --------- ---------------- |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
842 ;; |
51007
c3f9aa88ed68
Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
50871
diff
changeset
|
843 ;; Any other value is treated as nil. |
29494
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
844 ;; |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
845 ;; 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
|
846 ;; |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
847 ;; |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
848 ;; Hooks |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
849 ;; ----- |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
850 ;; |
23550
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
851 ;; 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
|
852 ;; |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
853 ;; `ps-print-hook' |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
854 ;; 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
|
855 ;; place to initialize ps-print global data. |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
856 ;; 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
|
857 ;; |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
858 ;; `ps-print-begin-sheet-hook' |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
859 ;; 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
|
860 ;; 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
|
861 ;; evaluated. |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
862 ;; |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
863 ;; `ps-print-begin-page-hook' |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
864 ;; It is evaluated on each beginning of page, except in the beginning of |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
865 ;; 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
|
866 ;; |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
867 ;; `ps-print-begin-column-hook' |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
868 ;; It is evaluated on each beginning of column, except in the beginning of |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
869 ;; column that `ps-print-begin-page-hook' is evaluated or that |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
870 ;; `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
|
871 ;; |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
872 ;; |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
873 ;; Font Managing |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
874 ;; ------------- |
7257 | 875 ;; |
24414
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
876 ;; 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
|
877 ;; `ps-font-info-database' contains information for a list of font families |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
878 ;; (currently mainly `Courier' `Helvetica' `Times' `Palatino' |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
879 ;; `Helvetica-Narrow' `NewCenturySchlbk'). Each font family contains the font |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
880 ;; names for standard, bold, italic and bold-italic characters, a reference |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
881 ;; size (usually 10) and the corresponding line height, width of a space and |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
882 ;; average character width. |
24414
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
883 ;; |
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
884 ;; 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
|
885 ;; 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
|
886 ;; 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
|
887 ;; currently available font families. |
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
888 ;; |
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
889 ;; The variable `ps-font-size' determines the size (in points) of the font for |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
890 ;; ordinary text, when generating PostScript. Its value is a float or a cons |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
891 ;; of floats which has the following form: |
24414
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
892 ;; |
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
893 ;; (LANDSCAPE-SIZE . PORTRAIT-SIZE) |
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
894 ;; |
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
895 ;; 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
|
896 ;; 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
|
897 ;; |
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
898 ;; 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
|
899 ;; 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
|
900 ;; |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
901 ;; The variable `ps-header-title-font-size' determines the font size, in |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
902 ;; points, for the top line of text in the header (similar to `ps-font-size'). |
7257 | 903 ;; |
37135
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
904 ;; The variable `ps-line-spacing' determines the line spacing, in points, for |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
905 ;; ordinary text, when generating PostScript (similar to `ps-font-size'). The |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
906 ;; default value is 0 (zero = no line spacing). |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
907 ;; |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
908 ;; The variable `ps-paragraph-spacing' determines the paragraph spacing, in |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
909 ;; points, for ordinary text, when generating PostScript (similar to |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
910 ;; `ps-font-size'). The default value is 0 (zero = no paragraph spacing). |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
911 ;; |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
912 ;; To get all lines with some spacing set both `ps-line-spacing' and |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
913 ;; `ps-paragraph-spacing' variables. |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
914 ;; |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
915 ;; The variable `ps-paragraph-regexp' specifies the paragraph delimiter. It |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
916 ;; should be a regexp or nil. The default value is "[ \t]*$", that is, an |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
917 ;; empty line or a line containing only spaces and tabs. |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
918 ;; |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
919 ;; The variable `ps-begin-cut-regexp' and `ps-end-cut-regexp' specify the start |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
920 ;; and end of a region to cut out when printing. |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
921 ;; |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
922 ;; As an example, variables `ps-begin-cut-regexp' and `ps-end-cut-regexp' may |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
923 ;; be set to "^Local Variables:" and "^End:", respectively, in order to leave |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
924 ;; out some special printing instructions from the actual print. Special |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
925 ;; printing instructions may be appended to the end of the file just like any |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
926 ;; other buffer-local variables. See section "Local Variables in Files" on |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
927 ;; Emacs manual for more information. |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
928 ;; |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
929 ;; Variables `ps-begin-cut-regexp' and `ps-end-cut-regexp' control together |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
930 ;; what actually gets printed. Both variables may be set to nil in which case |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
931 ;; no cutting occurs. By default, both variables are set to nil. |
37135
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
932 ;; |
10738
e7d5b119b583
(ps-print-version): Add caveat about version number.
Richard M. Stallman <rms@gnu.org>
parents:
10683
diff
changeset
|
933 ;; |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
934 ;; 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
|
935 ;; ------------------------ |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
936 ;; |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
937 ;; To use a new font family, you MUST first teach ps-print this font, i.e., add |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
938 ;; its information to `ps-font-info-database', otherwise ps-print cannot |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
939 ;; correctly place line and page breaks. |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
940 ;; |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
941 ;; For example, assuming `Helvetica' is unknown, you first need to do the |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
942 ;; following ONLY ONCE: |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
943 ;; |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
944 ;; - 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
|
945 ;; - 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
|
946 ;; - open this file and find the line: |
29848
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
947 ;; `% 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
|
948 ;; - delete the leading `%' (which is the PostScript comment character) |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
949 ;; - replace in this line `Courier' by the new font (say `Helvetica') to get |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
950 ;; the line: |
29848
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
951 ;; `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
|
952 ;; - 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
|
953 ;; 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
|
954 ;; |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
955 ;; 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
|
956 ;; 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
|
957 ;; |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
958 ;; - 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
|
959 ;; (setq ps-font-info-database |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
960 ;; (append |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
961 ;; '((Helvetica ; the family key |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
962 ;; (fonts (normal . "Helvetica") |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
963 ;; (bold . "Helvetica-Bold") |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
964 ;; (italic . "Helvetica-Oblique") |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
965 ;; (bold-italic . "Helvetica-BoldOblique")) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
966 ;; (size . 10.0) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
967 ;; (line-height . 11.56) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
968 ;; (space-width . 2.78) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
969 ;; (avg-char-width . 5.09243))) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
970 ;; 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
|
971 ;; - 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
|
972 ;; (setq ps-font-family 'Helvetica) |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
973 ;; - if you want to use this family in another emacs session, you must put into |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
974 ;; your `~/.emacs': |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
975 ;; (require 'ps-print) |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
976 ;; (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
|
977 ;; 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
|
978 ;; (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
|
979 ;; 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
|
980 ;; (add-hook 'ps-print-hook |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
981 ;; '(lambda () |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
982 ;; (or (assq 'Helvetica ps-font-info-database) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
983 ;; (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
|
984 ;; |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
985 ;; 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
|
986 ;; (my-mixed-family |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
987 ;; (fonts (normal . "Courier-Bold") |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
988 ;; (bold . "Helvetica") |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
989 ;; (italic . "Zapf-Chancery-MediumItalic") |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
990 ;; (bold-italic . "NewCenturySchlbk-BoldItalic") |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
991 ;; (w3-table-hack-x-face . "LineDrawNormal")) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
992 ;; (size . 10.0) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
993 ;; (line-height . 10.55) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
994 ;; (space-width . 6.0) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
995 ;; (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
|
996 ;; |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
997 ;; 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
|
998 ;; (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
|
999 ;; |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1000 ;; Note that on above example the `w3-table-hack-x-face' entry refers to a face |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1001 ;; symbol, so when printing this face it'll be used the font `LineDrawNormal'. |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1002 ;; If the face `w3-table-hack-x-face' is remapped to use bold and/or italic |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1003 ;; attribute, the corresponding entry (bold, italic or bold-italic) will be |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1004 ;; used instead of `w3-table-hack-x-face' entry. |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1005 ;; |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1006 ;; 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
|
1007 ;; example could also be written: |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1008 ;; (my-mixed-family |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1009 ;; (size . 10.0) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1010 ;; (fonts (w3-table-hack-x-face . "LineDrawNormal") |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1011 ;; (bold . "Helvetica") |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1012 ;; (bold-italic . "NewCenturySchlbk-BoldItalic") |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1013 ;; (italic . "Zapf-Chancery-MediumItalic") |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1014 ;; (normal . "Courier-Bold")) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1015 ;; (avg-char-width . 6.0) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1016 ;; (space-width . 6.0) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1017 ;; (line-height . 10.55)) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1018 ;; |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1019 ;; 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
|
1020 ;; entry order be used. |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1021 ;; |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
1022 ;; 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
|
1023 ;; 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
|
1024 ;; % 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
|
1025 ;; |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
1026 ;; The PostScript file should be sent to YOUR PostScript printer. |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1027 ;; If you send it to ghostscript or to another PostScript printer, you may get |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1028 ;; slightly different results. |
31253
4c40c1171b8b
Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
30522
diff
changeset
|
1029 ;; Anyway, as ghostscript fonts are autoload, you won't get much font info. |
4c40c1171b8b
Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
30522
diff
changeset
|
1030 ;; |
4c40c1171b8b
Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
30522
diff
changeset
|
1031 ;; Note also that ps-print DOESN'T download any font to your printer, instead |
4c40c1171b8b
Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
30522
diff
changeset
|
1032 ;; it uses the fonts resident in your printer. |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
1033 ;; |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
1034 ;; |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
1035 ;; 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
|
1036 ;; ----------------------------- |
10738
e7d5b119b583
(ps-print-version): Add caveat about version number.
Richard M. Stallman <rms@gnu.org>
parents:
10683
diff
changeset
|
1037 ;; |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1038 ;; The ps-print-*-with-faces commands attempt to determine which faces should |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1039 ;; be printed in bold or italic, but their guesses aren't always right. For |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1040 ;; example, you might want to map colors into faces so that blue faces print in |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1041 ;; bold, and red faces in italic. |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1042 ;; |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1043 ;; It is possible to force ps-print to consider specific faces bold, italic or |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1044 ;; underline, no matter what font they are displayed in, by setting the |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1045 ;; variables `ps-bold-faces', `ps-italic-faces' and `ps-underlined-faces'. |
20516
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
1046 ;; 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
|
1047 ;; 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
|
1048 ;; .emacs file: |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
1049 ;; |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1050 ;; (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
|
1051 ;; (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
|
1052 ;; (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
|
1053 ;; |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1054 ;; Faces like bold-italic that are both bold and italic should go in *both* |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1055 ;; lists. |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1056 ;; |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1057 ;; ps-print keeps internal lists of which fonts are bold and which are italic; |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1058 ;; these lists are built the first time you invoke ps-print. |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1059 ;; For the sake of efficiency, the lists are built only once; the same lists |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1060 ;; are referred in later invocations of ps-print. |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1061 ;; |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1062 ;; Because these lists are built only once, it's possible for them to get out |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1063 ;; of sync, if a face changes, or if new faces are added. To get the lists |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1064 ;; back in sync, you can set the variable `ps-build-face-reference' to t, and |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1065 ;; the lists will be rebuilt the next time ps-print is invoked. If you need |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1066 ;; that the lists always be rebuilt when ps-print is invoked, set the variable |
20516
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
1067 ;; `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
|
1068 ;; |
28760
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
1069 ;; If you need to print without worrying about face background color, set the |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
1070 ;; variable `ps-use-face-background' which specifies if face background should |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
1071 ;; be used. Valid values are: |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
1072 ;; |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
1073 ;; t always use face background color. |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
1074 ;; nil never use face background color. |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
1075 ;; (face...) list of faces whose background color will be used. |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
1076 ;; |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
1077 ;; Any other value will be treated as t. |
50032
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
1078 ;; The default value is nil. |
28760
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
1079 ;; |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
1080 ;; |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
1081 ;; 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
|
1082 ;; ----------------------------- |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
1083 ;; |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1084 ;; ps-print detects faces with foreground and background colors defined and |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1085 ;; embeds color information in the PostScript image. |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1086 ;; The default foreground and background colors are defined by the variables |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1087 ;; `ps-default-fg' and `ps-default-bg'. |
39327
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
1088 ;; On black/white printers, colors are displayed in gray scale. |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
1089 ;; To turn off color output, set `ps-print-color-p' to nil. |
39327
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
1090 ;; You can also set `ps-print-color-p' to 'black-white to have a better looking |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
1091 ;; on black/white printers. See also `ps-black-white-faces' for documentation. |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
1092 ;; |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
1093 ;; |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1094 ;; How Ps-Print Maps Faces |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1095 ;; ----------------------- |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1096 ;; |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1097 ;; As ps-print uses PostScript to print buffers, it is possible to have other |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1098 ;; attributes associated with faces. So the new attributes used by ps-print |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1099 ;; are: |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1100 ;; |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1101 ;; 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
|
1102 ;; 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
|
1103 ;; shadow - text will have a shadow. |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1104 ;; 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
|
1105 ;; 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
|
1106 ;; |
19879
87952270ceeb
(ps-emacs-face-kind-p): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
19843
diff
changeset
|
1107 ;; 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
|
1108 ;; |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1109 ;; 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
|
1110 ;; color and bold attribute: |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1111 ;; |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
1112 ;; (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
|
1113 ;; |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1114 ;; If you want to use a new face, define it first with `defface', and then call |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1115 ;; `ps-extend-face' to specify how to print it. |
19446
15ecd855fec8
(ps-print-face-extension-alist): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
19445
diff
changeset
|
1116 ;; |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1117 ;; |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1118 ;; 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
|
1119 ;; -------------------------------------------------- |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1120 ;; |
23550
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
1121 ;; 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
|
1122 ;; 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
|
1123 ;; 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
|
1124 ;; |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1125 ;; 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
|
1126 ;; 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
|
1127 ;; |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1128 ;; 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
|
1129 ;; `ps-print-background-image'. |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1130 ;; |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1131 ;; 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
|
1132 ;; "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
|
1133 ;; |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1134 ;; (setq ps-print-background-text |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1135 ;; '(("preliminary") |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1136 ;; ("special" |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1137 ;; "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
|
1138 ;; ; (upper left corner) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1139 ;; nil nil nil |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1140 ;; "PrintHeight neg PrintPageWidth atan" ; angle |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1141 ;; 5 (11 . 17)) ; page list |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1142 ;; )) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1143 ;; |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1144 ;; 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
|
1145 ;; 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
|
1146 ;; specify: |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1147 ;; |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1148 ;; (setq ps-print-background-image |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1149 ;; '(("~/images/EPS-image1.ps" |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1150 ;; "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
|
1151 ;; ("~/images/EPS-image2.ps" |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1152 ;; "LeftMargin" "BottomMargin PrintHeight 2 div add" ; X and Y pos. |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1153 ;; ; (upper left corner) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1154 ;; nil nil nil |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1155 ;; 5 (11 . 17)) ; page list |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1156 ;; )) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1157 ;; |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1158 ;; 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
|
1159 ;; is ignored. |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1160 ;; |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1161 ;; The printing order is: |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1162 ;; |
28426
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
1163 ;; 1. Print background color |
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
1164 ;; 2. Print zebra stripes |
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
1165 ;; 3. Print background texts that it should be on all pages |
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
1166 ;; 4. Print background images that it should be on all pages |
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
1167 ;; 5. Print background texts only for current page (if any) |
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
1168 ;; 6. Print background images only for current page (if any) |
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
1169 ;; 7. Print header |
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
1170 ;; 8. Print buffer text (with faces, if specified) and line number |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1171 ;; |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1172 ;; |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
1173 ;; Utilities |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
1174 ;; --------- |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
1175 ;; |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
1176 ;; 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
|
1177 ;; |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
1178 ;; `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
|
1179 ;; |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1180 ;; To avoid wrapping too many lines, you may want to adjust the left and right |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1181 ;; margins and the font size. On UN*X systems, do: |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
1182 ;; 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
|
1183 ;; to determine the longest lines of your file. |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1184 ;; Then, the command `ps-line-lengths' will give you the correspondence between |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1185 ;; a line length (number of characters) and the maximum font size which doesn't |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1186 ;; wrap such a line with the current ps-print setup. |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1187 ;; |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1188 ;; The commands `ps-nb-pages-buffer' and `ps-nb-pages-region' display the |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1189 ;; correspondence between a number of pages and the maximum font size which |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1190 ;; allow the number of lines of the current buffer or of its current region to |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1191 ;; fit in this number of pages. |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
1192 ;; |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
1193 ;; 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
|
1194 ;; 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
|
1195 ;; |
27161
0a2452a20c74
ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
26883
diff
changeset
|
1196 ;; 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
|
1197 ;; ps-print options. |
0a2452a20c74
ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
26883
diff
changeset
|
1198 ;; |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
1199 ;; |
10738
e7d5b119b583
(ps-print-version): Add caveat about version number.
Richard M. Stallman <rms@gnu.org>
parents:
10683
diff
changeset
|
1200 ;; New since version 1.5 |
e7d5b119b583
(ps-print-version): Add caveat about version number.
Richard M. Stallman <rms@gnu.org>
parents:
10683
diff
changeset
|
1201 ;; --------------------- |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
1202 ;; |
10738
e7d5b119b583
(ps-print-version): Add caveat about version number.
Richard M. Stallman <rms@gnu.org>
parents:
10683
diff
changeset
|
1203 ;; Color output capability. |
e7d5b119b583
(ps-print-version): Add caveat about version number.
Richard M. Stallman <rms@gnu.org>
parents:
10683
diff
changeset
|
1204 ;; 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
|
1205 ;; 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
|
1206 ;; Slightly faster. |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
1207 ;; 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
|
1208 ;; 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
|
1209 ;; |
e7d5b119b583
(ps-print-version): Add caveat about version number.
Richard M. Stallman <rms@gnu.org>
parents:
10683
diff
changeset
|
1210 ;; |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
1211 ;; 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
|
1212 ;; --------------------- |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
1213 ;; |
50032
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
1214 ;; [vinicius] Vinicius Jose Latorre <viniciusjl@ig.com.br> |
29848
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
1215 ;; |
54233 | 1216 ;; 20040229 |
1217 ;; `ps-time-stamp-yyyy-mm-dd', `ps-time-stamp-iso8601' | |
1218 ;; | |
38302
baa7f44697de
Use locale dependant date to print date in header. Doc
Gerd Moellmann <gerd@gnu.org>
parents:
37967
diff
changeset
|
1219 ;; 20010619 |
baa7f44697de
Use locale dependant date to print date in header. Doc
Gerd Moellmann <gerd@gnu.org>
parents:
37967
diff
changeset
|
1220 ;; `ps-time-stamp-locale-default' |
baa7f44697de
Use locale dependant date to print date in header. Doc
Gerd Moellmann <gerd@gnu.org>
parents:
37967
diff
changeset
|
1221 ;; |
baa7f44697de
Use locale dependant date to print date in header. Doc
Gerd Moellmann <gerd@gnu.org>
parents:
37967
diff
changeset
|
1222 ;; 20010530 |
baa7f44697de
Use locale dependant date to print date in header. Doc
Gerd Moellmann <gerd@gnu.org>
parents:
37967
diff
changeset
|
1223 ;; Handle before-string and after-string overlay properties. |
baa7f44697de
Use locale dependant date to print date in header. Doc
Gerd Moellmann <gerd@gnu.org>
parents:
37967
diff
changeset
|
1224 ;; |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1225 ;; 20010407 |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1226 ;; `ps-line-number-color', `ps-print-footer', `ps-footer-offset', |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1227 ;; `ps-print-footer-frame', `ps-footer-font-family', |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1228 ;; `ps-footer-font-size', `ps-footer-line-pad', `ps-footer-lines', |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1229 ;; `ps-left-footer', `ps-right-footer', `ps-footer-frame-alist' and |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1230 ;; `ps-header-frame-alist'. |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1231 ;; |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1232 ;; 20010328 |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1233 ;; `ps-line-spacing', `ps-paragraph-spacing', `ps-paragraph-regexp', |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1234 ;; `ps-begin-cut-regexp' and `ps-end-cut-regexp'. |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1235 ;; |
34045
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
1236 ;; 20001122 |
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
1237 ;; `ps-line-number-font', `ps-line-number-font-size' and |
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
1238 ;; `ps-end-with-control-d'. |
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
1239 ;; |
31253
4c40c1171b8b
Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
30522
diff
changeset
|
1240 ;; 20000821 |
4c40c1171b8b
Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
30522
diff
changeset
|
1241 ;; `ps-even-or-odd-pages' |
4c40c1171b8b
Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
30522
diff
changeset
|
1242 ;; |
29848
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
1243 ;; 20000617 |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
1244 ;; `ps-manual-feed', `ps-warn-paper-type', `ps-print-upside-down', |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
1245 ;; `ps-selected-pages', `ps-last-selected-pages', |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
1246 ;; `ps-restore-selected-pages', `ps-switch-header', |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
1247 ;; `ps-line-number-step', `ps-line-number-start', |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
1248 ;; `ps-zebra-stripe-follow' and `ps-use-face-background'. |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
1249 ;; |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
1250 ;; 20000310 |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
1251 ;; PostScript error handler. |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
1252 ;; `ps-user-defined-prologue' and `ps-error-handler-message'. |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
1253 ;; |
30522
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
1254 ;; 19991211 |
29848
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
1255 ;; `ps-print-customize'. |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
1256 ;; |
30522
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
1257 ;; 19990703 |
29848
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
1258 ;; Better customization. |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
1259 ;; `ps-banner-page-when-duplexing' and `ps-zebra-color'. |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
1260 ;; |
30522
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
1261 ;; 19990513 |
29848
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
1262 ;; N-up printing. |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
1263 ;; Hook: `ps-print-begin-sheet-hook'. |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1264 ;; |
55919
b0b3fe523413
Fix typos (kein'ichi -> ken'ichi).
Kenichi Handa <handa@m17n.org>
parents:
55387
diff
changeset
|
1265 ;; [kenichi] 19990509 Ken'ichi Handa <handa@m17n.org> |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1266 ;; |
54233 | 1267 ;; `ps-print-region-function' |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1268 ;; |
50032
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
1269 ;; [vinicius] Vinicius Jose Latorre <viniciusjl@ig.com.br> |
29848
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
1270 ;; |
30522
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
1271 ;; 19990301 |
29848
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
1272 ;; PostScript tumble and setpagedevice. |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
1273 ;; |
30522
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
1274 ;; 19980922 |
29848
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
1275 ;; PostScript prologue header comment insertion. |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
1276 ;; Skip invisible text better. |
23550
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
1277 ;; |
55919
b0b3fe523413
Fix typos (kein'ichi -> ken'ichi).
Kenichi Handa <handa@m17n.org>
parents:
55387
diff
changeset
|
1278 ;; [kenichi] 19980819 Ken'ichi Handa <handa@m17n.org> |
23091
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
1279 ;; |
54233 | 1280 ;; Multi-byte buffer handling. |
23091
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
1281 ;; |
50032
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
1282 ;; [vinicius] Vinicius Jose Latorre <viniciusjl@ig.com.br> |
29848
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
1283 ;; |
30522
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
1284 ;; 19980306 |
29848
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
1285 ;; Skip invisible text. |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
1286 ;; |
30522
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
1287 ;; 19971130 |
29848
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
1288 ;; Hooks: `ps-print-hook', `ps-print-begin-page-hook' and |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
1289 ;; `ps-print-begin-column-hook'. |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
1290 ;; Put one header per page over the columns. |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
1291 ;; Better database font management. |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
1292 ;; Better control characters handling. |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
1293 ;; |
30522
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
1294 ;; 19971121 |
29848
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
1295 ;; Dynamic evaluation at print time of `ps-lpr-switches'. |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
1296 ;; Handle control characters. |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
1297 ;; Face remapping. |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
1298 ;; New face attributes. |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
1299 ;; Line number. |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
1300 ;; Zebra stripes. |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
1301 ;; 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
|
1302 ;; |
30522
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
1303 ;; [jack] 19960517 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
|
1304 ;; |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
1305 ;; 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
|
1306 ;; Landscape mode. |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
1307 ;; Multiple columns. |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
1308 ;; Tools for page setup. |
10738
e7d5b119b583
(ps-print-version): Add caveat about version number.
Richard M. Stallman <rms@gnu.org>
parents:
10683
diff
changeset
|
1309 ;; |
7257 | 1310 ;; |
23550
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
1311 ;; Known bugs and limitations of ps-print |
7257 | 1312 ;; -------------------------------------- |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
1313 ;; |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1314 ;; Although color printing will work in XEmacs 19.12, it doesn't work well; in |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1315 ;; particular, bold or italic fonts don't print in the right background color. |
11799
4a04c7799790
Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents:
10738
diff
changeset
|
1316 ;; |
4a04c7799790
Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents:
10738
diff
changeset
|
1317 ;; 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
|
1318 ;; |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1319 ;; Automatic font-attribute detection doesn't work well, especially with |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1320 ;; hilit19 and older versions of get-create-face. Users having problems with |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1321 ;; auto-font detection should use the lists `ps-italic-faces', `ps-bold-faces' |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1322 ;; and `ps-underlined-faces' and/or turn off automatic detection by setting |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1323 ;; `ps-auto-font-detect' to nil. |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1324 ;; |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1325 ;; Automatic font-attribute detection doesn't work with XEmacs 19.12 in tty |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1326 ;; mode; use the lists `ps-italic-faces', `ps-bold-faces' and |
20516
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
1327 ;; `ps-underlined-faces' instead. |
7257 | 1328 ;; |
10683 | 1329 ;; Still too slow; could use some hand-optimization. |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
1330 ;; |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
1331 ;; Default background color isn't working. |
7257 | 1332 ;; |
1333 ;; Faces are always treated as opaque. | |
1334 ;; | |
47674
330113e9df2b
(ps-print-emacs-type): Error if ps-print is
Richard M. Stallman <rms@gnu.org>
parents:
47426
diff
changeset
|
1335 ;; Epoch, Lucid and Emacs 19 not supported. At all. |
7257 | 1336 ;; |
19879
87952270ceeb
(ps-emacs-face-kind-p): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
19843
diff
changeset
|
1337 ;; Fixed-pitch fonts work better for line folding, but are not required. |
7257 | 1338 ;; |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1339 ;; `ps-nb-pages-buffer' and `ps-nb-pages-region' don't take care of folding |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1340 ;; lines. |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
1341 ;; |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
1342 ;; |
23550
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
1343 ;; 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
|
1344 ;; ---------------- |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
1345 ;; |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1346 ;; 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
|
1347 ;; 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
|
1348 ;; Improve the memory management for big files (hard?). |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1349 ;; `ps-nb-pages-buffer' and `ps-nb-pages-region' should take care of folding |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1350 ;; lines. |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
1351 ;; |
7257 | 1352 ;; |
37135
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
1353 ;; Acknowledgments |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
1354 ;; --------------- |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
1355 ;; |
56504
8d030ffc0866
Improve DSC compliance.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56127
diff
changeset
|
1356 ;; Thanks to Michael Piotrowski <mxp@dynalabs.de> for improving the DSC |
8d030ffc0866
Improve DSC compliance.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56127
diff
changeset
|
1357 ;; compliance of the generated PostScript. |
8d030ffc0866
Improve DSC compliance.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56127
diff
changeset
|
1358 ;; |
39327
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
1359 ;; Thanks to Adam Doppelt <adoppelt@avogadro.com> for face mapping suggestion |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
1360 ;; for black/white PostScript printers. |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
1361 ;; |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1362 ;; Thanks to Toni Ronkko <tronkko@hytti.uku.fi> for line and paragraph spacing, |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1363 ;; region to cut out when printing and footer suggestions. |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1364 ;; |
37135
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
1365 ;; Thanks to Pavel Janik ml <Pavel@Janik.cz> for documentation correction. |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1366 ;; |
34045
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
1367 ;; Thanks to Corinne Ilvedson <cilvedson@draper.com> for line number font size |
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
1368 ;; suggestion. |
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
1369 ;; |
31253
4c40c1171b8b
Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
30522
diff
changeset
|
1370 ;; Thanks to Gord Wait <Gord_Wait@spectrumsignal.com> for |
4c40c1171b8b
Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
30522
diff
changeset
|
1371 ;; `ps-user-defined-prologue' example setting for HP PostScript printer. |
4c40c1171b8b
Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
30522
diff
changeset
|
1372 ;; |
28979
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
1373 ;; Thanks to Paul Furnanz <pfurnanz@synopsys.com> for XEmacs compatibility |
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
1374 ;; suggestion for `ps-postscript-code-directory' variable. |
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
1375 ;; |
28760
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
1376 ;; Thanks to David X Callaway <dxc@xprt.net> for helping debugging PostScript |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
1377 ;; level 1 compatibility. |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
1378 ;; |
54233 | 1379 ;; Thanks to Colin Marquardt <colin.marquardt@usa.alcatel.com> for: |
1380 ;; - upside-down, line number step, line number start and zebra stripe | |
1381 ;; follow suggestions. | |
1382 ;; - `ps-time-stamp-yyyy-mm-dd' and `ps-time-stamp-iso8601' suggestion. | |
1383 ;; - and for XEmacs beta-tests. | |
28760
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
1384 ;; |
28153
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
1385 ;; Thanks to Klaus Berndl <klaus.berndl@sdm.de> for user defined PostScript |
36215
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
1386 ;; prologue code suggestion, for odd/even printing suggestion and for |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
1387 ;; `ps-prologue-file' enhancement. |
28153
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
1388 ;; |
55919
b0b3fe523413
Fix typos (kein'ichi -> ken'ichi).
Kenichi Handa <handa@m17n.org>
parents:
55387
diff
changeset
|
1389 ;; Thanks to Ken'ichi Handa <handa@m17n.org> for multi-byte buffer handling. |
23138
14e74d2a49cb
(ps-print-control-characters): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23091
diff
changeset
|
1390 ;; |
14e74d2a49cb
(ps-print-control-characters): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23091
diff
changeset
|
1391 ;; 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
|
1392 ;; empty columns. |
14e74d2a49cb
(ps-print-control-characters): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23091
diff
changeset
|
1393 ;; |
14e74d2a49cb
(ps-print-control-characters): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23091
diff
changeset
|
1394 ;; 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
|
1395 ;; last page. |
14e74d2a49cb
(ps-print-control-characters): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23091
diff
changeset
|
1396 ;; |
21954
73f9f4219198
Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents:
21801
diff
changeset
|
1397 ;; 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
|
1398 ;; `ps-print-control-characters' variable documentation. |
73f9f4219198
Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents:
21801
diff
changeset
|
1399 ;; |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1400 ;; 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
|
1401 ;; database font management. |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1402 ;; |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1403 ;; 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
|
1404 ;; 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
|
1405 ;; region. |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1406 ;; |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1407 ;; 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
|
1408 ;; print time of `ps-lpr-switches'. |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1409 ;; |
21954
73f9f4219198
Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents:
21801
diff
changeset
|
1410 ;; 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
|
1411 ;; (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
|
1412 ;; |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1413 ;; Thanks to some suggestions on: |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
1414 ;; * 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
|
1415 ;; * 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
|
1416 ;; * 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
|
1417 ;; |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1418 ;; Thanks to Jacques Duthen <duthen@cegelec-red.fr> (Jack) for version 3.4 I |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1419 ;; started from. [vinicius] |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1420 ;; |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1421 ;; Thanks to Jim Thompson <?@?> for the 2.8 version I started from. [jack] |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1422 ;; |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1423 ;; Thanks to Kevin Rodgers <kevinr@ihs.com> for adding support for color and |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1424 ;; the invisible property. |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1425 ;; |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1426 ;; Thanks to Avishai Yacobi, avishaiy@mcil.comm.mot.com, for writing the |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1427 ;; initial port to Emacs 19. His code is no longer part of ps-print, but his |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1428 ;; work is still appreciated. |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1429 ;; |
56504
8d030ffc0866
Improve DSC compliance.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56127
diff
changeset
|
1430 ;; Thanks to Remi Houdaille and Michel Train <michel@metasoft.fdn.org> for |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1431 ;; adding underline support. Their code also is no longer part of ps-print, |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1432 ;; but their efforts are not forgotten. |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1433 ;; |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1434 ;; Thanks also to all of you who mailed code to add features to ps-print; |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1435 ;; although I didn't use your code, I still appreciate your sharing it with me. |
7257 | 1436 ;; |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
1437 ;; Thanks to all who mailed comments, encouragement, and criticism. |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1438 ;; Thanks also to all who responded to my survey; I had too many responses to |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1439 ;; reply to them all, but I greatly appreciate your interest. |
7257 | 1440 ;; |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
1441 ;; Jim |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1442 ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
7257 | 1443 |
1444 ;;; Code: | |
1445 | |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1446 |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1447 (require 'lpr) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1448 |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1449 (or (featurep 'lisp-float-type) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1450 (error "`ps-print' requires floating point support")) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1451 |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1452 |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1453 (defvar ps-print-emacs-type |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1454 (let ((case-fold-search t)) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1455 (cond ((string-match "XEmacs" emacs-version) 'xemacs) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1456 ((string-match "Lucid" emacs-version) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1457 (error "`ps-print' doesn't support Lucid")) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1458 ((string-match "Epoch" emacs-version) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1459 (error "`ps-print' doesn't support Epoch")) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1460 (t |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1461 (unless (and (boundp 'emacs-major-version) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1462 (> emacs-major-version 19)) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1463 (error "`ps-print' only supports Emacs 20 and higher")) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1464 'emacs)))) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1465 |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1466 |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1467 ;; For Emacs 20.2 and the earlier version. |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1468 |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1469 (or (fboundp 'set-buffer-multibyte) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1470 (defun set-buffer-multibyte (arg) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1471 (setq enable-multibyte-characters arg))) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1472 |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1473 (or (fboundp 'string-as-unibyte) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1474 (defun string-as-unibyte (arg) arg)) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1475 |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1476 (or (fboundp 'string-as-multibyte) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1477 (defun string-as-multibyte (arg) arg)) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1478 |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1479 (or (fboundp 'char-charset) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1480 (defun char-charset (arg) 'ascii)) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1481 |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1482 (or (fboundp 'charset-after) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1483 (defun charset-after (&optional arg) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1484 (char-charset (char-after arg)))) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1485 |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1486 |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1487 ;; GNU Emacs |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1488 (or (fboundp 'line-beginning-position) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1489 (defun line-beginning-position (&optional n) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1490 (save-excursion |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1491 (and n (/= n 1) (forward-line (1- n))) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1492 (beginning-of-line) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1493 (point)))) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1494 |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1495 |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1496 ;; to avoid compilation gripes |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1497 |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1498 ;; XEmacs |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1499 (defalias 'ps-x-color-instance-p 'color-instance-p) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1500 (defalias 'ps-x-color-instance-rgb-components 'color-instance-rgb-components) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1501 (defalias 'ps-x-color-name 'color-name) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1502 (defalias 'ps-x-color-specifier-p 'color-specifier-p) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1503 (defalias 'ps-x-copy-coding-system 'copy-coding-system) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1504 (defalias 'ps-x-device-class 'device-class) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1505 (defalias 'ps-x-extent-end-position 'extent-end-position) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1506 (defalias 'ps-x-extent-face 'extent-face) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1507 (defalias 'ps-x-extent-priority 'extent-priority) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1508 (defalias 'ps-x-extent-start-position 'extent-start-position) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1509 (defalias 'ps-x-face-font-instance 'face-font-instance) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1510 (defalias 'ps-x-find-coding-system 'find-coding-system) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1511 (defalias 'ps-x-font-instance-properties 'font-instance-properties) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1512 (defalias 'ps-x-make-color-instance 'make-color-instance) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1513 (defalias 'ps-x-map-extents 'map-extents) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1514 |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1515 ;; GNU Emacs |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1516 (defalias 'ps-e-face-bold-p 'face-bold-p) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1517 (defalias 'ps-e-face-italic-p 'face-italic-p) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1518 (defalias 'ps-e-next-overlay-change 'next-overlay-change) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1519 (defalias 'ps-e-overlays-at 'overlays-at) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1520 (defalias 'ps-e-overlay-get 'overlay-get) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1521 (defalias 'ps-e-overlay-end 'overlay-end) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1522 (defalias 'ps-e-x-color-values 'x-color-values) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1523 (defalias 'ps-e-color-values 'color-values) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1524 (if (fboundp 'find-composition) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1525 (defalias 'ps-e-find-composition 'find-composition) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1526 (defalias 'ps-e-find-composition 'ignore)) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1527 |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1528 |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1529 (defconst ps-windows-system |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1530 (memq system-type '(emx win32 w32 mswindows ms-dos windows-nt))) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1531 (defconst ps-lp-system |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1532 (memq system-type '(usg-unix-v dgux hpux irix))) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1533 |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1534 |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1535 (defun ps-xemacs-color-name (color) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1536 (if (ps-x-color-specifier-p color) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1537 (ps-x-color-name color) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1538 color)) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1539 |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1540 |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1541 (cond ((featurep 'xemacs) ; xemacs |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1542 (defalias 'ps-mark-active-p 'region-active-p) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1543 (defun ps-face-foreground-name (face) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1544 (ps-xemacs-color-name (face-foreground face))) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1545 (defun ps-face-background-name (face) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1546 (ps-xemacs-color-name (face-background face))) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1547 ) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1548 (t ; emacs |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1549 (defvar mark-active nil) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1550 (defun ps-mark-active-p () |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1551 mark-active) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1552 (defalias 'ps-face-foreground-name 'face-foreground) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1553 (defalias 'ps-face-background-name 'face-background) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1554 )) |
28760
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
1555 |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
1556 |
7257 | 1557 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
1558 ;; User Variables: |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
1559 |
27161
0a2452a20c74
ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
26883
diff
changeset
|
1560 |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
1561 ;;; 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
|
1562 |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1563 (defgroup postscript nil |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1564 "PostScript Group" |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1565 :tag "PostScript" |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1566 :version "20" |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1567 :group 'emacs) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1568 |
17405
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1569 (defgroup ps-print nil |
32619
c09b494a5f49
Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents:
31253
diff
changeset
|
1570 "PostScript generator for Emacs" |
c09b494a5f49
Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents:
31253
diff
changeset
|
1571 :link '(emacs-library-link :tag "Source Lisp File" "ps-print.el") |
17405
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1572 :prefix "ps-" |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1573 :version "20" |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1574 :group 'wp |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1575 :group 'postscript) |
17405
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1576 |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1577 (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
|
1578 "Horizontal page layout" |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1579 :prefix "ps-" |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1580 :tag "Horizontal" |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1581 :version "20" |
17405
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1582 :group 'ps-print) |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1583 |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1584 (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
|
1585 "Vertical page layout" |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1586 :prefix "ps-" |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1587 :tag "Vertical" |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1588 :version "20" |
17405
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1589 :group 'ps-print) |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1590 |
28426
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
1591 (defgroup ps-print-headers nil |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1592 "Headers & footers layout" |
17405
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1593 :prefix "ps-" |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1594 :tag "Header & Footer" |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1595 :version "20" |
17405
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1596 :group 'ps-print) |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1597 |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1598 (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
|
1599 "Fonts customization" |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1600 :prefix "ps-" |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1601 :tag "Font" |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1602 :version "20" |
17405
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1603 :group 'ps-print) |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1604 |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1605 (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
|
1606 "Color customization" |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1607 :prefix "ps-" |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1608 :tag "Color" |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1609 :version "20" |
17405
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1610 :group 'ps-print) |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1611 |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1612 (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
|
1613 "Faces customization" |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1614 :prefix "ps-" |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1615 :tag "PS Faces" |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1616 :version "20" |
17405
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1617 :group 'ps-print |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1618 :group 'faces) |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1619 |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1620 (defgroup ps-print-n-up nil |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1621 "N-up customization" |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1622 :prefix "ps-" |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1623 :tag "N-Up" |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1624 :version "20" |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1625 :group 'ps-print) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1626 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1627 (defgroup ps-print-zebra nil |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1628 "Zebra customization" |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1629 :prefix "ps-" |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1630 :tag "Zebra" |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1631 :version "20" |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1632 :group 'ps-print) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1633 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1634 (defgroup ps-print-background nil |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1635 "Background customization" |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1636 :prefix "ps-" |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1637 :tag "Background" |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1638 :version "20" |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1639 :group 'ps-print) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1640 |
43526
72a6f9068758
2002-02-25 Per Abrahamsen <abraham@dina.kvl.dk>
Per Abrahamsen <abraham@dina.kvl.dk>
parents:
42452
diff
changeset
|
1641 (defgroup ps-print-printer '((lpr custom-group)) |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1642 "Printer customization" |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1643 :prefix "ps-" |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1644 :tag "Printer" |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1645 :version "20" |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1646 :group 'ps-print) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1647 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1648 (defgroup ps-print-page nil |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1649 "Page customization" |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1650 :prefix "ps-" |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1651 :tag "Page" |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1652 :version "20" |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1653 :group 'ps-print) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1654 |
28426
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
1655 (defgroup ps-print-miscellany nil |
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
1656 "Miscellany customization" |
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
1657 :prefix "ps-" |
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
1658 :tag "Miscellany" |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1659 :version "20" |
28426
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
1660 :group 'ps-print) |
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
1661 |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1662 |
28153
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
1663 (defcustom ps-error-handler-message 'paper |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
1664 "*Specify where the error handler message should be sent. |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
1665 |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
1666 Valid values are: |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
1667 |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
1668 `none' catch the error and *DON'T* send any message. |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
1669 |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
1670 `paper' catch the error and print on paper the error message. |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
1671 |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
1672 `system' catch the error and send back the error message to |
28426
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
1673 printing system. This is useful only if printing system |
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
1674 send back an email reporting the error, or if there is |
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
1675 some other alternative way to report back the error from |
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
1676 the system to you. |
28153
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
1677 |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
1678 `paper-and-system' catch the error, print on paper the error message and |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
1679 send back the error message to printing system. |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
1680 |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
1681 Any other value is treated as `paper'." |
29494
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
1682 :type '(choice :menu-tag "Error Handler Message" |
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
1683 :tag "Error Handler Message" |
28153
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
1684 (const none) (const paper) |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
1685 (const system) (const paper-and-system)) |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1686 :version "20" |
28426
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
1687 :group 'ps-print-miscellany) |
28153
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
1688 |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
1689 (defcustom ps-user-defined-prologue nil |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
1690 "*User defined PostScript prologue code inserted before all prologue code. |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
1691 |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
1692 `ps-user-defined-prologue' may be a string or a symbol function which returns a |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
1693 string. Note that this string is inserted after `ps-adobe-tag' and PostScript |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
1694 prologue comments, and before ps-print PostScript prologue code section. That |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
1695 is, this string is inserted after error handler initialization and before |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
1696 ps-print settings. |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
1697 |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
1698 It's strongly recommended only insert PostScript code and/or comments specific |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
1699 for your printing system particularities. For example, some special |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
1700 initialization that only your printing system needs. |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
1701 |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1702 Do not insert code for duplex printing, n-up printing or error handler, |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1703 ps-print handles this in a suitable way. |
28153
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
1704 |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
1705 For more information about PostScript, see: |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
1706 PostScript Language Reference Manual (2nd edition) |
31253
4c40c1171b8b
Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
30522
diff
changeset
|
1707 Adobe Systems Incorporated |
4c40c1171b8b
Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
30522
diff
changeset
|
1708 |
4c40c1171b8b
Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
30522
diff
changeset
|
1709 As an example for `ps-user-defined-prologue' setting: |
4c40c1171b8b
Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
30522
diff
changeset
|
1710 |
4c40c1171b8b
Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
30522
diff
changeset
|
1711 ;; Setting for HP PostScript printer |
4c40c1171b8b
Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
30522
diff
changeset
|
1712 (setq ps-user-defined-prologue |
4c40c1171b8b
Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
30522
diff
changeset
|
1713 (concat \"<</DeferredMediaSelection true /PageSize [612 792] \" |
47328 | 1714 \"/MediaPosition 2 /MediaType (Plain)>> setpagedevice\"))" |
29494
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
1715 :type '(choice :menu-tag "User Defined Prologue" |
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
1716 :tag "User Defined Prologue" |
28979
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
1717 (const :tag "none" nil) string symbol) |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1718 :version "20" |
28426
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
1719 :group 'ps-print-miscellany) |
28153
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
1720 |
23550
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
1721 (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
|
1722 "*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
|
1723 |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1724 `ps-print-prologue-header' may be a string or a symbol function which returns a |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1725 string. Note that this string is inserted on PostScript prologue header |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1726 section which is used to define some document characteristic through PostScript |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1727 special comments, like \"%%Requirements: jog\\n\". |
23550
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
1728 |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
1729 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
|
1730 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
|
1731 \"%%+\" 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
|
1732 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
|
1733 |
47328 | 1734 (setq ps-print-prologue-header |
50032
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
1735 \"%%+ numcopies(3) jog\\n%%LanguageLevel: 2\\n\") |
23550
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
1736 |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
1737 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
|
1738 |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
1739 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
|
1740 |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
1741 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
|
1742 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
|
1743 Adobe Systems Incorporated |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
1744 Appendix G: Document Structuring Conventions -- Version 3.0" |
29494
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
1745 :type '(choice :menu-tag "Prologue Header" |
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
1746 :tag "Prologue Header" |
28979
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
1747 (const :tag "none" nil) string symbol) |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1748 :version "20" |
28426
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
1749 :group 'ps-print-miscellany) |
23550
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
1750 |
23892
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
1751 (defcustom ps-printer-name (and (boundp 'printer-name) |
36215
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
1752 (symbol-value 'printer-name)) |
22680
3cf03f32956c
(ps-printer-name): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22596
diff
changeset
|
1753 "*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
|
1754 |
32619
c09b494a5f49
Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents:
31253
diff
changeset
|
1755 On Unix-like systems, a string value should be a name understood by lpr's -P |
c09b494a5f49
Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents:
31253
diff
changeset
|
1756 option; a value of nil means use the value of `printer-name' instead. |
c09b494a5f49
Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents:
31253
diff
changeset
|
1757 |
c09b494a5f49
Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents:
31253
diff
changeset
|
1758 On MS-DOS and MS-Windows systems, a string value is taken as the name of the |
c09b494a5f49
Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents:
31253
diff
changeset
|
1759 printer device or port to which PostScript files are written, provided |
c09b494a5f49
Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents:
31253
diff
changeset
|
1760 `ps-lpr-command' is \"\". By default it is the same as `printer-name'; typical |
c09b494a5f49
Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents:
31253
diff
changeset
|
1761 non-default settings would be \"LPT1\" to \"LPT3\" for parallel printers, or |
33337
75b72848ba05
Patch for variable initialization when spooling. Doc
Gerd Moellmann <gerd@gnu.org>
parents:
33143
diff
changeset
|
1762 \"COM1\" to \"COM4\" or \"AUX\" for serial printers, or \"\\\\hostname\\printer\" |
32619
c09b494a5f49
Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents:
31253
diff
changeset
|
1763 for a shared network printer. You can also set it to a name of a file, in |
c09b494a5f49
Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents:
31253
diff
changeset
|
1764 which case the output gets appended to that file. \(Note that `ps-print' |
c09b494a5f49
Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents:
31253
diff
changeset
|
1765 package already has facilities for printing to a file, so you might as well use |
c09b494a5f49
Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents:
31253
diff
changeset
|
1766 them instead of changing the setting of this variable.\) If you want to |
c09b494a5f49
Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents:
31253
diff
changeset
|
1767 silently discard the printed output, set this to \"NUL\". |
c09b494a5f49
Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents:
31253
diff
changeset
|
1768 |
c09b494a5f49
Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents:
31253
diff
changeset
|
1769 Set to t, if the utility given by `ps-lpr-command' needs an empty printer name. |
c09b494a5f49
Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents:
31253
diff
changeset
|
1770 |
c09b494a5f49
Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents:
31253
diff
changeset
|
1771 Any other value is treated as t, that is, an empty printer name. |
c09b494a5f49
Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents:
31253
diff
changeset
|
1772 |
c09b494a5f49
Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents:
31253
diff
changeset
|
1773 See also `ps-printer-name-option' for documentation." |
29494
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
1774 :type '(choice :menu-tag "Printer Name" |
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
1775 :tag "Printer Name" |
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
1776 (const :tag "Same as printer-name" nil) |
32619
c09b494a5f49
Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents:
31253
diff
changeset
|
1777 (const :tag "No Printer Name" t) |
28426
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
1778 (file :tag "Print to file") |
29494
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
1779 (string :tag "Pipe to ps-lpr-command")) |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1780 :version "20" |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1781 :group 'ps-print-printer) |
22680
3cf03f32956c
(ps-printer-name): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22596
diff
changeset
|
1782 |
32619
c09b494a5f49
Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents:
31253
diff
changeset
|
1783 (defcustom ps-printer-name-option |
c09b494a5f49
Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents:
31253
diff
changeset
|
1784 (cond (ps-windows-system |
c09b494a5f49
Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents:
31253
diff
changeset
|
1785 "/D:") |
c09b494a5f49
Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents:
31253
diff
changeset
|
1786 (ps-lp-system |
c09b494a5f49
Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents:
31253
diff
changeset
|
1787 "-d") |
c09b494a5f49
Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents:
31253
diff
changeset
|
1788 (t |
c09b494a5f49
Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents:
31253
diff
changeset
|
1789 "-P" )) |
c09b494a5f49
Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents:
31253
diff
changeset
|
1790 "*Option for `ps-printer-name' variable (see it). |
c09b494a5f49
Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents:
31253
diff
changeset
|
1791 |
47328 | 1792 On Unix-like systems, if `lpr' is in use, this should be the string |
1793 \"-P\"; if `lp' is in use, this should be the string \"-d\". | |
1794 | |
1795 On MS-DOS and MS-Windows systems, if `print' is in use, this should be | |
32619
c09b494a5f49
Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents:
31253
diff
changeset
|
1796 the string \"/D:\". |
c09b494a5f49
Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents:
31253
diff
changeset
|
1797 |
47328 | 1798 For any other printing utility, see its documentation. |
1799 | |
47382
12f18e82e5e2
(ps-printer-name-option): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
47328
diff
changeset
|
1800 Set this to \"\" or nil, if the utility given by `ps-lpr-command' |
12f18e82e5e2
(ps-printer-name-option): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
47328
diff
changeset
|
1801 needs an empty printer name option--that is, pass the printer name |
12f18e82e5e2
(ps-printer-name-option): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
47328
diff
changeset
|
1802 with no special option preceding it. |
12f18e82e5e2
(ps-printer-name-option): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
47328
diff
changeset
|
1803 |
12f18e82e5e2
(ps-printer-name-option): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
47328
diff
changeset
|
1804 Any value that is not a string is treated as nil. |
32619
c09b494a5f49
Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents:
31253
diff
changeset
|
1805 |
c09b494a5f49
Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents:
31253
diff
changeset
|
1806 This variable is used only when `ps-printer-name' is a non-empty string." |
c09b494a5f49
Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents:
31253
diff
changeset
|
1807 :type '(choice :menu-tag "Printer Name Option" |
c09b494a5f49
Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents:
31253
diff
changeset
|
1808 :tag "Printer Name Option" |
c09b494a5f49
Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents:
31253
diff
changeset
|
1809 (const :tag "None" nil) |
c09b494a5f49
Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents:
31253
diff
changeset
|
1810 (string :tag "Option")) |
37135
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
1811 :version "21.1" |
32619
c09b494a5f49
Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents:
31253
diff
changeset
|
1812 :group 'ps-print-printer) |
c09b494a5f49
Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents:
31253
diff
changeset
|
1813 |
17405
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1814 (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
|
1815 "*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
|
1816 |
32619
c09b494a5f49
Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents:
31253
diff
changeset
|
1817 On MS-DOS and MS-Windows systems, if the value is an empty string then Emacs |
c09b494a5f49
Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents:
31253
diff
changeset
|
1818 will write directly to the printer port named by `ps-printer-name'. The |
c09b494a5f49
Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents:
31253
diff
changeset
|
1819 programs `print' and `nprint' (the standard print programs on Windows NT and |
c09b494a5f49
Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents:
31253
diff
changeset
|
1820 Novell Netware respectively) are handled specially, using `ps-printer-name' as |
c09b494a5f49
Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents:
31253
diff
changeset
|
1821 the destination for output; any other program is treated like `lpr' except that |
c09b494a5f49
Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents:
31253
diff
changeset
|
1822 an explicit filename is given as the last argument." |
17405
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1823 :type 'string |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1824 :version "20" |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1825 :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
|
1826 |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1827 (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
|
1828 "*A list of extra switches to pass to `ps-lpr-command'." |
28576
1694ed739e69
Customization fix, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28426
diff
changeset
|
1829 :type '(repeat :tag "PostScript lpr Switches" |
34045
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
1830 (choice :menu-tag "PostScript lpr Switch" |
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
1831 :tag "PostScript lpr Switch" |
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
1832 string symbol (repeat sexp))) |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1833 :version "20" |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1834 :group 'ps-print-printer) |
7257 | 1835 |
24090
3a9da940e5f2
(ps-printer-name): Update docstring about usage on
Andrew Innes <andrewi@gnu.org>
parents:
23938
diff
changeset
|
1836 (defcustom ps-print-region-function nil |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1837 "*Specify a function to print the region on a PostScript printer. |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1838 See definition of `call-process-region' for calling conventions. The fourth |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1839 and the sixth arguments are both nil." |
35970
2357e03b072b
(ps-print-region-function): Fix :type.
Dave Love <fx@gnu.org>
parents:
34919
diff
changeset
|
1840 :type '(choice (const nil) function) |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1841 :version "20" |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1842 :group 'ps-print-printer) |
24090
3a9da940e5f2
(ps-printer-name): Update docstring about usage on
Andrew Innes <andrewi@gnu.org>
parents:
23938
diff
changeset
|
1843 |
29494
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
1844 (defcustom ps-manual-feed nil |
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
1845 "*Non-nil means the printer will manually feed paper. |
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
1846 |
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
1847 If it's nil, automatic feeding takes place." |
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
1848 :type 'boolean |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1849 :version "20" |
29494
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
1850 :group 'ps-print-printer) |
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
1851 |
34919
2c73a20c859c
Handle form feed better when ps-zebra-stripe-follow is
Gerd Moellmann <gerd@gnu.org>
parents:
34045
diff
changeset
|
1852 (defcustom ps-end-with-control-d (and ps-windows-system t) |
34045
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
1853 "*Non-nil means insert C-d at end of PostScript file generated." |
37135
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
1854 :version "21.1" |
34045
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
1855 :type 'boolean |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1856 :version "20" |
34045
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
1857 :group 'ps-print-printer) |
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
1858 |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
1859 ;;; Page layout |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
1860 |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
1861 ;; 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
|
1862 ;; 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
|
1863 ;; 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
|
1864 |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
1865 ;; 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
|
1866 ;; 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
|
1867 ;; 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
|
1868 |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
1869 ;; 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
|
1870 ;; 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
|
1871 ;; 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
|
1872 ;; 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
|
1873 ;; 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
|
1874 ;; 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
|
1875 ;; 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
|
1876 ;; 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
|
1877 ;; 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
|
1878 |
47382
12f18e82e5e2
(ps-printer-name-option): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
47328
diff
changeset
|
1879 ;;;###autoload |
17405
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1880 (defcustom ps-page-dimensions-database |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1881 (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
|
1882 (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
|
1883 (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
|
1884 (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
|
1885 (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
|
1886 (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
|
1887 (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
|
1888 (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
|
1889 (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
|
1890 (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
|
1891 (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
|
1892 (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
|
1893 "*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
|
1894 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
|
1895 :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
|
1896 (symbol :tag "Name") |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1897 (number :tag "Width") |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1898 (number :tag "Height") |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1899 (string :tag "Media"))) |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1900 :version "20" |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1901 :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
|
1902 |
20516
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
1903 ;;;###autoload |
17405
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1904 (defcustom ps-paper-type 'letter |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1905 "*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
|
1906 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
|
1907 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
|
1908 :type '(symbol :validate (lambda (wid) |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1909 (if (assq (widget-value wid) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1910 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
|
1911 nil |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
1912 (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
|
1913 wid))) |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1914 :version "20" |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1915 :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
|
1916 |
29494
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
1917 (defcustom ps-warn-paper-type t |
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
1918 "*Non-nil means give an error if paper size is not equal to `ps-paper-type'. |
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
1919 |
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
1920 It's used when `ps-spool-config' is set to `setpagedevice'." |
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
1921 :type 'boolean |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1922 :version "20" |
29494
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
1923 :group 'ps-print-page) |
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
1924 |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
1925 (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
|
1926 "*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
|
1927 :type 'boolean |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1928 :version "20" |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
1929 :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
|
1930 |
28760
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
1931 (defcustom ps-print-upside-down nil |
47328 | 1932 "*Non-nil means print upside-down (that is, rotated by 180 degrees)." |
28760
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
1933 :type 'boolean |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
1934 :version "21.1" |
28760
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
1935 :group 'ps-print-page) |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
1936 |
29848
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
1937 (defcustom ps-selected-pages nil |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
1938 "*Specify which pages to print. |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
1939 |
47328 | 1940 If nil, print all pages. |
1941 | |
1942 If a list, the lists element may be an integer or a cons cell (FROM . TO) | |
29848
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
1943 designating FROM page to TO page; any invalid element is ignored, that is, an |
50032
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
1944 integer lesser than one or if FROM is greater than TO. |
29848
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
1945 |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
1946 Otherwise, it's treated as nil. |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
1947 |
47328 | 1948 After ps-print processing `ps-selected-pages' is set to nil. But the |
1949 latest `ps-selected-pages' is saved in `ps-last-selected-pages' (which | |
1950 see). So you can restore the latest selected pages by using | |
1951 `ps-last-selected-pages' or with the `ps-restore-selected-pages' | |
1952 command (which see). | |
33090
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
1953 |
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
1954 See also `ps-even-or-odd-pages'." |
29848
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
1955 :type '(repeat :tag "Selected Pages" |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
1956 (radio :tag "Page" |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
1957 (integer :tag "Number") |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
1958 (cons :tag "Range" |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
1959 (integer :tag "From") |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
1960 (integer :tag "To")))) |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
1961 :version "20" |
29848
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
1962 :group 'ps-print-page) |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
1963 |
31253
4c40c1171b8b
Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
30522
diff
changeset
|
1964 (defcustom ps-even-or-odd-pages nil |
4c40c1171b8b
Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
30522
diff
changeset
|
1965 "*Specify if it prints even/odd pages. |
4c40c1171b8b
Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
30522
diff
changeset
|
1966 |
4c40c1171b8b
Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
30522
diff
changeset
|
1967 Valid values are: |
4c40c1171b8b
Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
30522
diff
changeset
|
1968 |
4c40c1171b8b
Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
30522
diff
changeset
|
1969 nil print all pages. |
4c40c1171b8b
Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
30522
diff
changeset
|
1970 |
33143
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
1971 `even-page' print only even pages. |
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
1972 |
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
1973 `odd-page' print only odd pages. |
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
1974 |
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
1975 `even-sheet' print only even sheets. |
34919
2c73a20c859c
Handle form feed better when ps-zebra-stripe-follow is
Gerd Moellmann <gerd@gnu.org>
parents:
34045
diff
changeset
|
1976 That is, if `ps-n-up-printing' is 1, it behaves as `even-page'; |
2c73a20c859c
Handle form feed better when ps-zebra-stripe-follow is
Gerd Moellmann <gerd@gnu.org>
parents:
34045
diff
changeset
|
1977 but for values greater than 1, it'll print only the even sheet |
2c73a20c859c
Handle form feed better when ps-zebra-stripe-follow is
Gerd Moellmann <gerd@gnu.org>
parents:
34045
diff
changeset
|
1978 of paper. |
33143
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
1979 |
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
1980 `odd-sheet' print only odd sheets. |
34919
2c73a20c859c
Handle form feed better when ps-zebra-stripe-follow is
Gerd Moellmann <gerd@gnu.org>
parents:
34045
diff
changeset
|
1981 That is, if `ps-n-up-printing' is 1, it behaves as `odd-page'; |
2c73a20c859c
Handle form feed better when ps-zebra-stripe-follow is
Gerd Moellmann <gerd@gnu.org>
parents:
34045
diff
changeset
|
1982 but for values greater than 1, it'll print only the odd sheet |
2c73a20c859c
Handle form feed better when ps-zebra-stripe-follow is
Gerd Moellmann <gerd@gnu.org>
parents:
34045
diff
changeset
|
1983 of paper. |
31253
4c40c1171b8b
Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
30522
diff
changeset
|
1984 |
33090
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
1985 Any other value is treated as nil. |
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
1986 |
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
1987 If you set `ps-selected-pages' (see it for documentation), first the pages are |
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
1988 filtered by `ps-selected-pages' and then by `ps-even-or-odd-pages'. For |
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
1989 example, if we have: |
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
1990 |
33143
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
1991 (setq ps-selected-pages '(1 4 (6 . 10) (12 . 16) 20)) |
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
1992 |
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
1993 Combining with `ps-even-or-odd-pages' and `ps-n-up-printing', we have: |
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
1994 |
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
1995 `ps-n-up-printing' = 1: |
33090
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
1996 `ps-even-or-odd-pages' PAGES PRINTED |
33143
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
1997 nil 1, 4, 6, 7, 8, 9, 10, 12, 13, 14, 15, 16, 20 |
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
1998 even-page 4, 6, 8, 10, 12, 14, 16, 20 |
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
1999 odd-page 1, 7, 9, 13, 15 |
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
2000 even-sheet 4, 6, 8, 10, 12, 14, 16, 20 |
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
2001 odd-sheet 1, 7, 9, 13, 15 |
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
2002 |
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
2003 `ps-n-up-printing' = 2: |
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
2004 `ps-even-or-odd-pages' PAGES PRINTED |
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
2005 nil 1/4, 6/7, 8/9, 10/12, 13/14, 15/16, 20 |
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
2006 even-page 4/6, 8/10, 12/14, 16/20 |
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
2007 odd-page 1/7, 9/13, 15 |
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
2008 even-sheet 6/7, 10/12, 15/16 |
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
2009 odd-sheet 1/4, 8/9, 13/14, 20 |
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
2010 |
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
2011 So even-page/odd-page are about page parity and even-sheet/odd-sheet are about |
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
2012 sheet parity." |
31253
4c40c1171b8b
Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
30522
diff
changeset
|
2013 :type '(choice :menu-tag "Print Even/Odd Pages" |
4c40c1171b8b
Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
30522
diff
changeset
|
2014 :tag "Print Even/Odd Pages" |
4c40c1171b8b
Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
30522
diff
changeset
|
2015 (const :tag "All Pages" nil) |
33143
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
2016 (const :tag "Only Even Pages" even-page) |
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
2017 (const :tag "Only Odd Pages" odd-page) |
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
2018 (const :tag "Only Even Sheets" even-sheet) |
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
2019 (const :tag "Only Odd Sheets" odd-sheet)) |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
2020 :version "20" |
31253
4c40c1171b8b
Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
30522
diff
changeset
|
2021 :group 'ps-print-page) |
4c40c1171b8b
Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
30522
diff
changeset
|
2022 |
20516
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
2023 (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
|
2024 "*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
|
2025 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
|
2026 it is sent the string \"^D\". |
21954
73f9f4219198
Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents:
21801
diff
changeset
|
2027 |
20516
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
2028 Valid values are: |
21954
73f9f4219198
Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents:
21801
diff
changeset
|
2029 |
22093
5818374d88e7
(ps-file-end): Put Trailer and Pages before EndDoc.
Richard M. Stallman <rms@gnu.org>
parents:
21999
diff
changeset
|
2030 `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
|
2031 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
|
2032 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
|
2033 octal encoding. |
21954
73f9f4219198
Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents:
21801
diff
changeset
|
2034 |
22093
5818374d88e7
(ps-file-end): Put Trailer and Pages before EndDoc.
Richard M. Stallman <rms@gnu.org>
parents:
21999
diff
changeset
|
2035 `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
|
2036 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
|
2037 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
|
2038 the current font. |
21954
73f9f4219198
Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents:
21801
diff
changeset
|
2039 |
23307 | 2040 `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
|
2041 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
|
2042 the current font. |
21954
73f9f4219198
Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents:
21801
diff
changeset
|
2043 |
22093
5818374d88e7
(ps-file-end): Put Trailer and Pages before EndDoc.
Richard M. Stallman <rms@gnu.org>
parents:
21999
diff
changeset
|
2044 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
|
2045 current font. |
21954
73f9f4219198
Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents:
21801
diff
changeset
|
2046 |
20516
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
2047 Any other value is treated as nil." |
29494
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
2048 :type '(choice :menu-tag "Control Char" |
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
2049 :tag "Control Char" |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2050 (const 8-bit) (const control-8-bit) |
28576
1694ed739e69
Customization fix, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28426
diff
changeset
|
2051 (const control) (const :tag "nil" nil)) |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
2052 :version "20" |
28426
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
2053 :group 'ps-print-miscellany) |
20516
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
2054 |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2055 (defcustom ps-n-up-printing 1 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2056 "*Specify the number of pages per sheet paper." |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2057 :type '(integer |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2058 :tag "N Up Printing" |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2059 :validate |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2060 (lambda (wid) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2061 (if (and (< 0 (widget-value wid)) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2062 (<= (widget-value wid) 100)) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2063 nil |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2064 (widget-put |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2065 wid :error |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2066 "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
|
2067 wid))) |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
2068 :version "20" |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2069 :group 'ps-print-n-up) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2070 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2071 (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
|
2072 "*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
|
2073 :type 'number |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
2074 :version "20" |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2075 :group 'ps-print-n-up) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2076 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2077 (defcustom ps-n-up-border-p t |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2078 "*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
|
2079 :type 'boolean |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
2080 :version "20" |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2081 :group 'ps-print-n-up) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2082 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2083 (defcustom ps-n-up-filling 'left-top |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2084 "*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
|
2085 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2086 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
|
2087 using a 3x4 page matrix: |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2088 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2089 `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
|
2090 5 6 7 8 5 6 7 8 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2091 9 10 11 12 1 2 3 4 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2092 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2093 `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
|
2094 8 7 6 5 8 7 6 5 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2095 12 11 10 9 4 3 2 1 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2096 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2097 `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
|
2098 2 5 8 11 2 5 8 11 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2099 3 6 9 12 1 4 7 10 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2100 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2101 `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
|
2102 11 8 5 2 11 8 5 2 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2103 12 9 6 3 10 7 4 1 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2104 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2105 Any other value is treated as `left-top'." |
29494
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
2106 :type '(choice :menu-tag "N-Up Filling" |
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
2107 :tag "N-Up Filling" |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2108 (const left-top) (const left-bottom) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2109 (const right-top) (const right-bottom) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2110 (const top-left) (const bottom-left) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2111 (const top-right) (const bottom-right)) |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
2112 :version "20" |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2113 :group 'ps-print-n-up) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2114 |
17405
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
2115 (defcustom ps-number-of-columns (if ps-landscape-mode 2 1) |
47328 | 2116 "*Specify the number of columns." |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2117 :type 'number |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
2118 :version "20" |
28426
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
2119 :group 'ps-print-miscellany) |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2120 |
19485
eab8baa19dfa
(ps-zebra-stripes): Renamed from ps-zebra-stripe.
Richard M. Stallman <rms@gnu.org>
parents:
19446
diff
changeset
|
2121 (defcustom ps-zebra-stripes nil |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2122 "*Non-nil means print zebra stripes. |
28426
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
2123 See also documentation for `ps-zebra-stripe-height' and `ps-zebra-color'." |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2124 :type 'boolean |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
2125 :version "20" |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2126 :group 'ps-print-zebra) |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2127 |
19485
eab8baa19dfa
(ps-zebra-stripes): Renamed from ps-zebra-stripe.
Richard M. Stallman <rms@gnu.org>
parents:
19446
diff
changeset
|
2128 (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
|
2129 "*Number of zebra stripe lines. |
28426
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
2130 See also documentation for `ps-zebra-stripes' and `ps-zebra-color'." |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2131 :type 'number |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
2132 :version "20" |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2133 :group 'ps-print-zebra) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2134 |
28426
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
2135 (defcustom ps-zebra-color 0.95 |
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
2136 "*Zebra stripe gray scale or RGB color. |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2137 See also documentation for `ps-zebra-stripes' and `ps-zebra-stripe-height'." |
29494
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
2138 :type '(choice :menu-tag "Zebra Gray/Color" |
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
2139 :tag "Zebra Gray/Color" |
28426
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
2140 (number :tag "Gray Scale" :value 0.95) |
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
2141 (string :tag "Color Name" :value "gray95") |
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
2142 (list :tag "RGB Color" :value (0.95 0.95 0.95) |
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
2143 (number :tag "Red") |
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
2144 (number :tag "Green") |
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
2145 (number :tag "Blue"))) |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
2146 :version "20" |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2147 :group 'ps-print-zebra) |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2148 |
29494
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
2149 (defcustom ps-zebra-stripe-follow nil |
36215
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
2150 "*Specify how zebra stripes continue on next page. |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
2151 |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
2152 Visually, valid values are (the character `+' at right of each column indicates |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
2153 that a line is printed): |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
2154 |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
2155 `nil' `follow' `full' `full-follow' |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
2156 Current Page -------- ----------- --------- ---------------- |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
2157 1 XXXXX + 1 XXXXXXXX + 1 XXXXXX + 1 XXXXXXXXXXXXX + |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
2158 2 XXXXX + 2 XXXXXXXX + 2 XXXXXX + 2 XXXXXXXXXXXXX + |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
2159 3 XXXXX + 3 XXXXXXXX + 3 XXXXXX + 3 XXXXXXXXXXXXX + |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
2160 4 + 4 + 4 + 4 + |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
2161 5 + 5 + 5 + 5 + |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
2162 6 + 6 + 6 + 6 + |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
2163 7 XXXXX + 7 XXXXXXXX + 7 XXXXXX + 7 XXXXXXXXXXXXX + |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
2164 8 XXXXX + 8 XXXXXXXX + 8 XXXXXX + 8 XXXXXXXXXXXXX + |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
2165 9 XXXXX + 9 XXXXXXXX + 9 XXXXXX + 9 XXXXXXXXXXXXX + |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
2166 10 + 10 + |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
2167 11 + 11 + |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
2168 -------- ----------- --------- ---------------- |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
2169 Next Page -------- ----------- --------- ---------------- |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
2170 12 XXXXX + 12 + 10 XXXXXX + 10 + |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
2171 13 XXXXX + 13 XXXXXXXX + 11 XXXXXX + 11 + |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
2172 14 XXXXX + 14 XXXXXXXX + 12 XXXXXX + 12 + |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
2173 15 + 15 XXXXXXXX + 13 + 13 XXXXXXXXXXXXX + |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
2174 16 + 16 + 14 + 14 XXXXXXXXXXXXX + |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
2175 17 + 17 + 15 + 15 XXXXXXXXXXXXX + |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
2176 18 XXXXX + 18 + 16 XXXXXX + 16 + |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
2177 19 XXXXX + 19 XXXXXXXX + 17 XXXXXX + 17 + |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
2178 20 XXXXX + 20 XXXXXXXX + 18 XXXXXX + 18 + |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
2179 21 + 21 XXXXXXXX + |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
2180 22 + 22 + |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
2181 -------- ----------- --------- ---------------- |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
2182 |
50871
ff9f693543fd
(ps-zebra-stripe-follow): Don't quote nil and t in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents:
50032
diff
changeset
|
2183 Any other value is treated as nil." |
36215
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
2184 :type '(choice :menu-tag "Zebra Stripe Follow" |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
2185 :tag "Zebra Stripe Follow" |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
2186 (const :tag "Always Restart" nil) |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
2187 (const :tag "Continue on Next Page" follow) |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
2188 (const :tag "Print Only Full Stripe" full) |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
2189 (const :tag "Continue on Full Stripe" full-follow)) |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
2190 :version "20" |
29494
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
2191 :group 'ps-print-zebra) |
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
2192 |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2193 (defcustom ps-line-number nil |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2194 "*Non-nil means print line number." |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2195 :type 'boolean |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
2196 :version "20" |
28426
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
2197 :group 'ps-print-miscellany) |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2198 |
28760
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
2199 (defcustom ps-line-number-step 1 |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
2200 "*Specify the interval that line number is printed. |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
2201 |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
2202 For example, `ps-line-number-step' is set to 2, the printing will look like: |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
2203 |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
2204 1 one line |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
2205 one line |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
2206 3 one line |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
2207 one line |
28979
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
2208 5 one line |
28760
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
2209 one line |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
2210 ... |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
2211 |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
2212 Valid values are: |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
2213 |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
2214 integer an integer that specifies the interval that line number is |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
2215 printed. If it's lesser than or equal to zero, it's used the |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
2216 value 1. |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
2217 |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2218 `zebra' specifies that only the line number of the first line in a |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2219 zebra stripe is to be printed. |
28760
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
2220 |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
2221 Any other value is treated as `zebra'." |
29494
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
2222 :type '(choice :menu-tag "Line Number Step" |
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
2223 :tag "Line Number Step" |
28760
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
2224 (integer :tag "Step Interval") |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
2225 (const :tag "Synchronize Zebra" zebra)) |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
2226 :version "20" |
28760
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
2227 :group 'ps-print-miscellany) |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
2228 |
28979
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
2229 (defcustom ps-line-number-start 1 |
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
2230 "*Specify the starting point in the interval given by `ps-line-number-step'. |
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
2231 |
32619
c09b494a5f49
Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents:
31253
diff
changeset
|
2232 For example, if `ps-line-number-step' is set to 3 and `ps-line-number-start' is |
c09b494a5f49
Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents:
31253
diff
changeset
|
2233 set to 3, the printing will look like: |
28979
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
2234 |
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
2235 one line |
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
2236 one line |
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
2237 3 one line |
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
2238 one line |
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
2239 one line |
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
2240 6 one line |
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
2241 one line |
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
2242 one line |
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
2243 9 one line |
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
2244 one line |
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
2245 ... |
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
2246 |
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
2247 The values for `ps-line-number-start': |
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
2248 |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2249 * If `ps-line-number-step' is an integer, must be between 1 and the value of |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2250 `ps-line-number-step' inclusive. |
28979
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
2251 |
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
2252 * If `ps-line-number-step' is set to `zebra', must be between 1 and the |
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
2253 value of `ps-zebra-strip-height' inclusive. Use this combination if you |
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
2254 wish that line number be relative to zebra stripes." |
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
2255 :type '(integer :tag "Start Step Interval") |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
2256 :version "20" |
28979
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
2257 :group 'ps-print-miscellany) |
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
2258 |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2259 (defcustom ps-print-background-image nil |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2260 "*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
|
2261 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2262 The elements are: |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2263 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2264 (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
|
2265 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2266 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
|
2267 programming like EPS. |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2268 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
|
2269 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2270 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
|
2271 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
|
2272 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2273 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
|
2274 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
|
2275 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2276 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
|
2277 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2278 PAGES designates the page to print background image. |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2279 PAGES may be a number or a cons cell (FROM . TO) designating FROM page to TO |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2280 page. |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2281 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
|
2282 |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2283 X, Y, XSCALE, YSCALE and ROTATION may be a floating point number, an integer |
47328 | 2284 number or a string. If it is a string, the string should contain PostScript |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2285 programming that returns a float or integer value. |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2286 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2287 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
|
2288 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2289 '((\"~/images/EPS-image.ps\"))" |
28979
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
2290 :type '(repeat |
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
2291 (list |
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
2292 (file :tag "EPS File") |
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
2293 (choice :tag "X" (const :tag "default" nil) number string) |
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
2294 (choice :tag "Y" (const :tag "default" nil) number string) |
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
2295 (choice :tag "X Scale" (const :tag "default" nil) number string) |
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
2296 (choice :tag "Y Scale" (const :tag "default" nil) number string) |
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
2297 (choice :tag "Rotation" (const :tag "default" nil) number string) |
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
2298 (repeat :tag "Pages" :inline t |
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
2299 (radio (integer :tag "Page") |
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
2300 (cons :tag "Range" |
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
2301 (integer :tag "From") |
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
2302 (integer :tag "To")))))) |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
2303 :version "20" |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2304 :group 'ps-print-background) |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2305 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2306 (defcustom ps-print-background-text nil |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2307 "*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
|
2308 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2309 The elements are: |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2310 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2311 (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
|
2312 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2313 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
|
2314 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2315 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
|
2316 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
|
2317 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2318 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
|
2319 If nil, \"Times-Roman\" is used. |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2320 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2321 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
|
2322 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2323 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
|
2324 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
|
2325 |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2326 ROTATION is the text rotation angle; if nil, the angle is given by the diagonal |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2327 from lower left corner to upper right corner. |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2328 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2329 PAGES designates the page to print background text. |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2330 PAGES may be a number or a cons cell (FROM . TO) designating FROM page to TO |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2331 page. |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2332 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
|
2333 |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2334 X, Y, FONTSIZE, GRAY and ROTATION may be a floating point number, an integer |
47328 | 2335 number or a string. If it is a string, the string should contain PostScript |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2336 programming that returns a float or integer value. |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2337 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2338 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
|
2339 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2340 '((\"Preliminary\"))" |
28979
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
2341 :type '(repeat |
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
2342 (list |
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
2343 (string :tag "Text") |
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
2344 (choice :tag "X" (const :tag "default" nil) number string) |
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
2345 (choice :tag "Y" (const :tag "default" nil) number string) |
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
2346 (choice :tag "Font" (const :tag "default" nil) string) |
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
2347 (choice :tag "Fontsize" (const :tag "default" nil) number string) |
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
2348 (choice :tag "Gray" (const :tag "default" nil) number string) |
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
2349 (choice :tag "Rotation" (const :tag "default" nil) number string) |
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
2350 (repeat :tag "Pages" :inline t |
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
2351 (radio (integer :tag "Page") |
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
2352 (cons :tag "Range" |
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
2353 (integer :tag "From") |
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
2354 (integer :tag "To")))))) |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
2355 :version "20" |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2356 :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
|
2357 |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2358 ;;; Horizontal layout |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2359 |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2360 ;; ------------------------------------------ |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2361 ;; | | | | | | | | |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2362 ;; | 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
|
2363 ;; | | | | | | | | |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2364 ;; ------------------------------------------ |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2365 |
17405
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
2366 (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
|
2367 "*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
|
2368 :type 'number |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
2369 :version "20" |
17405
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
2370 :group 'ps-print-horizontal) |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
2371 |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
2372 (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
|
2373 "*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
|
2374 :type 'number |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
2375 :version "20" |
17405
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
2376 :group 'ps-print-horizontal) |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
2377 |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
2378 (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
|
2379 "*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
|
2380 :type 'number |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
2381 :version "20" |
17405
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
2382 :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
|
2383 |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2384 ;;; Vertical layout |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2385 |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2386 ;; |--------| |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2387 ;; | tm | |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2388 ;; |--------| |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2389 ;; | header | |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2390 ;; |--------| |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2391 ;; | ho | |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2392 ;; |--------| |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2393 ;; | text | |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2394 ;; |--------| |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2395 ;; | bm | |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2396 ;; |--------| |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2397 |
17405
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
2398 (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
|
2399 "*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
|
2400 :type 'number |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
2401 :version "20" |
17405
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
2402 :group 'ps-print-vertical) |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
2403 |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
2404 (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
|
2405 "*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
|
2406 :type 'number |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
2407 :version "20" |
17405
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
2408 :group 'ps-print-vertical) |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
2409 |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
2410 (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
|
2411 "*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
|
2412 :type 'number |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
2413 :version "20" |
17405
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
2414 :group 'ps-print-vertical) |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
2415 |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
2416 (defcustom ps-header-line-pad 0.15 |
47328 | 2417 "*Portion of a header title line height to insert. |
2418 The insertion is done between the header frame and the text it contains, | |
2419 both in the vertical and horizontal directions." | |
17405
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
2420 :type 'number |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
2421 :version "20" |
17405
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
2422 :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
|
2423 |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2424 (defcustom ps-footer-offset (/ (* 72 1.0) 2.54) ; 1.0 cm |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2425 "*Vertical space in points (1/72 inch) between the main text and the footer." |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2426 :type 'number |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
2427 :version "20" |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2428 :group 'ps-print-vertical) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2429 |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2430 (defcustom ps-footer-line-pad 0.15 |
47328 | 2431 "*Portion of a footer title line height to insert. |
2432 The insertion is done between the footer frame and the text it contains, | |
2433 both in the vertical and horizontal directions." | |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2434 :type 'number |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
2435 :version "20" |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2436 :group 'ps-print-vertical) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2437 |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2438 ;;; Header/Footer setup |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
2439 |
17405
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
2440 (defcustom ps-print-header t |
10493 | 2441 "*Non-nil means print a header at the top of each page. |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2442 By default, the header displays the buffer name, page number, and, if the |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2443 buffer is visiting a file, the file's directory. Headers are customizable by |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2444 changing variables `ps-left-header' and `ps-right-header'." |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2445 :type 'boolean |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
2446 :version "20" |
28426
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
2447 :group 'ps-print-headers) |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2448 |
17405
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
2449 (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
|
2450 "*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
|
2451 :type 'boolean |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
2452 :version "20" |
28426
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
2453 :group 'ps-print-headers) |
17405
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
2454 |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2455 (defcustom ps-header-frame-alist |
37489
ba96560d3f9e
Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents:
37286
diff
changeset
|
2456 '((fore-color . 0.0) |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2457 (back-color . 0.9) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2458 (border-width . 0.4) |
37489
ba96560d3f9e
Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents:
37286
diff
changeset
|
2459 (border-color . 0.0) |
ba96560d3f9e
Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents:
37286
diff
changeset
|
2460 (shadow-color . 0.0)) |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2461 "*Specify header frame properties alist. |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2462 |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2463 Valid frame properties are: |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2464 |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2465 `fore-color' Specify the foreground frame color. |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2466 It should be a float number between 0.0 (black color) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2467 and 1.0 (white color), a string which is a color name, |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2468 or a list of 3 float numbers which corresponds to the |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2469 Red Green Blue color scale, each float number between |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2470 0.0 (dark color) and 1.0 (bright color). |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2471 |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2472 `back-color' Specify the background frame color (similar to |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2473 `fore-color'). |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2474 |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2475 `shadow-color' Specify the shadow color (similar to `fore-color'). |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2476 |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2477 `border-color' Specify the border color (similar to `fore-color'). |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2478 |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2479 `border-width' Specify the border width. |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2480 |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2481 Any other property is ignored. |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2482 |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2483 Don't change this alist directly, instead use customization, or `ps-value', |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2484 `ps-get', `ps-put' and `ps-del' functions (see them for documentation)." |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2485 :version "21.1" |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2486 :type '(repeat |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2487 (choice :menu-tag "Header Frame Element" |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2488 :tag "" |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2489 (cons :tag "Foreground Color" :format "%v" |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2490 (const :format "" fore-color) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2491 (choice :menu-tag "Foreground Color" |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2492 :tag "Foreground Color" |
37489
ba96560d3f9e
Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents:
37286
diff
changeset
|
2493 (number :tag "Gray Scale" :value 0.0) |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2494 (string :tag "Color Name" :value "black") |
37489
ba96560d3f9e
Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents:
37286
diff
changeset
|
2495 (list :tag "RGB Color" :value (0.0 0.0 0.0) |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2496 (number :tag "Red") |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2497 (number :tag "Green") |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2498 (number :tag "Blue")))) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2499 (cons :tag "Background Color" :format "%v" |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2500 (const :format "" back-color) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2501 (choice :menu-tag "Background Color" |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2502 :tag "Background Color" |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2503 (number :tag "Gray Scale" :value 0.9) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2504 (string :tag "Color Name" :value "gray90") |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2505 (list :tag "RGB Color" :value (0.9 0.9 0.9) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2506 (number :tag "Red") |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2507 (number :tag "Green") |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2508 (number :tag "Blue")))) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2509 (cons :tag "Border Width" :format "%v" |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2510 (const :format "" border-width) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2511 (number :tag "Border Width" :value 0.4)) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2512 (cons :tag "Border Color" :format "%v" |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2513 (const :format "" border-color) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2514 (choice :menu-tag "Border Color" |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2515 :tag "Border Color" |
37489
ba96560d3f9e
Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents:
37286
diff
changeset
|
2516 (number :tag "Gray Scale" :value 0.0) |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2517 (string :tag "Color Name" :value "black") |
37489
ba96560d3f9e
Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents:
37286
diff
changeset
|
2518 (list :tag "RGB Color" :value (0.0 0.0 0.0) |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2519 (number :tag "Red") |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2520 (number :tag "Green") |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2521 (number :tag "Blue")))) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2522 (cons :tag "Shadow Color" :format "%v" |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2523 (const :format "" shadow-color) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2524 (choice :menu-tag "Shadow Color" |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2525 :tag "Shadow Color" |
37489
ba96560d3f9e
Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents:
37286
diff
changeset
|
2526 (number :tag "Gray Scale" :value 0.0) |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2527 (string :tag "Color Name" :value "black") |
37489
ba96560d3f9e
Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents:
37286
diff
changeset
|
2528 (list :tag "RGB Color" :value (0.0 0.0 0.0) |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2529 (number :tag "Red") |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2530 (number :tag "Green") |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2531 (number :tag "Blue")))))) |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
2532 :version "20" |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2533 :group 'ps-print-headers) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2534 |
17405
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
2535 (defcustom ps-header-lines 2 |
20331 | 2536 "*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
|
2537 :type 'integer |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
2538 :version "20" |
28426
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
2539 :group 'ps-print-headers) |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2540 |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2541 (defcustom ps-print-footer nil |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2542 "*Non-nil means print a footer at the bottom of each page. |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2543 By default, the footer displays page number. |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2544 Footers are customizable by changing variables `ps-left-footer' and |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2545 `ps-right-footer'." |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
2546 :type 'boolean |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2547 :version "21.1" |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2548 :group 'ps-print-headers) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2549 |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2550 (defcustom ps-print-footer-frame t |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2551 "*Non-nil means draw a gaudy frame around the footer." |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
2552 :type 'boolean |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2553 :version "21.1" |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2554 :group 'ps-print-headers) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2555 |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2556 (defcustom ps-footer-frame-alist |
37489
ba96560d3f9e
Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents:
37286
diff
changeset
|
2557 '((fore-color . 0.0) |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2558 (back-color . 0.9) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2559 (border-width . 0.4) |
37489
ba96560d3f9e
Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents:
37286
diff
changeset
|
2560 (border-color . 0.0) |
ba96560d3f9e
Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents:
37286
diff
changeset
|
2561 (shadow-color . 0.0)) |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2562 "*Specify footer frame properties alist. |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2563 |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2564 Don't change this alist directly, instead use customization, or `ps-value', |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2565 `ps-get', `ps-put' and `ps-del' functions (see them for documentation). |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2566 |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2567 See also `ps-header-frame-alist' for documentation." |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2568 :type '(repeat |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2569 (choice :menu-tag "Header Frame Element" |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2570 :tag "" |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2571 (cons :tag "Foreground Color" :format "%v" |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2572 (const :format "" fore-color) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2573 (choice :menu-tag "Foreground Color" |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2574 :tag "Foreground Color" |
37489
ba96560d3f9e
Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents:
37286
diff
changeset
|
2575 (number :tag "Gray Scale" :value 0.0) |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2576 (string :tag "Color Name" :value "black") |
37489
ba96560d3f9e
Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents:
37286
diff
changeset
|
2577 (list :tag "RGB Color" :value (0.0 0.0 0.0) |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2578 (number :tag "Red") |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2579 (number :tag "Green") |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2580 (number :tag "Blue")))) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2581 (cons :tag "Background Color" :format "%v" |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2582 (const :format "" back-color) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2583 (choice :menu-tag "Background Color" |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2584 :tag "Background Color" |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2585 (number :tag "Gray Scale" :value 0.9) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2586 (string :tag "Color Name" :value "gray90") |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2587 (list :tag "RGB Color" :value (0.9 0.9 0.9) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2588 (number :tag "Red") |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2589 (number :tag "Green") |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2590 (number :tag "Blue")))) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2591 (cons :tag "Border Width" :format "%v" |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2592 (const :format "" border-width) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2593 (number :tag "Border Width" :value 0.4)) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2594 (cons :tag "Border Color" :format "%v" |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2595 (const :format "" border-color) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2596 (choice :menu-tag "Border Color" |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2597 :tag "Border Color" |
37489
ba96560d3f9e
Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents:
37286
diff
changeset
|
2598 (number :tag "Gray Scale" :value 0.0) |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2599 (string :tag "Color Name" :value "black") |
37489
ba96560d3f9e
Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents:
37286
diff
changeset
|
2600 (list :tag "RGB Color" :value (0.0 0.0 0.0) |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2601 (number :tag "Red") |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2602 (number :tag "Green") |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2603 (number :tag "Blue")))) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2604 (cons :tag "Shadow Color" :format "%v" |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2605 (const :format "" shadow-color) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2606 (choice :menu-tag "Shadow Color" |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2607 :tag "Shadow Color" |
37489
ba96560d3f9e
Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents:
37286
diff
changeset
|
2608 (number :tag "Gray Scale" :value 0.0) |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2609 (string :tag "Color Name" :value "black") |
37489
ba96560d3f9e
Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents:
37286
diff
changeset
|
2610 (list :tag "RGB Color" :value (0.0 0.0 0.0) |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2611 (number :tag "Red") |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2612 (number :tag "Green") |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2613 (number :tag "Blue")))))) |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
2614 :version "21.1" |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2615 :group 'ps-print-headers) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2616 |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2617 (defcustom ps-footer-lines 2 |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2618 "*Number of lines to display in page footer, when generating PostScript." |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
2619 :type 'integer |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2620 :version "21.1" |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2621 :group 'ps-print-headers) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2622 |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2623 (defcustom ps-print-only-one-header nil |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2624 "*Non-nil means print only one header/footer at the top/bottom of each page. |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2625 This is useful when printing more than one column, so it is possible to have |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2626 only one header/footer over all columns or one header/footer per column. |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2627 See also `ps-print-header' and `ps-print-footer'." |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2628 :type 'boolean |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
2629 :version "20" |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2630 :group 'ps-print-headers) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2631 |
29494
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
2632 (defcustom ps-switch-header 'duplex |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2633 "*Specify if headers/footers are switched or not. |
29494
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
2634 |
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
2635 Valid values are: |
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
2636 |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2637 nil Never switch headers/footers. |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2638 |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2639 t Always switch headers/footers. |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2640 |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2641 duplex Switch headers/footers only when duplexing is on, that is, when |
29494
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
2642 `ps-spool-duplex' is non-nil. |
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
2643 |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2644 Any other value is treated as t. |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2645 |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2646 See also `ps-print-header' and `ps-print-footer'." |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2647 :type '(choice :menu-tag "Switch Header/Footer" |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2648 :tag "Switch Header/Footer" |
29494
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
2649 (const :tag "Never Switch" nil) |
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
2650 (const :tag "Always Switch" t) |
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
2651 (const :tag "Switch When Duplexing" duplex)) |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
2652 :version "20" |
29494
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
2653 :group 'ps-print-headers) |
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
2654 |
17405
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
2655 (defcustom ps-show-n-of-n t |
10683 | 2656 "*Non-nil means show page numbers as N/M, meaning page N of M. |
20331 | 2657 NOTE: page numbers are displayed as part of headers, |
28426
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
2658 see variable `ps-print-header'." |
17405
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
2659 :type 'boolean |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
2660 :version "20" |
28426
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
2661 :group 'ps-print-headers) |
17405
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
2662 |
28576
1694ed739e69
Customization fix, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28426
diff
changeset
|
2663 (defcustom ps-spool-config |
28760
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
2664 (if ps-windows-system |
28576
1694ed739e69
Customization fix, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28426
diff
changeset
|
2665 nil |
1694ed739e69
Customization fix, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28426
diff
changeset
|
2666 'lpr-switches) |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2667 "*Specify who is responsible for setting duplex and page size. |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2668 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2669 Valid values are: |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2670 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2671 `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
|
2672 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
|
2673 printing for your printer. |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2674 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2675 `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
|
2676 setpagedevice PostScript operator. |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2677 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2678 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
|
2679 the setpagedevice PostScript operator. |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2680 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2681 Any other value is treated as nil. |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2682 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2683 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
|
2684 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
|
2685 setpagedevice affects zebra stripes; on other printers, setpagedevice |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2686 affects the left margin. |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2687 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
|
2688 specified by setpagedevice, your printing will be aborted. |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2689 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
|
2690 `setpagedevice', generate a test file and send it to your printer; if |
47328 | 2691 the printed file isn't OK, set `ps-spool-config' to nil." |
29494
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
2692 :type '(choice :menu-tag "Spool Config" |
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
2693 :tag "Spool Config" |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2694 (const lpr-switches) (const setpagedevice) |
28576
1694ed739e69
Customization fix, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28426
diff
changeset
|
2695 (const :tag "nil" nil)) |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
2696 :version "20" |
28426
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
2697 :group 'ps-print-headers) |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2698 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2699 (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
|
2700 ; so default to nil. |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2701 "*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
|
2702 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
|
2703 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
|
2704 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
|
2705 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
|
2706 even-numbered pages. |
0a2452a20c74
ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
26883
diff
changeset
|
2707 |
0a2452a20c74
ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
26883
diff
changeset
|
2708 See also `ps-spool-tumble'." |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2709 :type 'boolean |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
2710 :version "20" |
28426
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
2711 :group 'ps-print-headers) |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2712 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2713 (defcustom ps-spool-tumble nil |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2714 "*Specify how the page images on opposite sides of a sheet are oriented. |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2715 If `ps-spool-tumble' is nil, produces output suitable for binding on the left |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2716 or right. If `ps-spool-tumble' is non-nil, produces output suitable for |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2717 binding at the top or bottom. |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2718 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
2719 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
|
2720 :type 'boolean |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
2721 :version "20" |
28426
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
2722 :group 'ps-print-headers) |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2723 |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2724 ;;; Fonts |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2725 |
17405
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
2726 (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
|
2727 '((Courier ; the family key |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2728 (fonts (normal . "Courier") |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2729 (bold . "Courier-Bold") |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2730 (italic . "Courier-Oblique") |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2731 (bold-italic . "Courier-BoldOblique")) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2732 (size . 10.0) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2733 (line-height . 10.55) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2734 (space-width . 6.0) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2735 (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
|
2736 (Helvetica ; the family key |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2737 (fonts (normal . "Helvetica") |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2738 (bold . "Helvetica-Bold") |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2739 (italic . "Helvetica-Oblique") |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2740 (bold-italic . "Helvetica-BoldOblique")) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2741 (size . 10.0) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2742 (line-height . 11.56) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2743 (space-width . 2.78) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2744 (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
|
2745 (Times |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2746 (fonts (normal . "Times-Roman") |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2747 (bold . "Times-Bold") |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2748 (italic . "Times-Italic") |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2749 (bold-italic . "Times-BoldItalic")) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2750 (size . 10.0) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2751 (line-height . 11.0) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2752 (space-width . 2.5) |
23273
519bc559e950
(ps-font-info-database): Add missing dots in value.
Andreas Schwab <schwab@suse.de>
parents:
23204
diff
changeset
|
2753 (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
|
2754 (Palatino |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2755 (fonts (normal . "Palatino-Roman") |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2756 (bold . "Palatino-Bold") |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2757 (italic . "Palatino-Italic") |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2758 (bold-italic . "Palatino-BoldItalic")) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2759 (size . 10.0) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2760 (line-height . 12.1) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2761 (space-width . 2.5) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2762 (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
|
2763 (Helvetica-Narrow |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2764 (fonts (normal . "Helvetica-Narrow") |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2765 (bold . "Helvetica-Narrow-Bold") |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2766 (italic . "Helvetica-Narrow-Oblique") |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2767 (bold-italic . "Helvetica-Narrow-BoldOblique")) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2768 (size . 10.0) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2769 (line-height . 11.56) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2770 (space-width . 2.2796) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2771 (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
|
2772 (NewCenturySchlbk |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2773 (fonts (normal . "NewCenturySchlbk-Roman") |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2774 (bold . "NewCenturySchlbk-Bold") |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2775 (italic . "NewCenturySchlbk-Italic") |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2776 (bold-italic . "NewCenturySchlbk-BoldItalic")) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2777 (size . 10.0) |
23273
519bc559e950
(ps-font-info-database): Add missing dots in value.
Andreas Schwab <schwab@suse.de>
parents:
23204
diff
changeset
|
2778 (line-height . 12.15) |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2779 (space-width . 2.78) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2780 (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
|
2781 ;; 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
|
2782 (AvantGarde-Book |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2783 (fonts (normal . "AvantGarde-Book") |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2784 (italic . "AvantGarde-BookOblique")) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2785 (size . 10.0) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2786 (line-height . 11.77) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2787 (space-width . 2.77) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2788 (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
|
2789 (AvantGarde-Demi |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2790 (fonts (normal . "AvantGarde-Demi") |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2791 (italic . "AvantGarde-DemiOblique")) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2792 (size . 10.0) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2793 (line-height . 12.72) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2794 (space-width . 2.8) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2795 (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
|
2796 (Bookman-Demi |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2797 (fonts (normal . "Bookman-Demi") |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2798 (italic . "Bookman-DemiItalic")) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2799 (size . 10.0) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2800 (line-height . 11.77) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2801 (space-width . 3.4) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2802 (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
|
2803 (Bookman-Light |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2804 (fonts (normal . "Bookman-Light") |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2805 (italic . "Bookman-LightItalic")) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2806 (size . 10.0) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2807 (line-height . 11.79) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2808 (space-width . 3.2) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2809 (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
|
2810 ;; 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
|
2811 (Symbol |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2812 (fonts (normal . "Symbol")) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2813 (size . 10.0) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2814 (line-height . 13.03) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2815 (space-width . 2.5) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2816 (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
|
2817 (Zapf-Dingbats |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2818 (fonts (normal . "Zapf-Dingbats")) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2819 (size . 10.0) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2820 (line-height . 9.63) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2821 (space-width . 2.78) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2822 (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
|
2823 (Zapf-Chancery-MediumItalic |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2824 (fonts (normal . "Zapf-Chancery-MediumItalic")) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2825 (size . 10.0) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2826 (line-height . 11.45) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2827 (space-width . 2.2) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
2828 (avg-char-width . 4.10811)) |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2829 ) |
47328 | 2830 "*Font info database. |
2831 Each element comprises: font family (the key), name, bold, italic, bold-italic, | |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2832 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
|
2833 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
|
2834 - 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
|
2835 - generate the PostScript image to a file (C-u M-x ps-print-buffer) |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2836 - open this file and delete the leading `%' (which is the PostScript comment |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2837 character) from the line |
29848
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
2838 `% 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
|
2839 to get the line |
29848
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
2840 `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
|
2841 - add the values to `ps-font-info-database'. |
31253
4c40c1171b8b
Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
30522
diff
changeset
|
2842 You can get all the fonts of YOUR printer using `ReportAllFontInfo'. |
4c40c1171b8b
Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
30522
diff
changeset
|
2843 |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2844 Note also that ps-print DOESN'T download any font to your printer, instead it |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2845 uses the fonts resident in your printer." |
34045
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
2846 :type '(repeat |
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
2847 (list :tag "Font Definition" |
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
2848 (symbol :tag "Font Family") |
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
2849 (cons :format "%v" |
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
2850 (const :format "" fonts) |
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
2851 (repeat :tag "Faces" |
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
2852 (cons (choice :menu-tag "Font Weight/Slant" |
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
2853 :tag "Font Weight/Slant" |
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
2854 (const normal) |
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
2855 (const bold) |
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
2856 (const italic) |
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
2857 (const bold-italic) |
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
2858 (symbol :tag "Face")) |
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
2859 (string :tag "Font Name")))) |
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
2860 (cons :format "%v" |
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
2861 (const :format "" size) |
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
2862 (number :tag "Reference Size")) |
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
2863 (cons :format "%v" |
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
2864 (const :format "" line-height) |
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
2865 (number :tag "Line Height")) |
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
2866 (cons :format "%v" |
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
2867 (const :format "" space-width) |
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
2868 (number :tag "Space Width")) |
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
2869 (cons :format "%v" |
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
2870 (const :format "" avg-char-width) |
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
2871 (number :tag "Average Character Width")))) |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
2872 :version "20" |
17405
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
2873 :group 'ps-print-font) |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
2874 |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
2875 (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
|
2876 "*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
|
2877 :type 'symbol |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
2878 :version "20" |
17405
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
2879 :group 'ps-print-font) |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
2880 |
24414
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
2881 (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
|
2882 "*Font size, in points, for ordinary text, when generating PostScript." |
34045
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
2883 :type '(choice :menu-tag "Ordinary Text Font Size" |
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
2884 :tag "Ordinary Text Font Size" |
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
2885 (number :tag "Text Size") |
24414
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
2886 (cons :tag "Landscape/Portrait" |
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
2887 (number :tag "Landscape Text Size") |
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
2888 (number :tag "Portrait Text Size"))) |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
2889 :version "20" |
17405
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
2890 :group 'ps-print-font) |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
2891 |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
2892 (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
|
2893 "*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
|
2894 :type 'symbol |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
2895 :version "20" |
17405
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
2896 :group 'ps-print-font) |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
2897 |
24414
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
2898 (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
|
2899 "*Font size, in points, for text in the header, when generating PostScript." |
34045
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
2900 :type '(choice :menu-tag "Header Font Size" |
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
2901 :tag "Header Font Size" |
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
2902 (number :tag "Header Size") |
24414
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
2903 (cons :tag "Landscape/Portrait" |
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
2904 (number :tag "Landscape Header Size") |
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
2905 (number :tag "Portrait Header Size"))) |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
2906 :version "20" |
17405
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
2907 :group 'ps-print-font) |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
2908 |
24414
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
2909 (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
|
2910 "*Font size, in points, for the top line of text in header, in PostScript." |
34045
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
2911 :type '(choice :menu-tag "Header Title Font Size" |
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
2912 :tag "Header Title Font Size" |
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
2913 (number :tag "Header Title Size") |
24414
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
2914 (cons :tag "Landscape/Portrait" |
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
2915 (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
|
2916 (number :tag "Portrait Header Title Size"))) |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
2917 :version "20" |
17405
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
2918 :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
|
2919 |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2920 (defcustom ps-footer-font-family 'Helvetica |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2921 "*Font family name for text in the footer, when generating PostScript." |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
2922 :type 'symbol |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2923 :version "21.1" |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2924 :group 'ps-print-font) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2925 |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2926 (defcustom ps-footer-font-size '(10 . 12) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2927 "*Font size, in points, for text in the footer, when generating PostScript." |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2928 :type '(choice :menu-tag "Footer Font Size" |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2929 :tag "Footer Font Size" |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2930 (number :tag "Footer Size") |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2931 (cons :tag "Landscape/Portrait" |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2932 (number :tag "Landscape Footer Size") |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2933 (number :tag "Portrait Footer Size"))) |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
2934 :version "21.1" |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2935 :group 'ps-print-font) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2936 |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2937 (defcustom ps-line-number-color "black" |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2938 "*Specify color for line-number, when generating PostScript." |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2939 :type '(choice :menu-tag "Line Number Color" |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2940 :tag "Line Number Color" |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2941 (number :tag "Gray Scale" :value 0) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2942 (string :tag "Color Name" :value "black") |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2943 (list :tag "RGB Color" :value (0 0 0) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2944 (number :tag "Red") |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2945 (number :tag "Green") |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2946 (number :tag "Blue"))) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2947 :version "21.1" |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2948 :group 'ps-print-font |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2949 :group 'ps-print-miscellany) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
2950 |
34045
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
2951 (defcustom ps-line-number-font "Times-Italic" |
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
2952 "*Font for line-number, when generating PostScript." |
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
2953 :type 'string |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
2954 :version "20" |
34045
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
2955 :group 'ps-print-font |
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
2956 :group 'ps-print-miscellany) |
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
2957 |
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
2958 (defcustom ps-line-number-font-size 6 |
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
2959 "*Font size, in points, for line number, when generating PostScript." |
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
2960 :type '(choice :menu-tag "Line Number Font Size" |
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
2961 :tag "Line Number Font Size" |
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
2962 (number :tag "Font Size") |
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
2963 (cons :tag "Landscape/Portrait" |
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
2964 (number :tag "Landscape Font Size") |
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
2965 (number :tag "Portrait Font Size"))) |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
2966 :version "20" |
34045
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
2967 :group 'ps-print-font |
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
2968 :group 'ps-print-miscellany) |
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
2969 |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2970 ;;; Colors |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
2971 |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
2972 ;; Printing color requires x-color-values. |
47382
12f18e82e5e2
(ps-printer-name-option): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
47328
diff
changeset
|
2973 ;; XEmacs change: Need autoload for the "Options->Printing->Color Printing" |
12f18e82e5e2
(ps-printer-name-option): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
47328
diff
changeset
|
2974 ;; widget to work. |
12f18e82e5e2
(ps-printer-name-option): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
47328
diff
changeset
|
2975 ;;;###autoload |
33090
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
2976 (defcustom ps-print-color-p |
47426
ec3123180ac5
Adjust ps-print-color-p, ps-default-fg and ps-default-bg setting.
Richard M. Stallman <rms@gnu.org>
parents:
47382
diff
changeset
|
2977 (or (fboundp 'x-color-values) ; Emacs |
33090
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
2978 (fboundp 'color-instance-rgb-components)) |
20516
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
2979 ; XEmacs |
39327
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
2980 "*Specify how buffer's text color is printed. |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
2981 |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
2982 Valid values are: |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
2983 |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
2984 nil Do not print colors. |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
2985 |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
2986 t Print colors. |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
2987 |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
2988 black-white Print colors on black/white printer. |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
2989 See also `ps-black-white-faces'. |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
2990 |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
2991 Any other value is treated as t." |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
2992 :type '(choice :menu-tag "Print Color" |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
2993 :tag "Print Color" |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
2994 (const :tag "Do NOT Print Color" nil) |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
2995 (const :tag "Print Always Color" t) |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
2996 (const :tag "Print Black/White Color" black-white)) |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
2997 :version "20" |
17405
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
2998 :group 'ps-print-color) |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
2999 |
49763
e19e88bc6e58
Change the policy of background/foreground default color.
Juanma Barranquero <lekktu@gmail.com>
parents:
47674
diff
changeset
|
3000 (defcustom ps-default-fg '(0.0 0.0 0.0) ; black |
50032
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
3001 "*RGB values of the default foreground color. Defaults to black. |
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
3002 |
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
3003 The `ps-default-fg' variable contains the default foreground color used by |
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
3004 ps-print, that is, if there is a face in a text that doesn't have a foreground |
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
3005 color, the `ps-default-fg' color should be used. |
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
3006 |
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
3007 Valid values are: |
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
3008 |
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
3009 t The foreground color of Emacs session will be used. |
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
3010 |
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
3011 NUMBER It's a real value between 0.0 (black) and 1.0 (white) that |
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
3012 indicate the gray color. |
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
3013 |
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
3014 COLOR-NAME It's a string wich contains the color name. For example: |
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
3015 \"yellow\". |
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
3016 |
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
3017 LIST It's a list of RGB values, that is a list of three real values |
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
3018 of the form: |
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
3019 |
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
3020 (RED, GREEN, BLUE) |
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
3021 |
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
3022 Where RED, GREEN and BLUE are reals between 0.0 (no color) and |
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
3023 1.0 (full color). |
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
3024 |
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
3025 Any other value is ignored and it's used the black color. |
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
3026 |
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
3027 It's used only when `ps-print-color-p' is non-nil." |
29494
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
3028 :type '(choice :menu-tag "Default Foreground Gray/Color" |
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
3029 :tag "Default Foreground Gray/Color" |
49763
e19e88bc6e58
Change the policy of background/foreground default color.
Juanma Barranquero <lekktu@gmail.com>
parents:
47674
diff
changeset
|
3030 (const :tag "Session Foreground" t) |
28426
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
3031 (number :tag "Gray Scale" :value 0.0) |
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
3032 (string :tag "Color Name" :value "black") |
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
3033 (list :tag "RGB Color" :value (0.0 0.0 0.0) |
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
3034 (number :tag "Red") |
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
3035 (number :tag "Green") |
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
3036 (number :tag "Blue"))) |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3037 :version "20" |
17405
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
3038 :group 'ps-print-color) |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
3039 |
49763
e19e88bc6e58
Change the policy of background/foreground default color.
Juanma Barranquero <lekktu@gmail.com>
parents:
47674
diff
changeset
|
3040 (defcustom ps-default-bg '(1.0 1.0 1.0) ; white |
50032
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
3041 "*RGB values of the default background color. Defaults to white. |
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
3042 |
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
3043 The `ps-default-bg' variable contains the default background color used by |
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
3044 ps-print, that is, if there is a face in a text that doesn't have a background |
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
3045 color, the `ps-default-bg' color should be used. |
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
3046 |
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
3047 Valid values are: |
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
3048 |
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
3049 t The background color of Emacs session will be used. |
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
3050 |
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
3051 NUMBER It's a real value between 0.0 (black) and 1.0 (white) that |
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
3052 indicate the gray color. |
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
3053 |
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
3054 COLOR-NAME It's a string wich contains the color name. For example: |
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
3055 \"yellow\". |
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
3056 |
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
3057 LIST It's a list of RGB values, that is a list of three real values |
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
3058 of the form: |
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
3059 |
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
3060 (RED, GREEN, BLUE) |
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
3061 |
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
3062 Where RED, GREEN and BLUE are reals between 0.0 (no color) and |
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
3063 1.0 (full color). |
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
3064 |
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
3065 Any other value is ignored and it's used the white color. |
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
3066 |
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
3067 It's used only when `ps-print-color-p' is non-nil. |
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
3068 |
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
3069 See also `ps-use-face-background'." |
29494
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
3070 :type '(choice :menu-tag "Default Background Gray/Color" |
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
3071 :tag "Default Background Gray/Color" |
49763
e19e88bc6e58
Change the policy of background/foreground default color.
Juanma Barranquero <lekktu@gmail.com>
parents:
47674
diff
changeset
|
3072 (const :tag "Session Background" t) |
28426
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
3073 (number :tag "Gray Scale" :value 1.0) |
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
3074 (string :tag "Color Name" :value "white") |
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
3075 (list :tag "RGB Color" :value (1.0 1.0 1.0) |
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
3076 (number :tag "Red") |
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
3077 (number :tag "Green") |
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
3078 (number :tag "Blue"))) |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3079 :version "20" |
17405
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
3080 :group 'ps-print-color) |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
3081 |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
3082 (defcustom ps-auto-font-detect t |
30522
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
3083 "*Non-nil means automatically detect bold/italic/underline face attributes. |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3084 If nil, we rely solely on the lists `ps-bold-faces', `ps-italic-faces', and |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3085 `ps-underlined-faces'." |
17405
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
3086 :type 'boolean |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3087 :version "20" |
17405
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
3088 :group 'ps-print-font) |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
3089 |
39327
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
3090 (defcustom ps-black-white-faces |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
3091 '((font-lock-builtin-face "black" nil bold ) |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
3092 (font-lock-comment-face "gray20" nil italic) |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
3093 (font-lock-constant-face "black" nil bold ) |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
3094 (font-lock-function-name-face "black" nil bold ) |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
3095 (font-lock-keyword-face "black" nil bold ) |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
3096 (font-lock-string-face "black" nil italic) |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
3097 (font-lock-type-face "black" nil italic) |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
3098 (font-lock-variable-name-face "black" nil bold italic) |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
3099 (font-lock-warning-face "black" nil bold italic)) |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
3100 "*Specify list of face attributes to print colors on black/white printers. |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
3101 |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
3102 The list elements are the same as defined on `ps-extend-face' (which see). |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
3103 |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
3104 This variable is used only when `ps-print-color-p' is set to `black-white'." |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
3105 :version "21.1" |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
3106 :type '(repeat |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
3107 (list :tag "Face Specification" |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
3108 (face :tag "Face Symbol") |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
3109 (choice :menu-tag "Foreground Color" |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
3110 :tag "Foreground Color" |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
3111 (const :tag "Black" nil) |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
3112 (string :tag "Color Name")) |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
3113 (choice :menu-tag "Background Color" |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
3114 :tag "Background Color" |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
3115 (const :tag "None" nil) |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
3116 (string :tag "Color Name")) |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
3117 (repeat :inline t |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
3118 (choice :menu-tag "Attribute" |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
3119 (const bold) |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
3120 (const italic) |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
3121 (const underline) |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
3122 (const strikeout) |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
3123 (const overline) |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
3124 (const shadow) |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
3125 (const box) |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
3126 (const outline))))) |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3127 :version "20" |
39327
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
3128 :group 'ps-print-face) |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
3129 |
17405
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
3130 (defcustom ps-bold-faces |
16870
4a5fa29f79d6
(ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents:
16361
diff
changeset
|
3131 (unless ps-print-color-p |
4a5fa29f79d6
(ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents:
16361
diff
changeset
|
3132 '(font-lock-function-name-face |
4a5fa29f79d6
(ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents:
16361
diff
changeset
|
3133 font-lock-builtin-face |
4a5fa29f79d6
(ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents:
16361
diff
changeset
|
3134 font-lock-variable-name-face |
4a5fa29f79d6
(ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents:
16361
diff
changeset
|
3135 font-lock-keyword-face |
4a5fa29f79d6
(ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents:
16361
diff
changeset
|
3136 font-lock-warning-face)) |
10493 | 3137 "*A list of the \(non-bold\) faces that should be printed in bold font. |
20331 | 3138 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
|
3139 :type '(repeat face) |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3140 :version "20" |
17405
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
3141 :group 'ps-print-face) |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
3142 |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
3143 (defcustom ps-italic-faces |
16870
4a5fa29f79d6
(ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents:
16361
diff
changeset
|
3144 (unless ps-print-color-p |
4a5fa29f79d6
(ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents:
16361
diff
changeset
|
3145 '(font-lock-variable-name-face |
20331 | 3146 font-lock-type-face |
16870
4a5fa29f79d6
(ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents:
16361
diff
changeset
|
3147 font-lock-string-face |
4a5fa29f79d6
(ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents:
16361
diff
changeset
|
3148 font-lock-comment-face |
4a5fa29f79d6
(ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents:
16361
diff
changeset
|
3149 font-lock-warning-face)) |
10493 | 3150 "*A list of the \(non-italic\) faces that should be printed in italic font. |
20331 | 3151 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
|
3152 :type '(repeat face) |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3153 :version "20" |
17405
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
3154 :group 'ps-print-face) |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
3155 |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
3156 (defcustom ps-underlined-faces |
16870
4a5fa29f79d6
(ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents:
16361
diff
changeset
|
3157 (unless ps-print-color-p |
4a5fa29f79d6
(ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents:
16361
diff
changeset
|
3158 '(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
|
3159 font-lock-constant-face |
16870
4a5fa29f79d6
(ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents:
16361
diff
changeset
|
3160 font-lock-warning-face)) |
10493 | 3161 "*A list of the \(non-underlined\) faces that should be printed underlined. |
20331 | 3162 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
|
3163 :type '(repeat face) |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3164 :version "20" |
17405
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
3165 :group 'ps-print-face) |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
3166 |
28760
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
3167 (defcustom ps-use-face-background nil |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
3168 "*Specify if face background should be used. |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
3169 |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
3170 Valid values are: |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
3171 |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
3172 t always use face background color. |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
3173 nil never use face background color. |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
3174 (face...) list of faces whose background color will be used. |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
3175 |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
3176 Any other value will be treated as t." |
29494
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
3177 :type '(choice :menu-tag "Use Face Background" |
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
3178 :tag "Use Face Background" |
28760
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
3179 (const :tag "Always Use Face Background" t) |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
3180 (const :tag "Never Use Face Background" nil) |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
3181 (repeat :menu-tag "Face Background List" |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
3182 :tag "Face Background List" |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
3183 face)) |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3184 :version "20" |
28760
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
3185 :group 'ps-print-face) |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
3186 |
17405
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
3187 (defcustom ps-left-header |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3188 (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
|
3189 "*The items to display (each on a line) on the left part of the page header. |
20331 | 3190 This applies to generating PostScript. |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3191 |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3192 The value should be a list of strings and symbols, each representing an entry |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3193 in the PostScript array HeaderLinesLeft. |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3194 |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3195 Strings are inserted unchanged into the array; those representing |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3196 PostScript string literals should be delimited with PostScript string |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3197 delimiters '(' and ')'. |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3198 |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3199 For symbols with bound functions, the function is called and should return a |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3200 string to be inserted into the array. For symbols with bound values, the value |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3201 should be a string to be inserted into the array. In either case, function or |
54233 | 3202 variable, the string value has PostScript string delimiters added to it. |
3203 | |
3204 If symbols are unbounded, they are silently ignored." | |
34045
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
3205 :type '(repeat (choice :menu-tag "Left Header" |
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
3206 :tag "Left Header" |
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
3207 string symbol)) |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3208 :version "20" |
28426
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
3209 :group 'ps-print-headers) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3210 |
17405
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
3211 (defcustom ps-right-header |
36215
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
3212 (list "/pagenumberstring load" |
38302
baa7f44697de
Use locale dependant date to print date in header. Doc
Gerd Moellmann <gerd@gnu.org>
parents:
37967
diff
changeset
|
3213 'ps-time-stamp-locale-default 'ps-time-stamp-hh:mm:ss) |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
3214 "*The items to display (each on a line) on the right part of the page header. |
20331 | 3215 This applies to generating PostScript. |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3216 |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3217 See the variable `ps-left-header' for a description of the format of this |
38302
baa7f44697de
Use locale dependant date to print date in header. Doc
Gerd Moellmann <gerd@gnu.org>
parents:
37967
diff
changeset
|
3218 variable. |
baa7f44697de
Use locale dependant date to print date in header. Doc
Gerd Moellmann <gerd@gnu.org>
parents:
37967
diff
changeset
|
3219 |
baa7f44697de
Use locale dependant date to print date in header. Doc
Gerd Moellmann <gerd@gnu.org>
parents:
37967
diff
changeset
|
3220 There are the following basic functions implemented: |
baa7f44697de
Use locale dependant date to print date in header. Doc
Gerd Moellmann <gerd@gnu.org>
parents:
37967
diff
changeset
|
3221 |
baa7f44697de
Use locale dependant date to print date in header. Doc
Gerd Moellmann <gerd@gnu.org>
parents:
37967
diff
changeset
|
3222 `ps-time-stamp-locale-default' Return the locale's \"preferred\" date |
baa7f44697de
Use locale dependant date to print date in header. Doc
Gerd Moellmann <gerd@gnu.org>
parents:
37967
diff
changeset
|
3223 as, for example, \"06/18/01\". |
baa7f44697de
Use locale dependant date to print date in header. Doc
Gerd Moellmann <gerd@gnu.org>
parents:
37967
diff
changeset
|
3224 |
baa7f44697de
Use locale dependant date to print date in header. Doc
Gerd Moellmann <gerd@gnu.org>
parents:
37967
diff
changeset
|
3225 `ps-time-stamp-hh:mm:ss' Return time as \"17:28:31\". |
baa7f44697de
Use locale dependant date to print date in header. Doc
Gerd Moellmann <gerd@gnu.org>
parents:
37967
diff
changeset
|
3226 |
baa7f44697de
Use locale dependant date to print date in header. Doc
Gerd Moellmann <gerd@gnu.org>
parents:
37967
diff
changeset
|
3227 `ps-time-stamp-mon-dd-yyyy' Return date as \"Jun 18 2001\". |
baa7f44697de
Use locale dependant date to print date in header. Doc
Gerd Moellmann <gerd@gnu.org>
parents:
37967
diff
changeset
|
3228 |
54233 | 3229 `ps-time-stamp-yyyy-mm-dd' Return date as \"2001-06-18\" (ISO |
3230 date). | |
3231 | |
3232 `ps-time-stamp-iso8601' Alias for `ps-time-stamp-yyyy-mm-dd'. | |
3233 | |
38302
baa7f44697de
Use locale dependant date to print date in header. Doc
Gerd Moellmann <gerd@gnu.org>
parents:
37967
diff
changeset
|
3234 You can also create your own time stamp function by using `format-time-string' |
47328 | 3235 \(which see)." |
34045
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
3236 :type '(repeat (choice :menu-tag "Right Header" |
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
3237 :tag "Right Header" |
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
3238 string symbol)) |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3239 :version "20" |
28426
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
3240 :group 'ps-print-headers) |
7257 | 3241 |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3242 (defcustom ps-left-footer |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3243 (list 'ps-get-buffer-name 'ps-header-dirpart) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3244 "*The items to display (each on a line) on the left part of the page footer. |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3245 This applies to generating PostScript. |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3246 |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3247 The value should be a list of strings and symbols, each representing an entry |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3248 in the PostScript array FooterLinesLeft. |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3249 |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3250 Strings are inserted unchanged into the array; those representing PostScript |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3251 string literals should be delimited with PostScript string delimiters '(' and |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3252 ')'. |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3253 |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3254 For symbols with bound functions, the function is called and should return a |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3255 string to be inserted into the array. For symbols with bound values, the value |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3256 should be a string to be inserted into the array. In either case, function or |
54233 | 3257 variable, the string value has PostScript string delimiters added to it. |
3258 | |
3259 If symbols are unbounded, they are silently ignored." | |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3260 :type '(repeat (choice :menu-tag "Left Footer" |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3261 :tag "Left Footer" |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3262 string symbol)) |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3263 :version "21.1" |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3264 :group 'ps-print-headers) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3265 |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3266 (defcustom ps-right-footer |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3267 (list "/pagenumberstring load" |
38302
baa7f44697de
Use locale dependant date to print date in header. Doc
Gerd Moellmann <gerd@gnu.org>
parents:
37967
diff
changeset
|
3268 'ps-time-stamp-locale-default 'ps-time-stamp-hh:mm:ss) |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3269 "*The items to display (each on a line) on the right part of the page footer. |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3270 This applies to generating PostScript. |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3271 |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3272 See the variable `ps-left-footer' for a description of the format of this |
38302
baa7f44697de
Use locale dependant date to print date in header. Doc
Gerd Moellmann <gerd@gnu.org>
parents:
37967
diff
changeset
|
3273 variable. |
baa7f44697de
Use locale dependant date to print date in header. Doc
Gerd Moellmann <gerd@gnu.org>
parents:
37967
diff
changeset
|
3274 |
baa7f44697de
Use locale dependant date to print date in header. Doc
Gerd Moellmann <gerd@gnu.org>
parents:
37967
diff
changeset
|
3275 There are the following basic functions implemented: |
baa7f44697de
Use locale dependant date to print date in header. Doc
Gerd Moellmann <gerd@gnu.org>
parents:
37967
diff
changeset
|
3276 |
baa7f44697de
Use locale dependant date to print date in header. Doc
Gerd Moellmann <gerd@gnu.org>
parents:
37967
diff
changeset
|
3277 `ps-time-stamp-locale-default' Return the locale's \"preferred\" date |
baa7f44697de
Use locale dependant date to print date in header. Doc
Gerd Moellmann <gerd@gnu.org>
parents:
37967
diff
changeset
|
3278 as, for example, \"06/18/01\". |
baa7f44697de
Use locale dependant date to print date in header. Doc
Gerd Moellmann <gerd@gnu.org>
parents:
37967
diff
changeset
|
3279 |
baa7f44697de
Use locale dependant date to print date in header. Doc
Gerd Moellmann <gerd@gnu.org>
parents:
37967
diff
changeset
|
3280 `ps-time-stamp-hh:mm:ss' Return time as \"17:28:31\". |
baa7f44697de
Use locale dependant date to print date in header. Doc
Gerd Moellmann <gerd@gnu.org>
parents:
37967
diff
changeset
|
3281 |
baa7f44697de
Use locale dependant date to print date in header. Doc
Gerd Moellmann <gerd@gnu.org>
parents:
37967
diff
changeset
|
3282 `ps-time-stamp-mon-dd-yyyy' Return date as \"Jun 18 2001\". |
baa7f44697de
Use locale dependant date to print date in header. Doc
Gerd Moellmann <gerd@gnu.org>
parents:
37967
diff
changeset
|
3283 |
54233 | 3284 `ps-time-stamp-yyyy-mm-dd' Return date as \"2001-06-18\" (ISO |
3285 date). | |
3286 | |
3287 `ps-time-stamp-iso8601' Alias for `ps-time-stamp-yyyy-mm-dd'. | |
3288 | |
38302
baa7f44697de
Use locale dependant date to print date in header. Doc
Gerd Moellmann <gerd@gnu.org>
parents:
37967
diff
changeset
|
3289 You can also create your own time stamp function by using `format-time-string' |
47328 | 3290 \(which see)." |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3291 :type '(repeat (choice :menu-tag "Right Footer" |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3292 :tag "Right Footer" |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3293 string symbol)) |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3294 :version "21.1" |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3295 :group 'ps-print-headers) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3296 |
17405
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
3297 (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
|
3298 "*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
|
3299 :type 'boolean |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3300 :version "20" |
28426
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
3301 :group 'ps-print-miscellany) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3302 |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
3303 (defcustom ps-adobe-tag "%!PS-Adobe-3.0\n" |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3304 "*Contains the header line identifying the output as PostScript. |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3305 By default, `ps-adobe-tag' contains the standard identifier. Some printers |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3306 require slightly different versions of this line." |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
3307 :type 'string |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3308 :version "20" |
28426
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
3309 :group 'ps-print-miscellany) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3310 |
17405
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
3311 (defcustom ps-build-face-reference t |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3312 "*Non-nil means build the reference face lists. |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3313 |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3314 ps-print sets this value to nil after it builds its internal reference lists of |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3315 bold and italic faces. By settings its value back to t, you can force ps-print |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3316 to rebuild the lists the next time you invoke one of the ...-with-faces |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3317 commands. |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3318 |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3319 You should set this value back to t after you change the attributes of any |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3320 face, or create new faces. Most users shouldn't have to worry about its |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3321 setting, though." |
17405
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
3322 :type 'boolean |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3323 :version "20" |
17405
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
3324 :group 'ps-print-face) |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
3325 |
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
3326 (defcustom ps-always-build-face-reference nil |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3327 "*Non-nil means always rebuild the reference face lists. |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3328 |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3329 If this variable is non-nil, ps-print will rebuild its internal reference lists |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3330 of bold and italic faces *every* time one of the ...-with-faces commands is |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3331 called. Most users shouldn't need to set this variable." |
17405
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
3332 :type 'boolean |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3333 :version "20" |
17405
1c2363f760ef
Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17377
diff
changeset
|
3334 :group 'ps-print-face) |
7257 | 3335 |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3336 (defcustom ps-banner-page-when-duplexing nil |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3337 "*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
|
3338 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
|
3339 :type 'boolean |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3340 :version "20" |
28426
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
3341 :group 'ps-print-headers) |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
3342 |
28979
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
3343 (defcustom ps-postscript-code-directory |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3344 (or (if (featurep 'xemacs) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3345 (cond ((fboundp 'locate-data-directory) ; xemacs |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3346 (locate-data-directory "ps-print")) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3347 ((boundp 'data-directory) ; xemacs |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3348 data-directory) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3349 (t ; don't know what to do |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3350 nil)) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3351 data-directory) ; emacs |
47674
330113e9df2b
(ps-print-emacs-type): Error if ps-print is
Richard M. Stallman <rms@gnu.org>
parents:
47426
diff
changeset
|
3352 (error "`ps-postscript-code-directory' isn't set properly")) |
27163
ea8740d15178
PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
27161
diff
changeset
|
3353 "*Directory where it's located the PostScript prologue file used by ps-print. |
ea8740d15178
PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
27161
diff
changeset
|
3354 By default, this directory is the same as in the variable `data-directory'." |
ea8740d15178
PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
27161
diff
changeset
|
3355 :type 'directory |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3356 :version "20" |
28426
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
3357 :group 'ps-print-miscellany) |
27163
ea8740d15178
PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
27161
diff
changeset
|
3358 |
37135
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
3359 (defcustom ps-line-spacing 0 |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
3360 "*Specify line spacing, in points, for ordinary text. |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
3361 |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
3362 See also `ps-paragraph-spacing' and `ps-paragraph-regexp'. |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
3363 |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
3364 To get all lines with some spacing set both `ps-line-spacing' and |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
3365 `ps-paragraph-spacing' variables." |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
3366 :type '(choice :menu-tag "Line Spacing For Ordinary Text" |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
3367 :tag "Line Spacing For Ordinary Text" |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
3368 (number :tag "Line Spacing") |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
3369 (cons :tag "Landscape/Portrait" |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
3370 (number :tag "Landscape Line Spacing") |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
3371 (number :tag "Portrait Line Spacing"))) |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
3372 :version "21.1" |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
3373 :group 'ps-print-miscellany) |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
3374 |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
3375 (defcustom ps-paragraph-spacing 0 |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
3376 "*Specify paragraph spacing, in points, for ordinary text. |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
3377 |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
3378 See also `ps-line-spacing' and `ps-paragraph-regexp'. |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
3379 |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
3380 To get all lines with some spacing set both `ps-line-spacing' and |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
3381 `ps-paragraph-spacing' variables." |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
3382 :type '(choice :menu-tag "Paragraph Spacing For Ordinary Text" |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
3383 :tag "Paragraph Spacing For Ordinary Text" |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
3384 (number :tag "Paragraph Spacing") |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
3385 (cons :tag "Landscape/Portrait" |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
3386 (number :tag "Landscape Paragraph Spacing") |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
3387 (number :tag "Portrait Paragraph Spacing"))) |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
3388 :version "21.1" |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
3389 :group 'ps-print-miscellany) |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
3390 |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
3391 (defcustom ps-paragraph-regexp "[ \t]*$" |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
3392 "*Specify paragraph delimiter. |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
3393 |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
3394 It should be a regexp or nil. |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
3395 |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
3396 See also `ps-paragraph-spacing'." |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
3397 :type '(choice :menu-tag "Paragraph Delimiter" |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
3398 (const :tag "No Delimiter" nil) |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
3399 (regexp :tag "Delimiter Regexp")) |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
3400 :version "21.1" |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
3401 :group 'ps-print-miscellany) |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
3402 |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
3403 (defcustom ps-begin-cut-regexp nil |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
3404 "*Specify regexp which is start of a region to cut out when printing. |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
3405 |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
3406 As an example, variables `ps-begin-cut-regexp' and `ps-end-cut-regexp' may be |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
3407 set to \"^Local Variables:\" and \"^End:\", respectively, in order to leave out |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
3408 some special printing instructions from the actual print. Special printing |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
3409 instructions may be appended to the end of the file just like any other |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
3410 buffer-local variables. See section \"Local Variables in Files\" on Emacs |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
3411 manual for more information. |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
3412 |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
3413 Variables `ps-begin-cut-regexp' and `ps-end-cut-regexp' control together what |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
3414 actually gets printed. Both variables may be set to nil in which case no |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
3415 cutting occurs." |
46712
9423094d3e99
Update copyright year.
Markus Rost <rost@math.uni-bielefeld.de>
parents:
43526
diff
changeset
|
3416 :type '(choice (const :tag "No Delimiter" nil) |
9423094d3e99
Update copyright year.
Markus Rost <rost@math.uni-bielefeld.de>
parents:
43526
diff
changeset
|
3417 (regexp :tag "Delimiter Regexp")) |
37135
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
3418 :version "21.1" |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
3419 :group 'ps-print-miscellany) |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
3420 |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
3421 (defcustom ps-end-cut-regexp nil |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
3422 "*Specify regexp which is end of the region to cut out when printing. |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
3423 |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
3424 See `ps-begin-cut-regexp' for more information." |
46712
9423094d3e99
Update copyright year.
Markus Rost <rost@math.uni-bielefeld.de>
parents:
43526
diff
changeset
|
3425 :type '(choice (const :tag "No Delimiter" nil) |
9423094d3e99
Update copyright year.
Markus Rost <rost@math.uni-bielefeld.de>
parents:
43526
diff
changeset
|
3426 (regexp :tag "Delimiter Regexp")) |
37135
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
3427 :version "21.1" |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
3428 :group 'ps-print-miscellany) |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
3429 |
27161
0a2452a20c74
ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
26883
diff
changeset
|
3430 |
0a2452a20c74
ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
26883
diff
changeset
|
3431 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
29848
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
3432 ;; Selected Pages |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
3433 |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
3434 |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
3435 (defvar ps-last-selected-pages nil |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
3436 "Latest `ps-selected-pages' value.") |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
3437 |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
3438 |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
3439 (defun ps-restore-selected-pages () |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
3440 "Restore latest `ps-selected-pages' value." |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
3441 (interactive) |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
3442 (setq ps-selected-pages ps-last-selected-pages)) |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
3443 |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
3444 |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
3445 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
27161
0a2452a20c74
ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
26883
diff
changeset
|
3446 ;; Customization |
0a2452a20c74
ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
26883
diff
changeset
|
3447 |
0a2452a20c74
ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
26883
diff
changeset
|
3448 |
0a2452a20c74
ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
26883
diff
changeset
|
3449 ;;;###autoload |
0a2452a20c74
ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
26883
diff
changeset
|
3450 (defun ps-print-customize () |
0a2452a20c74
ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
26883
diff
changeset
|
3451 "Customization of ps-print group." |
0a2452a20c74
ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
26883
diff
changeset
|
3452 (interactive) |
0a2452a20c74
ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
26883
diff
changeset
|
3453 (customize-group 'ps-print)) |
0a2452a20c74
ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
26883
diff
changeset
|
3454 |
0a2452a20c74
ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
26883
diff
changeset
|
3455 |
7257 | 3456 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3457 ;; User commands |
7257 | 3458 |
27161
0a2452a20c74
ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
26883
diff
changeset
|
3459 |
10683 | 3460 ;;;###autoload |
7257 | 3461 (defun ps-print-buffer (&optional filename) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3462 "Generate and print a PostScript image of the buffer. |
7257 | 3463 |
47328 | 3464 Interactively, when you use a prefix argument (\\[universal-argument]), the command prompts the |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3465 user for a file name, and saves the PostScript image in that file instead of |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3466 sending it to the printer. |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3467 |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3468 Noninteractively, the argument FILENAME is treated as follows: if it is nil, |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3469 send the image to the printer. If FILENAME is a string, save the PostScript |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3470 image in a file with that name." |
10683 | 3471 (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
|
3472 (ps-print-without-faces (point-min) (point-max) filename)) |
7257 | 3473 |
3474 | |
10683 | 3475 ;;;###autoload |
7257 | 3476 (defun ps-print-buffer-with-faces (&optional filename) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3477 "Generate and print a PostScript image of the buffer. |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3478 Like `ps-print-buffer', but includes font, color, and underline information in |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3479 the generated image. This command works only if you are using a window system, |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3480 so it has a way to determine color values." |
10683 | 3481 (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
|
3482 (ps-print-with-faces (point-min) (point-max) filename)) |
7257 | 3483 |
3484 | |
10683 | 3485 ;;;###autoload |
7257 | 3486 (defun ps-print-region (from to &optional filename) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3487 "Generate and print a PostScript image of the region. |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3488 Like `ps-print-buffer', but prints just the current region." |
39327
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
3489 (interactive (ps-print-preprint-region current-prefix-arg)) |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
3490 (ps-print-without-faces from to filename t)) |
7257 | 3491 |
3492 | |
10683 | 3493 ;;;###autoload |
7257 | 3494 (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
|
3495 "Generate and print a PostScript image of the region. |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3496 Like `ps-print-region', but includes font, color, and underline information in |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3497 the generated image. This command works only if you are using a window system, |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3498 so it has a way to determine color values." |
39327
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
3499 (interactive (ps-print-preprint-region current-prefix-arg)) |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
3500 (ps-print-with-faces from to filename t)) |
7257 | 3501 |
3502 | |
10683 | 3503 ;;;###autoload |
7257 | 3504 (defun ps-spool-buffer () |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3505 "Generate and spool a PostScript image of the buffer. |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3506 Like `ps-print-buffer' except that the PostScript image is saved in a local |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3507 buffer to be sent to the printer later. |
7257 | 3508 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3509 Use the command `ps-despool' to send the spooled images to the printer." |
7257 | 3510 (interactive) |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3511 (ps-spool-without-faces (point-min) (point-max))) |
7257 | 3512 |
3513 | |
10683 | 3514 ;;;###autoload |
7257 | 3515 (defun ps-spool-buffer-with-faces () |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3516 "Generate and spool a PostScript image of the buffer. |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3517 Like `ps-spool-buffer', but includes font, color, and underline information in |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3518 the generated image. This command works only if you are using a window system, |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3519 so it has a way to determine color values. |
7257 | 3520 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3521 Use the command `ps-despool' to send the spooled images to the printer." |
7257 | 3522 (interactive) |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
3523 (ps-spool-with-faces (point-min) (point-max))) |
7257 | 3524 |
3525 | |
10683 | 3526 ;;;###autoload |
7257 | 3527 (defun ps-spool-region (from to) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3528 "Generate a PostScript image of the region and spool locally. |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3529 Like `ps-spool-buffer', but spools just the current region. |
7257 | 3530 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3531 Use the command `ps-despool' to send the spooled images to the printer." |
7257 | 3532 (interactive "r") |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
3533 (ps-spool-without-faces from to t)) |
7257 | 3534 |
3535 | |
10683 | 3536 ;;;###autoload |
7257 | 3537 (defun ps-spool-region-with-faces (from to) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3538 "Generate a PostScript image of the region and spool locally. |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3539 Like `ps-spool-region', but includes font, color, and underline information in |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3540 the generated image. This command works only if you are using a window system, |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3541 so it has a way to determine color values. |
7257 | 3542 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3543 Use the command `ps-despool' to send the spooled images to the printer." |
7257 | 3544 (interactive "r") |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
3545 (ps-spool-with-faces from to t)) |
7257 | 3546 |
10683 | 3547 ;;;###autoload |
7257 | 3548 (defun ps-despool (&optional filename) |
3549 "Send the spooled PostScript to the printer. | |
3550 | |
47328 | 3551 Interactively, when you use a prefix argument (\\[universal-argument]), the command prompts the |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3552 user for a file name, and saves the spooled PostScript image in that file |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3553 instead of sending it to the printer. |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3554 |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3555 Noninteractively, the argument FILENAME is treated as follows: if it is nil, |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3556 send the image to the printer. If FILENAME is a string, save the PostScript |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3557 image in a file with that name." |
10683 | 3558 (interactive (list (ps-print-preprint current-prefix-arg))) |
3559 (ps-do-despool filename)) | |
7257 | 3560 |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
3561 ;;;###autoload |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
3562 (defun ps-line-lengths () |
47328 | 3563 "Display the correspondence between a line length and a font size. |
3564 Done using the current ps-print setup. | |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
3565 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
|
3566 (interactive) |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
3567 (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
|
3568 |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
3569 ;;;###autoload |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
3570 (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
|
3571 "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
|
3572 The table depends on the current ps-print setup." |
39327
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
3573 (interactive (ps-count-lines-preprint (point-min) (point-max))) |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
3574 (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
|
3575 |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
3576 ;;;###autoload |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
3577 (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
|
3578 "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
|
3579 The table depends on the current ps-print setup." |
39327
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
3580 (interactive (ps-count-lines-preprint (mark) (point))) |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
3581 (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
|
3582 |
37967
758fe02d489d
Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents:
37489
diff
changeset
|
3583 (defvar ps-prefix-quote nil |
758fe02d489d
Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents:
37489
diff
changeset
|
3584 "Used for `ps-print-quote' (which see).") |
37489
ba96560d3f9e
Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents:
37286
diff
changeset
|
3585 |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
3586 ;;;###autoload |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
3587 (defun ps-setup () |
21955
c4de7c7bc14a
(ps-header-title-font-size): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
21954
diff
changeset
|
3588 "Return the current PostScript-generation setup." |
37489
ba96560d3f9e
Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents:
37286
diff
changeset
|
3589 (let (ps-prefix-quote) |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3590 (mapconcat |
37489
ba96560d3f9e
Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents:
37286
diff
changeset
|
3591 #'ps-print-quote |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3592 (list |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3593 (concat "\n;;; ps-print version " ps-print-version "\n") |
55386 | 3594 ";; internal vars" |
58407 | 3595 (ps-comment-string "emacs-version " emacs-version) |
55384 | 3596 (ps-comment-string "ps-print-emacs-type" ps-print-emacs-type) |
55386 | 3597 (ps-comment-string "ps-windows-system " ps-windows-system) |
3598 (ps-comment-string "ps-lp-system " ps-lp-system) | |
3599 nil | |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3600 '(25 . ps-print-color-p) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3601 '(25 . ps-lpr-command) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3602 '(25 . ps-lpr-switches) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3603 '(25 . ps-printer-name) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3604 '(25 . ps-printer-name-option) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3605 '(25 . ps-print-region-function) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3606 '(25 . ps-manual-feed) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3607 '(25 . ps-end-with-control-d) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3608 nil |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3609 '(23 . ps-paper-type) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3610 '(23 . ps-warn-paper-type) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3611 '(23 . ps-landscape-mode) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3612 '(23 . ps-print-upside-down) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3613 '(23 . ps-number-of-columns) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3614 nil |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3615 '(23 . ps-zebra-stripes) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3616 '(23 . ps-zebra-stripe-height) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3617 '(23 . ps-zebra-stripe-follow) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3618 '(23 . ps-zebra-color) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3619 '(23 . ps-line-number) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3620 '(23 . ps-line-number-step) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3621 '(23 . ps-line-number-start) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3622 nil |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3623 '(17 . ps-default-fg) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3624 '(17 . ps-default-bg) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3625 '(17 . ps-razzle-dazzle) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3626 nil |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3627 '(23 . ps-use-face-background) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3628 nil |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3629 '(28 . ps-print-control-characters) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3630 nil |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3631 '(26 . ps-print-background-image) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3632 nil |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3633 '(25 . ps-print-background-text) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3634 nil |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3635 '(29 . ps-error-handler-message) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3636 '(29 . ps-user-defined-prologue) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3637 '(29 . ps-print-prologue-header) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3638 '(29 . ps-postscript-code-directory) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3639 '(29 . ps-adobe-tag) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3640 nil |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3641 '(30 . ps-left-margin) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3642 '(30 . ps-right-margin) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3643 '(30 . ps-inter-column) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3644 '(30 . ps-bottom-margin) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3645 '(30 . ps-top-margin) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3646 '(30 . ps-print-only-one-header) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3647 '(30 . ps-switch-header) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3648 '(30 . ps-print-header) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3649 '(30 . ps-header-lines) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3650 '(30 . ps-header-offset) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3651 '(30 . ps-header-line-pad) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3652 '(30 . ps-print-header-frame) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3653 '(30 . ps-header-frame-alist) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3654 '(30 . ps-print-footer) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3655 '(30 . ps-footer-lines) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3656 '(30 . ps-footer-offset) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3657 '(30 . ps-footer-line-pad) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3658 '(30 . ps-print-footer-frame) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3659 '(30 . ps-footer-frame-alist) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3660 '(30 . ps-show-n-of-n) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3661 '(30 . ps-spool-config) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3662 '(30 . ps-spool-duplex) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3663 '(30 . ps-spool-tumble) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3664 '(30 . ps-banner-page-when-duplexing) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3665 '(30 . ps-left-header) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3666 '(30 . ps-right-header) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3667 '(30 . ps-left-footer) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3668 '(30 . ps-right-footer) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3669 nil |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3670 '(23 . ps-n-up-printing) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3671 '(23 . ps-n-up-margin) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3672 '(23 . ps-n-up-border-p) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3673 '(23 . ps-n-up-filling) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3674 nil |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3675 '(26 . ps-multibyte-buffer) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3676 '(26 . ps-font-family) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3677 '(26 . ps-font-size) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3678 '(26 . ps-header-font-family) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3679 '(26 . ps-header-font-size) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3680 '(26 . ps-header-title-font-size) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3681 '(26 . ps-footer-font-family) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3682 '(26 . ps-footer-font-size) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3683 '(26 . ps-line-number-color) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3684 '(26 . ps-line-number-font) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3685 '(26 . ps-line-number-font-size) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3686 '(26 . ps-line-spacing) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3687 '(26 . ps-paragraph-spacing) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3688 '(26 . ps-paragraph-regexp) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3689 '(26 . ps-begin-cut-regexp) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3690 '(26 . ps-end-cut-regexp) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3691 nil |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3692 '(23 . ps-even-or-odd-pages) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3693 '(23 . ps-selected-pages) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3694 '(23 . ps-last-selected-pages) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3695 nil |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3696 '(31 . ps-build-face-reference) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3697 '(31 . ps-always-build-face-reference) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3698 nil |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3699 '(20 . ps-auto-font-detect) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3700 '(20 . ps-bold-faces) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3701 '(20 . ps-italic-faces) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3702 '(20 . ps-underlined-faces) |
39327
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
3703 '(20 . ps-black-white-faces) |
37967
758fe02d489d
Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents:
37489
diff
changeset
|
3704 " )\n |
34919
2c73a20c859c
Handle form feed better when ps-zebra-stripe-follow is
Gerd Moellmann <gerd@gnu.org>
parents:
34045
diff
changeset
|
3705 ;; The following customized variables have long lists and are seldom modified: |
2c73a20c859c
Handle form feed better when ps-zebra-stripe-follow is
Gerd Moellmann <gerd@gnu.org>
parents:
34045
diff
changeset
|
3706 ;; ps-page-dimensions-database |
2c73a20c859c
Handle form feed better when ps-zebra-stripe-follow is
Gerd Moellmann <gerd@gnu.org>
parents:
34045
diff
changeset
|
3707 ;; ps-font-info-database |
29848
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
3708 |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3709 ;;; ps-print - end of settings\n") |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3710 "\n"))) |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
3711 |
27161
0a2452a20c74
ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
26883
diff
changeset
|
3712 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3713 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3714 ;; Utility functions and variables: |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3715 |
27161
0a2452a20c74
ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
26883
diff
changeset
|
3716 |
37489
ba96560d3f9e
Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents:
37286
diff
changeset
|
3717 (defun ps-print-quote (elt) |
37967
758fe02d489d
Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents:
37489
diff
changeset
|
3718 "Quote ELT for printing (used for showing settings). |
758fe02d489d
Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents:
37489
diff
changeset
|
3719 |
758fe02d489d
Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents:
37489
diff
changeset
|
3720 If ELT is nil, return an empty string. |
758fe02d489d
Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents:
37489
diff
changeset
|
3721 If ELT is string, return it. |
758fe02d489d
Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents:
37489
diff
changeset
|
3722 Otherwise, ELT should be a cons (LEN . SYM) where SYM is a variable symbol and |
758fe02d489d
Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents:
37489
diff
changeset
|
3723 LEN is the field length where SYM name will be inserted. The variable |
758fe02d489d
Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents:
37489
diff
changeset
|
3724 `ps-prefix-quote' is used to form the string, if `ps-prefix-quote' is nil, it's |
758fe02d489d
Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents:
37489
diff
changeset
|
3725 used \"(setq \" as prefix; otherwise, it's used \" \". So, the string |
758fe02d489d
Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents:
37489
diff
changeset
|
3726 generated is: |
758fe02d489d
Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents:
37489
diff
changeset
|
3727 |
758fe02d489d
Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents:
37489
diff
changeset
|
3728 * If `ps-prefix-quote' is nil: |
758fe02d489d
Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents:
37489
diff
changeset
|
3729 \"(setq SYM-NAME SYM-VALUE\" |
758fe02d489d
Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents:
37489
diff
changeset
|
3730 |<------->| |
758fe02d489d
Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents:
37489
diff
changeset
|
3731 LEN |
758fe02d489d
Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents:
37489
diff
changeset
|
3732 |
758fe02d489d
Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents:
37489
diff
changeset
|
3733 * If `ps-prefix-quote' is non-nil: |
758fe02d489d
Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents:
37489
diff
changeset
|
3734 \" SYM-NAME SYM-VALUE\" |
758fe02d489d
Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents:
37489
diff
changeset
|
3735 |<------->| |
758fe02d489d
Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents:
37489
diff
changeset
|
3736 LEN |
758fe02d489d
Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents:
37489
diff
changeset
|
3737 |
758fe02d489d
Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents:
37489
diff
changeset
|
3738 If `ps-prefix-quote' is nil, it's set to t after generating string." |
37489
ba96560d3f9e
Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents:
37286
diff
changeset
|
3739 (cond |
ba96560d3f9e
Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents:
37286
diff
changeset
|
3740 ((stringp elt) elt) |
47382
12f18e82e5e2
(ps-printer-name-option): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
47328
diff
changeset
|
3741 ((and (consp elt) (integerp (car elt)) |
12f18e82e5e2
(ps-printer-name-option): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
47328
diff
changeset
|
3742 (symbolp (cdr elt)) (boundp (cdr elt))) |
37489
ba96560d3f9e
Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents:
37286
diff
changeset
|
3743 (let* ((col (car elt)) |
ba96560d3f9e
Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents:
37286
diff
changeset
|
3744 (sym (cdr elt)) |
ba96560d3f9e
Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents:
37286
diff
changeset
|
3745 (key (symbol-name sym)) |
ba96560d3f9e
Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents:
37286
diff
changeset
|
3746 (len (length key)) |
ba96560d3f9e
Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents:
37286
diff
changeset
|
3747 (val (symbol-value sym))) |
ba96560d3f9e
Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents:
37286
diff
changeset
|
3748 (concat (if ps-prefix-quote |
37967
758fe02d489d
Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents:
37489
diff
changeset
|
3749 " " |
758fe02d489d
Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents:
37489
diff
changeset
|
3750 (setq ps-prefix-quote t) |
37489
ba96560d3f9e
Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents:
37286
diff
changeset
|
3751 "(setq ") |
ba96560d3f9e
Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents:
37286
diff
changeset
|
3752 key |
ba96560d3f9e
Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents:
37286
diff
changeset
|
3753 (if (> col len) |
ba96560d3f9e
Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents:
37286
diff
changeset
|
3754 (make-string (- col len) ?\ ) |
ba96560d3f9e
Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents:
37286
diff
changeset
|
3755 " ") |
55383 | 3756 (ps-value-string val)))) |
47382
12f18e82e5e2
(ps-printer-name-option): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
47328
diff
changeset
|
3757 (t "") |
37489
ba96560d3f9e
Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents:
37286
diff
changeset
|
3758 )) |
ba96560d3f9e
Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents:
37286
diff
changeset
|
3759 |
ba96560d3f9e
Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents:
37286
diff
changeset
|
3760 |
55383 | 3761 (defun ps-value-string (val) |
3762 "Return a string representation of VAL. Used by `ps-print-quote'." | |
3763 (cond ((null val) | |
3764 "nil") | |
3765 ((eq val t) | |
3766 "t") | |
3767 ((or (symbolp val) (listp val)) | |
3768 (format "'%S" val)) | |
3769 (t | |
3770 (format "%S" val)))) | |
3771 | |
3772 | |
55384 | 3773 (defun ps-comment-string (str value) |
55387 | 3774 "Return a comment string like \";; STR = VALUE\"." |
3775 (format ";; %s = %s" str (ps-value-string value))) | |
55384 | 3776 |
3777 | |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3778 (defun ps-value (alist-sym key) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3779 "Return value from association list ALIST-SYM which car is `eq' to KEY." |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3780 (cdr (assq key (symbol-value alist-sym)))) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3781 |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3782 |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3783 (defun ps-get (alist-sym key) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3784 "Return element from association list ALIST-SYM which car is `eq' to KEY." |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3785 (assq key (symbol-value alist-sym))) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3786 |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3787 |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3788 (defun ps-put (alist-sym key value) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3789 "Store element (KEY . VALUE) into association list ALIST-SYM. |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3790 If KEY already exists in ALIST-SYM, modify cdr to VALUE. |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3791 It can be retrieved with `(ps-get ALIST-SYM KEY)'." |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3792 (let ((elt: (assq key (symbol-value alist-sym)))) ; to avoid name conflict |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3793 (if elt: |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3794 (setcdr elt: value) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3795 (setq elt: (cons key value)) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3796 (set alist-sym (cons elt: (symbol-value alist-sym)))) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3797 elt:)) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3798 |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3799 |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3800 (defun ps-del (alist-sym key) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3801 "Delete by side effect element KEY from association list ALIST-SYM." |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3802 (let ((a:list: (symbol-value alist-sym)) ; to avoid name conflict |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3803 old) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3804 (while a:list: |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3805 (if (eq key (car (car a:list:))) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3806 (progn |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3807 (if old |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3808 (setcdr old (cdr a:list:)) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3809 (set alist-sym (cdr a:list:))) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3810 (setq a:list: nil)) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3811 (setq old a:list: |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3812 a:list: (cdr a:list:))))) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3813 (symbol-value alist-sym)) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3814 |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3815 |
38302
baa7f44697de
Use locale dependant date to print date in header. Doc
Gerd Moellmann <gerd@gnu.org>
parents:
37967
diff
changeset
|
3816 (defun ps-time-stamp-locale-default () |
baa7f44697de
Use locale dependant date to print date in header. Doc
Gerd Moellmann <gerd@gnu.org>
parents:
37967
diff
changeset
|
3817 "Return the locale's \"preferred\" date as, for example, \"06/18/01\"." |
baa7f44697de
Use locale dependant date to print date in header. Doc
Gerd Moellmann <gerd@gnu.org>
parents:
37967
diff
changeset
|
3818 (format-time-string "%x")) |
baa7f44697de
Use locale dependant date to print date in header. Doc
Gerd Moellmann <gerd@gnu.org>
parents:
37967
diff
changeset
|
3819 |
baa7f44697de
Use locale dependant date to print date in header. Doc
Gerd Moellmann <gerd@gnu.org>
parents:
37967
diff
changeset
|
3820 |
36215
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
3821 (defun ps-time-stamp-mon-dd-yyyy () |
38302
baa7f44697de
Use locale dependant date to print date in header. Doc
Gerd Moellmann <gerd@gnu.org>
parents:
37967
diff
changeset
|
3822 "Return date as \"Jun 18 2001\"." |
36215
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
3823 (format-time-string "%b %d %Y")) |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
3824 |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
3825 |
54233 | 3826 (defun ps-time-stamp-yyyy-mm-dd () |
3827 "Return date as \"2001-06-18\" (ISO date)." | |
3828 (format-time-string "%Y-%m-%d")) | |
3829 | |
3830 | |
56127
a39b3f6d1177
Comment doc string of defalias
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
55919
diff
changeset
|
3831 ;; Alias for `ps-time-stamp-yyyy-mm-dd' (which see). |
a39b3f6d1177
Comment doc string of defalias
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
55919
diff
changeset
|
3832 (defalias 'ps-time-stamp-iso8601 'ps-time-stamp-yyyy-mm-dd) |
54233 | 3833 |
3834 | |
36215
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
3835 (defun ps-time-stamp-hh:mm:ss () |
38302
baa7f44697de
Use locale dependant date to print date in header. Doc
Gerd Moellmann <gerd@gnu.org>
parents:
37967
diff
changeset
|
3836 "Return time as \"17:28:31\"." |
36215
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
3837 (format-time-string "%T")) |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
3838 |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
3839 |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3840 (and (featurep 'xemacs) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3841 ;; XEmacs change: Need to check for emacs-major-version too. |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3842 (or (< emacs-major-version 19) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3843 (and (= emacs-major-version 19) (< emacs-minor-version 12))) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3844 (setq ps-print-color-p nil)) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3845 |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3846 |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3847 ;; Return t if the device (which can be changed during an emacs session) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3848 ;; can handle colors. |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3849 ;; This function is not yet implemented for GNU emacs. |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3850 (cond ((and (featurep 'xemacs) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3851 ;; XEmacs change: Need to check for emacs-major-version too. |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3852 (or (> emacs-major-version 19) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3853 (and (= emacs-major-version 19) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3854 (>= emacs-minor-version 12)))) ; xemacs >= 19.12 |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3855 (defun ps-color-device () |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3856 (eq (ps-x-device-class) 'color))) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3857 |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3858 (t ; emacs |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3859 (defun ps-color-device () |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3860 (if (fboundp 'color-values) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3861 (ps-e-color-values "Green") |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3862 t)))) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3863 |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3864 |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3865 (defun ps-mapper (extent list) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3866 (nconc list |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3867 (list (list (ps-x-extent-start-position extent) 'push extent) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3868 (list (ps-x-extent-end-position extent) 'pull extent))) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3869 nil) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3870 |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3871 (defun ps-extent-sorter (a b) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3872 (< (ps-x-extent-priority a) (ps-x-extent-priority b))) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3873 |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3874 (defun ps-xemacs-face-kind-p (face kind kind-regex) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3875 (let* ((frame-font (or (ps-x-face-font-instance face) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3876 (ps-x-face-font-instance 'default))) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3877 (kind-cons |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3878 (and frame-font |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3879 (assq kind |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3880 (ps-x-font-instance-properties frame-font)))) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3881 (kind-spec (cdr-safe kind-cons)) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3882 (case-fold-search t)) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3883 (and kind-spec (string-match kind-regex kind-spec)))) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3884 |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3885 (cond ((featurep 'xemacs) ; xemacs |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3886 |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3887 ;; to avoid XEmacs compilation gripes |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3888 (defvar coding-system-for-write nil) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3889 (defvar coding-system-for-read nil) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3890 (defvar buffer-file-coding-system nil) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3891 |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3892 (and (fboundp 'find-coding-system) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3893 (or (ps-x-find-coding-system 'raw-text-unix) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3894 (ps-x-copy-coding-system 'no-conversion-unix 'raw-text-unix))) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3895 |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3896 (defun ps-color-values (x-color) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3897 (let ((color (ps-xemacs-color-name x-color))) |
33090
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
3898 (cond |
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
3899 ((fboundp 'x-color-values) |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3900 (ps-e-x-color-values color)) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3901 ((and (fboundp 'color-instance-rgb-components) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3902 (ps-color-device)) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3903 (ps-x-color-instance-rgb-components |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3904 (if (ps-x-color-instance-p x-color) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3905 x-color |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3906 (ps-x-make-color-instance color)))) |
33090
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
3907 (t |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3908 (error "No available function to determine X color values"))))) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3909 |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3910 (defun ps-face-bold-p (face) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3911 (or (ps-xemacs-face-kind-p face 'WEIGHT_NAME "bold\\|demibold") |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3912 (memq face ps-bold-faces))) ; Kludge-compatible |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3913 |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3914 (defun ps-face-italic-p (face) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3915 (or (ps-xemacs-face-kind-p face 'ANGLE_NAME "i\\|o") |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3916 (ps-xemacs-face-kind-p face 'SLANT "i\\|o") |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3917 (memq face ps-italic-faces))) ; Kludge-compatible |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3918 ) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3919 |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3920 (t ; emacs |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3921 |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3922 (defun ps-color-values (x-color) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3923 (cond |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3924 ((fboundp 'color-values) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3925 (ps-e-color-values x-color)) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3926 ((fboundp 'x-color-values) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3927 (ps-e-x-color-values x-color)) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3928 (t |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3929 (error "No available function to determine X color values")))) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3930 |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3931 (defun ps-face-bold-p (face) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3932 (or (ps-e-face-bold-p face) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3933 (memq face ps-bold-faces))) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3934 |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3935 (defun ps-face-italic-p (face) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3936 (or (ps-e-face-italic-p face) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3937 (memq face ps-italic-faces))) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
3938 )) |
32653
f05cc7224309
Even/odd pages fix. Fix little bug on XEmacs. Avoid
Gerd Moellmann <gerd@gnu.org>
parents:
32619
diff
changeset
|
3939 |
f05cc7224309
Even/odd pages fix. Fix little bug on XEmacs. Avoid
Gerd Moellmann <gerd@gnu.org>
parents:
32619
diff
changeset
|
3940 |
33090
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
3941 (defvar ps-print-color-scale 1.0) |
32914 | 3942 |
32653
f05cc7224309
Even/odd pages fix. Fix little bug on XEmacs. Avoid
Gerd Moellmann <gerd@gnu.org>
parents:
32619
diff
changeset
|
3943 (defun ps-color-scale (color) |
f05cc7224309
Even/odd pages fix. Fix little bug on XEmacs. Avoid
Gerd Moellmann <gerd@gnu.org>
parents:
32619
diff
changeset
|
3944 ;; Scale 16-bit X-COLOR-VALUE to PostScript color value in [0, 1] interval. |
f05cc7224309
Even/odd pages fix. Fix little bug on XEmacs. Avoid
Gerd Moellmann <gerd@gnu.org>
parents:
32619
diff
changeset
|
3945 (mapcar #'(lambda (value) (/ value ps-print-color-scale)) |
f05cc7224309
Even/odd pages fix. Fix little bug on XEmacs. Avoid
Gerd Moellmann <gerd@gnu.org>
parents:
32619
diff
changeset
|
3946 (ps-color-values color))) |
f05cc7224309
Even/odd pages fix. Fix little bug on XEmacs. Avoid
Gerd Moellmann <gerd@gnu.org>
parents:
32619
diff
changeset
|
3947 |
f05cc7224309
Even/odd pages fix. Fix little bug on XEmacs. Avoid
Gerd Moellmann <gerd@gnu.org>
parents:
32619
diff
changeset
|
3948 |
f05cc7224309
Even/odd pages fix. Fix little bug on XEmacs. Avoid
Gerd Moellmann <gerd@gnu.org>
parents:
32619
diff
changeset
|
3949 (defun ps-face-underlined-p (face) |
f05cc7224309
Even/odd pages fix. Fix little bug on XEmacs. Avoid
Gerd Moellmann <gerd@gnu.org>
parents:
32619
diff
changeset
|
3950 (or (face-underline-p face) |
f05cc7224309
Even/odd pages fix. Fix little bug on XEmacs. Avoid
Gerd Moellmann <gerd@gnu.org>
parents:
32619
diff
changeset
|
3951 (memq face ps-underlined-faces))) |
23091
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
3952 |
20516
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
3953 |
27163
ea8740d15178
PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
27161
diff
changeset
|
3954 (defun ps-prologue-file (filenumber) |
47328 | 3955 "If prologue FILENUMBER exists and is readable, return contents as string. |
36215
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
3956 |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
3957 Note: No major/minor-mode is activated and no local variables are evaluated for |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
3958 FILENUMBER, but proper EOL-conversion and character interpretation is |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
3959 done!" |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
3960 (let ((filename (convert-standard-filename |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
3961 (expand-file-name (format "ps-prin%d.ps" filenumber) |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
3962 ps-postscript-code-directory)))) |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
3963 (if (and (file-exists-p filename) |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3964 (file-readable-p filename)) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3965 (with-temp-buffer |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3966 (insert-file-contents filename) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
3967 (buffer-string)) |
38436
b174db545cfd
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
38302
diff
changeset
|
3968 (error "ps-print PostScript prologue `%s' file was not found" |
36215
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
3969 filename)))) |
27163
ea8740d15178
PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
27161
diff
changeset
|
3970 |
ea8740d15178
PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
27161
diff
changeset
|
3971 |
ea8740d15178
PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
27161
diff
changeset
|
3972 (defvar ps-mark-code-directory nil) |
ea8740d15178
PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
27161
diff
changeset
|
3973 |
28153
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
3974 (defvar ps-print-prologue-0 "" |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
3975 "ps-print PostScript error handler.") |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
3976 |
27163
ea8740d15178
PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
27161
diff
changeset
|
3977 (defvar ps-print-prologue-1 "" |
37135
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
3978 "ps-print PostScript prologue.") |
27163
ea8740d15178
PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
27161
diff
changeset
|
3979 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3980 ;; Start Editing Here: |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3981 |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3982 (defvar ps-source-buffer nil) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3983 (defvar ps-spool-buffer-name "*PostScript*") |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3984 (defvar ps-spool-buffer nil) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3985 |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3986 (defvar ps-output-head nil) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3987 (defvar ps-output-tail nil) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
3988 |
33143
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
3989 (defvar ps-page-postscript 0) ; page number |
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
3990 (defvar ps-page-order 0) ; PostScript page counter |
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
3991 (defvar ps-page-sheet 0) ; sheet counter |
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
3992 (defvar ps-page-column 0) ; column counter |
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
3993 (defvar ps-page-printed 0) ; total pages printed |
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
3994 (defvar ps-page-n-up 0) ; n-up counter |
34919
2c73a20c859c
Handle form feed better when ps-zebra-stripe-follow is
Gerd Moellmann <gerd@gnu.org>
parents:
34045
diff
changeset
|
3995 (defvar ps-lines-printed 0) ; total lines printed |
2c73a20c859c
Handle form feed better when ps-zebra-stripe-follow is
Gerd Moellmann <gerd@gnu.org>
parents:
34045
diff
changeset
|
3996 (defvar ps-showline-count 1) ; line number counter |
29848
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
3997 (defvar ps-first-page nil) |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
3998 (defvar ps-last-page nil) |
33090
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
3999 (defvar ps-print-page-p t) |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4000 |
20516
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4001 (defvar ps-control-or-escape-regexp nil) |
28979
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
4002 (defvar ps-n-up-on nil) |
20516
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4003 |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4004 (defvar ps-background-pages nil) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4005 (defvar ps-background-all-pages nil) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4006 (defvar ps-background-text-count 0) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4007 (defvar ps-background-image-count 0) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4008 |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4009 (defvar ps-current-font 0) |
28426
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
4010 (defvar ps-default-foreground nil) |
50032
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
4011 (defvar ps-default-background nil) |
28426
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
4012 (defvar ps-default-color nil) |
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
4013 (defvar ps-current-color nil) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4014 (defvar ps-current-bg nil) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4015 |
36215
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
4016 (defvar ps-zebra-stripe-full-p nil) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4017 (defvar ps-razchunk 0) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4018 |
23550
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
4019 (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
|
4020 (defvar ps-color-format |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
4021 (if (featurep 'xemacs) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
4022 ;; XEmacs will have to make do with %s (princ) for floats. |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
4023 "%s %s %s" |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
4024 |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
4025 ;; Emacs understands the %f format; we'll use it to limit color RGB |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
4026 ;; values to three decimals to cut down some on the size of the |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
4027 ;; PostScript output. |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
4028 "%0.3f %0.3f %0.3f")) |
7257 | 4029 |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
4030 ;; These values determine how much print-height to deduct when headers/footers |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
4031 ;; are turned on. This is a pretty clumsy way of handling it, but it'll do for |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
4032 ;; now. |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4033 |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
4034 (defvar ps-header-pad 0 |
21955
c4de7c7bc14a
(ps-header-title-font-size): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
21954
diff
changeset
|
4035 "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
|
4036 This is in units of points (1/72 inch).") |
7257 | 4037 |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
4038 (defvar ps-footer-pad 0 |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
4039 "Vertical and horizontal space between the footer frame and the text. |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
4040 This is in units of points (1/72 inch).") |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
4041 |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
4042 ;; Define accessors to the dimensions list. |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4043 |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
4044 (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
|
4045 (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
|
4046 (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
|
4047 |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4048 (defvar ps-landscape-page-height nil) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4049 |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4050 (defvar ps-print-width nil) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4051 (defvar ps-print-height nil) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4052 |
20331 | 4053 (defvar ps-height-remaining nil) |
4054 (defvar ps-width-remaining nil) | |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4055 |
24414
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
4056 (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
|
4057 (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
|
4058 (defvar ps-header-title-font-size-internal nil) |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
4059 (defvar ps-footer-font-size-internal nil) |
37135
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
4060 (defvar ps-line-spacing-internal nil) |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
4061 (defvar ps-paragraph-spacing-internal nil) |
24414
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
4062 |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4063 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4064 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4065 ;; Internal Variables |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4066 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4067 |
39327
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
4068 (defvar ps-black-white-faces-alist nil |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
4069 "Alist of symbolic faces used for black/white PostScript printers. |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
4070 An element of this list has the same form as `ps-print-face-extension-alist' |
47328 | 4071 \(which see). |
39327
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
4072 |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
4073 Don't change this list directly; instead, |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
4074 use `ps-extend-face' and `ps-extend-face-list'. |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
4075 See documentation for `ps-extend-face' for valid extension symbol. |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
4076 See also documentation for `ps-print-color-p'.") |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
4077 |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
4078 |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4079 (defvar ps-print-face-extension-alist nil |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
4080 "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
|
4081 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
|
4082 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4083 (FACE . [BITS FG BG]) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4084 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4085 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
|
4086 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
|
4087 to a feature (bold, underline, etc) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4088 (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
|
4089 FG foreground color (string or nil) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4090 BG background color (string or nil) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4091 |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
4092 Don't change this list directly; instead, |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
4093 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
|
4094 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
|
4095 |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
4096 |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
4097 (defvar ps-print-face-alist nil |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
4098 "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
|
4099 |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
4100 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
|
4101 `ps-print-face-extension-alist'. |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
4102 |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
4103 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
|
4104 `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
|
4105 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4106 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4107 (defconst ps-print-face-map-alist |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4108 '((bold . 1) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4109 (italic . 2) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4110 (underline . 4) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4111 (strikeout . 8) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4112 (overline . 16) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4113 (shadow . 32) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4114 (box . 64) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4115 (outline . 128)) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4116 "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
|
4117 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
|
4118 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4119 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4120 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
4121 ;; Remapping Faces |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4122 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4123 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4124 ;;;###autoload |
39327
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
4125 (defun ps-extend-face-list (face-extension-list &optional merge-p alist-sym) |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
4126 "Extend face in ALIST-SYM. |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4127 |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
4128 If optional MERGE-P is non-nil, extensions in FACE-EXTENSION-LIST are merged |
39327
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
4129 with face extension in ALIST-SYM; otherwise, overrides. |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
4130 |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
4131 If optional ALIST-SYM is nil, it's used `ps-print-face-extension-alist'; |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
4132 otherwise, it should be an alist symbol. |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4133 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4134 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
|
4135 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4136 See `ps-extend-face' for documentation." |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4137 (while face-extension-list |
39327
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
4138 (ps-extend-face (car face-extension-list) merge-p alist-sym) |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4139 (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
|
4140 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4141 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4142 ;;;###autoload |
39327
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
4143 (defun ps-extend-face (face-extension &optional merge-p alist-sym) |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
4144 "Extend face in ALIST-SYM. |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4145 |
21954
73f9f4219198
Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents:
21801
diff
changeset
|
4146 If optional MERGE-P is non-nil, extensions in FACE-EXTENSION list are merged |
39327
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
4147 with face extensions in ALIST-SYM; otherwise, overrides. |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
4148 |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
4149 If optional ALIST-SYM is nil, it's used `ps-print-face-extension-alist'; |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
4150 otherwise, it should be an alist symbol. |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4151 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4152 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
|
4153 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4154 (FACE-NAME FOREGROUND BACKGROUND EXTENSION...) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4155 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4156 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
|
4157 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4158 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
|
4159 foreground and background colors respectively. |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4160 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4161 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
|
4162 bold - use bold font. |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4163 italic - use italic font. |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4164 underline - put a line under text. |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4165 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
|
4166 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
|
4167 shadow - text will have a shadow. |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4168 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
|
4169 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
|
4170 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4171 If EXTENSION is any other symbol, it is ignored." |
39327
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
4172 (or alist-sym |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
4173 (setq alist-sym 'ps-print-face-extension-alist)) |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
4174 (let* ((background (nth 2 face-extension)) |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
4175 (foreground (nth 1 face-extension)) |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
4176 (face-name (nth 0 face-extension)) |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
4177 (ps-face (cdr (assq face-name (symbol-value alist-sym)))) |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4178 (face-vector (or ps-face (vector 0 nil nil))) |
39327
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
4179 (face-bit (ps-extension-bit face-extension))) |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4180 ;; extend face |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4181 (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
|
4182 (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
|
4183 face-bit)) |
39327
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
4184 (and (or (not merge-p) (and foreground (stringp foreground))) |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
4185 (aset face-vector 1 foreground)) |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
4186 (and (or (not merge-p) (and background (stringp background))) |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
4187 (aset face-vector 2 background)) |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4188 ;; 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
|
4189 (or ps-face |
39327
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
4190 (set alist-sym (cons (cons face-name face-vector) |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
4191 (symbol-value alist-sym)))))) |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4192 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4193 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4194 (defun ps-extension-bit (face-extension) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4195 (let ((face-bit 0)) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4196 ;; 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
|
4197 (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
|
4198 (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
|
4199 (setq face-bit (logior face-bit |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4200 (or (cdr (assq (car face-extension) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4201 ps-print-face-map-alist)) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4202 0)))) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4203 face-bit)) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4204 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4205 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4206 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4207 ;; Adapted from font-lock: (obsolete stuff) |
20516
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4208 ;; 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
|
4209 ;; 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
|
4210 ;; 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
|
4211 ;; 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
|
4212 |
27161
0a2452a20c74
ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
26883
diff
changeset
|
4213 |
20516
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4214 (defun ps-font-lock-face-attributes () |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4215 (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
|
4216 (boundp 'font-lock-face-attributes) |
32653
f05cc7224309
Even/odd pages fix. Fix little bug on XEmacs. Avoid
Gerd Moellmann <gerd@gnu.org>
parents:
32619
diff
changeset
|
4217 (let ((face-attributes (symbol-value 'font-lock-face-attributes))) |
20516
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4218 (while face-attributes |
21954
73f9f4219198
Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents:
21801
diff
changeset
|
4219 (let* ((face-attribute |
73f9f4219198
Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents:
21801
diff
changeset
|
4220 (car (prog1 face-attributes |
73f9f4219198
Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents:
21801
diff
changeset
|
4221 (setq face-attributes (cdr face-attributes))))) |
20516
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4222 (face (car face-attribute))) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4223 ;; Rustle up a `defface' SPEC from a |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4224 ;; `font-lock-face-attributes' entry. |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4225 (unless (get face 'saved-face) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4226 (let ((foreground (nth 1 face-attribute)) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4227 (background (nth 2 face-attribute)) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4228 (bold-p (nth 3 face-attribute)) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4229 (italic-p (nth 4 face-attribute)) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4230 (underline-p (nth 5 face-attribute)) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4231 face-spec) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4232 (when foreground |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4233 (setq face-spec (cons ':foreground |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4234 (cons foreground face-spec)))) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4235 (when background |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4236 (setq face-spec (cons ':background |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4237 (cons background face-spec)))) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4238 (when bold-p |
42452
0cfd64a10789
(ps-font-lock-face-attributes): Use :weight and :slant.
Richard M. Stallman <rms@gnu.org>
parents:
39353
diff
changeset
|
4239 (setq face-spec (append '(:weight bold) face-spec))) |
20516
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4240 (when italic-p |
42452
0cfd64a10789
(ps-font-lock-face-attributes): Use :weight and :slant.
Richard M. Stallman <rms@gnu.org>
parents:
39353
diff
changeset
|
4241 (setq face-spec (append '(:slant italic) face-spec))) |
20516
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4242 (when underline-p |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4243 (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
|
4244 (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
|
4245 ))))))) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4246 |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4247 |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4248 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4249 ;; Internal functions and variables |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4250 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4251 |
54331
8f69fa8038cb
Modification to print *Messages* buffer.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
54233
diff
changeset
|
4252 (defun ps-message-log-max () |
8f69fa8038cb
Modification to print *Messages* buffer.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
54233
diff
changeset
|
4253 (and (not (string= (buffer-name) "*Messages*")) |
56504
8d030ffc0866
Improve DSC compliance.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56127
diff
changeset
|
4254 (boundp 'message-log-max) |
54331
8f69fa8038cb
Modification to print *Messages* buffer.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
54233
diff
changeset
|
4255 message-log-max)) |
8f69fa8038cb
Modification to print *Messages* buffer.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
54233
diff
changeset
|
4256 |
8f69fa8038cb
Modification to print *Messages* buffer.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
54233
diff
changeset
|
4257 |
32619
c09b494a5f49
Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents:
31253
diff
changeset
|
4258 (defvar ps-print-hook nil) |
c09b494a5f49
Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents:
31253
diff
changeset
|
4259 (defvar ps-print-begin-sheet-hook nil) |
c09b494a5f49
Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents:
31253
diff
changeset
|
4260 (defvar ps-print-begin-page-hook nil) |
c09b494a5f49
Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents:
31253
diff
changeset
|
4261 (defvar ps-print-begin-column-hook nil) |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
4262 |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
4263 |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
4264 (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
|
4265 (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
|
4266 (ps-do-despool filename)) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4267 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4268 |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
4269 (defun ps-spool-without-faces (from to &optional region-p) |
54331
8f69fa8038cb
Modification to print *Messages* buffer.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
54233
diff
changeset
|
4270 (let ((message-log-max (ps-message-log-max))) ; to print *Messages* buffer |
8f69fa8038cb
Modification to print *Messages* buffer.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
54233
diff
changeset
|
4271 (run-hooks 'ps-print-hook) |
8f69fa8038cb
Modification to print *Messages* buffer.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
54233
diff
changeset
|
4272 (ps-printing-region region-p from to) |
8f69fa8038cb
Modification to print *Messages* buffer.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
54233
diff
changeset
|
4273 (ps-generate (current-buffer) from to 'ps-generate-postscript))) |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4274 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4275 |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
4276 (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
|
4277 (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
|
4278 (ps-do-despool filename)) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4279 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4280 |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
4281 (defun ps-spool-with-faces (from to &optional region-p) |
54331
8f69fa8038cb
Modification to print *Messages* buffer.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
54233
diff
changeset
|
4282 (let ((message-log-max (ps-message-log-max))) ; to print *Messages* buffer |
8f69fa8038cb
Modification to print *Messages* buffer.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
54233
diff
changeset
|
4283 (run-hooks 'ps-print-hook) |
8f69fa8038cb
Modification to print *Messages* buffer.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
54233
diff
changeset
|
4284 (ps-printing-region region-p from to) |
8f69fa8038cb
Modification to print *Messages* buffer.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
54233
diff
changeset
|
4285 (ps-generate (current-buffer) from to 'ps-generate-postscript-with-faces))) |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4286 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4287 |
39327
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
4288 (defun ps-count-lines-preprint (from to) |
54331
8f69fa8038cb
Modification to print *Messages* buffer.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
54233
diff
changeset
|
4289 (or (and from to) |
8f69fa8038cb
Modification to print *Messages* buffer.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
54233
diff
changeset
|
4290 (error "The mark is not set now")) |
8f69fa8038cb
Modification to print *Messages* buffer.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
54233
diff
changeset
|
4291 (let ((message-log-max (ps-message-log-max))) ; to count lines of *Messages* |
8f69fa8038cb
Modification to print *Messages* buffer.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
54233
diff
changeset
|
4292 (list (count-lines from to)))) |
39327
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
4293 |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
4294 |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4295 (defun ps-count-lines (from to) |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
4296 (+ (count-lines from to) |
20516
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4297 (save-excursion |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4298 (goto-char to) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4299 (if (= (current-column) 0) 1 0)))) |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
4300 |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
4301 |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
4302 (defvar ps-printing-region nil |
56504
8d030ffc0866
Improve DSC compliance.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56127
diff
changeset
|
4303 "Variable used to indicate the region that ps-print is printing. |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4304 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
|
4305 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
|
4306 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
|
4307 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
|
4308 file.") |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4309 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4310 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4311 (defvar ps-printing-region-p nil |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4312 "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
|
4313 |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
4314 |
51864
6edc2212d82e
Print line number correctly in a region.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
51007
diff
changeset
|
4315 (defun ps-printing-region (region-p from to) |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4316 (setq ps-printing-region-p region-p |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4317 ps-printing-region |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4318 (cons (if region-p |
51864
6edc2212d82e
Print line number correctly in a region.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
51007
diff
changeset
|
4319 (ps-count-lines (point-min) (min from to)) |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4320 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4321 (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
|
4322 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4323 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4324 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4325 ;; Internal functions |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4326 |
27161
0a2452a20c74
ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
26883
diff
changeset
|
4327 |
21999
35efe9eafc6c
(ps-alist-position): Renamed from ps-position.
Richard M. Stallman <rms@gnu.org>
parents:
21955
diff
changeset
|
4328 (defsubst ps-font-alist (font-sym) |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
4329 (get font-sym 'fonts)) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
4330 |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
4331 (defun ps-font (font-sym font-type) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
4332 "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
|
4333 (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
|
4334 (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
|
4335 (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
|
4336 (setq font-list (cdr font-list))) |
73f9f4219198
Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents:
21801
diff
changeset
|
4337 (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
|
4338 |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
4339 (defsubst ps-fonts (font-sym) |
21999
35efe9eafc6c
(ps-alist-position): Renamed from ps-position.
Richard M. Stallman <rms@gnu.org>
parents:
21955
diff
changeset
|
4340 (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
|
4341 |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
4342 (defsubst ps-font-number (font-sym font-type) |
21999
35efe9eafc6c
(ps-alist-position): Renamed from ps-position.
Richard M. Stallman <rms@gnu.org>
parents:
21955
diff
changeset
|
4343 (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
|
4344 0)) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
4345 |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
4346 (defsubst ps-line-height (font-sym) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
4347 "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
|
4348 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
|
4349 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
|
4350 point at which page-breaks are placed. |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
4351 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
|
4352 (get font-sym 'line-height)) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
4353 |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
4354 (defsubst ps-title-line-height (font-sym) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
4355 "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
|
4356 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
|
4357 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
|
4358 point at which page-breaks are placed. |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
4359 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
|
4360 (get font-sym 'title-line-height)) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
4361 |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
4362 (defsubst ps-space-width (font-sym) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
4363 "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
|
4364 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
|
4365 (get font-sym 'space-width)) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
4366 |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
4367 (defsubst ps-avg-char-width (font-sym) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
4368 "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
|
4369 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
|
4370 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
|
4371 which long lines wrap around." |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
4372 (get font-sym 'avg-char-width)) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
4373 |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
4374 (defun ps-line-lengths-internal () |
47328 | 4375 "Display the correspondence between a line length and a font size. |
4376 Done using the current ps-print setup. | |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
4377 Try: pr -t file | awk '{printf \"%3d %s\n\", length($0), $0}' | sort -r | head" |
30522
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
4378 (let* ((ps-font-size-internal |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
4379 (or ps-font-size-internal |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
4380 (ps-get-font-size 'ps-font-size))) |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
4381 (ps-header-font-size-internal |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
4382 (or ps-header-font-size-internal |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
4383 (ps-get-font-size 'ps-header-font-size))) |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
4384 (ps-header-title-font-size-internal |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
4385 (or ps-header-title-font-size-internal |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
4386 (ps-get-font-size 'ps-header-title-font-size))) |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
4387 (buf (get-buffer-create "*Line-lengths*")) |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
4388 (ifs ps-font-size-internal) ; initial font size |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
4389 (icw (ps-avg-char-width 'ps-font-for-text)) ; initial character width |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
4390 (print-width (progn (ps-get-page-dimensions) |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
4391 ps-print-width)) |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
4392 (ps-setup (ps-setup)) ; setup for the current buffer |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
4393 (fs-min 5) ; minimum font size |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
4394 cw-min ; minimum character width |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
4395 nb-cpl-max ; maximum nb of characters per line |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
4396 (fs-max 14) ; maximum font size |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
4397 cw-max ; maximum character width |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
4398 nb-cpl-min ; minimum nb of characters per line |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
4399 fs ; current font size |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
4400 cw ; current character width |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
4401 nb-cpl ; current nb of characters per line |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
4402 ) |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
4403 (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
|
4404 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
|
4405 cw-max (/ (* icw fs-max) ifs) |
20331 | 4406 nb-cpl-min (floor (/ print-width cw-max)) |
4407 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
|
4408 (set-buffer buf) |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
4409 (goto-char (point-max)) |
30522
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
4410 (or (bobp) (insert "\n" (make-string 75 ?\;) "\n")) |
20331 | 4411 (insert ps-setup |
30522
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
4412 "\nnb char per line / font size\n") |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
4413 (while (<= nb-cpl nb-cpl-max) |
20331 | 4414 (setq cw (/ print-width (float nb-cpl)) |
4415 fs (/ (* ifs cw) icw)) | |
30522
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
4416 (insert (format "%16d %s\n" nb-cpl fs)) |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
4417 (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
|
4418 (insert "\n") |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
4419 (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
|
4420 |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
4421 (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
|
4422 "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
|
4423 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
|
4424 and on the current ps-print setup." |
30522
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
4425 (let* ((ps-font-size-internal |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
4426 (or ps-font-size-internal |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
4427 (ps-get-font-size 'ps-font-size))) |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
4428 (ps-header-font-size-internal |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
4429 (or ps-header-font-size-internal |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
4430 (ps-get-font-size 'ps-header-font-size))) |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
4431 (ps-header-title-font-size-internal |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
4432 (or ps-header-title-font-size-internal |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
4433 (ps-get-font-size 'ps-header-title-font-size))) |
37135
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
4434 (ps-line-spacing-internal |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
4435 (or ps-line-spacing-internal |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
4436 (ps-get-size ps-line-spacing "line spacing"))) |
30522
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
4437 (buf (get-buffer-create "*Nb-Pages*")) |
37135
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
4438 (ils ps-line-spacing-internal) ; initial line spacing |
30522
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
4439 (ifs ps-font-size-internal) ; initial font size |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
4440 (ilh (ps-line-height 'ps-font-for-text)) ; initial line height |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
4441 (page-height (progn (ps-get-page-dimensions) |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
4442 ps-print-height)) |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
4443 (ps-setup (ps-setup)) ; setup for the current buffer |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
4444 (fs-min 4) ; minimum font size |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
4445 lh-min ; minimum line height |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
4446 nb-lpp-max ; maximum nb of lines per page |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
4447 nb-page-min ; minimum nb of pages |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
4448 (fs-max 14) ; maximum font size |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
4449 lh-max ; maximum line height |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
4450 nb-lpp-min ; minimum nb of lines per page |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
4451 nb-page-max ; maximum nb of pages |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
4452 fs ; current font size |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
4453 lh ; current line height |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
4454 nb-lpp ; current nb of lines per page |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
4455 nb-page ; current nb of pages |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
4456 ) |
37135
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
4457 (setq lh-min (/ (- (* (+ ilh ils) fs-min) ils) ifs) |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
4458 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
|
4459 nb-page-min (ceiling (/ (float nb-lines) nb-lpp-max)) |
37135
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
4460 lh-max (/ (- (* (+ ilh ils) fs-max) ils) ifs) |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
4461 nb-lpp-min (floor (/ page-height lh-max)) |
20331 | 4462 nb-page-max (ceiling (/ (float nb-lines) nb-lpp-min)) |
4463 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
|
4464 (set-buffer buf) |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
4465 (goto-char (point-max)) |
30522
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
4466 (or (bobp) (insert "\n" (make-string 75 ?\;) "\n")) |
20331 | 4467 (insert ps-setup |
30522
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
4468 (format "\nThere are %d lines.\n\n" nb-lines) |
20331 | 4469 "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
|
4470 (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
|
4471 (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
|
4472 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
|
4473 fs (/ (* ifs lh) ilh)) |
30522
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
4474 (insert (format "%7d %s\n" nb-page fs)) |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
4475 (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
|
4476 (insert "\n") |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
4477 (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
|
4478 |
21954
73f9f4219198
Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents:
21801
diff
changeset
|
4479 ;; macros used in `ps-select-font' |
73f9f4219198
Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents:
21801
diff
changeset
|
4480 (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
|
4481 (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
|
4482 |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
4483 (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
|
4484 (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
|
4485 (or font-entry |
34045
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
4486 (error "Don't have data to scale font %s. Known fonts families are %s" |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
4487 font-family |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
4488 (mapcar 'car ps-font-info-database))) |
21954
73f9f4219198
Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents:
21801
diff
changeset
|
4489 (let ((size (ps-lookup 'size))) |
73f9f4219198
Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents:
21801
diff
changeset
|
4490 (put sym 'fonts (ps-lookup 'fonts)) |
73f9f4219198
Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents:
21801
diff
changeset
|
4491 (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
|
4492 (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
|
4493 (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
|
4494 (put sym 'title-line-height |
73f9f4219198
Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents:
21801
diff
changeset
|
4495 (/ (* (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
|
4496 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4497 (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
|
4498 (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
|
4499 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
|
4500 (cond |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
4501 ((null page-dimensions) |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
4502 (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
|
4503 (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
|
4504 ((< ps-number-of-columns 1) |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
4505 (error "The number of columns %d should be positive" |
20331 | 4506 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
|
4507 |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
4508 (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
|
4509 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
|
4510 (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
|
4511 ps-header-font-size-internal |
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
4512 ps-header-title-font-size-internal) |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
4513 (ps-select-font ps-footer-font-family 'ps-font-for-footer |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
4514 ps-footer-font-size-internal ps-footer-font-size-internal) |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
4515 |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
4516 (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
|
4517 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
|
4518 |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
4519 ;; Landscape mode |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
4520 (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
|
4521 ;; 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
|
4522 (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
|
4523 |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
4524 ;; 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
|
4525 (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
|
4526 |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
4527 ;; | 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
|
4528 ;; 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
|
4529 ;; => pw == (page-width - lm -rm - (n - 1) * ic) / n |
20331 | 4530 (setq ps-print-width (/ (- page-width |
4531 ps-left-margin ps-right-margin | |
4532 (* (1- ps-number-of-columns) ps-inter-column)) | |
4533 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
|
4534 (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
|
4535 (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
|
4536 page-width == %s |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
4537 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
|
4538 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
|
4539 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
|
4540 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
|
4541 | 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
|
4542 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
|
4543 => print-width == %d !" |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
4544 page-width |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
4545 ps-left-margin |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
4546 ps-right-margin |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
4547 ps-inter-column |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
4548 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
|
4549 ps-print-width)) |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
4550 |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
4551 (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
|
4552 (- 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
|
4553 (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
|
4554 (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
|
4555 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
|
4556 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
|
4557 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
|
4558 => print-height == %d !" |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
4559 ps-top-margin |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
4560 ps-bottom-margin |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
4561 ps-print-height)) |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
4562 ;; If headers are turned on, deduct the height of the header from the print |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
4563 ;; height. |
20331 | 4564 (if ps-print-header |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
4565 (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
|
4566 (ps-title-line-height 'ps-font-for-header)) |
20331 | 4567 ps-print-height (- ps-print-height |
4568 ps-header-offset | |
4569 ps-header-pad | |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
4570 (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
|
4571 (* (ps-line-height 'ps-font-for-header) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
4572 (1- ps-header-lines)) |
20331 | 4573 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
|
4574 (if (<= ps-print-height 0) |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
4575 (error "Bad vertical layout (header): |
16361
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
4576 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
|
4577 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
|
4578 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
|
4579 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
|
4580 header-height == %s |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
4581 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
|
4582 => print-height == %d !" |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
4583 ps-top-margin |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
4584 ps-bottom-margin |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
4585 ps-header-offset |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
4586 ps-header-pad |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
4587 (+ ps-header-pad |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
4588 (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
|
4589 (* (ps-line-height 'ps-font-for-header) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
4590 (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
|
4591 ps-header-pad) |
36215
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
4592 ps-print-height)) |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
4593 ;; If footers are turned on, deduct the height of the footer from the print |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
4594 ;; height. |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
4595 (if ps-print-footer |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
4596 (setq ps-footer-pad (* ps-footer-line-pad |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
4597 (ps-title-line-height 'ps-font-for-footer)) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
4598 ps-print-height (- ps-print-height |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
4599 ps-footer-offset |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
4600 ps-footer-pad |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
4601 (* (ps-line-height 'ps-font-for-footer) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
4602 (1- ps-footer-lines)) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
4603 ps-footer-pad))) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
4604 (if (<= ps-print-height 0) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
4605 (error "Bad vertical layout (footer): |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
4606 ps-top-margin == %s |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
4607 ps-bottom-margin == %s |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
4608 ps-footer-offset == %s |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
4609 ps-footer-pad == %s |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
4610 footer-height == %s |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
4611 page-height == bm + print-height + tm - fo - fh |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
4612 => print-height == %d !" |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
4613 ps-top-margin |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
4614 ps-bottom-margin |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
4615 ps-footer-offset |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
4616 ps-footer-pad |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
4617 (+ ps-footer-pad |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
4618 (* (ps-line-height 'ps-font-for-footer) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
4619 (1- ps-footer-lines)) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
4620 ps-footer-pad) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
4621 ps-print-height)) |
36215
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
4622 ;; ps-zebra-stripe-follow is `full' or `full-follow' |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
4623 (if ps-zebra-stripe-full-p |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
4624 (let* ((line-height (ps-line-height 'ps-font-for-text)) |
37135
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
4625 (zebra (* (+ line-height ps-line-spacing-internal) |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
4626 ps-zebra-stripe-height))) |
36215
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
4627 (setq ps-print-height (- (* (floor ps-print-height zebra) zebra) |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
4628 line-height)) |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
4629 (if (<= ps-print-height 0) |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
4630 (error "Bad vertical layout (full zebra stripe follow): |
36215
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
4631 ps-zebra-stripe-follow == %s |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
4632 ps-zebra-stripe-height == %s |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
4633 font-text-height == %s |
37135
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
4634 line-spacing == %s |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
4635 page-height == ((floor print-height ((th + ls) * zh)) * ((th + ls) * zh)) - th |
36215
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
4636 => print-height == %d !" |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
4637 ps-zebra-stripe-follow |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
4638 ps-zebra-stripe-height |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
4639 (ps-line-height 'ps-font-for-text) |
37135
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
4640 ps-line-spacing-internal |
36215
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
4641 ps-print-height)))))) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4642 |
39327
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
4643 |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
4644 (defun ps-print-preprint-region (prefix-arg) |
47426
ec3123180ac5
Adjust ps-print-color-p, ps-default-fg and ps-default-bg setting.
Richard M. Stallman <rms@gnu.org>
parents:
47382
diff
changeset
|
4645 (or (ps-mark-active-p) |
39327
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
4646 (error "The mark is not set now")) |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
4647 (list (point) (mark) (ps-print-preprint prefix-arg))) |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
4648 |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
4649 |
28576
1694ed739e69
Customization fix, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28426
diff
changeset
|
4650 (defun ps-print-preprint (prefix-arg) |
1694ed739e69
Customization fix, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28426
diff
changeset
|
4651 (and prefix-arg |
1694ed739e69
Customization fix, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28426
diff
changeset
|
4652 (or (numberp prefix-arg) |
1694ed739e69
Customization fix, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28426
diff
changeset
|
4653 (listp prefix-arg)) |
23550
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
4654 (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
|
4655 (buffer-name))) |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
4656 ".ps")) |
20331 | 4657 (prompt (format "Save PostScript to file: (default %s) " name)) |
4658 (res (read-file-name prompt default-directory name nil))) | |
33090
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
4659 (while (cond ((file-directory-p res) |
23550
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
4660 (ding) |
33090
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
4661 (setq prompt "It's a directory")) |
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
4662 ((not (file-writable-p res)) |
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
4663 (ding) |
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
4664 (setq prompt "File is unwritable")) |
23550
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
4665 ((file-exists-p res) |
33090
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
4666 (setq prompt "File exists") |
23550
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
4667 (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
|
4668 res)))) |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
4669 (t nil)) |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
4670 (setq res (read-file-name |
33090
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
4671 (format "%s; save PostScript to file: " prompt) |
23550
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
4672 (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
|
4673 (file-name-nondirectory res)))) |
20331 | 4674 (if (file-directory-p res) |
4675 (expand-file-name name (file-name-as-directory res)) | |
4676 res)))) | |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4677 |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4678 ;; The following functions implement a simple list-buffering scheme so |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4679 ;; 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
|
4680 ;; 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
|
4681 ;; 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
|
4682 ;; insert its contents into the spool buffer (*PostScript*). |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4683 |
20516
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4684 (defvar ps-string-escape-codes |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4685 (let ((table (make-vector 256 nil)) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4686 (char ?\000)) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4687 ;; control characters |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4688 (while (<= char ?\037) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4689 (aset table char (format "\\%03o" char)) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4690 (setq char (1+ char))) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4691 ;; printable characters |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4692 (while (< char ?\177) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4693 (aset table char (format "%c" char)) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4694 (setq char (1+ char))) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4695 ;; DEL and 8-bit characters |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4696 (while (<= char ?\377) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4697 (aset table char (format "\\%o" char)) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4698 (setq char (1+ char))) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4699 ;; 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
|
4700 (aset table ?\n "\\n") ; [NL] linefeed |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4701 (aset table ?\r "\\r") ; [CR] carriage return |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4702 (aset table ?\t "\\t") ; [HT] horizontal tab |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4703 (aset table ?\b "\\b") ; [BS] backspace |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4704 (aset table ?\f "\\f") ; [NP] form feed |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4705 ;; Escape PostScript escape and string delimiter characters: |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4706 (aset table ?\\ "\\\\") |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4707 (aset table ?\( "\\(") |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4708 (aset table ?\) "\\)") |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4709 table) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
4710 "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
|
4711 |
37135
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
4712 (defsubst ps-output-string-prim (string) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4713 (insert "(") ;insert start-string delimiter |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4714 (save-excursion ;insert string |
23091
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
4715 (insert (string-as-unibyte string))) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4716 ;; Find and quote special characters as necessary for PS |
23307 | 4717 ;; 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
|
4718 (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
|
4719 (let ((special (following-char))) |
23091
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
4720 (delete-char 1) |
49763
e19e88bc6e58
Change the policy of background/foreground default color.
Juanma Barranquero <lekktu@gmail.com>
parents:
47674
diff
changeset
|
4721 (insert |
e19e88bc6e58
Change the policy of background/foreground default color.
Juanma Barranquero <lekktu@gmail.com>
parents:
47674
diff
changeset
|
4722 (if (and (<= 0 special) (<= special 255)) |
e19e88bc6e58
Change the policy of background/foreground default color.
Juanma Barranquero <lekktu@gmail.com>
parents:
47674
diff
changeset
|
4723 (aref ps-string-escape-codes special) |
e19e88bc6e58
Change the policy of background/foreground default color.
Juanma Barranquero <lekktu@gmail.com>
parents:
47674
diff
changeset
|
4724 ;; insert hexadecimal representation if character code is out of range |
e19e88bc6e58
Change the policy of background/foreground default color.
Juanma Barranquero <lekktu@gmail.com>
parents:
47674
diff
changeset
|
4725 (format "\\%04X" special) |
e19e88bc6e58
Change the policy of background/foreground default color.
Juanma Barranquero <lekktu@gmail.com>
parents:
47674
diff
changeset
|
4726 )))) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4727 (goto-char (point-max)) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4728 (insert ")")) ;insert end-string delimiter |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4729 |
37135
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
4730 (defsubst ps-init-output-queue () |
29848
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
4731 (setq ps-output-head (list "") |
20331 | 4732 ps-output-tail ps-output-head)) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4733 |
29848
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
4734 |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
4735 (defun ps-selected-pages () |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
4736 (while (progn |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
4737 (setq ps-first-page (car (car ps-selected-pages)) |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
4738 ps-last-page (cdr (car ps-selected-pages)) |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
4739 ps-selected-pages (cdr ps-selected-pages)) |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
4740 (and ps-selected-pages |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
4741 (< ps-last-page ps-page-postscript))))) |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
4742 |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
4743 |
37135
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
4744 (defsubst ps-print-page-p () |
33090
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
4745 (setq ps-print-page-p |
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
4746 (and (cond ((null ps-first-page)) |
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
4747 ((<= ps-page-postscript ps-last-page) |
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
4748 (<= ps-first-page ps-page-postscript)) |
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
4749 (ps-selected-pages |
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
4750 (ps-selected-pages) |
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
4751 (and (<= ps-first-page ps-page-postscript) |
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
4752 (<= ps-page-postscript ps-last-page))) |
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
4753 (t |
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
4754 nil)) |
33143
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
4755 (cond ((eq ps-even-or-odd-pages 'even-page) |
33090
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
4756 (= (logand ps-page-postscript 1) 0)) |
33143
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
4757 ((eq ps-even-or-odd-pages 'odd-page) |
33090
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
4758 (= (logand ps-page-postscript 1) 1)) |
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
4759 (t) |
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
4760 )))) |
29848
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
4761 |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
4762 |
37135
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
4763 (defsubst ps-print-sheet-p () |
33143
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
4764 (setq ps-print-page-p |
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
4765 (cond ((eq ps-even-or-odd-pages 'even-sheet) |
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
4766 (= (logand ps-page-sheet 1) 0)) |
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
4767 ((eq ps-even-or-odd-pages 'odd-sheet) |
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
4768 (= (logand ps-page-sheet 1) 1)) |
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
4769 (t) |
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
4770 ))) |
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
4771 |
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
4772 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4773 (defun ps-output (&rest args) |
33090
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
4774 (when ps-print-page-p |
29848
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
4775 (setcdr ps-output-tail args) |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
4776 (while (cdr ps-output-tail) |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
4777 (setq ps-output-tail (cdr ps-output-tail))))) |
7257 | 4778 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4779 (defun ps-output-string (string) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4780 (ps-output t string)) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4781 |
23091
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
4782 ;; 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
|
4783 (defun ps-output-prologue (args) |
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
4784 (ps-output 'prologue (if (stringp args) (list args) args))) |
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
4785 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4786 (defun ps-flush-output () |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4787 (save-excursion |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4788 (set-buffer ps-spool-buffer) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4789 (goto-char (point-max)) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4790 (while ps-output-head |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4791 (let ((it (car ps-output-head))) |
23091
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
4792 (cond |
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
4793 ((eq t it) |
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
4794 (setq ps-output-head (cdr ps-output-head)) |
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
4795 (ps-output-string-prim (car ps-output-head))) |
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
4796 ((eq 'prologue it) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4797 (setq ps-output-head (cdr ps-output-head)) |
23091
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
4798 (save-excursion |
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
4799 (search-backward "\nBeginDoc") |
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
4800 (forward-char 1) |
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
4801 (apply 'insert (car ps-output-head)))) |
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
4802 (t |
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
4803 (insert it)))) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4804 (setq ps-output-head (cdr ps-output-head)))) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4805 (ps-init-output-queue)) |
7257 | 4806 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4807 (defun ps-insert-file (fname) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4808 (ps-flush-output) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4809 (save-excursion |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4810 (set-buffer ps-spool-buffer) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4811 (goto-char (point-max)) |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
4812 (insert-file-contents fname))) |
19879
87952270ceeb
(ps-emacs-face-kind-p): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
19843
diff
changeset
|
4813 |
51007
c3f9aa88ed68
Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
50871
diff
changeset
|
4814 ;; These functions are used in `ps-mule' to get charset of header and footer. |
c3f9aa88ed68
Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
50871
diff
changeset
|
4815 ;; To avoid unnecessary calls to functions in `ps-left-header', |
c3f9aa88ed68
Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
50871
diff
changeset
|
4816 ;; `ps-right-header', `ps-left-footer' and `ps-right-footer'. |
c3f9aa88ed68
Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
50871
diff
changeset
|
4817 |
c3f9aa88ed68
Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
50871
diff
changeset
|
4818 (defun ps-generate-string-list (content) |
c3f9aa88ed68
Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
50871
diff
changeset
|
4819 (let (str) |
c3f9aa88ed68
Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
50871
diff
changeset
|
4820 (while content |
c3f9aa88ed68
Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
50871
diff
changeset
|
4821 (setq str (cons (cond |
56504
8d030ffc0866
Improve DSC compliance.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56127
diff
changeset
|
4822 ;; string |
51007
c3f9aa88ed68
Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
50871
diff
changeset
|
4823 ((stringp (car content)) |
c3f9aa88ed68
Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
50871
diff
changeset
|
4824 (car content)) |
56504
8d030ffc0866
Improve DSC compliance.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56127
diff
changeset
|
4825 ;; function symbol |
51007
c3f9aa88ed68
Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
50871
diff
changeset
|
4826 ((and (symbolp (car content)) (fboundp (car content))) |
c3f9aa88ed68
Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
50871
diff
changeset
|
4827 (concat "(" (funcall (car content)) ")")) |
56504
8d030ffc0866
Improve DSC compliance.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56127
diff
changeset
|
4828 ;; variable symbol |
51007
c3f9aa88ed68
Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
50871
diff
changeset
|
4829 ((and (symbolp (car content)) (boundp (car content))) |
c3f9aa88ed68
Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
50871
diff
changeset
|
4830 (concat "(" (symbol-value (car content)) ")")) |
56504
8d030ffc0866
Improve DSC compliance.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56127
diff
changeset
|
4831 ;; otherwise, empty string |
51007
c3f9aa88ed68
Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
50871
diff
changeset
|
4832 (t |
c3f9aa88ed68
Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
50871
diff
changeset
|
4833 "")) |
c3f9aa88ed68
Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
50871
diff
changeset
|
4834 str) |
c3f9aa88ed68
Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
50871
diff
changeset
|
4835 content (cdr content))) |
c3f9aa88ed68
Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
50871
diff
changeset
|
4836 (nreverse str))) |
c3f9aa88ed68
Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
50871
diff
changeset
|
4837 |
c3f9aa88ed68
Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
50871
diff
changeset
|
4838 (defvar ps-lh-cache nil) |
c3f9aa88ed68
Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
50871
diff
changeset
|
4839 (defvar ps-rh-cache nil) |
c3f9aa88ed68
Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
50871
diff
changeset
|
4840 (defvar ps-lf-cache nil) |
c3f9aa88ed68
Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
50871
diff
changeset
|
4841 (defvar ps-rf-cache nil) |
c3f9aa88ed68
Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
50871
diff
changeset
|
4842 |
c3f9aa88ed68
Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
50871
diff
changeset
|
4843 (defun ps-header-footer-string () |
c3f9aa88ed68
Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
50871
diff
changeset
|
4844 (and ps-print-header |
c3f9aa88ed68
Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
50871
diff
changeset
|
4845 (setq ps-lh-cache (ps-generate-string-list ps-left-header) |
c3f9aa88ed68
Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
50871
diff
changeset
|
4846 ps-rh-cache (ps-generate-string-list ps-right-header))) |
c3f9aa88ed68
Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
50871
diff
changeset
|
4847 (and ps-print-footer |
c3f9aa88ed68
Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
50871
diff
changeset
|
4848 (setq ps-lf-cache (ps-generate-string-list ps-left-footer) |
c3f9aa88ed68
Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
50871
diff
changeset
|
4849 ps-rf-cache (ps-generate-string-list ps-right-footer))) |
c3f9aa88ed68
Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
50871
diff
changeset
|
4850 (mapconcat 'identity |
c3f9aa88ed68
Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
50871
diff
changeset
|
4851 (append ps-lh-cache ps-rh-cache ps-lf-cache ps-rf-cache) |
c3f9aa88ed68
Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
50871
diff
changeset
|
4852 "")) |
c3f9aa88ed68
Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
50871
diff
changeset
|
4853 |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
4854 ;; These functions insert the arrays that define the contents of the headers. |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4855 |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4856 (defun ps-generate-header-line (fonttag &optional content) |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
4857 (ps-output " [" fonttag " ") |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4858 (cond |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
4859 ;; Literal strings should be output as is -- the string must contain its own |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
4860 ;; PS string delimiters, '(' and ')', if necessary. |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4861 ((stringp content) |
37135
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
4862 (ps-output (ps-mule-encode-header-string content fonttag))) |
7257 | 4863 |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
4864 ;; Functions are called -- they should return strings; they will be inserted |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
4865 ;; as strings and the PS string delimiters added. |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4866 ((and (symbolp content) (fboundp content)) |
37135
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
4867 (ps-output-string (ps-mule-encode-header-string (funcall content) |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
4868 fonttag))) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4869 |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
4870 ;; Variables will have their contents inserted. They should contain |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
4871 ;; strings, and will be inserted as strings. |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4872 ((and (symbolp content) (boundp content)) |
37135
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
4873 (ps-output-string (ps-mule-encode-header-string (symbol-value content) |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
4874 fonttag))) |
7257 | 4875 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4876 ;; Anything else will get turned into an empty string. |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4877 (t |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4878 (ps-output-string ""))) |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
4879 (ps-output "]\n")) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
4880 |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
4881 (defun ps-generate-header (name fonttag0 fonttag1 contents) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
4882 (ps-output "/" name "[\n") |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
4883 (and contents (> ps-header-lines 0) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
4884 (let ((count 1)) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
4885 (ps-generate-header-line fonttag0 (car contents)) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
4886 (while (and (< count ps-header-lines) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
4887 (setq contents (cdr contents))) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
4888 (ps-generate-header-line fonttag1 (car contents)) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
4889 (setq count (1+ count))))) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
4890 (ps-output "]def\n")) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
4891 |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4892 |
28426
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
4893 (defun ps-output-boolean (name bool) |
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
4894 (ps-output (format "/%s %s def\n" name (if bool "true" "false")))) |
7257 | 4895 |
19879
87952270ceeb
(ps-emacs-face-kind-p): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
19843
diff
changeset
|
4896 |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
4897 (defun ps-output-frame-properties (name alist) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
4898 (ps-output "/" name " [" |
37489
ba96560d3f9e
Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents:
37286
diff
changeset
|
4899 (ps-format-color (cdr (assq 'fore-color alist)) 0.0) |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
4900 (ps-format-color (cdr (assq 'back-color alist)) 0.9) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
4901 (ps-float-format (or (cdr (assq 'border-width alist)) 0.4)) |
37489
ba96560d3f9e
Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents:
37286
diff
changeset
|
4902 (ps-format-color (cdr (assq 'border-color alist)) 0.0) |
ba96560d3f9e
Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents:
37286
diff
changeset
|
4903 (ps-format-color (cdr (assq 'shadow-color alist)) 0.0) |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
4904 "]def\n")) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
4905 |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
4906 |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4907 (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
|
4908 (if page-list |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4909 (mapcar |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4910 #'(lambda (pages) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4911 (let ((start (if (consp pages) (car pages) pages)) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4912 (end (if (consp pages) (cdr pages) pages))) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4913 (and (integerp start) (integerp end) (<= start end) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4914 (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
|
4915 page-list) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4916 (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
|
4917 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4918 |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4919 (defconst ps-boundingbox-re |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4920 "^%%BoundingBox:\ |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4921 \\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
|
4922 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4923 |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4924 (defun ps-get-boundingbox () |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4925 (save-excursion |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4926 (set-buffer ps-spool-buffer) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4927 (save-excursion |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4928 (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
|
4929 (vector (string-to-number ; lower x |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4930 (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
|
4931 (string-to-number ; lower y |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4932 (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
|
4933 (string-to-number ; upper x |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4934 (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
|
4935 (string-to-number ; upper y |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4936 (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
|
4937 (vector 0 0 0 0))))) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4938 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4939 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4940 ;; 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
|
4941 ;; to three decimals to cut down some on the size of the PostScript output. |
47674
330113e9df2b
(ps-print-emacs-type): Error if ps-print is
Richard M. Stallman <rms@gnu.org>
parents:
47426
diff
changeset
|
4942 ;; XEmacs will have to make do with %s (princ) for floats. |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4943 |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
4944 (defvar ps-float-format (if (featurep 'xemacs) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
4945 "%s " ; xemacs |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
4946 "%0.3f ")) ; emacs |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4947 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4948 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4949 (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
|
4950 (let ((literal (or value default))) |
37489
ba96560d3f9e
Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents:
37286
diff
changeset
|
4951 (cond ((null literal) |
ba96560d3f9e
Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents:
37286
diff
changeset
|
4952 " ") |
ba96560d3f9e
Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents:
37286
diff
changeset
|
4953 ((numberp literal) |
ba96560d3f9e
Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents:
37286
diff
changeset
|
4954 (format ps-float-format (* literal 1.0))) ; force float number |
ba96560d3f9e
Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents:
37286
diff
changeset
|
4955 (t |
ba96560d3f9e
Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents:
37286
diff
changeset
|
4956 (format "%s " literal)) |
ba96560d3f9e
Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents:
37286
diff
changeset
|
4957 ))) |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4958 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4959 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4960 (defun ps-background-text () |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4961 (mapcar |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4962 #'(lambda (text) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4963 (setq ps-background-text-count (1+ ps-background-text-count)) |
31253
4c40c1171b8b
Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
30522
diff
changeset
|
4964 (ps-output (format "/ShowBackText-%d{\n" ps-background-text-count)) |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4965 (ps-output-string (nth 0 text)) ; text |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4966 (ps-output |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4967 "\n" |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4968 (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
|
4969 (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
|
4970 (ps-float-format (nth 6 text) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4971 "PrintHeight PrintPageWidth atan") ; rotation |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4972 (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
|
4973 (ps-float-format (nth 1 text) "0") ; x position |
29494
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
4974 (ps-float-format (nth 2 text) "0") ; y position |
31253
4c40c1171b8b
Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
30522
diff
changeset
|
4975 "\nShowBackText}def\n") |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4976 (ps-background-pages (nthcdr 7 text) ; page list |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4977 (format "ShowBackText-%d\n" |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4978 ps-background-text-count))) |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4979 ps-print-background-text)) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4980 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4981 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4982 (defun ps-background-image () |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
4983 (mapcar |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4984 #'(lambda (image) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
4985 (let ((image-file (expand-file-name (nth 0 image)))) |
27163
ea8740d15178
PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
27161
diff
changeset
|
4986 (when (file-readable-p image-file) |
ea8740d15178
PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
27161
diff
changeset
|
4987 (setq ps-background-image-count (1+ ps-background-image-count)) |
ea8740d15178
PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
27161
diff
changeset
|
4988 (ps-output |
31253
4c40c1171b8b
Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
30522
diff
changeset
|
4989 (format "/ShowBackImage-%d{\n--back-- " |
27163
ea8740d15178
PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
27161
diff
changeset
|
4990 ps-background-image-count) |
ea8740d15178
PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
27161
diff
changeset
|
4991 (ps-float-format (nth 5 image) 0.0) ; rotation |
ea8740d15178
PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
27161
diff
changeset
|
4992 (ps-float-format (nth 3 image) 1.0) ; x scale |
ea8740d15178
PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
27161
diff
changeset
|
4993 (ps-float-format (nth 4 image) 1.0) ; y scale |
ea8740d15178
PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
27161
diff
changeset
|
4994 (ps-float-format (nth 1 image) ; x position |
ea8740d15178
PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
27161
diff
changeset
|
4995 "PrintPageWidth 2 div") |
ea8740d15178
PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
27161
diff
changeset
|
4996 (ps-float-format (nth 2 image) ; y position |
ea8740d15178
PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
27161
diff
changeset
|
4997 "PrintHeight 2 div BottomMargin add") |
ea8740d15178
PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
27161
diff
changeset
|
4998 "\nBeginBackImage\n") |
ea8740d15178
PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
27161
diff
changeset
|
4999 (ps-insert-file image-file) |
ea8740d15178
PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
27161
diff
changeset
|
5000 ;; coordinate adjustment to centralize image |
ea8740d15178
PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
27161
diff
changeset
|
5001 ;; around x and y position |
ea8740d15178
PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
27161
diff
changeset
|
5002 (let ((box (ps-get-boundingbox))) |
ea8740d15178
PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
27161
diff
changeset
|
5003 (save-excursion |
ea8740d15178
PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
27161
diff
changeset
|
5004 (set-buffer ps-spool-buffer) |
ea8740d15178
PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
27161
diff
changeset
|
5005 (save-excursion |
ea8740d15178
PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
27161
diff
changeset
|
5006 (if (re-search-backward "^--back--" nil t) |
ea8740d15178
PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
27161
diff
changeset
|
5007 (replace-match |
ea8740d15178
PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
27161
diff
changeset
|
5008 (format "%s %s" |
ea8740d15178
PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
27161
diff
changeset
|
5009 (ps-float-format |
ea8740d15178
PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
27161
diff
changeset
|
5010 (- (+ (/ (- (aref box 2) (aref box 0)) 2.0) |
ea8740d15178
PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
27161
diff
changeset
|
5011 (aref box 0)))) |
ea8740d15178
PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
27161
diff
changeset
|
5012 (ps-float-format |
ea8740d15178
PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
27161
diff
changeset
|
5013 (- (+ (/ (- (aref box 3) (aref box 1)) 2.0) |
ea8740d15178
PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
27161
diff
changeset
|
5014 (aref box 1))))) |
ea8740d15178
PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
27161
diff
changeset
|
5015 t))))) |
31253
4c40c1171b8b
Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
30522
diff
changeset
|
5016 (ps-output "\nEndBackImage}def\n") |
27163
ea8740d15178
PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
27161
diff
changeset
|
5017 (ps-background-pages (nthcdr 6 image) ; page list |
ea8740d15178
PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
27161
diff
changeset
|
5018 (format "ShowBackImage-%d\n" |
ea8740d15178
PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
27161
diff
changeset
|
5019 ps-background-image-count))))) |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5020 ps-print-background-image)) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5021 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5022 |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
5023 (defun ps-background (page-number) |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5024 (let (has-local-background) |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5025 (mapcar #'(lambda (range) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5026 (and (<= (aref range 0) page-number) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5027 (<= page-number (aref range 1)) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5028 (if has-local-background |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5029 (ps-output (aref range 2)) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5030 (setq has-local-background t) |
31253
4c40c1171b8b
Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
30522
diff
changeset
|
5031 (ps-output "/printLocalBackground{\n" |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5032 (aref range 2))))) |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5033 ps-background-pages) |
31253
4c40c1171b8b
Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
30522
diff
changeset
|
5034 (and has-local-background (ps-output "}def\n")))) |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5035 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5036 |
21800
d4b4f44ce8da
(ps-remove-duplicates): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
21642
diff
changeset
|
5037 ;; Return a list of the distinct elements of LIST. |
d4b4f44ce8da
(ps-remove-duplicates): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
21642
diff
changeset
|
5038 ;; Elements are compared with `equal'. |
d4b4f44ce8da
(ps-remove-duplicates): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
21642
diff
changeset
|
5039 (defun ps-remove-duplicates (list) |
d4b4f44ce8da
(ps-remove-duplicates): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
21642
diff
changeset
|
5040 (let (new (tail list)) |
d4b4f44ce8da
(ps-remove-duplicates): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
21642
diff
changeset
|
5041 (while tail |
d4b4f44ce8da
(ps-remove-duplicates): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
21642
diff
changeset
|
5042 (or (member (car tail) new) |
d4b4f44ce8da
(ps-remove-duplicates): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
21642
diff
changeset
|
5043 (setq new (cons (car tail) new))) |
d4b4f44ce8da
(ps-remove-duplicates): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
21642
diff
changeset
|
5044 (setq tail (cdr tail))) |
d4b4f44ce8da
(ps-remove-duplicates): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
21642
diff
changeset
|
5045 (nreverse new))) |
d4b4f44ce8da
(ps-remove-duplicates): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
21642
diff
changeset
|
5046 |
23307 | 5047 |
21954
73f9f4219198
Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents:
21801
diff
changeset
|
5048 ;; 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
|
5049 ;; 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
|
5050 ;; Elements are compared with `eq'. |
21999
35efe9eafc6c
(ps-alist-position): Renamed from ps-position.
Richard M. Stallman <rms@gnu.org>
parents:
21955
diff
changeset
|
5051 (defun ps-alist-position (item list) |
21954
73f9f4219198
Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents:
21801
diff
changeset
|
5052 (let ((tail list) (index 0) found) |
73f9f4219198
Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents:
21801
diff
changeset
|
5053 (while tail |
21999
35efe9eafc6c
(ps-alist-position): Renamed from ps-position.
Richard M. Stallman <rms@gnu.org>
parents:
21955
diff
changeset
|
5054 (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
|
5055 (setq tail nil) |
73f9f4219198
Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents:
21801
diff
changeset
|
5056 (setq index (1+ index) |
73f9f4219198
Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents:
21801
diff
changeset
|
5057 tail (cdr tail)))) |
73f9f4219198
Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents:
21801
diff
changeset
|
5058 (and found index))) |
73f9f4219198
Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents:
21801
diff
changeset
|
5059 |
73f9f4219198
Some doc fixes, eliminate (require cl).
Richard M. Stallman <rms@gnu.org>
parents:
21801
diff
changeset
|
5060 |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5061 (defconst ps-n-up-database |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5062 '((a4 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5063 (1 nil 1 1 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5064 (2 t 1 2 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5065 (4 nil 2 2 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5066 (6 t 2 3 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5067 (8 t 2 4 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5068 (9 nil 3 3 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5069 (12 t 3 4 2) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5070 (16 nil 4 4 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5071 (18 t 3 6 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5072 (20 nil 5 4 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5073 (25 nil 5 5 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5074 (30 nil 6 5 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5075 (32 t 4 8 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5076 (36 nil 6 6 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5077 (42 nil 7 6 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5078 (49 nil 7 7 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5079 (50 t 5 10 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5080 (56 nil 8 7 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5081 (64 nil 8 8 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5082 (72 nil 9 8 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5083 (81 nil 9 9 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5084 (90 nil 10 9 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5085 (100 nil 10 10 0)) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5086 (a3 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5087 (1 nil 1 1 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5088 (2 t 1 2 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5089 (4 nil 2 2 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5090 (6 t 2 3 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5091 (8 t 2 4 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5092 (9 nil 3 3 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5093 (12 nil 4 3 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5094 (16 nil 4 4 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5095 (18 t 3 6 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5096 (20 nil 5 4 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5097 (25 nil 5 5 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5098 (30 nil 6 5 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5099 (32 t 4 8 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5100 (36 nil 6 6 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5101 (42 nil 7 6 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5102 (49 nil 7 7 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5103 (50 t 5 10 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5104 (56 nil 8 7 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5105 (64 nil 8 8 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5106 (72 nil 9 8 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5107 (81 nil 9 9 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5108 (90 nil 10 9 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5109 (100 nil 10 10 0)) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5110 (letter |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5111 (1 nil 1 1 0) |
29494
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
5112 (2 t 1 2 0) ; adjusted by PostScript code |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5113 (4 nil 2 2 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5114 (6 t 2 3 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5115 (9 nil 3 3 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5116 (12 nil 4 3 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5117 (16 nil 4 4 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5118 (20 nil 5 4 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5119 (25 nil 5 5 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5120 (30 nil 6 5 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5121 (36 nil 6 6 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5122 (40 t 5 8 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5123 (42 nil 7 6 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5124 (49 nil 7 7 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5125 (56 nil 8 7 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5126 (64 nil 8 8 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5127 (72 nil 9 8 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5128 (81 nil 9 9 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5129 (90 nil 10 9 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5130 (100 nil 10 10 0)) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5131 (legal |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5132 (1 nil 1 1 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5133 (2 t 1 2 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5134 (4 nil 2 2 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5135 (6 nil 3 2 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5136 (9 nil 3 3 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5137 (10 t 2 5 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5138 (12 nil 4 3 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5139 (16 nil 4 4 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5140 (20 nil 5 4 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5141 (25 nil 5 5 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5142 (30 nil 6 5 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5143 (36 nil 6 6 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5144 (42 nil 7 6 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5145 (49 nil 7 7 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5146 (56 nil 8 7 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5147 (64 nil 8 8 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5148 (70 t 5 14 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5149 (72 nil 9 8 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5150 (81 nil 9 9 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5151 (90 nil 10 9 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5152 (100 nil 10 10 0)) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5153 (letter-small |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5154 (1 nil 1 1 0) |
29494
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
5155 (2 t 1 2 0) ; adjusted by PostScript code |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5156 (4 nil 2 2 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5157 (6 t 2 3 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5158 (9 nil 3 3 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5159 (12 t 3 4 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5160 (15 t 3 5 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5161 (16 nil 4 4 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5162 (20 nil 5 4 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5163 (25 nil 5 5 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5164 (28 t 4 7 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5165 (30 nil 6 5 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5166 (36 nil 6 6 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5167 (40 t 5 8 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5168 (42 nil 7 6 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5169 (49 nil 7 7 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5170 (56 nil 8 7 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5171 (60 t 6 10 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5172 (64 nil 8 8 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5173 (72 ni 9 8 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5174 (81 nil 9 9 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5175 (84 t 7 12 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5176 (90 nil 10 9 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5177 (100 nil 10 10 0)) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5178 (tabloid |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5179 (1 nil 1 1 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5180 (2 t 1 2 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5181 (4 nil 2 2 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5182 (6 t 2 3 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5183 (8 t 2 4 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5184 (9 nil 3 3 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5185 (12 nil 4 3 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5186 (16 nil 4 4 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5187 (20 nil 5 4 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5188 (25 nil 5 5 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5189 (30 nil 6 5 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5190 (36 nil 6 6 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5191 (42 nil 7 6 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5192 (49 nil 7 7 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5193 (56 nil 8 7 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5194 (64 nil 8 8 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5195 (72 nil 9 8 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5196 (81 nil 9 9 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5197 (84 t 6 14 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5198 (90 nil 10 9 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5199 (100 nil 10 10 0)) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5200 ;; 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
|
5201 ;; 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
|
5202 ;; 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
|
5203 (ledger |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5204 (1 nil 1 1 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5205 (2 pag 1 2 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5206 (4 nil 2 2 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5207 (6 pag 2 3 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5208 (8 pag 2 4 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5209 (9 nil 3 3 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5210 (12 nil 4 3 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5211 (16 nil 4 4 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5212 (20 nil 5 4 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5213 (25 nil 5 5 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5214 (30 nil 6 5 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5215 (36 nil 6 6 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5216 (42 nil 7 6 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5217 (49 nil 7 7 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5218 (56 nil 8 7 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5219 (64 nil 8 8 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5220 (72 nil 9 8 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5221 (81 nil 9 9 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5222 (84 pag 6 14 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5223 (90 nil 10 9 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5224 (100 nil 10 10 0)) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5225 (statement |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5226 (1 nil 1 1 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5227 (2 t 1 2 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5228 (4 nil 2 2 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5229 (6 nil 3 2 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5230 (9 nil 3 3 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5231 (10 t 2 5 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5232 (12 nil 4 3 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5233 (16 nil 4 4 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5234 (20 nil 5 4 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5235 (21 t 3 7 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5236 (25 nil 5 5 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5237 (30 nil 6 5 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5238 (36 nil 6 6 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5239 (40 t 4 10 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5240 (42 nil 7 6 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5241 (49 nil 7 7 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5242 (56 nil 8 7 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5243 (60 t 5 12 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5244 (64 nil 8 8 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5245 (72 nil 9 8 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5246 (81 nil 9 9 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5247 (90 nil 10 9 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5248 (100 nil 10 10 0)) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5249 (executive |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5250 (1 nil 1 1 0) |
29494
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
5251 (2 t 1 2 0) ; adjusted by PostScript code |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5252 (4 nil 2 2 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5253 (6 t 2 3 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5254 (9 nil 3 3 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5255 (12 nil 4 3 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5256 (16 nil 4 4 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5257 (20 nil 5 4 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5258 (25 nil 5 5 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5259 (28 t 4 7 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5260 (30 nil 6 5 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5261 (36 nil 6 6 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5262 (42 nil 7 6 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5263 (45 t 5 9 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5264 (49 nil 7 7 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5265 (56 nil 8 7 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5266 (60 t 6 10 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5267 (64 nil 8 8 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5268 (72 nil 9 8 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5269 (81 nil 9 9 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5270 (84 t 7 12 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5271 (90 nil 10 9 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5272 (100 nil 10 10 0)) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5273 (a4small |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5274 (1 nil 1 1 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5275 (2 t 1 2 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5276 (4 nil 2 2 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5277 (6 t 2 3 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5278 (8 t 2 4 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5279 (9 nil 3 3 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5280 (12 nil 4 3 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5281 (16 nil 4 4 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5282 (18 t 3 6 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5283 (20 nil 5 4 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5284 (25 nil 5 5 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5285 (30 nil 6 5 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5286 (32 t 4 8 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5287 (36 nil 6 6 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5288 (42 nil 7 6 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5289 (49 nil 7 7 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5290 (50 t 5 10 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5291 (56 nil 8 7 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5292 (64 nil 8 8 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5293 (72 nil 9 8 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5294 (78 t 6 13 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5295 (81 nil 9 9 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5296 (90 nil 10 9 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5297 (100 nil 10 10 0)) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5298 (b4 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5299 (1 nil 1 1 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5300 (2 t 1 2 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5301 (4 nil 2 2 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5302 (6 t 2 3 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5303 (8 t 2 4 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5304 (9 nil 3 3 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5305 (12 nil 4 3 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5306 (16 nil 4 4 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5307 (18 t 3 6 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5308 (20 nil 5 4 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5309 (25 nil 5 5 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5310 (30 nil 6 5 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5311 (32 t 4 8 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5312 (36 nil 6 6 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5313 (42 nil 7 6 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5314 (49 nil 7 7 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5315 (50 t 5 10 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5316 (56 nil 8 7 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5317 (64 nil 8 8 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5318 (72 nil 9 8 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5319 (81 nil 9 9 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5320 (90 nil 10 9 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5321 (100 nil 10 10 0)) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5322 (b5 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5323 (1 nil 1 1 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5324 (2 t 1 2 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5325 (4 nil 2 2 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5326 (6 t 2 3 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5327 (8 t 2 4 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5328 (9 nil 3 3 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5329 (12 nil 4 3 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5330 (16 nil 4 4 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5331 (18 t 3 6 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5332 (20 nil 5 4 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5333 (25 nil 5 5 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5334 (30 nil 6 5 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5335 (32 t 4 8 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5336 (36 nil 6 6 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5337 (42 nil 7 6 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5338 (49 nil 7 7 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5339 (50 t 5 10 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5340 (56 nil 8 7 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5341 (64 nil 8 8 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5342 (72 nil 9 8 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5343 (81 nil 9 9 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5344 (90 nil 10 9 1) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5345 (98 t 7 14 0) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5346 (100 nil 10 10 0))) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5347 "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
|
5348 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5349 Each element has the following form: |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5350 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5351 (PAGE |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5352 (MAX LANDSCAPE LINES COLUMNS COL-MISSING) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5353 ...) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5354 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5355 Where: |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5356 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
|
5357 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
|
5358 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
|
5359 values: |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5360 nil the sheet is in portrait mode. |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5361 t the sheet is in landscape mode. |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5362 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
|
5363 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
|
5364 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
|
5365 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
|
5366 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5367 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5368 (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
|
5369 (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
|
5370 (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
|
5371 (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
|
5372 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5373 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5374 (defun ps-n-up-printing () |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5375 ;; 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
|
5376 (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
|
5377 ;; 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
|
5378 (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
|
5379 (and the-list |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5380 (while (> ps-n-up-printing (caar the-list)) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5381 (setq the-list (cdr the-list)))) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5382 (car the-list))) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5383 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5384 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5385 (defconst ps-n-up-filling-database |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5386 '((left-top |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5387 "PageWidth" ; N-Up-XColumn |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5388 "0" ; N-Up-YColumn |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5389 "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
|
5390 "LandscapePageHeight neg" ; N-Up-YLine |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5391 "N-Up-Lines" ; N-Up-Repeat |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5392 "N-Up-Columns" ; N-Up-End |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5393 "0" ; N-Up-XStart |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5394 "0") ; N-Up-YStart |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5395 (left-bottom |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5396 "PageWidth" ; N-Up-XColumn |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5397 "0" ; N-Up-YColumn |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5398 "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
|
5399 "LandscapePageHeight" ; N-Up-YLine |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5400 "N-Up-Lines" ; N-Up-Repeat |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5401 "N-Up-Columns" ; N-Up-End |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5402 "0" ; N-Up-XStart |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5403 "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
|
5404 (right-top |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5405 "PageWidth neg" ; N-Up-XColumn |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5406 "0" ; N-Up-YColumn |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5407 "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
|
5408 "LandscapePageHeight neg" ; N-Up-YLine |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5409 "N-Up-Lines" ; N-Up-Repeat |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5410 "N-Up-Columns" ; N-Up-End |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5411 "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
|
5412 "0") ; N-Up-YStart |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5413 (right-bottom |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5414 "PageWidth neg" ; N-Up-XColumn |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5415 "0" ; N-Up-YColumn |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5416 "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
|
5417 "LandscapePageHeight" ; N-Up-YLine |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5418 "N-Up-Lines" ; N-Up-Repeat |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5419 "N-Up-Columns" ; N-Up-End |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5420 "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
|
5421 "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
|
5422 (top-left |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5423 "0" ; N-Up-XColumn |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5424 "LandscapePageHeight neg" ; N-Up-YColumn |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5425 "PageWidth" ; N-Up-XLine |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5426 "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
|
5427 "N-Up-Columns" ; N-Up-Repeat |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5428 "N-Up-Lines" ; N-Up-End |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5429 "0" ; N-Up-XStart |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5430 "0") ; N-Up-YStart |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5431 (bottom-left |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5432 "0" ; N-Up-XColumn |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5433 "LandscapePageHeight" ; N-Up-YColumn |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5434 "PageWidth" ; N-Up-XLine |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5435 "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
|
5436 "N-Up-Columns" ; N-Up-Repeat |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5437 "N-Up-Lines" ; N-Up-End |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5438 "0" ; N-Up-XStart |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5439 "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
|
5440 (top-right |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5441 "0" ; N-Up-XColumn |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5442 "LandscapePageHeight neg" ; N-Up-YColumn |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5443 "PageWidth neg" ; N-Up-XLine |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5444 "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
|
5445 "N-Up-Columns" ; N-Up-Repeat |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5446 "N-Up-Lines" ; N-Up-End |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5447 "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
|
5448 "0") ; N-Up-YStart |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5449 (bottom-right |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5450 "0" ; N-Up-XColumn |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5451 "LandscapePageHeight" ; N-Up-YColumn |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5452 "PageWidth neg" ; N-Up-XLine |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5453 "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
|
5454 "N-Up-Columns" ; N-Up-Repeat |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5455 "N-Up-Lines" ; N-Up-End |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5456 "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
|
5457 "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
|
5458 "Alist for n-up printing initializations. |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5459 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5460 Each element has the following form: |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5461 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5462 (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
|
5463 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5464 Where: |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5465 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
|
5466 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
|
5467 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
|
5468 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
|
5469 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
|
5470 a row. |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5471 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
|
5472 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5473 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5474 (defun ps-n-up-filling () |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5475 (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
|
5476 (assq 'left-top ps-n-up-filling-database)))) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5477 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5478 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5479 (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
|
5480 (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
|
5481 (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
|
5482 (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
|
5483 (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
|
5484 (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
|
5485 (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
|
5486 (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
|
5487 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5488 |
28153
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
5489 (defconst ps-error-handler-alist |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
5490 '((none . 0) |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
5491 (paper . 1) |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
5492 (system . 2) |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
5493 (paper-and-system . 3)) |
36215
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
5494 "Alist for error handler message.") |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
5495 |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
5496 |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
5497 (defconst ps-zebra-stripe-alist |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
5498 '((follow . 1) |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
5499 (full . 2) |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
5500 (full-follow . 3)) |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
5501 "Alist for zebra stripe continuation.") |
28153
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
5502 |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
5503 |
7257 | 5504 (defun ps-begin-file () |
33337
75b72848ba05
Patch for variable initialization when spooling. Doc
Gerd Moellmann <gerd@gnu.org>
parents:
33143
diff
changeset
|
5505 (setq ps-page-order 0 |
33143
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
5506 ps-page-printed 0 |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5507 ps-background-text-count 0 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5508 ps-background-image-count 0 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5509 ps-background-pages nil |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5510 ps-background-all-pages nil) |
7257 | 5511 |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5512 (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
|
5513 (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
|
5514 (n-up (ps-n-up-printing)) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5515 (n-up-filling (ps-n-up-filling))) |
28979
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
5516 (and ps-n-up-on (setq tumble (not tumble))) |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5517 (ps-output |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5518 ps-adobe-tag |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5519 "%%Title: " (buffer-name) ; Take job name from name of |
20331 | 5520 ; first buffer printed |
56504
8d030ffc0866
Improve DSC compliance.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56127
diff
changeset
|
5521 "\n%%Creator: ps-print v" ps-print-version |
8d030ffc0866
Improve DSC compliance.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56127
diff
changeset
|
5522 "\n%%For: " (user-full-name) |
8d030ffc0866
Improve DSC compliance.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56127
diff
changeset
|
5523 "\n%%CreationDate: " (format-time-string "%T %b %d %Y") |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5524 "\n%%Orientation: " |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5525 (if ps-landscape-mode "Landscape" "Portrait") |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5526 "\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
|
5527 (mapconcat 'identity |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5528 (ps-remove-duplicates |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5529 (append (ps-fonts 'ps-font-for-text) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5530 (list (ps-font 'ps-font-for-header 'normal) |
56504
8d030ffc0866
Improve DSC compliance.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56127
diff
changeset
|
5531 (ps-font 'ps-font-for-header 'bold) |
8d030ffc0866
Improve DSC compliance.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56127
diff
changeset
|
5532 (ps-font 'ps-font-for-footer 'normal) |
8d030ffc0866
Improve DSC compliance.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56127
diff
changeset
|
5533 (ps-font 'ps-font-for-footer 'bold)))) |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5534 "\n%%+ font ") |
56504
8d030ffc0866
Improve DSC compliance.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56127
diff
changeset
|
5535 "\n%%DocumentSuppliedResources: procset PSPrintUserDefinedPrologue-" (user-login-name) " 0 0" |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5536 "\n%%DocumentMedia: " (ps-page-dimensions-get-media dimensions) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5537 (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
|
5538 (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
|
5539 " 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
|
5540 (if ps-spool-duplex |
29494
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
5541 (if tumble " duplex(tumble)\n" " duplex\n") |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5542 "\n")) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5543 |
28153
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
5544 (ps-insert-string ps-print-prologue-header) |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5545 |
29494
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
5546 (ps-output "%%EndComments\n%%BeginDefaults\n%%PageMedia: " |
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
5547 (ps-page-dimensions-get-media dimensions) |
37135
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
5548 "\n%%EndDefaults\n\n%%BeginProlog\n\n" |
28426
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
5549 "/languagelevel where{pop}{/languagelevel 1 def}ifelse\n" |
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
5550 (format "/ErrorMessage %s def\n\n" |
28153
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
5551 (or (cdr (assoc ps-error-handler-message |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
5552 ps-error-handler-alist)) |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
5553 1)) ; send to paper |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
5554 ps-print-prologue-0 |
56504
8d030ffc0866
Improve DSC compliance.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56127
diff
changeset
|
5555 "\n%%BeginResource: procset PSPrintUserDefinedPrologue-" (user-login-name) " 0 0\n\n") |
28153
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
5556 |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
5557 (ps-insert-string ps-user-defined-prologue) |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
5558 |
56504
8d030ffc0866
Improve DSC compliance.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56127
diff
changeset
|
5559 (ps-output "\n%%EndResource\n\n") |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5560 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5561 (ps-output-boolean "LandscapeMode " |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5562 (or ps-landscape-mode |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5563 (eq (ps-n-up-landscape n-up) 'pag))) |
28760
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
5564 (ps-output-boolean "UpsideDown " ps-print-upside-down) |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5565 (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
|
5566 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5567 (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
|
5568 (format "/PrintPageWidth %s def\n" |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5569 (- (* (+ ps-print-width ps-inter-column) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5570 ps-number-of-columns) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5571 ps-inter-column)) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5572 (format "/PrintWidth %s def\n" ps-print-width) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5573 (format "/PrintHeight %s def\n" ps-print-height) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5574 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5575 (format "/LeftMargin %s def\n" ps-left-margin) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5576 (format "/RightMargin %s def\n" ps-right-margin) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5577 (format "/InterColumn %s def\n" ps-inter-column) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5578 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5579 (format "/BottomMargin %s def\n" ps-bottom-margin) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5580 (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
|
5581 (format "/HeaderOffset %s def\n" ps-header-offset) |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
5582 (format "/HeaderPad %s def\n" ps-header-pad) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
5583 (format "/FooterOffset %s def\n" ps-footer-offset) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
5584 (format "/FooterPad %s def\n" ps-footer-pad) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
5585 (format "/FooterLines %s def\n" ps-footer-lines)) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
5586 |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
5587 (ps-output-boolean "ShowNofN " ps-show-n-of-n) |
29494
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
5588 (ps-output-boolean "SwitchHeader " (if (eq ps-switch-header 'duplex) |
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
5589 ps-spool-duplex |
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
5590 ps-switch-header)) |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
5591 (ps-output-boolean "PrintOnlyOneHeader" ps-print-only-one-header) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
5592 (ps-output-boolean "PrintHeader " ps-print-header) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
5593 (ps-output-boolean "PrintHeaderFrame " ps-print-header-frame) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
5594 (ps-output-frame-properties "HeaderFrameProperties" ps-header-frame-alist) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
5595 (ps-output-boolean "PrintFooter " ps-print-footer) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
5596 (ps-output-boolean "PrintFooterFrame " ps-print-footer-frame) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
5597 (ps-output-frame-properties "FooterFrameProperties" ps-footer-frame-alist) |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5598 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5599 (let ((line-height (ps-line-height 'ps-font-for-text))) |
37135
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
5600 (ps-output (format "/LineSpacing %s def\n" ps-line-spacing-internal) |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
5601 (format "/ParagraphSpacing %s def\n" |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
5602 ps-paragraph-spacing-internal) |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
5603 (format "/LineHeight %s def\n" line-height) |
36215
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
5604 (format "/LinesPerColumn %d def\n" |
37135
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
5605 (let ((height (+ line-height |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
5606 ps-line-spacing-internal))) |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
5607 (round (/ (+ ps-print-height |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
5608 (* height 0.45)) |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
5609 height)))))) |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5610 |
29494
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
5611 (ps-output-boolean "WarnPaperSize " ps-warn-paper-type) |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5612 (ps-output-boolean "Zebra " ps-zebra-stripes) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5613 (ps-output-boolean "PrintLineNumber " ps-line-number) |
28760
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
5614 (ps-output-boolean "SyncLineZebra " (not (integerp ps-line-number-step))) |
36215
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
5615 (ps-output (format "/ZebraFollow %d def\n" |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
5616 (or (cdr (assq ps-zebra-stripe-follow |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
5617 ps-zebra-stripe-alist)) |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
5618 0)) |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
5619 (format "/PrintLineStep %d def\n" |
28760
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
5620 (if (integerp ps-line-number-step) |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
5621 ps-line-number-step |
28979
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
5622 ps-zebra-stripe-height)) |
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
5623 (format "/PrintLineStart %d def\n" ps-line-number-start) |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
5624 "/LineNumberColor " |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
5625 (ps-format-color ps-line-number-color 0.0) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
5626 (format "def\n/ZebraHeight %d def\n" |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
5627 ps-zebra-stripe-height) |
28426
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
5628 "/ZebraColor " |
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
5629 (ps-format-color ps-zebra-color 0.95) |
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
5630 "def\n/BackgroundColor " |
50032
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
5631 (ps-format-color ps-default-background 1.0) |
28426
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
5632 "def\n/UseSetpagedevice " |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5633 (if (eq ps-spool-config 'setpagedevice) |
28426
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
5634 "/setpagedevice where{pop languagelevel 2 eq}{false}ifelse" |
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
5635 "false") |
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
5636 " def\n\n/PageWidth " |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5637 "PrintPageWidth LeftMargin add RightMargin add def\n\n" |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5638 (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
|
5639 (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
|
5640 (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
|
5641 (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
|
5642 (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
|
5643 (format "/N-Up-Missing %d def\n" (ps-n-up-missing n-up)) |
28426
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
5644 (format "/N-Up-Margin %s def\n" ps-n-up-margin) |
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
5645 "/N-Up-Repeat " |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5646 (if ps-landscape-mode |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5647 (ps-n-up-end n-up-filling) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5648 (ps-n-up-repeat n-up-filling)) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5649 " def\n/N-Up-End " |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5650 (if ps-landscape-mode |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5651 (ps-n-up-repeat n-up-filling) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5652 (ps-n-up-end n-up-filling)) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5653 " 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
|
5654 " 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
|
5655 " 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
|
5656 " 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
|
5657 " 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
|
5658 " 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
|
5659 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5660 (ps-background-text) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5661 (ps-background-image) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5662 (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
|
5663 ps-background-pages (nreverse ps-background-pages)) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5664 |
56552
12ee8343c078
Tiny change.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56504
diff
changeset
|
5665 (ps-output "\n" ps-print-prologue-1 |
12ee8343c078
Tiny change.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56504
diff
changeset
|
5666 "\n/printGlobalBackground{\n") |
33337
75b72848ba05
Patch for variable initialization when spooling. Doc
Gerd Moellmann <gerd@gnu.org>
parents:
33143
diff
changeset
|
5667 (mapcar 'ps-output ps-background-all-pages) |
56504
8d030ffc0866
Improve DSC compliance.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56127
diff
changeset
|
5668 (ps-output |
56552
12ee8343c078
Tiny change.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56504
diff
changeset
|
5669 "}def\n/printLocalBackground{\n}def\n" |
12ee8343c078
Tiny change.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56504
diff
changeset
|
5670 "\n%%EndProlog\n\n%%BeginSetup\n" |
56504
8d030ffc0866
Improve DSC compliance.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56127
diff
changeset
|
5671 "\n%%IncludeResource: font Times-Roman" |
56552
12ee8343c078
Tiny change.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56504
diff
changeset
|
5672 "\n%%IncludeResource: font Times-Italic" |
12ee8343c078
Tiny change.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56504
diff
changeset
|
5673 "\n%%IncludeResource: font " |
56504
8d030ffc0866
Improve DSC compliance.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56127
diff
changeset
|
5674 (mapconcat 'identity |
8d030ffc0866
Improve DSC compliance.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56127
diff
changeset
|
5675 (ps-remove-duplicates |
8d030ffc0866
Improve DSC compliance.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56127
diff
changeset
|
5676 (append (ps-fonts 'ps-font-for-text) |
8d030ffc0866
Improve DSC compliance.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56127
diff
changeset
|
5677 (list (ps-font 'ps-font-for-header 'normal) |
8d030ffc0866
Improve DSC compliance.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56127
diff
changeset
|
5678 (ps-font 'ps-font-for-header 'bold) |
8d030ffc0866
Improve DSC compliance.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56127
diff
changeset
|
5679 (ps-font 'ps-font-for-footer 'normal) |
8d030ffc0866
Improve DSC compliance.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56127
diff
changeset
|
5680 (ps-font 'ps-font-for-footer 'bold)))) |
8d030ffc0866
Improve DSC compliance.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56127
diff
changeset
|
5681 "\n%%IncludeResource: font ") |
56552
12ee8343c078
Tiny change.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56504
diff
changeset
|
5682 ;; Header/line number fonts |
12ee8343c078
Tiny change.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56504
diff
changeset
|
5683 (format "\n/h0 %s(%s)cvn DefFont\n" ; /h0 14/Helvetica-Bold DefFont |
12ee8343c078
Tiny change.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56504
diff
changeset
|
5684 ps-header-title-font-size-internal |
12ee8343c078
Tiny change.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56504
diff
changeset
|
5685 (ps-font 'ps-font-for-header 'bold)) |
12ee8343c078
Tiny change.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56504
diff
changeset
|
5686 (format "/h1 %s(%s)cvn DefFont\n" ; /h1 12/Helvetica DefFont |
12ee8343c078
Tiny change.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56504
diff
changeset
|
5687 ps-header-font-size-internal |
12ee8343c078
Tiny change.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56504
diff
changeset
|
5688 (ps-font 'ps-font-for-header 'normal)) |
12ee8343c078
Tiny change.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56504
diff
changeset
|
5689 (format "/L0 %s(%s)cvn DefFont\n" ; /L0 6/Times-Italic DefFont |
12ee8343c078
Tiny change.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56504
diff
changeset
|
5690 (ps-get-font-size 'ps-line-number-font-size) |
12ee8343c078
Tiny change.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56504
diff
changeset
|
5691 ps-line-number-font) |
12ee8343c078
Tiny change.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56504
diff
changeset
|
5692 (format "/H0 %s(%s)cvn DefFont\n" ; /H0 12/Helvetica DefFont |
12ee8343c078
Tiny change.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56504
diff
changeset
|
5693 ps-footer-font-size-internal |
12ee8343c078
Tiny change.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56504
diff
changeset
|
5694 (ps-font 'ps-font-for-footer 'normal)) |
12ee8343c078
Tiny change.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56504
diff
changeset
|
5695 "\n\n% ---- These lines must be kept together because... |
37135
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
5696 |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
5697 /h0 F |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
5698 /HeaderTitleLineHeight FontHeight def |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
5699 |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
5700 /h1 F |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
5701 /HeaderLineHeight FontHeight def |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
5702 /HeaderDescent Descent def |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
5703 |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
5704 /H0 F |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
5705 /FooterLineHeight FontHeight def |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
5706 /FooterDescent Descent def |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
5707 |
37135
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
5708 % ---- ...because `F' has a side-effect on `FontHeight' and `Descent'\n\n") |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5709 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5710 ;; Text fonts |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5711 (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
|
5712 (i 0)) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5713 (while font |
31253
4c40c1171b8b
Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
30522
diff
changeset
|
5714 (ps-output (format "/f%d %s(%s)cvn DefFont\n" |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5715 i |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5716 ps-font-size-internal |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5717 (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
|
5718 (setq font (cdr font) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5719 i (1+ i)))) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5720 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5721 (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
|
5722 (ps-output (format "/SpaceWidthRatio %f def\n" |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5723 (/ (ps-lookup 'space-width) (ps-lookup 'size))))) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5724 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5725 (unless (eq ps-spool-config 'lpr-switches) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5726 (ps-output "\n%%BeginFeature: *Duplex " |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5727 (ps-boolean-capitalized ps-spool-duplex) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5728 " *Tumble " |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5729 (ps-boolean-capitalized tumble) |
31253
4c40c1171b8b
Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
30522
diff
changeset
|
5730 "\nUseSetpagedevice\n{BMark/Duplex " |
4c40c1171b8b
Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
30522
diff
changeset
|
5731 (ps-boolean-constant ps-spool-duplex) |
4c40c1171b8b
Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
30522
diff
changeset
|
5732 "/Tumble " |
4c40c1171b8b
Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
30522
diff
changeset
|
5733 (ps-boolean-constant tumble) |
4c40c1171b8b
Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
30522
diff
changeset
|
5734 " EMark setpagedevice}\n{statusdict begin " |
4c40c1171b8b
Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
30522
diff
changeset
|
5735 (ps-boolean-constant ps-spool-duplex) |
4c40c1171b8b
Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
30522
diff
changeset
|
5736 " setduplexmode " |
4c40c1171b8b
Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
30522
diff
changeset
|
5737 (ps-boolean-constant tumble) |
4c40c1171b8b
Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
30522
diff
changeset
|
5738 " settumble end}ifelse\n%%EndFeature\n"))) |
29494
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
5739 (ps-output "\n%%BeginFeature: *ManualFeed " |
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
5740 (ps-boolean-capitalized ps-manual-feed) |
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
5741 "\nBMark /ManualFeed " |
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
5742 (ps-boolean-constant ps-manual-feed) |
34045
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
5743 " EMark setpagedevice\n%%EndFeature\n\nBeginDoc\n%%EndSetup\n") |
28286 | 5744 (and ps-banner-page-when-duplexing |
28979
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
5745 (ps-output "\n%%Page: banner 0\nsave showpage restore\n"))) |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5746 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5747 |
28426
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
5748 (defun ps-format-color (color &optional default) |
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
5749 (let ((the-color (if (stringp color) |
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
5750 (ps-color-scale color) |
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
5751 color))) |
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
5752 (if (and the-color (listp the-color)) |
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
5753 (concat "[" |
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
5754 (format ps-color-format |
37489
ba96560d3f9e
Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents:
37286
diff
changeset
|
5755 (* (nth 0 the-color) 1.0) ; force float number |
ba96560d3f9e
Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents:
37286
diff
changeset
|
5756 (* (nth 1 the-color) 1.0) ; force float number |
ba96560d3f9e
Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents:
37286
diff
changeset
|
5757 (* (nth 2 the-color) 1.0)) ; force float number |
28426
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
5758 "] ") |
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
5759 (ps-float-format (if (numberp the-color) the-color default))))) |
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
5760 |
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
5761 |
28153
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
5762 (defun ps-insert-string (prologue) |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
5763 (let ((str (if (functionp prologue) |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
5764 (funcall prologue) |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
5765 prologue))) |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
5766 (and (stringp str) |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
5767 (ps-output str)))) |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
5768 |
111343598e3e
PostScript user-defined prologue, PostScript error
Gerd Moellmann <gerd@gnu.org>
parents:
27163
diff
changeset
|
5769 |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5770 (defun ps-boolean-capitalized (bool) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5771 (if bool "True" "False")) |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5772 |
7257 | 5773 |
29494
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
5774 (defun ps-boolean-constant (bool) |
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
5775 (if bool "true" "false")) |
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
5776 |
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
5777 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5778 (defun ps-header-dirpart () |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5779 (let ((fname (buffer-file-name))) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5780 (if fname |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5781 (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
|
5782 (abbreviate-file-name (file-name-directory fname)) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5783 fname) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5784 ""))) |
7257 | 5785 |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5786 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5787 (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
|
5788 (cond |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
5789 ;; 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
|
5790 ((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
|
5791 "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
|
5792 ;; 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
|
5793 ((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
|
5794 "Super! C'est sokoban.el!") |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5795 (t (concat |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5796 (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
|
5797 (buffer-name) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5798 (and (buffer-modified-p) " (unsaved)"))))) |
7257 | 5799 |
24414
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
5800 |
37135
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
5801 (defun ps-get-size (size mess &optional arg) |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
5802 (let ((siz (cond ((numberp size) |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
5803 size) |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
5804 ((and (consp size) |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
5805 (numberp (car size)) |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
5806 (numberp (cdr size))) |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
5807 (if ps-landscape-mode |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
5808 (car size) |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
5809 (cdr size))) |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
5810 (t |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
5811 -1)))) |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
5812 (and (< siz 0) |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
5813 (error "Invalid %s `%S'%s" |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
5814 mess size |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
5815 (if arg |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
5816 (format " for `%S'" arg) |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
5817 ""))) |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
5818 siz)) |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
5819 |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
5820 |
24414
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
5821 (defun ps-get-font-size (font-sym) |
37135
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
5822 (ps-get-size (symbol-value font-sym) "font size" font-sym)) |
24414
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
5823 |
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
5824 |
50032
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
5825 (defun ps-rgb-color (color default) |
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
5826 (cond ((and color (listp color) (= (length color) 3) |
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
5827 (let ((cl color) |
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
5828 (ok t) e) |
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
5829 (while (and ok cl) |
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
5830 (setq e (car cl) |
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
5831 cl (cdr cl) |
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
5832 ok (and (floatp e) (<= 0.0 e) (<= e 1.0)))) |
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
5833 ok)) |
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
5834 color) |
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
5835 ((and (floatp color) (<= 0.0 color) (<= color 1.0)) |
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
5836 (list color color color)) |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
5837 ((stringp color) (ps-color-scale color)) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
5838 (t (list default default default)) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
5839 )) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
5840 |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
5841 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5842 (defun ps-begin-job () |
29848
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
5843 ;; prologue files |
27163
ea8740d15178
PostScript code now is in separate files, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
27161
diff
changeset
|
5844 (or (equal ps-mark-code-directory ps-postscript-code-directory) |
31253
4c40c1171b8b
Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
30522
diff
changeset
|
5845 (setq ps-print-prologue-0 (ps-prologue-file 0) |
4c40c1171b8b
Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
30522
diff
changeset
|
5846 ps-print-prologue-1 (ps-prologue-file 1) |
4c40c1171b8b
Even/odd pages printing. Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
30522
diff
changeset
|
5847 ps-mark-code-directory ps-postscript-code-directory)) |
29848
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
5848 ;; selected pages |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
5849 (let (new page) |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
5850 (while ps-selected-pages |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
5851 (setq page (car ps-selected-pages) |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
5852 ps-selected-pages (cdr ps-selected-pages)) |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
5853 (cond ((integerp page) |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
5854 (and (> page 0) |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
5855 (setq new (cons (cons page page) new)))) |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
5856 ((consp page) |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
5857 (and (integerp (car page)) (integerp (cdr page)) |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
5858 (> (car page) 0) |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
5859 (<= (car page) (cdr page)) |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
5860 (setq new (cons page new)))))) |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
5861 (setq ps-selected-pages (sort new #'(lambda (one other) |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
5862 (< (car one) (car other)))) |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
5863 ps-last-selected-pages ps-selected-pages |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
5864 ps-first-page nil |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
5865 ps-last-page nil)) |
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
5866 ;; face background |
28760
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
5867 (or (listp ps-use-face-background) |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
5868 (setq ps-use-face-background t)) |
29848
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
5869 ;; line number |
28760
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
5870 (and (integerp ps-line-number-step) |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
5871 (<= ps-line-number-step 0) |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
5872 (setq ps-line-number-step 1)) |
28979
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
5873 (setq ps-n-up-on (> ps-n-up-printing 1) |
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
5874 ps-line-number-start (max 1 (min ps-line-number-start |
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
5875 (if (integerp ps-line-number-step) |
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
5876 ps-line-number-step |
b6e33b095c08
* ps-print.el: Compatibility, customization and doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28760
diff
changeset
|
5877 ps-zebra-stripe-height)))) |
29848
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
5878 ;; spooling buffer |
22397 | 5879 (save-excursion |
5880 (set-buffer ps-spool-buffer) | |
5881 (goto-char (point-max)) | |
5882 (and (re-search-backward "^%%Trailer$" nil t) | |
5883 (delete-region (match-beginning 0) (point-max)))) | |
29848
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
5884 ;; miscellaneous |
36215
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
5885 (setq ps-zebra-stripe-full-p (memq ps-zebra-stripe-follow |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
5886 '(full full-follow)) |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
5887 ps-page-postscript 0 |
33337
75b72848ba05
Patch for variable initialization when spooling. Doc
Gerd Moellmann <gerd@gnu.org>
parents:
33143
diff
changeset
|
5888 ps-page-sheet 0 |
75b72848ba05
Patch for variable initialization when spooling. Doc
Gerd Moellmann <gerd@gnu.org>
parents:
33143
diff
changeset
|
5889 ps-page-n-up 0 |
33143
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
5890 ps-page-column 0 |
34919
2c73a20c859c
Handle form feed better when ps-zebra-stripe-follow is
Gerd Moellmann <gerd@gnu.org>
parents:
34045
diff
changeset
|
5891 ps-lines-printed 0 |
33337
75b72848ba05
Patch for variable initialization when spooling. Doc
Gerd Moellmann <gerd@gnu.org>
parents:
33143
diff
changeset
|
5892 ps-print-page-p t |
75b72848ba05
Patch for variable initialization when spooling. Doc
Gerd Moellmann <gerd@gnu.org>
parents:
33143
diff
changeset
|
5893 ps-showline-count (car ps-printing-region) |
37135
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
5894 ps-line-spacing-internal (ps-get-size ps-line-spacing |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
5895 "line spacing") |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
5896 ps-paragraph-spacing-internal (ps-get-size ps-paragraph-spacing |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
5897 "paragraph spacing") |
24414
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
5898 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
|
5899 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
|
5900 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
|
5901 (ps-get-font-size 'ps-header-title-font-size) |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
5902 ps-footer-font-size-internal (ps-get-font-size 'ps-footer-font-size) |
20516
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
5903 ps-control-or-escape-regexp |
23892
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
5904 (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
|
5905 (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
|
5906 ((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
|
5907 (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
|
5908 ((eq ps-print-control-characters 'control) |
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
5909 "[\000-\037\177]") |
28426
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
5910 (t "[\t\n\f]")) |
50032
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
5911 ps-default-background (ps-rgb-color |
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
5912 (if (eq ps-default-bg t) |
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
5913 (ps-face-background-name 'default) |
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
5914 ps-default-bg) |
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
5915 1.0) |
49763
e19e88bc6e58
Change the policy of background/foreground default color.
Juanma Barranquero <lekktu@gmail.com>
parents:
47674
diff
changeset
|
5916 ps-default-foreground (ps-rgb-color |
e19e88bc6e58
Change the policy of background/foreground default color.
Juanma Barranquero <lekktu@gmail.com>
parents:
47674
diff
changeset
|
5917 (if (eq ps-default-fg t) |
e19e88bc6e58
Change the policy of background/foreground default color.
Juanma Barranquero <lekktu@gmail.com>
parents:
47674
diff
changeset
|
5918 (ps-face-foreground-name 'default) |
e19e88bc6e58
Change the policy of background/foreground default color.
Juanma Barranquero <lekktu@gmail.com>
parents:
47674
diff
changeset
|
5919 ps-default-fg) |
e19e88bc6e58
Change the policy of background/foreground default color.
Juanma Barranquero <lekktu@gmail.com>
parents:
47674
diff
changeset
|
5920 0.0) |
39327
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
5921 ps-default-color (and (eq ps-print-color-p t) ps-default-foreground) |
28426
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
5922 ps-current-color ps-default-color |
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
5923 ;; Set the color scale. We do it here instead of in the defvar so |
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
5924 ;; that ps-print can be dumped into emacs. This expression can't be |
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
5925 ;; evaluated at dump-time because X isn't initialized. |
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
5926 ps-color-p (and ps-print-color-p (ps-color-device)) |
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
5927 ps-print-color-scale (if ps-color-p |
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
5928 (float (car (ps-color-values "white"))) |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
5929 1.0)) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
5930 ;; initialize page dimensions |
50032
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
5931 (ps-get-page-dimensions) |
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
5932 ;; final check |
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
5933 (and ps-color-p |
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
5934 (equal ps-default-background ps-default-foreground) |
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
5935 (error |
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
5936 (concat |
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
5937 "`ps-default-fg' and `ps-default-bg' have the same color.\n" |
c919f0375a3e
Check if background and foreground color are the same.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
49763
diff
changeset
|
5938 "Text won't appear on page. Please, check these variables.")))) |
28426
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
5939 |
7257 | 5940 |
33090
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
5941 (defun ps-page-number () |
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
5942 (if ps-print-only-one-header |
33143
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
5943 (1+ (/ (1- ps-page-column) ps-number-of-columns)) |
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
5944 ps-page-column)) |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5945 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
5946 |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
5947 (defsubst ps-end-page () |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
5948 (ps-output "EndPage\nEndDSCPage\n")) |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
5949 |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
5950 |
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
5951 (defsubst ps-next-page () |
7257 | 5952 (ps-end-page) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5953 (ps-flush-output) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5954 (ps-begin-page)) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
5955 |
26114
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5956 |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5957 (defun ps-header-sheet () |
c19849fe02b5
Doc fix, duplex and setpagedevice configuration.
Kenichi Handa <handa@m17n.org>
parents:
24851
diff
changeset
|
5958 ;; Print only when a new sheet begins. |
33143
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
5959 (and ps-print-page-p (> ps-page-sheet 0) |
33090
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
5960 (ps-output "EndSheet\n")) |
33143
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
5961 (setq ps-page-sheet (1+ ps-page-sheet)) |
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
5962 (when (ps-print-sheet-p) |
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
5963 (setq ps-page-order (1+ ps-page-order)) |
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
5964 (ps-output (if ps-n-up-on |
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
5965 (format "\n%%%%Page: (%d \\(%d\\)) %d\n" |
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
5966 ps-page-order ps-page-postscript ps-page-order) |
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
5967 (format "\n%%%%Page: %d %d\n" |
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
5968 ps-page-postscript ps-page-order)) |
34045
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
5969 ;; spooling needs to redefine Lines and PageCount on each page |
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
5970 "/Lines 0 def\n/PageCount 0 def\n" |
33143
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
5971 (format "%d BeginSheet\nBeginDSCPage\n" |
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
5972 ps-n-up-printing)))) |
33090
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
5973 |
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
5974 |
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
5975 (defun ps-header-page () |
22397 | 5976 ;; set total line and page number when printing has finished |
5977 ;; (see `ps-generate') | |
33143
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
5978 (if (zerop (mod ps-page-column ps-number-of-columns)) |
33090
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
5979 (progn |
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
5980 (setq ps-page-postscript (1+ ps-page-postscript)) |
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
5981 (when (ps-print-page-p) |
33143
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
5982 (ps-print-sheet-p) |
33090
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
5983 (if (zerop (mod ps-page-n-up ps-n-up-printing)) |
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
5984 ;; Print only when a new sheet begins. |
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
5985 (progn |
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
5986 (ps-header-sheet) |
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
5987 (run-hooks 'ps-print-begin-sheet-hook)) |
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
5988 ;; Print only when a new page begins. |
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
5989 (ps-output "BeginDSCPage\n") |
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
5990 (run-hooks 'ps-print-begin-page-hook)) |
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
5991 (ps-background ps-page-postscript) |
33143
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
5992 (setq ps-page-n-up (1+ ps-page-n-up)) |
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
5993 (and ps-print-page-p |
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
5994 (setq ps-page-printed (1+ ps-page-printed))))) |
33090
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
5995 ;; Print only when a new column begins. |
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
5996 (ps-output "BeginDSCPage\n") |
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
5997 (run-hooks 'ps-print-begin-column-hook)) |
33143
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
5998 (setq ps-page-column (1+ ps-page-column))) |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
5999 |
20331 | 6000 (defun ps-begin-page () |
6001 (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
|
6002 ps-height-remaining ps-print-height) |
7257 | 6003 |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
6004 (ps-header-page) |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
6005 |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6006 (ps-output (format "/LineNumber %d def\n" ps-showline-count) |
33090
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
6007 (format "/PageNumber %d def\n" (ps-page-number))) |
7257 | 6008 |
16870
4a5fa29f79d6
(ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents:
16361
diff
changeset
|
6009 (when ps-print-header |
51007
c3f9aa88ed68
Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
50871
diff
changeset
|
6010 (ps-generate-header "HeaderLinesLeft" "/h0" "/h1" |
c3f9aa88ed68
Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
50871
diff
changeset
|
6011 (or ps-lh-cache ps-left-header)) |
c3f9aa88ed68
Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
50871
diff
changeset
|
6012 (ps-generate-header "HeaderLinesRight" "/h0" "/h1" |
c3f9aa88ed68
Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
50871
diff
changeset
|
6013 (or ps-rh-cache ps-right-header)) |
c3f9aa88ed68
Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
50871
diff
changeset
|
6014 (ps-output (format "%d SetHeaderLines\n" ps-header-lines)) |
c3f9aa88ed68
Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
50871
diff
changeset
|
6015 (setq ps-lh-cache nil |
c3f9aa88ed68
Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
50871
diff
changeset
|
6016 ps-rh-cache nil)) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6017 |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
6018 (when ps-print-footer |
51007
c3f9aa88ed68
Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
50871
diff
changeset
|
6019 (ps-generate-header "FooterLinesLeft" "/H0" "/H0" |
c3f9aa88ed68
Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
50871
diff
changeset
|
6020 (or ps-lf-cache ps-left-footer)) |
c3f9aa88ed68
Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
50871
diff
changeset
|
6021 (ps-generate-header "FooterLinesRight" "/H0" "/H0" |
c3f9aa88ed68
Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
50871
diff
changeset
|
6022 (or ps-rf-cache ps-right-footer)) |
c3f9aa88ed68
Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
50871
diff
changeset
|
6023 (ps-output (format "%d SetFooterLines\n" ps-footer-lines)) |
c3f9aa88ed68
Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
50871
diff
changeset
|
6024 (setq ps-lf-cache nil |
c3f9aa88ed68
Avoid unnecessary calls to funs in header and footer variables
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
50871
diff
changeset
|
6025 ps-rf-cache nil)) |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
6026 |
34919
2c73a20c859c
Handle form feed better when ps-zebra-stripe-follow is
Gerd Moellmann <gerd@gnu.org>
parents:
34045
diff
changeset
|
6027 (ps-output (number-to-string ps-lines-printed) " BeginPage\n") |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6028 (ps-set-font ps-current-font) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6029 (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
|
6030 (ps-set-color ps-current-color) |
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
6031 (ps-mule-begin-page)) |
7257 | 6032 |
37286
7e15b73c8c20
Footers implementation. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
37135
diff
changeset
|
6033 (defsubst ps-skip-newline (limit) |
34919
2c73a20c859c
Handle form feed better when ps-zebra-stripe-follow is
Gerd Moellmann <gerd@gnu.org>
parents:
34045
diff
changeset
|
6034 (setq ps-showline-count (1+ ps-showline-count) |
2c73a20c859c
Handle form feed better when ps-zebra-stripe-follow is
Gerd Moellmann <gerd@gnu.org>
parents:
34045
diff
changeset
|
6035 ps-lines-printed (1+ ps-lines-printed)) |
2c73a20c859c
Handle form feed better when ps-zebra-stripe-follow is
Gerd Moellmann <gerd@gnu.org>
parents:
34045
diff
changeset
|
6036 (and (< (point) limit) |
2c73a20c859c
Handle form feed better when ps-zebra-stripe-follow is
Gerd Moellmann <gerd@gnu.org>
parents:
34045
diff
changeset
|
6037 (forward-char 1))) |
2c73a20c859c
Handle form feed better when ps-zebra-stripe-follow is
Gerd Moellmann <gerd@gnu.org>
parents:
34045
diff
changeset
|
6038 |
37135
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
6039 (defsubst ps-next-line () |
34919
2c73a20c859c
Handle form feed better when ps-zebra-stripe-follow is
Gerd Moellmann <gerd@gnu.org>
parents:
34045
diff
changeset
|
6040 (setq ps-showline-count (1+ ps-showline-count) |
2c73a20c859c
Handle form feed better when ps-zebra-stripe-follow is
Gerd Moellmann <gerd@gnu.org>
parents:
34045
diff
changeset
|
6041 ps-lines-printed (1+ ps-lines-printed)) |
37135
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
6042 (let* ((paragraph-p (and ps-paragraph-regexp |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
6043 (looking-at ps-paragraph-regexp))) |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
6044 (lh (+ (ps-line-height 'ps-font-for-text) |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
6045 (if paragraph-p |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
6046 ps-paragraph-spacing-internal |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
6047 ps-line-spacing-internal)))) |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
6048 (if (< ps-height-remaining lh) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
6049 (ps-next-page) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
6050 (setq ps-width-remaining ps-print-width |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
6051 ps-height-remaining (- ps-height-remaining lh)) |
37135
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
6052 (ps-output (if paragraph-p "PHL\n" "LHL\n"))))) |
7257 | 6053 |
6054 (defun ps-continue-line () | |
34919
2c73a20c859c
Handle form feed better when ps-zebra-stripe-follow is
Gerd Moellmann <gerd@gnu.org>
parents:
34045
diff
changeset
|
6055 (setq ps-lines-printed (1+ ps-lines-printed)) |
37135
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
6056 (let ((lh (+ (ps-line-height 'ps-font-for-text) ps-line-spacing-internal))) |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
6057 (if (< ps-height-remaining lh) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
6058 (ps-next-page) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
6059 (setq ps-width-remaining ps-print-width |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
6060 ps-height-remaining (- ps-height-remaining lh)) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
6061 (ps-output "SL\n")))) |
7257 | 6062 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6063 (defun ps-find-wrappoint (from to char-width) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6064 (let ((avail (truncate (/ ps-width-remaining char-width))) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6065 (todo (- to from))) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6066 (if (< todo avail) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6067 (cons to (* todo char-width)) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6068 (cons (+ from avail) ps-width-remaining)))) |
7257 | 6069 |
37967
758fe02d489d
Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents:
37489
diff
changeset
|
6070 (defun ps-basic-plot-str (from to string) |
758fe02d489d
Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents:
37489
diff
changeset
|
6071 (let* ((wrappoint (ps-find-wrappoint from to |
758fe02d489d
Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents:
37489
diff
changeset
|
6072 (ps-avg-char-width 'ps-font-for-text))) |
758fe02d489d
Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents:
37489
diff
changeset
|
6073 (to (car wrappoint)) |
758fe02d489d
Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents:
37489
diff
changeset
|
6074 (str (substring string from to))) |
758fe02d489d
Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents:
37489
diff
changeset
|
6075 (ps-mule-prepare-ascii-font str) |
758fe02d489d
Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents:
37489
diff
changeset
|
6076 (ps-output-string str) |
758fe02d489d
Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents:
37489
diff
changeset
|
6077 (ps-output " S\n") |
758fe02d489d
Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents:
37489
diff
changeset
|
6078 wrappoint)) |
758fe02d489d
Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents:
37489
diff
changeset
|
6079 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6080 (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
|
6081 (let* ((wrappoint (ps-find-wrappoint from to |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
6082 (ps-avg-char-width 'ps-font-for-text))) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6083 (to (car wrappoint)) |
23892
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
6084 (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
|
6085 (ps-mule-prepare-ascii-font string) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6086 (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
|
6087 (ps-output " S\n") |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6088 wrappoint)) |
7257 | 6089 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6090 (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
|
6091 (let* ((wrappoint (ps-find-wrappoint from to |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
6092 (ps-space-width 'ps-font-for-text))) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6093 (to (car wrappoint))) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6094 (ps-output (format "%d W\n" (- to from))) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6095 wrappoint)) |
7257 | 6096 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6097 (defun ps-plot (plotfunc from to &optional bg-color) |
7257 | 6098 (while (< from to) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6099 (let* ((wrappoint (funcall plotfunc from to bg-color)) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6100 (plotted-to (car wrappoint)) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6101 (plotted-width (cdr wrappoint))) |
20331 | 6102 (setq from plotted-to |
6103 ps-width-remaining (- ps-width-remaining plotted-width)) | |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6104 (if (< from to) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6105 (ps-continue-line)))) |
7257 | 6106 (if ps-razzle-dazzle |
6107 (let* ((q-todo (- (point-max) (point-min))) | |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6108 (q-done (- (point) (point-min))) |
7257 | 6109 (chunkfrac (/ q-todo 8)) |
20516
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
6110 (chunksize (min chunkfrac 1000))) |
7257 | 6111 (if (> (- q-done ps-razchunk) chunksize) |
20331 | 6112 (progn |
7257 | 6113 (setq ps-razchunk q-done) |
20331 | 6114 (message "Formatting...%3d%%" |
6115 (if (< q-todo 100) | |
6116 (/ (* 100 q-done) q-todo) | |
6117 (/ q-done (/ q-todo 100))) | |
6118 )))))) | |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6119 |
23892
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
6120 (defvar ps-last-font nil) |
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
6121 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6122 (defun ps-set-font (font) |
23091
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
6123 (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
|
6124 (ps-output (format "/%s F\n" ps-last-font))) |
7257 | 6125 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6126 (defun ps-set-bg (color) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6127 (if (setq ps-current-bg color) |
20331 | 6128 (ps-output (format ps-color-format |
6129 (nth 0 color) (nth 1 color) (nth 2 color)) | |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6130 " true BG\n") |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6131 (ps-output "false BG\n"))) |
7257 | 6132 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6133 (defun ps-set-color (color) |
28426
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
6134 (setq ps-current-color (or color ps-default-foreground)) |
20331 | 6135 (ps-output (format ps-color-format |
6136 (nth 0 ps-current-color) | |
11799
4a04c7799790
Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents:
10738
diff
changeset
|
6137 (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
|
6138 " FG\n")) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6139 |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6140 |
37967
758fe02d489d
Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents:
37489
diff
changeset
|
6141 (defsubst ps-plot-string (string) |
758fe02d489d
Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents:
37489
diff
changeset
|
6142 (ps-plot 'ps-basic-plot-str 0 (length string) string)) |
758fe02d489d
Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents:
37489
diff
changeset
|
6143 |
758fe02d489d
Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents:
37489
diff
changeset
|
6144 |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6145 (defvar ps-current-effect 0) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6146 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6147 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6148 (defun ps-plot-region (from to font &optional fg-color bg-color effects) |
37489
ba96560d3f9e
Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents:
37286
diff
changeset
|
6149 (or (equal font ps-current-font) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6150 (ps-set-font font)) |
19879
87952270ceeb
(ps-emacs-face-kind-p): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
19843
diff
changeset
|
6151 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6152 ;; 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
|
6153 ;; different than the current. |
37489
ba96560d3f9e
Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents:
37286
diff
changeset
|
6154 (let ((fg (or fg-color ps-default-foreground))) |
ba96560d3f9e
Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents:
37286
diff
changeset
|
6155 (or (equal fg ps-current-color) |
ba96560d3f9e
Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents:
37286
diff
changeset
|
6156 (ps-set-color fg))) |
ba96560d3f9e
Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents:
37286
diff
changeset
|
6157 |
ba96560d3f9e
Color specified by number is forced to be float number.
Gerd Moellmann <gerd@gnu.org>
parents:
37286
diff
changeset
|
6158 (or (equal bg-color ps-current-bg) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6159 (ps-set-bg bg-color)) |
19879
87952270ceeb
(ps-emacs-face-kind-p): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
19843
diff
changeset
|
6160 |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6161 ;; Specify effects (underline, overline, box, etc) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6162 (cond |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6163 ((not (integerp effects)) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6164 (ps-output "0 EF\n") |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6165 (setq ps-current-effect 0)) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6166 ((/= effects ps-current-effect) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6167 (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
|
6168 (setq ps-current-effect effects))) |
7257 | 6169 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6170 ;; Starting at the beginning of the specified region... |
7257 | 6171 (save-excursion |
6172 (goto-char from) | |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6173 |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6174 ;; ...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
|
6175 ;; pagefeeds, control characters, and plot each chunk. |
7257 | 6176 (while (< from to) |
37135
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
6177 ;; skip lines between cut markers |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
6178 (and ps-begin-cut-regexp ps-end-cut-regexp |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
6179 (looking-at ps-begin-cut-regexp) |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
6180 (progn |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
6181 (goto-char (match-end 0)) |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
6182 (and (re-search-forward ps-end-cut-regexp to 'noerror) |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
6183 (= (following-char) ?\n) |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
6184 (forward-char 1)) |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
6185 (setq from (point)))) |
20516
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
6186 (if (re-search-forward ps-control-or-escape-regexp to t) |
23551 | 6187 ;; 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
|
6188 (let* ((match-point (match-beginning 0)) |
33090
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
6189 (match (char-after match-point)) |
32653
f05cc7224309
Even/odd pages fix. Fix little bug on XEmacs. Avoid
Gerd Moellmann <gerd@gnu.org>
parents:
32619
diff
changeset
|
6190 (composition (ps-e-find-composition from (1+ match-point)))) |
26883
c1e6932eea92
(ps-plot-region): Handle new composition.
Kenichi Handa <handa@m17n.org>
parents:
26563
diff
changeset
|
6191 (if composition |
c1e6932eea92
(ps-plot-region): Handle new composition.
Kenichi Handa <handa@m17n.org>
parents:
26563
diff
changeset
|
6192 (if (and (nth 2 composition) |
c1e6932eea92
(ps-plot-region): Handle new composition.
Kenichi Handa <handa@m17n.org>
parents:
26563
diff
changeset
|
6193 (<= (car composition) match-point)) |
c1e6932eea92
(ps-plot-region): Handle new composition.
Kenichi Handa <handa@m17n.org>
parents:
26563
diff
changeset
|
6194 (progn |
c1e6932eea92
(ps-plot-region): Handle new composition.
Kenichi Handa <handa@m17n.org>
parents:
26563
diff
changeset
|
6195 (setq match-point (car composition) |
c1e6932eea92
(ps-plot-region): Handle new composition.
Kenichi Handa <handa@m17n.org>
parents:
26563
diff
changeset
|
6196 match 0) |
c1e6932eea92
(ps-plot-region): Handle new composition.
Kenichi Handa <handa@m17n.org>
parents:
26563
diff
changeset
|
6197 (goto-char (nth 1 composition))) |
c1e6932eea92
(ps-plot-region): Handle new composition.
Kenichi Handa <handa@m17n.org>
parents:
26563
diff
changeset
|
6198 (setq composition nil))) |
23091
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
6199 (when (< from match-point) |
23892
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
6200 (ps-mule-set-ascii-font) |
23091
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
6201 (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
|
6202 (cond |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
6203 ((= match ?\t) ; tab |
23167
ada869918064
(ps-mule-font-info-database-bdf): The include ASCII
Kenichi Handa <handa@m17n.org>
parents:
23138
diff
changeset
|
6204 (let ((linestart (line-beginning-position))) |
20516
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
6205 (forward-char -1) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
6206 (setq from (+ linestart (current-column))) |
23091
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
6207 (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
|
6208 (ps-mule-set-ascii-font) |
23091
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
6209 (ps-plot 'ps-basic-plot-whitespace |
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
6210 from (+ linestart (current-column)) |
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
6211 bg-color)))) |
20516
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
6212 |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
6213 ((= match ?\n) ; newline |
34919
2c73a20c859c
Handle form feed better when ps-zebra-stripe-follow is
Gerd Moellmann <gerd@gnu.org>
parents:
34045
diff
changeset
|
6214 (if (looking-at "\f[^\n]") |
2c73a20c859c
Handle form feed better when ps-zebra-stripe-follow is
Gerd Moellmann <gerd@gnu.org>
parents:
34045
diff
changeset
|
6215 ;; \n\ftext\n ==>> next page, but keep line counting!! |
2c73a20c859c
Handle form feed better when ps-zebra-stripe-follow is
Gerd Moellmann <gerd@gnu.org>
parents:
34045
diff
changeset
|
6216 (progn |
2c73a20c859c
Handle form feed better when ps-zebra-stripe-follow is
Gerd Moellmann <gerd@gnu.org>
parents:
34045
diff
changeset
|
6217 (ps-skip-newline to) |
2c73a20c859c
Handle form feed better when ps-zebra-stripe-follow is
Gerd Moellmann <gerd@gnu.org>
parents:
34045
diff
changeset
|
6218 (ps-next-page)) |
2c73a20c859c
Handle form feed better when ps-zebra-stripe-follow is
Gerd Moellmann <gerd@gnu.org>
parents:
34045
diff
changeset
|
6219 ;; \n\f\n ==>> it'll be handled by form feed |
2c73a20c859c
Handle form feed better when ps-zebra-stripe-follow is
Gerd Moellmann <gerd@gnu.org>
parents:
34045
diff
changeset
|
6220 ;; \ntext\n ==>> next line |
2c73a20c859c
Handle form feed better when ps-zebra-stripe-follow is
Gerd Moellmann <gerd@gnu.org>
parents:
34045
diff
changeset
|
6221 (ps-next-line))) |
20516
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
6222 |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
6223 ((= match ?\f) ; form feed |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
6224 ;; 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
|
6225 ;; it is a beginning of page. |
34919
2c73a20c859c
Handle form feed better when ps-zebra-stripe-follow is
Gerd Moellmann <gerd@gnu.org>
parents:
34045
diff
changeset
|
6226 (unless (and (equal (char-after (1- match-point)) ?\n) |
2c73a20c859c
Handle form feed better when ps-zebra-stripe-follow is
Gerd Moellmann <gerd@gnu.org>
parents:
34045
diff
changeset
|
6227 (= ps-height-remaining ps-print-height)) |
2c73a20c859c
Handle form feed better when ps-zebra-stripe-follow is
Gerd Moellmann <gerd@gnu.org>
parents:
34045
diff
changeset
|
6228 ;; \f\n ==>> skip \n, but keep line counting!! |
2c73a20c859c
Handle form feed better when ps-zebra-stripe-follow is
Gerd Moellmann <gerd@gnu.org>
parents:
34045
diff
changeset
|
6229 (and (equal (following-char) ?\n) |
2c73a20c859c
Handle form feed better when ps-zebra-stripe-follow is
Gerd Moellmann <gerd@gnu.org>
parents:
34045
diff
changeset
|
6230 (ps-skip-newline to)) |
2c73a20c859c
Handle form feed better when ps-zebra-stripe-follow is
Gerd Moellmann <gerd@gnu.org>
parents:
34045
diff
changeset
|
6231 (ps-next-page))) |
23091
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
6232 |
26883
c1e6932eea92
(ps-plot-region): Handle new composition.
Kenichi Handa <handa@m17n.org>
parents:
26563
diff
changeset
|
6233 (composition ; a composite sequence |
c1e6932eea92
(ps-plot-region): Handle new composition.
Kenichi Handa <handa@m17n.org>
parents:
26563
diff
changeset
|
6234 (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
|
6235 |
23551 | 6236 ((> match 255) ; a multi-byte character |
26883
c1e6932eea92
(ps-plot-region): Handle new composition.
Kenichi Handa <handa@m17n.org>
parents:
26563
diff
changeset
|
6237 (let* ((charset (char-charset match)) |
32653
f05cc7224309
Even/odd pages fix. Fix little bug on XEmacs. Avoid
Gerd Moellmann <gerd@gnu.org>
parents:
32619
diff
changeset
|
6238 (composition (ps-e-find-composition match-point to)) |
26883
c1e6932eea92
(ps-plot-region): Handle new composition.
Kenichi Handa <handa@m17n.org>
parents:
26563
diff
changeset
|
6239 (stop (if (nth 2 composition) (car composition) to))) |
23091
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
6240 (or (eq charset 'composition) |
26883
c1e6932eea92
(ps-plot-region): Handle new composition.
Kenichi Handa <handa@m17n.org>
parents:
26563
diff
changeset
|
6241 (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
|
6242 (forward-char 1))) |
23091
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
6243 (ps-plot 'ps-mule-plot-string match-point (point) bg-color))) |
32619
c09b494a5f49
Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents:
31253
diff
changeset
|
6244 ; characters from ^@ to ^_ and |
20516
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
6245 (t ; characters from 127 to 255 |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
6246 (ps-control-character match))) |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6247 (setq from (point))) |
23551 | 6248 ;; 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
|
6249 (ps-mule-set-ascii-font) |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6250 (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
|
6251 (setq from to))))) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6252 |
20516
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
6253 (defvar ps-string-control-codes |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
6254 (let ((table (make-vector 256 nil)) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
6255 (char ?\000)) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
6256 ;; control character |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
6257 (while (<= char ?\037) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
6258 (aset table char (format "^%c" (+ char ?@))) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
6259 (setq char (1+ char))) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
6260 ;; printable character |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
6261 (while (< char ?\177) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
6262 (aset table char (format "%c" char)) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
6263 (setq char (1+ char))) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
6264 ;; DEL |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
6265 (aset table char "^?") |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
6266 ;; 8-bit character |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
6267 (while (<= (setq char (1+ char)) ?\377) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
6268 (aset table char (format "\\%o" char))) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
6269 table) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
6270 "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
|
6271 |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
6272 (defun ps-control-character (char) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
6273 (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
|
6274 (from (1- (point))) |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6275 (len (length str)) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6276 (to (+ from len)) |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
6277 (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
|
6278 (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
|
6279 (if (< (car wrappoint) to) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6280 (ps-continue-line)) |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
6281 (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
|
6282 (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
|
6283 (ps-output-string str) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6284 (ps-output " S\n"))) |
7257 | 6285 |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6286 |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
6287 (defun ps-face-attributes (face) |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
6288 "Return face attribute vector. |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
6289 |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
6290 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
|
6291 `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
|
6292 return the attribute vector. |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6293 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6294 If FACE is not a valid face name, it is used default face." |
30522
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
6295 (cond |
39327
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
6296 (ps-black-white-faces-alist |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
6297 (or (and (symbolp face) |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
6298 (cdr (assq face ps-black-white-faces-alist))) |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
6299 (vector 0 nil nil))) |
30522
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
6300 ((symbolp face) |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
6301 (cdr (or (assq face ps-print-face-extension-alist) |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
6302 (assq face ps-print-face-alist) |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
6303 (let* ((the-face (if (facep face) face 'default)) |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
6304 (new-face (ps-screen-to-bit-face the-face))) |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
6305 (or (and (eq the-face 'default) |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
6306 (assq the-face ps-print-face-alist)) |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
6307 (setq ps-print-face-alist |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
6308 (cons new-face ps-print-face-alist))) |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
6309 new-face)))) |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
6310 ((eq (car face) 'foreground-color) |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
6311 (vector 0 (cdr face) nil)) |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
6312 ((eq (car face) 'background-color) |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
6313 (vector 0 nil (cdr face))) |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
6314 (t |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
6315 (vector 0 nil nil)))) |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6316 |
11799
4a04c7799790
Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents:
10738
diff
changeset
|
6317 |
28760
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
6318 (defun ps-face-background (face background) |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
6319 (and (or (eq ps-use-face-background t) |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
6320 (cond ((symbolp face) |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
6321 (memq face ps-use-face-background)) |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
6322 ((listp face) |
30522
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
6323 (or (memq (car face) '(foreground-color background-color)) |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
6324 (let (ok) |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
6325 (while face |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
6326 (if (or (memq (car face) ps-use-face-background) |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
6327 (memq (car face) |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
6328 '(foreground-color background-color))) |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
6329 (setq face nil |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
6330 ok t) |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
6331 (setq face (cdr face)))) |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
6332 ok))) |
28760
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
6333 (t |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
6334 nil) |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
6335 )) |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
6336 background)) |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
6337 |
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
6338 |
11799
4a04c7799790
Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents:
10738
diff
changeset
|
6339 (defun ps-face-attribute-list (face-or-list) |
30522
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
6340 (cond |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
6341 ;; simple face |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
6342 ((not (listp face-or-list)) |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
6343 (ps-face-attributes face-or-list)) |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
6344 ;; only foreground color, not a `real' face |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
6345 ((eq (car face-or-list) 'foreground-color) |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
6346 (vector 0 (cdr face-or-list) nil)) |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
6347 ;; only background color, not a `real' face |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
6348 ((eq (car face-or-list) 'background-color) |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
6349 (vector 0 nil (cdr face-or-list))) |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
6350 ;; list of faces |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
6351 (t |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
6352 (let ((effects 0) |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
6353 foreground background face-attr face) |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
6354 (while face-or-list |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
6355 (setq face (car face-or-list) |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
6356 face-or-list (cdr face-or-list) |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
6357 face-attr (ps-face-attributes face) |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
6358 effects (logior effects (aref face-attr 0))) |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
6359 (or foreground (setq foreground (aref face-attr 1))) |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
6360 (or background |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
6361 (setq background (ps-face-background face (aref face-attr 2))))) |
acbb1360c715
Fix bug 1: if ps-font-size-internal,
Gerd Moellmann <gerd@gnu.org>
parents:
29848
diff
changeset
|
6362 (vector effects foreground background))))) |
11799
4a04c7799790
Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents:
10738
diff
changeset
|
6363 |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6364 |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
6365 (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
|
6366 |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
6367 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6368 (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
|
6369 (cond |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
6370 ((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
|
6371 (ps-plot-region from to 0)) |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
6372 ((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
|
6373 (t ; otherwise, text has a valid face |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
6374 (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
|
6375 (effect (aref face-bit 0)) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
6376 (foreground (aref face-bit 1)) |
28760
057be2bc2b43
Upside-down and face background color printing,
Gerd Moellmann <gerd@gnu.org>
parents:
28601
diff
changeset
|
6377 (background (ps-face-background face (aref face-bit 2))) |
23550
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
6378 (fg-color (if (and ps-color-p foreground) |
28426
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
6379 (ps-color-scale foreground) |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
6380 ps-default-color)) |
23550
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
6381 (bg-color (and ps-color-p background |
28426
5236c7327cd6
PostScript programming fix for ghostview, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28286
diff
changeset
|
6382 (ps-color-scale background)))) |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
6383 (ps-plot-region |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
6384 from to |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
6385 (ps-font-number 'ps-font-for-text |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
6386 (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
|
6387 face)) |
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
6388 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
|
6389 (goto-char to)) |
7257 | 6390 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6391 |
11799
4a04c7799790
Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents:
10738
diff
changeset
|
6392 ;; Ensure that face-list is fbound. |
4a04c7799790
Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents:
10738
diff
changeset
|
6393 (or (fboundp 'face-list) (defalias 'face-list 'list-faces)) |
7257 | 6394 |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
6395 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6396 (defun ps-build-reference-face-lists () |
20516
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
6397 ;; 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
|
6398 ;; `font-lock-face-attributes' (obsolete stuff) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
6399 (ps-font-lock-face-attributes) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
6400 ;; Now, rebuild reference face lists |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
6401 (setq ps-print-face-alist nil) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6402 (if ps-auto-font-detect |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
6403 (mapcar 'ps-map-face (face-list)) |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
6404 (mapcar 'ps-set-face-bold ps-bold-faces) |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
6405 (mapcar 'ps-set-face-italic ps-italic-faces) |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
6406 (mapcar 'ps-set-face-underline ps-underlined-faces)) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6407 (setq ps-build-face-reference nil)) |
7257 | 6408 |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
6409 |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
6410 (defun ps-set-face-bold (face) |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
6411 (ps-set-face-attribute face 1)) |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
6412 |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
6413 (defun ps-set-face-italic (face) |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
6414 (ps-set-face-attribute face 2)) |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
6415 |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
6416 (defun ps-set-face-underline (face) |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
6417 (ps-set-face-attribute face 4)) |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
6418 |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
6419 |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
6420 (defun ps-set-face-attribute (face effect) |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
6421 (let ((face-bit (cdr (ps-map-face face)))) |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
6422 (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
|
6423 |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
6424 |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
6425 (defun ps-map-face (face) |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
6426 (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
|
6427 (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
|
6428 (if ps-face-bit |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
6429 ;; if face exists, merge both |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
6430 (let ((face-bit (cdr face-map))) |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
6431 (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
|
6432 (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
|
6433 (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
|
6434 ;; if face does not exist, insert it |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
6435 (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
|
6436 face-map)) |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
6437 |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
6438 |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
6439 (defun ps-screen-to-bit-face (face) |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
6440 (cons face |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
6441 (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
|
6442 (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
|
6443 (if (ps-face-underlined-p face) 4 0)) ; underline |
29494
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
6444 (ps-face-foreground-name face) |
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
6445 (ps-face-background-name face)))) |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
6446 |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
6447 |
32653
f05cc7224309
Even/odd pages fix. Fix little bug on XEmacs. Avoid
Gerd Moellmann <gerd@gnu.org>
parents:
32619
diff
changeset
|
6448 ;; to avoid compilation gripes |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
6449 (defalias 'ps-jitify 'jit-lock-fontify-now) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
6450 (defalias 'ps-lazify 'lazy-lock-fontify-region) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
6451 |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
6452 |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
6453 ;; to avoid compilation gripes |
33090
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
6454 (defun ps-print-ensure-fontified (start end) |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
6455 (cond ((and (boundp 'jit-lock-mode) (symbol-value 'jit-lock-mode)) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
6456 (ps-jitify start end)) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
6457 ((and (boundp 'lazy-lock-mode) (symbol-value 'lazy-lock-mode)) |
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
6458 (ps-lazify start end)))) |
32653
f05cc7224309
Even/odd pages fix. Fix little bug on XEmacs. Avoid
Gerd Moellmann <gerd@gnu.org>
parents:
32619
diff
changeset
|
6459 |
11799
4a04c7799790
Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents:
10738
diff
changeset
|
6460 |
7257 | 6461 (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
|
6462 ;; Some initialization... |
20516
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
6463 (setq ps-current-effect 0) |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6464 |
10683 | 6465 ;; Build the reference lists of faces if necessary. |
29494
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
6466 (when (or ps-always-build-face-reference |
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
6467 ps-build-face-reference) |
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
6468 (message "Collecting face information...") |
112a7f01b499
XEmacs compatibility. Doc fix. Can select page size
Gerd Moellmann <gerd@gnu.org>
parents:
28979
diff
changeset
|
6469 (ps-build-reference-face-lists)) |
39327
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
6470 |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
6471 ;; Black/white printer. |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
6472 (setq ps-black-white-faces-alist nil) |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
6473 (and (eq ps-print-color-p 'black-white) |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
6474 (ps-extend-face-list ps-black-white-faces nil |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
6475 'ps-black-white-faces-alist)) |
7a8cb6eb702e
Better face mapping for black/white PostScript printers.
Gerd Moellmann <gerd@gnu.org>
parents:
39273
diff
changeset
|
6476 |
10683 | 6477 ;; Generate some PostScript. |
7257 | 6478 (save-restriction |
6479 (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
|
6480 (ps-print-ensure-fontified from to) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6481 (let ((face 'default) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6482 (position to)) |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6483 (cond |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
6484 ((featurep 'xemacs) ; xemacs |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6485 ;; Build the list of extents... |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6486 (let ((a (cons 'dummy nil)) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6487 record type extent extent-list) |
32653
f05cc7224309
Even/odd pages fix. Fix little bug on XEmacs. Avoid
Gerd Moellmann <gerd@gnu.org>
parents:
32619
diff
changeset
|
6488 (ps-x-map-extents 'ps-mapper nil from to a) |
20331 | 6489 (setq a (sort (cdr a) 'car-less-than-car) |
6490 extent-list nil) | |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6491 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6492 ;; Loop through the extents... |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6493 (while a |
20331 | 6494 (setq record (car a) |
6495 position (car record) | |
34919
2c73a20c859c
Handle form feed better when ps-zebra-stripe-follow is
Gerd Moellmann <gerd@gnu.org>
parents:
34045
diff
changeset
|
6496 |
20331 | 6497 record (cdr record) |
6498 type (car record) | |
34919
2c73a20c859c
Handle form feed better when ps-zebra-stripe-follow is
Gerd Moellmann <gerd@gnu.org>
parents:
34045
diff
changeset
|
6499 |
20331 | 6500 record (cdr record) |
6501 extent (car record)) | |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6502 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6503 ;; Plot up to this record. |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6504 ;; 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
|
6505 ;; 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
|
6506 ;; positions less than 'from'. Since we've narrowed |
33090
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
6507 ;; the buffer, this'll generate errors. This is a hack, |
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
6508 ;; but don't call ps-plot-with-face unless from > point-min. |
32653
f05cc7224309
Even/odd pages fix. Fix little bug on XEmacs. Avoid
Gerd Moellmann <gerd@gnu.org>
parents:
32619
diff
changeset
|
6509 (and (>= from (point-min)) |
f05cc7224309
Even/odd pages fix. Fix little bug on XEmacs. Avoid
Gerd Moellmann <gerd@gnu.org>
parents:
32619
diff
changeset
|
6510 (ps-plot-with-face from (min position (point-max)) face)) |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6511 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6512 (cond |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6513 ((eq type 'push) |
32653
f05cc7224309
Even/odd pages fix. Fix little bug on XEmacs. Avoid
Gerd Moellmann <gerd@gnu.org>
parents:
32619
diff
changeset
|
6514 (and (ps-x-extent-face extent) |
23550
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
6515 (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
|
6516 'ps-extent-sorter)))) |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6517 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6518 ((eq type 'pull) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6519 (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
|
6520 'ps-extent-sorter)))) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6521 |
23550
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
6522 (setq face (if extent-list |
32653
f05cc7224309
Even/odd pages fix. Fix little bug on XEmacs. Avoid
Gerd Moellmann <gerd@gnu.org>
parents:
32619
diff
changeset
|
6523 (ps-x-extent-face (car extent-list)) |
23550
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
6524 'default) |
20331 | 6525 from position |
6526 a (cdr a))))) | |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6527 |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
6528 (t ; emacs |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6529 (let ((property-change from) |
23091
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
6530 (overlay-change from) |
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
6531 (save-buffer-invisibility-spec buffer-invisibility-spec) |
37967
758fe02d489d
Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents:
37489
diff
changeset
|
6532 (buffer-invisibility-spec nil) |
758fe02d489d
Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents:
37489
diff
changeset
|
6533 before-string after-string) |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6534 (while (< from to) |
23550
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
6535 (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
|
6536 ; unless previous search succeeded. |
23550
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
6537 (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
|
6538 (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
|
6539 ; unless previous search succeeded. |
36215
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
6540 (setq overlay-change (min (ps-e-next-overlay-change from) |
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
6541 to))) |
37967
758fe02d489d
Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents:
37489
diff
changeset
|
6542 (setq position (min property-change overlay-change) |
758fe02d489d
Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents:
37489
diff
changeset
|
6543 before-string nil |
758fe02d489d
Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents:
37489
diff
changeset
|
6544 after-string nil) |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6545 ;; 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
|
6546 ;; 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
|
6547 ;; 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
|
6548 ;; of buffer-invisibility-spec nonetheless overrides |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6549 ;; a face text property. |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6550 (setq face |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6551 (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
|
6552 ;; Decide whether this invisible property |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6553 ;; really makes the text invisible. |
23091
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
6554 (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
|
6555 (not (null prop)) |
23091
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
6556 (or (memq prop save-buffer-invisibility-spec) |
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
6557 (assq prop save-buffer-invisibility-spec)))) |
21086
12ecaaaea144
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20953
diff
changeset
|
6558 'emacs--invisible--face) |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6559 ((get-text-property from 'face)) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6560 (t 'default))) |
36215
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
6561 (let ((overlays (ps-e-overlays-at from)) |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6562 (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
|
6563 (while (and overlays |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
6564 (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
|
6565 (let* ((overlay (car overlays)) |
37967
758fe02d489d
Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents:
37489
diff
changeset
|
6566 (overlay-invisible |
758fe02d489d
Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents:
37489
diff
changeset
|
6567 (ps-e-overlay-get overlay 'invisible)) |
758fe02d489d
Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents:
37489
diff
changeset
|
6568 (overlay-priority |
758fe02d489d
Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents:
37489
diff
changeset
|
6569 (or (ps-e-overlay-get overlay 'priority) 0))) |
23550
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
6570 (and (> overlay-priority face-priority) |
37967
758fe02d489d
Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents:
37489
diff
changeset
|
6571 (setq before-string |
758fe02d489d
Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents:
37489
diff
changeset
|
6572 (or (ps-e-overlay-get overlay 'before-string) |
758fe02d489d
Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents:
37489
diff
changeset
|
6573 before-string) |
758fe02d489d
Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents:
37489
diff
changeset
|
6574 after-string |
758fe02d489d
Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents:
37489
diff
changeset
|
6575 (or (and (<= (ps-e-overlay-end overlay) position) |
758fe02d489d
Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents:
37489
diff
changeset
|
6576 (ps-e-overlay-get overlay 'after-string)) |
758fe02d489d
Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents:
37489
diff
changeset
|
6577 after-string) |
758fe02d489d
Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents:
37489
diff
changeset
|
6578 face-priority overlay-priority |
758fe02d489d
Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents:
37489
diff
changeset
|
6579 face |
758fe02d489d
Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents:
37489
diff
changeset
|
6580 (cond |
758fe02d489d
Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents:
37489
diff
changeset
|
6581 ((if (eq save-buffer-invisibility-spec t) |
758fe02d489d
Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents:
37489
diff
changeset
|
6582 (not (null overlay-invisible)) |
758fe02d489d
Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents:
37489
diff
changeset
|
6583 (or (memq overlay-invisible |
758fe02d489d
Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents:
37489
diff
changeset
|
6584 save-buffer-invisibility-spec) |
758fe02d489d
Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents:
37489
diff
changeset
|
6585 (assq overlay-invisible |
758fe02d489d
Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents:
37489
diff
changeset
|
6586 save-buffer-invisibility-spec))) |
758fe02d489d
Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents:
37489
diff
changeset
|
6587 'emacs--invisible--face) |
758fe02d489d
Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents:
37489
diff
changeset
|
6588 ((ps-e-overlay-get overlay 'face)) |
758fe02d489d
Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents:
37489
diff
changeset
|
6589 (t face) |
758fe02d489d
Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents:
37489
diff
changeset
|
6590 )))) |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6591 (setq overlays (cdr overlays)))) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6592 ;; Plot up to this record. |
37967
758fe02d489d
Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents:
37489
diff
changeset
|
6593 (and before-string |
758fe02d489d
Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents:
37489
diff
changeset
|
6594 (ps-plot-string before-string)) |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6595 (ps-plot-with-face from position face) |
37967
758fe02d489d
Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents:
37489
diff
changeset
|
6596 (and after-string |
758fe02d489d
Handle before-string and after-string overlay properties
Gerd Moellmann <gerd@gnu.org>
parents:
37489
diff
changeset
|
6597 (ps-plot-string after-string)) |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6598 (setq from position))))) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6599 (ps-plot-with-face from to face)))) |
7257 | 6600 |
6601 (defun ps-generate-postscript (from to) | |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6602 (ps-plot-region from to 0 nil)) |
7257 | 6603 |
6604 (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
|
6605 (save-excursion |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6606 (let ((from (min to from)) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6607 (to (max to from)) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6608 ;; 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
|
6609 ;; are copied into ps-spool-buffer. |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6610 (inhibit-read-only t)) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6611 (save-restriction |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6612 (narrow-to-region from to) |
20516
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
6613 (and ps-razzle-dazzle |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
6614 (message "Formatting...%3d%%" (setq ps-razchunk 0))) |
20331 | 6615 (setq ps-source-buffer buffer |
6616 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
|
6617 (ps-init-output-queue) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6618 (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
|
6619 (unwind-protect |
10683 | 6620 (progn |
6621 (set-buffer ps-spool-buffer) | |
22397 | 6622 (set-buffer-multibyte nil) |
23138
14e74d2a49cb
(ps-print-control-characters): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23091
diff
changeset
|
6623 |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6624 ;; 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
|
6625 ;; 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
|
6626 ;; the end of this marker onwards. |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6627 (setq safe-marker (make-marker)) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6628 (set-marker safe-marker (point-max)) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6629 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6630 (goto-char (point-min)) |
20331 | 6631 (or (looking-at (regexp-quote ps-adobe-tag)) |
6632 (setq needs-begin-file t)) | |
33090
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
6633 |
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
6634 (set-buffer ps-source-buffer) |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6635 (save-excursion |
33090
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
6636 (let ((ps-print-page-p t) |
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
6637 ps-even-or-odd-pages) |
32836
2d9f4fc56dba
(ps-generate): Fix odd/even pages printing bug.
Gerd Moellmann <gerd@gnu.org>
parents:
32655
diff
changeset
|
6638 (ps-begin-job) |
2d9f4fc56dba
(ps-generate): Fix odd/even pages printing bug.
Gerd Moellmann <gerd@gnu.org>
parents:
32655
diff
changeset
|
6639 (when needs-begin-file |
2d9f4fc56dba
(ps-generate): Fix odd/even pages printing bug.
Gerd Moellmann <gerd@gnu.org>
parents:
32655
diff
changeset
|
6640 (ps-begin-file) |
2d9f4fc56dba
(ps-generate): Fix odd/even pages printing bug.
Gerd Moellmann <gerd@gnu.org>
parents:
32655
diff
changeset
|
6641 (ps-mule-initialize)) |
2d9f4fc56dba
(ps-generate): Fix odd/even pages printing bug.
Gerd Moellmann <gerd@gnu.org>
parents:
32655
diff
changeset
|
6642 (ps-mule-begin-job from to) |
33090
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
6643 (ps-selected-pages))) |
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
6644 (ps-begin-page) |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6645 (funcall genfunc from to) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6646 (ps-end-page) |
33090
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
6647 (ps-end-job needs-begin-file) |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6648 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6649 ;; Setting this variable tells the unwind form that the |
20331 | 6650 ;; 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
|
6651 (setq completed-safely t)) |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6652 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6653 ;; Unwind form: If some bad mojo occurred while generating |
20331 | 6654 ;; 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
|
6655 ;; 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
|
6656 ;; corrupted. |
20331 | 6657 (and (markerp safe-marker) (not completed-safely) |
6658 (progn | |
6659 (set-buffer ps-spool-buffer) | |
6660 (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
|
6661 |
20516
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
6662 (and ps-razzle-dazzle (message "Formatting...done")))))) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
6663 |
23091
25c95d9da0af
Multi-byte buffer handling.
Kenichi Handa <handa@m17n.org>
parents:
22751
diff
changeset
|
6664 |
33090
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
6665 (defun ps-end-job (needs-begin-file) |
33143
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
6666 (let ((previous-print ps-print-page-p) |
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
6667 (ps-print-page-p t)) |
33090
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
6668 (ps-flush-output) |
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
6669 (save-excursion |
33143
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
6670 (let ((pages-per-sheet (mod ps-page-printed ps-n-up-printing)) |
33090
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
6671 (total-lines (cdr ps-printing-region)) |
34045
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
6672 (total-pages (ps-page-number))) |
33090
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
6673 (set-buffer ps-spool-buffer) |
34045
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
6674 (let (case-fold-search) |
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
6675 ;; Back to the PS output buffer to set the last page n-up printing |
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
6676 (goto-char (point-max)) |
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
6677 (and (> pages-per-sheet 0) |
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
6678 (re-search-backward "^[0-9]+ BeginSheet$" nil t) |
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
6679 (replace-match (format "%d BeginSheet" pages-per-sheet) t)) |
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
6680 ;; Back to the PS output buffer to set the page count |
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
6681 (goto-char (point-min)) |
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
6682 (while (re-search-forward "^/Lines 0 def\n/PageCount 0 def$" nil t) |
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
6683 (replace-match (format "/Lines %d def\n/PageCount %d def" |
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
6684 total-lines total-pages) t))))) |
33090
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
6685 ;; Set dummy page |
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
6686 (and ps-spool-duplex (= (mod ps-page-order 2) 1) |
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
6687 (let ((ps-n-up-printing 0)) |
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
6688 (ps-header-sheet) |
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
6689 (ps-output "/PrintHeader false def\n/ColumnIndex 0 def\n" |
34919
2c73a20c859c
Handle form feed better when ps-zebra-stripe-follow is
Gerd Moellmann <gerd@gnu.org>
parents:
34045
diff
changeset
|
6690 "/PrintLineNumber false def\n" |
2c73a20c859c
Handle form feed better when ps-zebra-stripe-follow is
Gerd Moellmann <gerd@gnu.org>
parents:
34045
diff
changeset
|
6691 (number-to-string ps-lines-printed) " BeginPage\n") |
33090
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
6692 (ps-end-page))) |
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
6693 ;; Set end of PostScript file |
33143
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
6694 (and previous-print |
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
6695 (ps-output "EndSheet\n")) |
94d9ccbb780e
Extension for even/odd printing. Doc Fix.
Gerd Moellmann <gerd@gnu.org>
parents:
33090
diff
changeset
|
6696 (ps-output "\n%%Trailer\n%%Pages: " |
33090
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
6697 (number-to-string |
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
6698 (if (and needs-begin-file |
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
6699 ps-banner-page-when-duplexing) |
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
6700 (1+ ps-page-order) |
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
6701 ps-page-order)) |
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
6702 "\n\nEndDoc\n\n%%EOF\n") |
34045
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
6703 (and ps-end-with-control-d |
546a32ec3540
(ps-end-job): Bind case-fold-search only after
Eli Zaretskii <eliz@gnu.org>
parents:
33588
diff
changeset
|
6704 (ps-output "\C-d")) |
33090
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
6705 (ps-flush-output)) |
a48e4118492d
Fix bug on selected pages for printing. Use
Gerd Moellmann <gerd@gnu.org>
parents:
32914
diff
changeset
|
6706 ;; disable selected pages |
29848
80ae67b2a291
Fix bug: if ^L is the very first buffer character,
Gerd Moellmann <gerd@gnu.org>
parents:
29494
diff
changeset
|
6707 (setq ps-selected-pages nil)) |
24414
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
6708 |
971efbc0ac2c
Doc fix, font size specifies landscape and portrait sizes.
Kenichi Handa <handa@m17n.org>
parents:
24090
diff
changeset
|
6709 |
20516
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
6710 ;; Permit dynamic evaluation at print time of `ps-lpr-switches'. |
7257 | 6711 (defun ps-do-despool (filename) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6712 (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
|
6713 (not (symbol-value 'ps-spool-buffer))) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6714 (message "No spooled PostScript to print") |
7257 | 6715 (if filename |
6716 (save-excursion | |
20516
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
6717 (and ps-razzle-dazzle (message "Saving...")) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6718 (set-buffer ps-spool-buffer) |
7257 | 6719 (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
|
6720 (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
|
6721 (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
|
6722 (and ps-razzle-dazzle (message "Wrote %s" filename))) |
7257 | 6723 ;; Else, spool to the printer |
20516
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
6724 (and ps-razzle-dazzle (message "Printing...")) |
7257 | 6725 (save-excursion |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6726 (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
|
6727 (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
|
6728 (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
|
6729 (and (boundp 'printer-name) |
36215
f2ca7236963b
Timestamp package replacement. Some enhancements. Some
Gerd Moellmann <gerd@gnu.org>
parents:
35970
diff
changeset
|
6730 (symbol-value 'printer-name)))) |
22751
75c35003c69f
(ps-do-despool): Bind ps-printer-name to printer-name if the former is
Andrew Innes <andrewi@gnu.org>
parents:
22680
diff
changeset
|
6731 (ps-lpr-switches |
32619
c09b494a5f49
Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents:
31253
diff
changeset
|
6732 (append ps-lpr-switches |
c09b494a5f49
Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents:
31253
diff
changeset
|
6733 (and (stringp ps-printer-name) |
c09b494a5f49
Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents:
31253
diff
changeset
|
6734 (string< "" ps-printer-name) |
c09b494a5f49
Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents:
31253
diff
changeset
|
6735 (list (concat |
c09b494a5f49
Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents:
31253
diff
changeset
|
6736 (and (stringp ps-printer-name-option) |
c09b494a5f49
Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents:
31253
diff
changeset
|
6737 ps-printer-name-option) |
c09b494a5f49
Internal variable changes to defcustom,
Gerd Moellmann <gerd@gnu.org>
parents:
31253
diff
changeset
|
6738 ps-printer-name)))))) |
24090
3a9da940e5f2
(ps-printer-name): Update docstring about usage on
Andrew Innes <andrewi@gnu.org>
parents:
23938
diff
changeset
|
6739 (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
|
6740 (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
|
6741 (and (fboundp 'start-process) 0) |
3a9da940e5f2
(ps-printer-name): Update docstring about usage on
Andrew Innes <andrewi@gnu.org>
parents:
23938
diff
changeset
|
6742 nil |
3a9da940e5f2
(ps-printer-name): Update docstring about usage on
Andrew Innes <andrewi@gnu.org>
parents:
23938
diff
changeset
|
6743 (ps-flatten-list ; dynamic evaluation |
3a9da940e5f2
(ps-printer-name): Update docstring about usage on
Andrew Innes <andrewi@gnu.org>
parents:
23938
diff
changeset
|
6744 (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
|
6745 (and ps-razzle-dazzle (message "Printing...done"))) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6746 (kill-buffer ps-spool-buffer))) |
7257 | 6747 |
20516
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
6748 ;; Dynamic evaluation |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
6749 (defun ps-eval-switch (arg) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
6750 (cond ((stringp arg) arg) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
6751 ((functionp arg) (apply arg nil)) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
6752 ((symbolp arg) (symbol-value arg)) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
6753 ((consp arg) (apply (car arg) (cdr arg))) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
6754 (t nil))) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
6755 |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
6756 ;; `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
|
6757 ;; 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
|
6758 ;; 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
|
6759 |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
6760 ;; (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
|
6761 ;; => (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
|
6762 |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
6763 (defun ps-flatten-list (&rest list) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
6764 (ps-flatten-list-1 list)) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
6765 |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
6766 (defun ps-flatten-list-1 (list) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
6767 (cond ((null list) nil) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
6768 ((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
|
6769 (ps-flatten-list-1 (cdr list)))) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
6770 (t (list list)))) |
d33438261904
Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents:
20332
diff
changeset
|
6771 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6772 (defun ps-kill-emacs-check () |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6773 (let (ps-buffer) |
20331 | 6774 (and (setq ps-buffer (get-buffer ps-spool-buffer-name)) |
54233 | 6775 (buffer-name ps-buffer) ; check if it's not killed |
20331 | 6776 (buffer-modified-p ps-buffer) |
6777 (y-or-n-p "Unprinted PostScript waiting; print now? ") | |
6778 (ps-despool)) | |
6779 (and (setq ps-buffer (get-buffer ps-spool-buffer-name)) | |
54233 | 6780 (buffer-name ps-buffer) ; check if it's not killed |
20331 | 6781 (buffer-modified-p ps-buffer) |
6782 (not (yes-or-no-p "Unprinted PostScript waiting; exit anyway? ")) | |
6783 (error "Unprinted PostScript")))) | |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6784 |
23550
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
6785 (cond ((fboundp 'add-hook) |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
6786 (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
|
6787 (kill-emacs-hook |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
6788 (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
|
6789 (t |
d8a958630c9d
User option for multibyte buffer handling and doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23484
diff
changeset
|
6790 (setq kill-emacs-hook 'ps-kill-emacs-check))) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6791 |
23892
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
6792 |
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
6793 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6794 ;;; Sample Setup Code: |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6795 |
27161
0a2452a20c74
ps-vars eliminated, doc fix.
Kenichi Handa <handa@m17n.org>
parents:
26883
diff
changeset
|
6796 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6797 ;; 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
|
6798 ;; 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
|
6799 ;; 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
|
6800 |
23892
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
6801 ;; 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
|
6802 ;; 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
|
6803 |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6804 (defmacro ps-prsc () |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
6805 `(if (featurep 'xemacs) 'f22 [f22])) |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6806 (defmacro ps-c-prsc () |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
6807 `(if (featurep 'xemacs) '(control f22) [C-f22])) |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6808 (defmacro ps-s-prsc () |
58406
820e35465241
:version & eval-and-compile & featurep
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
56552
diff
changeset
|
6809 `(if (featurep 'xemacs) '(shift f22) [S-f22])) |
10683 | 6810 |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
6811 ;; 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
|
6812 ;; `ps-left-headers' specially for mail messages. |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
6813 (defun ps-rmail-mode-hook () |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
6814 (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
|
6815 (setq ps-header-lines 3 |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
6816 ps-left-header |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
6817 ;; 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
|
6818 ;; 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
|
6819 '(ps-article-subject ps-article-author buffer-name))) |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
6820 |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
6821 ;; 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
|
6822 ;; same thing for rmail. |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
6823 (defun ps-rmail-print-message-from-summary () |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
6824 (interactive) |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
6825 (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
|
6826 |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
6827 ;; Used in `ps-rmail-print-article-from-summary', |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
6828 ;; `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
|
6829 (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
|
6830 (let ((ps-buf (or (and (boundp summary-buffer) |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
6831 (symbol-value summary-buffer)) |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
6832 summary-default))) |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
6833 (and (get-buffer ps-buf) |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
6834 (save-excursion |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
6835 (set-buffer ps-buf) |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
6836 (ps-spool-buffer-with-faces))))) |
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
6837 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6838 ;; 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
|
6839 ;; placed in `ps-left-headers'. |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6840 (defun ps-article-subject () |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6841 (save-excursion |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6842 (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
|
6843 (if (re-search-forward "^Subject:[ \t]+\\(.*\\)$" nil t) |
28576
1694ed739e69
Customization fix, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28426
diff
changeset
|
6844 (buffer-substring (match-beginning 1) (match-end 1)) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6845 "Subject ???"))) |
7257 | 6846 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6847 ;; 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
|
6848 ;; 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
|
6849 ;; 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
|
6850 (defun ps-article-author () |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6851 (save-excursion |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6852 (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
|
6853 (if (re-search-forward "^From:[ \t]+\\(.*\\)$" nil t) |
28576
1694ed739e69
Customization fix, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28426
diff
changeset
|
6854 (let ((fromstring (buffer-substring (match-beginning 1) (match-end 1)))) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6855 (cond |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6856 |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6857 ;; Try first to match addresses that look like |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6858 ;; thompson@wg2.waii.com (Jim Thompson) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6859 ((string-match ".*[ \t]+(\\(.*\\))" fromstring) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6860 (substring fromstring (match-beginning 1) (match-end 1))) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6861 |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6862 ;; Next try to match addresses that look like |
28576
1694ed739e69
Customization fix, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28426
diff
changeset
|
6863 ;; Jim Thompson <thompson@wg2.waii.com> or |
1694ed739e69
Customization fix, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28426
diff
changeset
|
6864 ;; "Jim Thompson" <thompson@wg2.waii.com> |
1694ed739e69
Customization fix, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28426
diff
changeset
|
6865 ((string-match "\\(\"?\\)\\(.*\\)\\1[ \t]+<.*>" fromstring) |
1694ed739e69
Customization fix, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28426
diff
changeset
|
6866 (substring fromstring (match-beginning 2) (match-end 2))) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6867 |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6868 ;; Couldn't find a real name -- show the address instead. |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6869 (t fromstring))) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6870 "From ???"))) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6871 |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
6872 ;; 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
|
6873 ;; `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
|
6874 ;; `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
|
6875 ;; 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
|
6876 ;; 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
|
6877 ;; only alternative is `gnus-article-prepare-hook'. |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6878 (defun ps-gnus-article-prepare-hook () |
20331 | 6879 (setq ps-header-lines 3 |
6880 ps-left-header | |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6881 ;; The left headers will display the article's subject, its |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6882 ;; author, and the newsgroup it was in. |
20331 | 6883 '(ps-article-subject ps-article-author gnus-newsgroup-name))) |
7257 | 6884 |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
6885 ;; 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
|
6886 ;; `ps-left-headers' specially for mail messages. |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6887 (defun ps-vm-mode-hook () |
10683 | 6888 (local-set-key (ps-prsc) 'ps-vm-print-message-from-summary) |
20331 | 6889 (setq ps-header-lines 3 |
6890 ps-left-header | |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6891 ;; The left headers will display the message's subject, its |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6892 ;; author, and the name of the folder it was in. |
20331 | 6893 '(ps-article-subject ps-article-author buffer-name))) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6894 |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6895 ;; 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
|
6896 ;; 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
|
6897 ;; 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
|
6898 ;; 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
|
6899 ;; buffers first. |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6900 ;; sb: Updated for Gnus 5. |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6901 (defun ps-gnus-print-article-from-summary () |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6902 (interactive) |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
6903 (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
|
6904 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6905 ;; 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
|
6906 ;; same thing for vm. |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6907 (defun ps-vm-print-message-from-summary () |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6908 (interactive) |
19773
24853e0e38d6
Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19485
diff
changeset
|
6909 (ps-print-message-from-summary 'vm-mail-buffer "")) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6910 |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6911 ;; 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
|
6912 ;; prsc. |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6913 (defun ps-gnus-summary-setup () |
10683 | 6914 (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
|
6915 |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6916 ;; 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
|
6917 ;; placed in `ps-left-headers'. |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6918 (defun ps-info-file () |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6919 (save-excursion |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6920 (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
|
6921 (if (re-search-forward "File:[ \t]+\\([^, \t\n]*\\)" nil t) |
28576
1694ed739e69
Customization fix, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28426
diff
changeset
|
6922 (buffer-substring (match-beginning 1) (match-end 1)) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6923 "File ???"))) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6924 |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6925 ;; 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
|
6926 ;; placed in `ps-left-headers'. |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6927 (defun ps-info-node () |
7257 | 6928 (save-excursion |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6929 (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
|
6930 (if (re-search-forward "Node:[ \t]+\\([^,\t\n]*\\)" nil t) |
28576
1694ed739e69
Customization fix, doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28426
diff
changeset
|
6931 (buffer-substring (match-beginning 1) (match-end 1)) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6932 "Node ???"))) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6933 |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6934 (defun ps-info-mode-hook () |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6935 (setq ps-left-header |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6936 ;; The left headers will display the node name and file name. |
20331 | 6937 '(ps-info-node ps-info-file))) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6938 |
11799
4a04c7799790
Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents:
10738
diff
changeset
|
6939 ;; 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
|
6940 ;; 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
|
6941 ;; 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
|
6942 ;; 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
|
6943 ;; modification.) |
4a04c7799790
Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents:
10738
diff
changeset
|
6944 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6945 (defun ps-jts-ps-setup () |
10683 | 6946 (global-set-key (ps-prsc) 'ps-spool-buffer-with-faces) ;f22 is prsc |
6947 (global-set-key (ps-s-prsc) 'ps-spool-region-with-faces) | |
6948 (global-set-key (ps-c-prsc) 'ps-despool) | |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6949 (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
|
6950 (add-hook 'gnus-summary-mode-hook 'ps-gnus-summary-setup) |
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6951 (add-hook 'vm-mode-hook 'ps-vm-mode-hook) |
10683 | 6952 (add-hook 'vm-mode-hooks 'ps-vm-mode-hook) |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
6953 (add-hook 'Info-mode-hook 'ps-info-mode-hook) |
20331 | 6954 (setq ps-spool-duplex t |
6955 ps-print-color-p nil | |
6956 ps-lpr-command "lpr" | |
6957 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
|
6958 '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
|
6959 |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
6960 ;; 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
|
6961 ;; 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
|
6962 ;; (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
|
6963 ;; 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
|
6964 ;; without modification.) |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
6965 |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
6966 (defun ps-jack-setup () |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6967 (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
|
6968 ps-lpr-command "lpr" |
20331 | 6969 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
|
6970 |
19445
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6971 ps-paper-type 'a4 |
94a54fbffb3e
A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19011
diff
changeset
|
6972 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
|
6973 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
|
6974 |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
6975 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
|
6976 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
|
6977 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
|
6978 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
|
6979 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
|
6980 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
|
6981 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
|
6982 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
|
6983 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
|
6984 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
|
6985 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
|
6986 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
|
6987 |
032601b9959b
(ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents:
16186
diff
changeset
|
6988 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
|
6989 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
|
6990 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
|
6991 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
|
6992 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
|
6993 'ps-jack-setup) |
7257 | 6994 |
23892
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
6995 |
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
6996 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
6997 ;; 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
|
6998 ;; 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
|
6999 |
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
7000 (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
|
7001 "Setup special ASCII font for STRING. |
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
7002 STRING should contain only ASCII characters.") |
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
7003 |
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
7004 (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
|
7005 "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
|
7006 |
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
7007 (autoload 'ps-mule-plot-string "ps-mule" |
37135
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
7008 "Generate PostScript code for plotting characters in the region FROM and TO. |
23892
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
7009 |
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
7010 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
|
7011 |
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
7012 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
|
7013 |
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
7014 Returns the value: |
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
7015 |
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
7016 (ENDPOS . RUN-WIDTH) |
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
7017 |
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
7018 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
|
7019 the sequence.") |
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
7020 |
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
7021 (autoload 'ps-mule-initialize "ps-mule" |
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
7022 "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
|
7023 |
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
7024 (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
|
7025 "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
|
7026 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
|
7027 |
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
7028 (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
|
7029 "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
|
7030 |
37135
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
7031 (autoload 'ps-mule-encode-header-string "ps-mule" |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
7032 "Generate PostScript code for plotting characters in header STRING. |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
7033 |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
7034 It is assumed that the length of STRING is not zero.") |
18c2d3c6096d
Line and paragraph spacing feature. Region to cut
Gerd Moellmann <gerd@gnu.org>
parents:
36215
diff
changeset
|
7035 |
23892
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
7036 |
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
7037 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
f05e983b8486
(ps-mule-font-info-database): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents:
23829
diff
changeset
|
7038 |
7257 | 7039 (provide 'ps-print) |
10738
e7d5b119b583
(ps-print-version): Add caveat about version number.
Richard M. Stallman <rms@gnu.org>
parents:
10683
diff
changeset
|
7040 |
52401 | 7041 ;;; arch-tag: fb06a585-1112-4206-885d-a57d95d50579 |
10492
a0f38717d82d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7257
diff
changeset
|
7042 ;;; ps-print.el ends here |