annotate lisp/ps-print.el @ 21086:12ecaaaea144

Some comment, doc and bug fixes. (ps-print-version): New version number (3.06) and doc fix. (ps-print-only-one-header, ps-font-type): New var. (ps-font-info-database): Better font database management. (ps-error-scale-font, ps-select-header-font): Funs eliminated. (ps-font, ps-font-bold, ps-font-italic, ps-font-bold-italic) (ps-avg-char-width, ps-space-width, ps-line-height) (ps-header-font, ps-header-title-font, ps-header-line-height) (ps-header-title-line-height): Vars eliminated. (ps-font-list, ps-font, ps-fonts, ps-font-number, ps-line-height) (ps-title-line-height, ps-space-width, ps-avg-char-width,): New funs. (ps-print-prologue-1): Adjust PostScript programming. (ps-color-format): Doc indentation. (ps-print-hook, ps-print-begin-page-hook, ps-print-begin-column-hook): New hook vars. (ps-spool-without-faces, ps-spool-with-faces): Run hook var. (ps-line-lengths-internal, ps-nb-pages, ps-select-font) (ps-get-page-dimensions, ps-begin-file, ps-end-file, ps-header-page) (ps-begin-page, ps-dummy-page, ps-next-line, ps-continue-line) (ps-basic-plot-string, ps-basic-plot-whitespace, ps-plot-region) (ps-control-character, ps-color-values, ps-generate): Adjust programming. (ps-page-number): New macro. (ps-plot-with-face, ps-generate-postscript-with-faces): Fix invisible text printing.
author Richard M. Stallman <rms@gnu.org>
date Sat, 07 Mar 1998 06:04:46 +0000
parents f3f9df46d008
children add6627452a5
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
19485
eab8baa19dfa (ps-zebra-stripes): Renamed from ps-zebra-stripe.
Richard M. Stallman <rms@gnu.org>
parents: 19446
diff changeset
1 ;;; ps-print.el --- Print text from the buffer as PostScript
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3 ;; Copyright (C) 1993, 94, 95, 96, 97, 1998 Free Software Foundation, Inc.
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4
16870
4a5fa29f79d6 (ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents: 16361
diff changeset
5 ;; Author: Jim Thompson (was <thompson@wg2.waii.com>)
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
6 ;; Author: Jacques Duthen <duthen@cegelec-red.fr>
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
7 ;; Author: Vinicius Jose Latorre <vinicius@cpqd.com.br>
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
8 ;; Maintainer: Vinicius Jose Latorre <vinicius@cpqd.com.br>
16870
4a5fa29f79d6 (ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents: 16361
diff changeset
9 ;; Keywords: print, PostScript
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
10 ;; Time-stamp: <98/03/06 11:14:08 vinicius>
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
11 ;; Version: 3.06
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
12
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
13 (defconst ps-print-version "3.06"
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
14 "ps-print.el, v 3.06 <98/03/06 vinicius>
16870
4a5fa29f79d6 (ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents: 16361
diff changeset
15
19485
eab8baa19dfa (ps-zebra-stripes): Renamed from ps-zebra-stripe.
Richard M. Stallman <rms@gnu.org>
parents: 19446
diff changeset
16 Vinicius's last change version -- this file may have been edited as part of
16870
4a5fa29f79d6 (ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents: 16361
diff changeset
17 Emacs without changes to the version number. When reporting bugs,
4a5fa29f79d6 (ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents: 16361
diff changeset
18 please also report the version of Emacs, if any, that ps-print was
4a5fa29f79d6 (ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents: 16361
diff changeset
19 distributed with.
4a5fa29f79d6 (ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents: 16361
diff changeset
20
4a5fa29f79d6 (ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents: 16361
diff changeset
21 Please send all bug fixes and enhancements to
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
22 Vinicius Jose Latorre <vinicius@cpqd.com.br>.
16870
4a5fa29f79d6 (ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents: 16361
diff changeset
23 ")
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
24
10493
ed52763e77d6 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 10492
diff changeset
25 ;; This file is part of GNU Emacs.
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
26
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
27 ;; GNU Emacs is free software; you can redistribute it and/or modify
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
28 ;; it under the terms of the GNU General Public License as published by
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
29 ;; the Free Software Foundation; either version 2, or (at your option)
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
30 ;; any later version.
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
31
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
32 ;; GNU Emacs is distributed in the hope that it will be useful,
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
33 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
34 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
35 ;; GNU General Public License for more details.
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
36
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
37 ;; You should have received a copy of the GNU General Public License
14169
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 14040
diff changeset
38 ;; along with GNU Emacs; see the file COPYING. If not, write to the
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 14040
diff changeset
39 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 14040
diff changeset
40 ;; Boston, MA 02111-1307, USA.
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
41
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
42 ;;; Commentary:
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
43
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
44 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
45 ;;
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
46 ;; About ps-print
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
47 ;; --------------
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
48 ;;
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
49 ;; This package provides printing of Emacs buffers on PostScript
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
50 ;; printers; the buffer's bold and italic text attributes are
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
51 ;; preserved in the printer output. Ps-print is intended for use with
10683
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
52 ;; Emacs 19 or Lucid Emacs, together with a fontifying package such as
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
53 ;; font-lock or hilit.
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
54 ;;
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
55 ;; ps-print uses the same face attributes defined through font-lock or hilit
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
56 ;; to print a PostScript file, but some faces are better seeing on the screen
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
57 ;; than on paper, specially when you have a black/white PostScript printer.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
58 ;;
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
59 ;; ps-print allows a remap of face to another one that it is better to print,
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
60 ;; for example, the face font-lock-comment-face (if you are using font-lock)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
61 ;; could have bold or italic attribute when printing, besides foreground color.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
62 ;; This remap improves printing look (see How Ps-Print Maps Faces).
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
63 ;;
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
64 ;;
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
65 ;; Using ps-print
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
66 ;; --------------
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
67 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
68 ;; The Commands
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
69 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
70 ;; Ps-print provides eight commands for generating PostScript images
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
71 ;; of Emacs buffers:
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
72 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
73 ;; ps-print-buffer
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
74 ;; ps-print-buffer-with-faces
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
75 ;; ps-print-region
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
76 ;; ps-print-region-with-faces
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
77 ;; ps-spool-buffer
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
78 ;; ps-spool-buffer-with-faces
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
79 ;; ps-spool-region
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
80 ;; ps-spool-region-with-faces
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
81 ;;
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
82 ;; These commands all perform essentially the same function: they
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
83 ;; generate PostScript images suitable for printing on a PostScript
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
84 ;; printer or displaying with GhostScript. These commands are
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
85 ;; collectively referred to as "ps-print- commands".
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
86 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
87 ;; 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
88 ;; PostScript image is sent to the printer:
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
89 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
90 ;; print - The PostScript image is immediately sent to the
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
91 ;; printer;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
92 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
93 ;; spool - The PostScript image is saved temporarily in an
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
94 ;; Emacs buffer. Many images may be spooled locally
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
95 ;; before printing them. To send the spooled images
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
96 ;; to the printer, use the command `ps-despool'.
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
97 ;;
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
98 ;; The spooling mechanism was designed for printing lots of small
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
99 ;; files (mail messages or netnews articles) to save paper that would
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
100 ;; otherwise be wasted on banner pages, and to make it easier to find
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
101 ;; your output at the printer (it's easier to pick up one 50-page
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
102 ;; printout than to find 50 single-page printouts).
19879
87952270ceeb (ps-emacs-face-kind-p): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents: 19843
diff changeset
103 ;;
20332
52b1ed13e4d2 Comment fix.
Karl Heuer <kwzh@gnu.org>
parents: 20331
diff changeset
104 ;; Ps-print has a hook in the `kill-emacs-hook' so that you won't
14040
187735b53d52 Comment fixes.
Karl Heuer <kwzh@gnu.org>
parents: 13886
diff changeset
105 ;; accidentally quit from Emacs while you have unprinted PostScript
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
106 ;; waiting in the spool buffer. If you do attempt to exit with
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
107 ;; spooled PostScript, you'll be asked if you want to print it, and if
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
108 ;; you decline, you'll be asked to confirm the exit; this is modeled
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
109 ;; on the confirmation that Emacs uses for modified buffers.
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
110 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
111 ;; The word "buffer" or "region" in the command name determines how
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
112 ;; much of the buffer is printed:
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
113 ;;
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
114 ;; buffer - Print the entire buffer.
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
115 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
116 ;; region - Print just the current region.
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
117 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
118 ;; The -with-faces suffix on the command name means that the command
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
119 ;; will include font, color, and underline information in the
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
120 ;; PostScript image, so the printed image can look as pretty as the
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
121 ;; buffer. The ps-print- commands without the -with-faces suffix
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
122 ;; don't include font, color, or underline information; images printed
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
123 ;; with these commands aren't as pretty, but are faster to generate.
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
124 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
125 ;; Two ps-print- command examples:
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
126 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
127 ;; ps-print-buffer - print the entire buffer,
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
128 ;; without font, color, or
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
129 ;; underline information, and
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
130 ;; send it immediately to the
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
131 ;; printer.
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
132 ;;
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
133 ;; ps-spool-region-with-faces - print just the current region;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
134 ;; include font, color, and
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
135 ;; underline information, and
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
136 ;; spool the image in Emacs to
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
137 ;; send to the printer later.
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 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
140 ;; 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
141 ;; -----------------
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
142 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
143 ;; To print your buffer, type
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
144 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
145 ;; M-x ps-print-buffer
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
146 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
147 ;; or substitute one of the other seven ps-print- commands. The
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
148 ;; command will generate the PostScript image and print or spool it as
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
149 ;; specified. By giving the command a prefix argument
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
150 ;;
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
151 ;; C-u M-x ps-print-buffer
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
152 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
153 ;; it will save the PostScript image to a file instead of sending it
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
154 ;; to the printer; you will be prompted for the name of the file to
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
155 ;; save the image to. The prefix argument is ignored by the commands
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
156 ;; that spool their images, but you may save the spooled images to a
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
157 ;; file by giving a prefix argument to `ps-despool':
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
158 ;;
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
159 ;; C-u M-x ps-despool
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
160 ;;
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
161 ;; When invoked this way, `ps-despool' will prompt you for the name of
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
162 ;; the file to save to.
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
163 ;;
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
164 ;; Any of the `ps-print-' commands can be bound to keys; I recommend
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
165 ;; binding `ps-spool-buffer-with-faces', `ps-spool-region-with-faces',
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
166 ;; and `ps-despool'. Here are the bindings I use on my Sun 4 keyboard:
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
167 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
168 ;; (global-set-key 'f22 'ps-spool-buffer-with-faces) ;f22 is prsc
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
169 ;; (global-set-key '(shift f22) 'ps-spool-region-with-faces)
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
170 ;; (global-set-key '(control f22) 'ps-despool)
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
171 ;;
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
172 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
173 ;; 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
174 ;; ---------------------
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
175 ;;
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
176 ;; The variables `ps-lpr-command' and `ps-lpr-switches' determine what
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
177 ;; command is used to send the PostScript images to the printer, and
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
178 ;; what arguments to give the command. These are analogous to
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
179 ;; `lpr-command' and `lpr-switches'.
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
180 ;;
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
181 ;; 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
182 ;; 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
183 ;;
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
184 ;; NOTE: `ps-lpr-command' and `ps-lpr-switches' take their initial values
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
185 ;; from the variables `lpr-command' and `lpr-switches'. If you have
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
186 ;; `lpr-command' set to invoke a pretty-printer such as `enscript',
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
187 ;; then ps-print won't work properly. `ps-lpr-command' must name
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
188 ;; a program that does not format the files it prints.
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
189 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
190 ;;
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
191 ;; The Page Layout
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
192 ;; ---------------
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
193 ;;
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
194 ;; 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
195 ;; 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
196 ;; 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
197 ;;
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
198 ;; The variable `ps-paper-type' determines the size of paper ps-print
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
199 ;; formats for; it should contain one of the symbols:
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
200 ;; `a4' `a3' `letter' `legal' `letter-small' `tabloid'
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
201 ;; `ledger' `statement' `executive' `a4small' `b4' `b5'
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
202 ;;
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
203 ;; The variable `ps-landscape-mode' determines the orientation
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
204 ;; of the printing on the page:
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
205 ;; nil means `portrait' mode, non-nil means `landscape' mode.
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
206 ;; 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
207 ;;
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
208 ;; In landscape mode, the text is NOT scaled: you may print 70 lines
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
209 ;; in portrait mode and only 50 lignes in landscape mode.
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
210 ;; The margins represent margins in the printed paper:
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
211 ;; the top margin is the margin between the top of the page
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
212 ;; and the printed header, whatever the orientation is.
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
213 ;;
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
214 ;; The variable `ps-number-of-columns' determines the number of columns
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
215 ;; both in landscape and portrait mode.
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
216 ;; You can use:
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
217 ;; - (the standard) one column portrait mode
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
218 ;; - (my favorite) two columns landscape mode (which spares trees)
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
219 ;; but also
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
220 ;; - one column landscape mode for files with very long lines.
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
221 ;; - multi-column portrait or landscape mode
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
222 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
223 ;;
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
224 ;; Horizontal layout
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
225 ;; -----------------
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
226 ;;
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
227 ;; 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
228 ;; `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
229 ;; as follows:
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
230 ;;
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
231 ;; ------------------------------------------
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
232 ;; | | | | | | | |
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
233 ;; | 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
234 ;; | | | | | | | |
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
235 ;; ------------------------------------------
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
236 ;;
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
237 ;; 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
238 ;; 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
239 ;; 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
240 ;;
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
241 ;;
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
242 ;; Vertical layout
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
243 ;; ---------------
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
244 ;;
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
245 ;; The vertical layout is determined by the variables
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
246 ;; `ps-bottom-margin' `ps-top-margin' `ps-header-offset'
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
247 ;; as follows:
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
248 ;;
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
249 ;; |--------| |--------|
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
250 ;; | tm | | tm |
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
251 ;; |--------| |--------|
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
252 ;; | header | | |
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
253 ;; |--------| | |
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
254 ;; | ho | | |
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
255 ;; |--------| or | text |
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
256 ;; | | | |
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
257 ;; | text | | |
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
258 ;; | | | |
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
259 ;; |--------| |--------|
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
260 ;; | bm | | bm |
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
261 ;; |--------| |--------|
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
262 ;;
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
263 ;; If `ps-print-header' is nil, `ps-header-offset' is not relevant.
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
264 ;; The margins represent margins in the printed paper:
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
265 ;; the top margin is the margin between the top of the page
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
266 ;; and the printed header, whatever the orientation is.
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
267 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
268 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
269 ;; Headers
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
270 ;; -------
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
271 ;;
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
272 ;; Ps-print can print headers at the top of each column or at the top
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
273 ;; of each page; the default headers contain the following four items:
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
274 ;; on the left, the name of the buffer and, if the buffer is visiting
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
275 ;; a file, the file's directory; on the right, the page number and
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
276 ;; date of printing. The default headers look something like this:
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
277 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
278 ;; ps-print.el 1/21
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
279 ;; /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
280 ;;
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
281 ;; When printing on duplex printers, left and right are reversed so
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
282 ;; that the page numbers are toward the outside (cf. `ps-spool-duplex').
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
283 ;;
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
284 ;; Headers are configurable:
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
285 ;; 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
286 ;; 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
287 ;; set `ps-print-header-frame' to nil.
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
288 ;;
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
289 ;; To print only one header at the top of each page,
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
290 ;; set `ps-print-only-one-header' to t.
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
291 ;;
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
292 ;; The font family and size of text in the header are determined
19879
87952270ceeb (ps-emacs-face-kind-p): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents: 19843
diff changeset
293 ;; by the variables `ps-header-font-family', `ps-header-font-size' and
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
294 ;; `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
295 ;;
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
296 ;; The variable `ps-header-line-pad' determines the portion of a header
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
297 ;; title line height to insert between the header frame and the text
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
298 ;; it contains, both in the vertical and horizontal directions:
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
299 ;; .5 means half a line.
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
300
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
301 ;; Page numbers are printed in `n/m' format, indicating page n of m pages;
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
302 ;; to omit the total page count and just print the page number,
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
303 ;; set `ps-show-n-of-n' to nil.
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
304 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
305 ;; The amount of information in the header can be changed by changing
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
306 ;; the number of lines. To show less, set `ps-header-lines' to 1, and
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
307 ;; the header will show only the buffer name and page number. To show
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
308 ;; more, set `ps-header-lines' to 3, and the header will show the time of
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
309 ;; printing below the date.
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
310 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
311 ;; To change the content of the headers, change the variables
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
312 ;; `ps-left-header' and `ps-right-header'.
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
313 ;; These variables are lists, specifying top-to-bottom the text
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
314 ;; to display on the left or right side of the header.
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
315 ;; Each element of the list should be a string or a symbol.
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
316 ;; Strings are inserted directly into the PostScript arrays,
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
317 ;; and should contain the PostScript string delimiters '(' and ')'.
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
318 ;;
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
319 ;; Symbols in the header format lists can either represent functions
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
320 ;; or variables. Functions are called, and should return a string to
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
321 ;; show in the header. Variables should contain strings to display in
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
322 ;; the header. In either case, function or variable, the PostScript
14040
187735b53d52 Comment fixes.
Karl Heuer <kwzh@gnu.org>
parents: 13886
diff changeset
323 ;; string delimiters are added by ps-print, and should not be part of
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
324 ;; the returned value.
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
325 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
326 ;; 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
327 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
328 ;; Moe
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
329 ;; Larry
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
330 ;; Curly
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
331 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
332 ;; where we have a function to return "Moe"
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
333 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
334 ;; (defun moe-func ()
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
335 ;; "Moe")
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
336 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
337 ;; a variable specifying "Larry"
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
338 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
339 ;; (setq larry-var "Larry")
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
340 ;;
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
341 ;; and a literal for "Curly". Here's how `ps-left-header' should be
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
342 ;; set:
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
343 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
344 ;; (setq ps-left-header (list 'moe-func 'larry-var "(Curly)"))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
345 ;;
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
346 ;; Note that Curly has the PostScript string delimiters inside his
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
347 ;; quotes -- those aren't misplaced lisp delimiters!
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
348 ;;
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
349 ;; Without them, PostScript would attempt to call the undefined
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
350 ;; function Curly, which would result in a PostScript error.
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
351 ;;
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
352 ;; Since most printers don't report PostScript errors except by
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
353 ;; aborting the print job, this kind of error can be hard to track down.
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
354 ;;
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
355 ;; Consider yourself warned!
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
356 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
357 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
358 ;; Duplex Printers
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
359 ;; ---------------
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
360 ;;
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
361 ;; If you have a duplex-capable printer (one that prints both sides of
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
362 ;; the paper), set `ps-spool-duplex' to t.
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
363 ;; Ps-print will insert blank pages to make sure each buffer starts
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
364 ;; on the correct side of the paper.
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
365 ;; Don't forget to set `ps-lpr-switches' to select duplex printing
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
366 ;; for your printer.
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
367 ;;
19879
87952270ceeb (ps-emacs-face-kind-p): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents: 19843
diff changeset
368 ;;
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
369 ;; Control And 8-bit Characters
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
370 ;; ----------------------------
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
371 ;;
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
372 ;; 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
373 ;; a printable form for control and 8-bit characters, that is, instead of
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
374 ;; sending, for example, a ^D (\005) to printer, it is sent the string "^D".
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
375 ;;
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
376 ;; 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
377 ;;
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
378 ;; '8-bit printable form for control and 8-bit characters
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
379 ;; (characters from \000 to \037 and \177 to \377).
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
380 ;; 'control-8-bit printable form for control and *control* 8-bit characters
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
381 ;; (characters from \000 to \037 and \177 to \237).
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
382 ;; 'control printable form for control character
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
383 ;; (characters from \000 to \037 and \177).
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
384 ;; nil raw character (no printable form).
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
385 ;;
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
386 ;; Any other value is treated as nil.
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
387 ;;
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
388 ;; The default is 'control-8-bit.
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
389 ;;
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
390 ;; 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
391 ;;
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
392 ;;
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
393 ;; Line Number
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
394 ;; -----------
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
395 ;;
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
396 ;; 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
397 ;; 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
398 ;;
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
399 ;;
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
400 ;; Zebra Stripes
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
401 ;; -------------
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
402 ;;
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
403 ;; Zebra stripes are a kind of background that appear "underneath" the text
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
404 ;; and can make the text easier to read. They look like this:
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
405 ;;
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
406 ;; XXXXXXXXXXXXXXXXXXXXXXXX
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
407 ;; XXXXXXXXXXXXXXXXXXXXXXXX
19485
eab8baa19dfa (ps-zebra-stripes): Renamed from ps-zebra-stripe.
Richard M. Stallman <rms@gnu.org>
parents: 19446
diff changeset
408 ;; XXXXXXXXXXXXXXXXXXXXXXXX
eab8baa19dfa (ps-zebra-stripes): Renamed from ps-zebra-stripe.
Richard M. Stallman <rms@gnu.org>
parents: 19446
diff changeset
409 ;;
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
410 ;;
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
411 ;;
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
412 ;; XXXXXXXXXXXXXXXXXXXXXXXX
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
413 ;; XXXXXXXXXXXXXXXXXXXXXXXX
19485
eab8baa19dfa (ps-zebra-stripes): Renamed from ps-zebra-stripe.
Richard M. Stallman <rms@gnu.org>
parents: 19446
diff changeset
414 ;; XXXXXXXXXXXXXXXXXXXXXXXX
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
415 ;;
19879
87952270ceeb (ps-emacs-face-kind-p): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents: 19843
diff changeset
416 ;; 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
417 ;; 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
418 ;;
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
419 ;; The height, in lines, of each rectangle is controlled by
19485
eab8baa19dfa (ps-zebra-stripes): Renamed from ps-zebra-stripe.
Richard M. Stallman <rms@gnu.org>
parents: 19446
diff changeset
420 ;; the variable `ps-zebra-stripe-height', which is 3 by default.
eab8baa19dfa (ps-zebra-stripes): Renamed from ps-zebra-stripe.
Richard M. Stallman <rms@gnu.org>
parents: 19446
diff changeset
421 ;; The distance between stripes equals the height of a stripe.
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
422 ;;
19787
4ea00387fb08 (ps-setup): ps-zebra-stripe => ps-zebra-stripes.
Richard M. Stallman <rms@gnu.org>
parents: 19773
diff changeset
423 ;; 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
424 ;; 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
425 ;;
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
426 ;; 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
427 ;;
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
428 ;;
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
429 ;; Hooks
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
430 ;; -----
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
431 ;;
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
432 ;; Ps-print has the following hook variables:
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
433 ;;
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
434 ;; `ps-print-hook'
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
435 ;; 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
436 ;; place to initialize ps-print global data.
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
437 ;; 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
438 ;;
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
439 ;; `ps-print-begin-page-hook'
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
440 ;; It is evaluated on each real beginning of page, that is, ps-print
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
441 ;; considers each beginning of column as a beginning of page, and a real
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
442 ;; beginning of page is when the beginning of column coincides with a
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
443 ;; paper change on your printer.
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
444 ;;
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
445 ;; `ps-print-begin-column-hook'
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
446 ;; It is evaluated on each beginning of column, except in the beginning
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
447 ;; of column that `ps-print-begin-page-hook' is evaluated.
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
448 ;;
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
449 ;;
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
450 ;; Font Managing
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
451 ;; -------------
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
452 ;;
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
453 ;; Ps-print now knows rather precisely some fonts:
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
454 ;; the variable `ps-font-info-database' contains information
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
455 ;; for a list of font families (currently mainly `Courier' `Helvetica'
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
456 ;; `Times' `Palatino' `Helvetica-Narrow' `NewCenturySchlbk').
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
457 ;; Each font family contains the font names for standard, bold, italic
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
458 ;; and bold-italic characters, a reference size (usually 10) and the
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
459 ;; corresponding line height, width of a space and average character width.
19879
87952270ceeb (ps-emacs-face-kind-p): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents: 19843
diff changeset
460 ;;
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
461 ;; The variable `ps-font-family' determines which font family
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
462 ;; is to be used for ordinary text.
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
463 ;; If its value does not correspond to a known font family,
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
464 ;; an error message is printed into the `*Messages*' buffer,
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
465 ;; which lists the currently available font families.
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
466 ;;
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
467 ;; The variable `ps-font-size' determines the size (in points)
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
468 ;; of the font for ordinary text, when generating Postscript.
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
469 ;; Its value is a float.
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
470 ;;
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
471 ;; Similarly, the variable `ps-header-font-family' determines
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
472 ;; which font family is to be used for text in the header.
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
473 ;; The variable `ps-header-font-size' determines the font size,
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
474 ;; in points, for text in the header.
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
475 ;; The variable `ps-header-title-font-size' determines the font size,
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
476 ;; in points, for the top line of text in the header.
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
477 ;;
10738
e7d5b119b583 (ps-print-version): Add caveat about version number.
Richard M. Stallman <rms@gnu.org>
parents: 10683
diff changeset
478 ;;
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
479 ;; 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
480 ;; ------------------------
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
481 ;;
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
482 ;; To use a new font family, you MUST first teach ps-print
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
483 ;; this font, i.e., add its information to `ps-font-info-database',
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
484 ;; otherwise ps-print cannot correctly place line and page breaks.
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
485 ;;
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
486 ;; For example, assuming `Helvetica' is unknown,
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
487 ;; you first need to do the following ONLY ONCE:
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
488 ;;
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
489 ;; - 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
490 ;; - 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
491 ;; - open this file and find the line:
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
492 ;; `% 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
493 ;; - delete the leading `%' (which is the PostScript comment character)
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
494 ;; - replace in this line `Courier' by the new font (say `Helvetica')
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
495 ;; to get the line:
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
496 ;; `3 cm 20 cm moveto 10 /Helvetica ReportFontInfo showpage'
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
497 ;; - 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
498 ;; 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
499 ;;
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
500 ;; 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
501 ;; 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
502 ;;
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
503 ;; - 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
504 ;; (setq ps-font-info-database
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
505 ;; (append
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
506 ;; '((Helvetica ; the family key
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
507 ;; (fonts (normal . "Helvetica")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
508 ;; (bold . "Helvetica-Bold")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
509 ;; (italic . "Helvetica-Oblique")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
510 ;; (bold-italic . "Helvetica-BoldOblique"))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
511 ;; (size . 10.0)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
512 ;; (line-height . 11.56)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
513 ;; (space-width . 2.78)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
514 ;; (avg-char-width . 5.09243)))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
515 ;; 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
516 ;; - 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
517 ;; (setq ps-font-family 'Helvetica)
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
518 ;; - if you want to use this family in another emacs session, you must
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
519 ;; put into your `~/.emacs':
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
520 ;; (require 'ps-print)
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
521 ;; (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
522 ;; 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
523 ;; (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
524 ;; 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
525 ;; (add-hook 'ps-print-hook
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
526 ;; '(lambda () (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
527 ;;
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
528 ;; 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
529 ;; (my-mixed-family
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
530 ;; (fonts (normal . "Courier-Bold")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
531 ;; (bold . "Helvetica")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
532 ;; (italic . "Zapf-Chancery-MediumItalic")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
533 ;; (bold-italic . "NewCenturySchlbk-BoldItalic")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
534 ;; (w3-table-hack-x-face . "LineDrawNormal"))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
535 ;; (size . 10.0)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
536 ;; (line-height . 10.55)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
537 ;; (space-width . 6.0)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
538 ;; (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
539 ;; 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
540 ;; (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
541 ;;
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
542 ;; Note that on above example the `w3-table-hack-x-face' entry refers to
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
543 ;; a face symbol, so when printing this face it'll be used the font
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
544 ;; `LineDrawNormal'. If the face `w3-table-hack-x-face' is remapped to
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
545 ;; use bold and/or italic attribute, the corresponding entry (bold, italic
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
546 ;; or bold-italic) will be used instead of `w3-table-hack-x-face' entry.
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
547 ;;
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
548 ;; 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
549 ;; example could also be written:
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
550 ;; (my-mixed-family
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
551 ;; (size . 10.0)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
552 ;; (fonts (w3-table-hack-x-face . "LineDrawNormal")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
553 ;; (bold . "Helvetica")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
554 ;; (bold-italic . "NewCenturySchlbk-BoldItalic")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
555 ;; (italic . "Zapf-Chancery-MediumItalic")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
556 ;; (normal . "Courier-Bold"))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
557 ;; (avg-char-width . 6.0)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
558 ;; (space-width . 6.0)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
559 ;; (line-height . 10.55))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
560 ;;
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
561 ;; 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
562 ;; entry order be used.
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
563 ;;
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
564 ;; 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
565 ;; 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
566 ;; % 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
567 ;;
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
568 ;; The PostScript file should be sent to YOUR PostScript printer.
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
569 ;; If you send it to ghostscript or to another PostScript printer,
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
570 ;; you may get slightly different results.
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
571 ;; Anyway, as ghostscript fonts are autoload, you won't get
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
572 ;; much font info.
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
573 ;;
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
574 ;;
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
575 ;; 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
576 ;; -----------------------------
10738
e7d5b119b583 (ps-print-version): Add caveat about version number.
Richard M. Stallman <rms@gnu.org>
parents: 10683
diff changeset
577 ;;
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
578 ;; The ps-print-*-with-faces commands attempt to determine which faces
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
579 ;; should be printed in bold or italic, but their guesses aren't
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
580 ;; always right. For example, you might want to map colors into faces
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
581 ;; so that blue faces print in bold, and red faces in italic.
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
582 ;;
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
583 ;; It is possible to force ps-print to consider specific faces bold,
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
584 ;; italic or underline, no matter what font they are displayed in, by setting
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
585 ;; the variables `ps-bold-faces', `ps-italic-faces' and `ps-underlined-faces'.
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
586 ;; 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
587 ;; 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
588 ;; .emacs file:
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
589 ;;
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
590 ;; (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
591 ;; (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
592 ;; (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
593 ;;
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
594 ;; Faces like bold-italic that are both bold and italic should go in
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
595 ;; *both* lists.
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
596 ;;
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
597 ;; Ps-print keeps internal lists of which fonts are bold and which are
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
598 ;; italic; these lists are built the first time you invoke ps-print.
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
599 ;; For the sake of efficiency, the lists are built only once; the same
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
600 ;; lists are referred in later invocations of ps-print.
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
601 ;;
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
602 ;; Because these lists are built only once, it's possible for them to
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
603 ;; get out of sync, if a face changes, or if new faces are added. To
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
604 ;; get the lists back in sync, you can set the variable
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
605 ;; `ps-build-face-reference' to t, and the lists will be rebuilt the
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
606 ;; next time ps-print is invoked. If you need that the lists always be
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
607 ;; rebuilt when ps-print is invoked, set the variable
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
608 ;; `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
609 ;;
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
610 ;;
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
611 ;; 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
612 ;; -----------------------------
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
613 ;;
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
614 ;; Ps-print detects faces with foreground and background colors
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
615 ;; defined and embeds color information in the PostScript image.
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
616 ;; The default foreground and background colors are defined by the
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
617 ;; variables `ps-default-fg' and `ps-default-bg'.
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
618 ;; On black-and-white printers, colors are displayed in grayscale.
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
619 ;; To turn off color output, set `ps-print-color-p' to nil.
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
620 ;;
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
621 ;;
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
622 ;; How Ps-Print Maps Faces
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
623 ;; -----------------------
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
624 ;;
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
625 ;; As ps-print uses PostScript to print buffers, it is possible to have
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
626 ;; other attributes associated with faces. So the new attributes used
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
627 ;; by ps-print are:
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
628 ;;
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
629 ;; 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
630 ;; 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
631 ;; shadow - text will have a shadow.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
632 ;; 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
633 ;; 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
634 ;;
19879
87952270ceeb (ps-emacs-face-kind-p): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents: 19843
diff changeset
635 ;; 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
636 ;;
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
637 ;; Let's, for example, remap font-lock-keyword-face to another foreground color
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
638 ;; and bold attribute:
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
639 ;;
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
640 ;; (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
641 ;;
19446
15ecd855fec8 (ps-print-face-extension-alist): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 19445
diff changeset
642 ;; If you want to use a new face, define it first with `defface',
15ecd855fec8 (ps-print-face-extension-alist): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 19445
diff changeset
643 ;; and then call `ps-extend-face' to specify how to print it.
15ecd855fec8 (ps-print-face-extension-alist): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 19445
diff changeset
644 ;;
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
645 ;;
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
646 ;; 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
647 ;; --------------------------------------------------
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
648 ;;
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
649 ;; Ps-print can print texts and/or EPS PostScript images on background; it is
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
650 ;; 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
651 ;; 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
652 ;;
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
653 ;; 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
654 ;; 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
655 ;;
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
656 ;; 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
657 ;; `ps-print-background-image'.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
658 ;;
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
659 ;; 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
660 ;; "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
661 ;;
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
662 ;; (setq ps-print-background-text
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
663 ;; '(("preliminary")
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
664 ;; ("special"
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
665 ;; "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
666 ;; ; (upper left corner)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
667 ;; nil nil nil
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
668 ;; "PrintHeight neg PrintPageWidth atan" ; angle
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
669 ;; 5 (11 . 17)) ; page list
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
670 ;; ))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
671 ;;
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
672 ;; 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
673 ;; 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
674 ;; specify:
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
675 ;;
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
676 ;; (setq ps-print-background-image
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
677 ;; '(("~/images/EPS-image1.ps"
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
678 ;; "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
679 ;; ("~/images/EPS-image2.ps"
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
680 ;; "LeftMargin" "BottomMargin PrintHeight 2 div add" ; X and Y position
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
681 ;; ; (upper left corner)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
682 ;; nil nil nil
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
683 ;; 5 (11 . 17)) ; page list
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
684 ;; ))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
685 ;;
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
686 ;; 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
687 ;; is ignored.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
688 ;;
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
689 ;; The printing order is:
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
690 ;;
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
691 ;; 1. Print zebra stripes
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
692 ;; 2. Print background texts that it should be on all pages
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
693 ;; 3. Print background images that it should be on all pages
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
694 ;; 4. Print background texts only for current page (if any)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
695 ;; 5. Print background images only for current page (if any)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
696 ;; 6. Print header
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
697 ;; 7. Print buffer text (with faces, if specified) and line number
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
698 ;;
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
699 ;;
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
700 ;; Utilities
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
701 ;; ---------
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
702 ;;
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
703 ;; 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
704 ;;
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
705 ;; `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
706 ;;
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
707 ;; To avoid wrapping too many lines, you may want to adjust the
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
708 ;; left and right margins and the font size. On UN*X systems, do:
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
709 ;; 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
710 ;; to determine the longest lines of your file.
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
711 ;; Then, the command `ps-line-lengths' will give you the correspondence
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
712 ;; between a line length (number of characters) and the maximum font
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
713 ;; size which doesn't wrap such a line with the current ps-print setup.
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
714 ;;
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
715 ;; The commands `ps-nb-pages-buffer' and `ps-nb-pages-region' display
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
716 ;; the correspondence between a number of pages and the maximum font
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
717 ;; size which allow the number of lines of the current buffer or of
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
718 ;; its current region to fit in this number of pages.
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
719 ;;
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
720 ;; 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
721 ;; 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
722 ;;
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
723 ;;
10738
e7d5b119b583 (ps-print-version): Add caveat about version number.
Richard M. Stallman <rms@gnu.org>
parents: 10683
diff changeset
724 ;; New since version 1.5
e7d5b119b583 (ps-print-version): Add caveat about version number.
Richard M. Stallman <rms@gnu.org>
parents: 10683
diff changeset
725 ;; ---------------------
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
726 ;;
10738
e7d5b119b583 (ps-print-version): Add caveat about version number.
Richard M. Stallman <rms@gnu.org>
parents: 10683
diff changeset
727 ;; Color output capability.
e7d5b119b583 (ps-print-version): Add caveat about version number.
Richard M. Stallman <rms@gnu.org>
parents: 10683
diff changeset
728 ;; 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
729 ;; 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
730 ;; Slightly faster.
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
731 ;; 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
732 ;; 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
733 ;;
e7d5b119b583 (ps-print-version): Add caveat about version number.
Richard M. Stallman <rms@gnu.org>
parents: 10683
diff changeset
734 ;;
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
735 ;; 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
736 ;; ---------------------
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
737 ;;
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
738 ;; [vinicius] 980306 Vinicius Jose Latorre <vinicius@cpqd.com.br>
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
739 ;;
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
740 ;; Skip invisible text
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
741 ;;
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
742 ;; [vinicius] 971130 Vinicius Jose Latorre <vinicius@cpqd.com.br>
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
743 ;;
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
744 ;; Hooks: `ps-print-hook', `ps-print-begin-page-hook' and
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
745 ;; `ps-print-begin-column-hook'.
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
746 ;; Put one header per page over the columns.
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
747 ;; Better database font management.
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
748 ;; Better control characters handling.
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
749 ;;
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
750 ;; [vinicius] 971121 Vinicius Jose Latorre <vinicius@cpqd.com.br>
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
751 ;;
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
752 ;; Dynamic evaluation at print time of `ps-lpr-switches'.
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
753 ;; Handle control characters.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
754 ;; Face remapping.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
755 ;; New face attributes.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
756 ;; Line number.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
757 ;; Zebra stripes.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
758 ;; Text and/or image on background.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
759 ;;
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
760 ;; [jack] 960517 Jacques Duthen <duthen@cegelec-red.fr>
10738
e7d5b119b583 (ps-print-version): Add caveat about version number.
Richard M. Stallman <rms@gnu.org>
parents: 10683
diff changeset
761 ;;
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
762 ;; 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
763 ;; Landscape mode.
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
764 ;; Multiple columns.
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
765 ;; Tools for page setup.
10738
e7d5b119b583 (ps-print-version): Add caveat about version number.
Richard M. Stallman <rms@gnu.org>
parents: 10683
diff changeset
766 ;;
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
767 ;;
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
768 ;; Known bugs and limitations of ps-print:
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
769 ;; --------------------------------------
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
770 ;;
11799
4a04c7799790 Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents: 10738
diff changeset
771 ;; Although color printing will work in XEmacs 19.12, it doesn't work
4a04c7799790 Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents: 10738
diff changeset
772 ;; well; in particular, bold or italic fonts don't print in the right
4a04c7799790 Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents: 10738
diff changeset
773 ;; background color.
4a04c7799790 Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents: 10738
diff changeset
774 ;;
4a04c7799790 Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents: 10738
diff changeset
775 ;; 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
776 ;;
10738
e7d5b119b583 (ps-print-version): Add caveat about version number.
Richard M. Stallman <rms@gnu.org>
parents: 10683
diff changeset
777 ;; Automatic font-attribute detection doesn't work well, especially
10683
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
778 ;; with hilit19 and older versions of get-create-face. Users having
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
779 ;; problems with auto-font detection should use the lists
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
780 ;; `ps-italic-faces', `ps-bold-faces' and `ps-underlined-faces' and/or
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
781 ;; turn off automatic detection by setting `ps-auto-font-detect' to nil.
10683
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
782 ;;
11799
4a04c7799790 Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents: 10738
diff changeset
783 ;; Automatic font-attribute detection doesn't work with XEmacs 19.12
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
784 ;; in tty mode; use the lists `ps-italic-faces', `ps-bold-faces' and
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
785 ;; `ps-underlined-faces' instead.
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
786 ;;
10683
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
787 ;; Still too slow; could use some hand-optimization.
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
788 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
789 ;; Default background color isn't working.
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
790 ;;
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
791 ;; Faces are always treated as opaque.
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
792 ;;
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
793 ;; Epoch and Emacs 18 not supported. At all.
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
794 ;;
19879
87952270ceeb (ps-emacs-face-kind-p): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents: 19843
diff changeset
795 ;; Fixed-pitch fonts work better for line folding, but are not required.
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
796 ;;
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
797 ;; `ps-nb-pages-buffer' and `ps-nb-pages-region' don't take care
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
798 ;; of folding lines.
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
799 ;;
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
800 ;;
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
801 ;; Things to change:
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
802 ;; ----------------
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
803 ;;
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
804 ;; 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
805 ;; 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
806 ;; Improve the memory management for big files (hard?).
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
807 ;; `ps-nb-pages-buffer' and `ps-nb-pages-region' should take care
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
808 ;; of folding lines.
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
809 ;;
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
810 ;;
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
811 ;; Acknowledgements
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
812 ;; ----------------
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
813 ;;
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
814 ;; 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
815 ;; database font management.
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
816 ;;
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
817 ;; Thanks to Martin Boyer <gamin@videotron.ca> for some ideas on putting one
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
818 ;; header per page over the columns.
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
819 ;;
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
820 ;; 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
821 ;; print time of `ps-lpr-switches'.
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
822 ;;
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
823 ;; Thanks to some suggestions on:
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
824 ;; * 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
825 ;; * XEmacs compatibility: William J. Henney <will@astrosmo.unam.mx>
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
826 ;; * Check ps-paper-type: Sudhakar Frederick <sfrederi@asc.corp.mot.com>
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
827 ;;
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
828 ;; Thanks to Jacques Duthen <duthen@cegelec-red.fr> (Jack) for the 3.4 version
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
829 ;; I started from. [vinicius]
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
830 ;;
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
831 ;; Thanks to Jim Thompson <?@?> for the 2.8 version I started from.
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
832 ;; [jack]
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
833 ;;
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
834 ;; Thanks to Kevin Rodgers <kevinr@ihs.com> for adding support for
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
835 ;; color and the invisible property.
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
836 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
837 ;; Thanks to Avishai Yacobi, avishaiy@mcil.comm.mot.com, for writing
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
838 ;; the initial port to Emacs 19. His code is no longer part of
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
839 ;; ps-print, but his work is still appreciated.
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
840 ;;
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
841 ;; Thanks to Remi Houdaille and Michel Train, michel@metasoft.fdn.org,
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
842 ;; for adding underline support. Their code also is no longer part of
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
843 ;; ps-print, but their efforts are not forgotten.
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
844 ;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
845 ;; Thanks also to all of you who mailed code to add features to
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
846 ;; ps-print; although I didn't use your code, I still appreciate your
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
847 ;; sharing it with me.
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
848 ;;
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
849 ;; Thanks to all who mailed comments, encouragement, and criticism.
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
850 ;; Thanks also to all who responded to my survey; I had too many
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
851 ;; responses to reply to them all, but I greatly appreciate your
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
852 ;; interest.
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
853 ;;
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
854 ;; Jim
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
855 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
856
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
857 ;;; Code:
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
858
16870
4a5fa29f79d6 (ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents: 16361
diff changeset
859 (eval-when-compile
4a5fa29f79d6 (ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents: 16361
diff changeset
860 (require 'cl))
10738
e7d5b119b583 (ps-print-version): Add caveat about version number.
Richard M. Stallman <rms@gnu.org>
parents: 10683
diff changeset
861
16870
4a5fa29f79d6 (ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents: 16361
diff changeset
862 (unless (featurep 'lisp-float-type)
4a5fa29f79d6 (ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents: 16361
diff changeset
863 (error "`ps-print' requires floating point support"))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
864
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
865 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
866 ;; User Variables:
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
867
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
868 ;;; 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
869
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
870 (defgroup ps-print nil
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
871 "PostScript generator for Emacs 19"
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
872 :prefix "ps-"
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
873 :group 'wp)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
874
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
875 (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
876 "Horizontal page layout"
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
877 :prefix "ps-"
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
878 :tag "Horizontal"
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
879 :group 'ps-print)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
880
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
881 (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
882 "Vertical page layout"
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
883 :prefix "ps-"
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
884 :tag "Vertical"
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
885 :group 'ps-print)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
886
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
887 (defgroup ps-print-header nil
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
888 "Headers layout"
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
889 :prefix "ps-"
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
890 :tag "Header"
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
891 :group 'ps-print)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
892
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
893 (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
894 "Fonts customization"
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
895 :prefix "ps-"
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
896 :tag "Font"
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
897 :group 'ps-print)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
898
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
899 (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
900 "Color customization"
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
901 :prefix "ps-"
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
902 :tag "Color"
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
903 :group 'ps-print)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
904
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
905 (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
906 "Faces customization"
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
907 :prefix "ps-"
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
908 :tag "PS Faces"
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
909 :group 'ps-print
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
910 :group 'faces)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
911
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
912
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
913 (defcustom ps-lpr-command lpr-command
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
914 "*The shell command for printing a PostScript file."
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
915 :type 'string
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
916 :group 'ps-print)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
917
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
918 (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
919 "*A list of extra switches to pass to `ps-lpr-command'."
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
920 :type '(repeat string)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
921 :group 'ps-print)
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
922
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
923 ;;; Page layout
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
924
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
925 ;; 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
926 ;; 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
927 ;; 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
928
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
929 ;; 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
930 ;; 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
931 ;; 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
932
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
933 ;; 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
934 ;; 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
935 ;; 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
936 ;; 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
937 ;; 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
938 ;; 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
939 ;; 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
940 ;; 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
941 ;; 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
942
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
943 (defcustom ps-page-dimensions-database
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
944 (list (list 'a4 (/ (* 72 21.0) 2.54) (/ (* 72 29.7) 2.54))
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
945 (list 'a3 (/ (* 72 29.7) 2.54) (/ (* 72 42.0) 2.54))
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
946 (list 'letter (* 72 8.5) (* 72 11.0))
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
947 (list 'legal (* 72 8.5) (* 72 14.0))
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
948 (list 'letter-small (* 72 7.68) (* 72 10.16))
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
949 (list 'tabloid (* 72 11.0) (* 72 17.0))
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
950 (list 'ledger (* 72 17.0) (* 72 11.0))
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
951 (list 'statement (* 72 5.5) (* 72 8.5))
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
952 (list 'executive (* 72 7.5) (* 72 10.0))
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
953 (list 'a4small (* 72 7.47) (* 72 10.85))
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
954 (list 'b4 (* 72 10.125) (* 72 14.33))
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
955 (list 'b5 (* 72 7.16) (* 72 10.125)))
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
956 "*List associating a symbolic paper type to its width and height.
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
957 see `ps-paper-type'."
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
958 :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
959 (symbol :tag "Name")
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
960 (number :tag "Width")
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
961 (number :tag "Height")))
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
962 :group 'ps-print)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
963
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
964 ;;;###autoload
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
965 (defcustom ps-paper-type 'letter
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
966 "*Specifies the size of paper to format for.
16870
4a5fa29f79d6 (ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents: 16361
diff changeset
967 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
968 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
969 :type '(symbol :validate (lambda (wid)
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
970 (if (assq (widget-value wid)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
971 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
972 nil
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
973 (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
974 wid)))
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
975 :group 'ps-print)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
976
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
977 (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
978 "*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
979 :type 'boolean
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
980 :group 'ps-print)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
981
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
982 (defcustom ps-print-control-characters 'control-8-bit
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
983 "*Specifies the printable form for control and 8-bit characters.
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
984 Valid values are:
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
985 '8-bit printable form for control and 8-bit characters
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
986 (characters from \000 to \037 and \177 to \377).
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
987 'control-8-bit printable form for control and *control* 8-bit characters
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
988 (characters from \000 to \037 and \177 to \237).
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
989 'control printable form for control character
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
990 (characters from \000 to \037 and \177).
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
991 nil raw character (no printable form).
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
992 Any other value is treated as nil."
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
993 :type '(choice (const 8-bit) (const control-8-bit)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
994 (const control) (const nil))
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
995 :group 'ps-print)
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
996
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
997 (defcustom ps-number-of-columns (if ps-landscape-mode 2 1)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
998 "*Specifies the number of columns"
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
999 :type 'number
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1000 :group 'ps-print)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1001
19485
eab8baa19dfa (ps-zebra-stripes): Renamed from ps-zebra-stripe.
Richard M. Stallman <rms@gnu.org>
parents: 19446
diff changeset
1002 (defcustom ps-zebra-stripes nil
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1003 "*Non-nil means print zebra stripes.
19879
87952270ceeb (ps-emacs-face-kind-p): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents: 19843
diff changeset
1004 See also documentation for `ps-zebra-stripe-height'."
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1005 :type 'boolean
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1006 :group 'ps-print)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1007
19485
eab8baa19dfa (ps-zebra-stripes): Renamed from ps-zebra-stripe.
Richard M. Stallman <rms@gnu.org>
parents: 19446
diff changeset
1008 (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
1009 "*Number of zebra stripe lines.
19879
87952270ceeb (ps-emacs-face-kind-p): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents: 19843
diff changeset
1010 See also documentation for `ps-zebra-stripes'."
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1011 :type 'number
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1012 :group 'ps-print)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1013
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1014 (defcustom ps-line-number nil
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1015 "*Non-nil means print line number."
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1016 :type 'boolean
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1017 :group 'ps-print)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1018
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1019 (defcustom ps-print-background-image nil
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1020 "*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
1021
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1022 The elements are:
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1023
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1024 (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
1025
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1026 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
1027 programming like EPS.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1028 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
1029
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1030 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
1031 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
1032
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1033 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
1034 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
1035
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1036 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
1037
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1038 PAGES designates the page to print background image.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1039 PAGES may be a number or a cons cell (FROM . TO) designating FROM page
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1040 to TO page.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1041 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
1042
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1043 X, Y, XSCALE, YSCALE and ROTATION may be a floating point number,
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1044 an integer number or a string. If it is a string, the string should contain
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1045 PostScript programming that returns a float or integer value.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1046
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1047 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
1048
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1049 '((\"~/images/EPS-image.ps\"))"
20019
d8e290881d8c (ps-print-background-image): Fix customize type.
Karl Heuer <kwzh@gnu.org>
parents: 19879
diff changeset
1050 :type '(repeat (list file
d8e290881d8c (ps-print-background-image): Fix customize type.
Karl Heuer <kwzh@gnu.org>
parents: 19879
diff changeset
1051 (choice :tag "X" number string (const nil))
d8e290881d8c (ps-print-background-image): Fix customize type.
Karl Heuer <kwzh@gnu.org>
parents: 19879
diff changeset
1052 (choice :tag "Y" number string (const nil))
d8e290881d8c (ps-print-background-image): Fix customize type.
Karl Heuer <kwzh@gnu.org>
parents: 19879
diff changeset
1053 (choice :tag "X Scale" number string (const nil))
d8e290881d8c (ps-print-background-image): Fix customize type.
Karl Heuer <kwzh@gnu.org>
parents: 19879
diff changeset
1054 (choice :tag "Y Scale" number string (const nil))
d8e290881d8c (ps-print-background-image): Fix customize type.
Karl Heuer <kwzh@gnu.org>
parents: 19879
diff changeset
1055 (choice :tag "Rotation" number string (const nil))
d8e290881d8c (ps-print-background-image): Fix customize type.
Karl Heuer <kwzh@gnu.org>
parents: 19879
diff changeset
1056 (repeat :tag "Pages" :inline t
d8e290881d8c (ps-print-background-image): Fix customize type.
Karl Heuer <kwzh@gnu.org>
parents: 19879
diff changeset
1057 (radio integer
d8e290881d8c (ps-print-background-image): Fix customize type.
Karl Heuer <kwzh@gnu.org>
parents: 19879
diff changeset
1058 (cons :tag "Range"
d8e290881d8c (ps-print-background-image): Fix customize type.
Karl Heuer <kwzh@gnu.org>
parents: 19879
diff changeset
1059 (integer :tag "From")
d8e290881d8c (ps-print-background-image): Fix customize type.
Karl Heuer <kwzh@gnu.org>
parents: 19879
diff changeset
1060 (integer :tag "To"))))))
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1061 :group 'ps-print)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1062
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1063 (defcustom ps-print-background-text nil
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1064 "*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
1065
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1066 The elements are:
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1067
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1068 (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
1069
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1070 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
1071
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1072 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
1073 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
1074
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1075 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
1076 If nil, \"Times-Roman\" is used.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1077
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1078 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
1079
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1080 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
1081 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
1082
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1083 ROTATION is the text rotation angle; if nil, the angle is given by
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1084 the diagonal from lower left corner to upper right corner.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1085
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1086 PAGES designates the page to print background text.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1087 PAGES may be a number or a cons cell (FROM . TO) designating FROM page
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1088 to TO page.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1089 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
1090
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1091 X, Y, FONTSIZE, GRAY and ROTATION may be a floating point number,
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1092 an integer number or a string. If it is a string, the string should contain
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1093 PostScript programming that returns a float or integer value.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1094
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1095 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
1096
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1097 '((\"Preliminary\"))"
20019
d8e290881d8c (ps-print-background-image): Fix customize type.
Karl Heuer <kwzh@gnu.org>
parents: 19879
diff changeset
1098 :type '(repeat (list string
d8e290881d8c (ps-print-background-image): Fix customize type.
Karl Heuer <kwzh@gnu.org>
parents: 19879
diff changeset
1099 (choice :tag "X" number string (const nil))
d8e290881d8c (ps-print-background-image): Fix customize type.
Karl Heuer <kwzh@gnu.org>
parents: 19879
diff changeset
1100 (choice :tag "Y" number string (const nil))
d8e290881d8c (ps-print-background-image): Fix customize type.
Karl Heuer <kwzh@gnu.org>
parents: 19879
diff changeset
1101 (choice :tag "Font" string (const nil))
d8e290881d8c (ps-print-background-image): Fix customize type.
Karl Heuer <kwzh@gnu.org>
parents: 19879
diff changeset
1102 (choice :tag "Fontsize" number string (const nil))
d8e290881d8c (ps-print-background-image): Fix customize type.
Karl Heuer <kwzh@gnu.org>
parents: 19879
diff changeset
1103 (choice :tag "Gray" number string (const nil))
d8e290881d8c (ps-print-background-image): Fix customize type.
Karl Heuer <kwzh@gnu.org>
parents: 19879
diff changeset
1104 (choice :tag "Rotation" number string (const nil))
d8e290881d8c (ps-print-background-image): Fix customize type.
Karl Heuer <kwzh@gnu.org>
parents: 19879
diff changeset
1105 (repeat :tag "Pages" :inline t
d8e290881d8c (ps-print-background-image): Fix customize type.
Karl Heuer <kwzh@gnu.org>
parents: 19879
diff changeset
1106 (radio integer
d8e290881d8c (ps-print-background-image): Fix customize type.
Karl Heuer <kwzh@gnu.org>
parents: 19879
diff changeset
1107 (cons :tag "Range"
d8e290881d8c (ps-print-background-image): Fix customize type.
Karl Heuer <kwzh@gnu.org>
parents: 19879
diff changeset
1108 (integer :tag "From")
d8e290881d8c (ps-print-background-image): Fix customize type.
Karl Heuer <kwzh@gnu.org>
parents: 19879
diff changeset
1109 (integer :tag "To"))))))
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1110 :group 'ps-print)
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1111
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1112 ;;; Horizontal layout
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1113
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1114 ;; ------------------------------------------
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1115 ;; | | | | | | | |
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1116 ;; | 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
1117 ;; | | | | | | | |
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1118 ;; ------------------------------------------
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1119
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1120 (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
1121 "*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
1122 :type 'number
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1123 :group 'ps-print-horizontal)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1124
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1125 (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
1126 "*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
1127 :type 'number
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1128 :group 'ps-print-horizontal)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1129
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1130 (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
1131 "*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
1132 :type 'number
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1133 :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
1134
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1135 ;;; Vertical layout
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1136
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1137 ;; |--------|
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1138 ;; | tm |
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1139 ;; |--------|
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1140 ;; | header |
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1141 ;; |--------|
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1142 ;; | ho |
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1143 ;; |--------|
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1144 ;; | text |
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1145 ;; |--------|
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1146 ;; | bm |
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1147 ;; |--------|
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1148
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1149 (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
1150 "*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
1151 :type 'number
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1152 :group 'ps-print-vertical)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1153
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1154 (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
1155 "*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
1156 :type 'number
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1157 :group 'ps-print-vertical)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1158
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1159 (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
1160 "*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
1161 :type 'number
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1162 :group 'ps-print-vertical)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1163
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1164 (defcustom ps-header-line-pad 0.15
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1165 "*Portion of a header title line height to insert between the header frame
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1166 and the text it contains, both in the vertical and horizontal directions."
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1167 :type 'number
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1168 :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
1169
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1170 ;;; Header setup
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1171
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1172 (defcustom ps-print-header t
10493
ed52763e77d6 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 10492
diff changeset
1173 "*Non-nil means print a header at the top of each page.
ed52763e77d6 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 10492
diff changeset
1174 By default, the header displays the buffer name, page number, and, if
ed52763e77d6 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 10492
diff changeset
1175 the buffer is visiting a file, the file's directory. Headers are
16949
18731f7e2c73 (ps-print-header): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 16870
diff changeset
1176 customizable by changing variables `ps-left-header' and
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1177 `ps-right-header'."
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1178 :type 'boolean
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1179 :group 'ps-print-header)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1180
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1181 (defcustom ps-print-only-one-header nil
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1182 "*Non-nil means print only one header at the top of each page.
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1183 This is useful when printing more than one column, so it is possible
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1184 to have only one header over all columns or one header per column.
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1185 See also `ps-print-header'."
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1186 :type 'boolean
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1187 :group 'ps-print-header)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1188
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1189 (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
1190 "*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
1191 :type 'boolean
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1192 :group 'ps-print-header)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1193
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1194 (defcustom ps-header-lines 2
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
1195 "*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
1196 :type 'integer
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1197 :group 'ps-print-header)
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1198 (make-variable-buffer-local 'ps-header-lines)
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1199
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1200 (defcustom ps-show-n-of-n t
10683
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
1201 "*Non-nil means show page numbers as N/M, meaning page N of M.
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
1202 NOTE: page numbers are displayed as part of headers,
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
1203 see variable `ps-print-headers'."
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1204 :type 'boolean
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1205 :group 'ps-print-header)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1206
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1207 (defcustom ps-spool-duplex nil ; Not many people have duplex
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1208 ; printers, so default to nil.
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1209 "*Non-nil indicates spooling is for a two-sided printer.
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1210 For a duplex printer, the `ps-spool-*' commands will insert blank pages
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1211 as needed between print jobs so that the next buffer printed will
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1212 start on the right page. Also, if headers are turned on, the headers
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1213 will be reversed on duplex printers so that the page numbers fall to
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1214 the left on even-numbered pages."
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1215 :type 'boolean
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1216 :group 'ps-print-header)
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1217
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1218 ;;; Fonts
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1219
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1220 (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
1221 '((Courier ; the family key
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1222 (fonts (normal . "Courier")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1223 (bold . "Courier-Bold")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1224 (italic . "Courier-Oblique")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1225 (bold-italic . "Courier-BoldOblique"))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1226 (size . 10.0)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1227 (line-height . 10.55)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1228 (space-width . 6.0)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1229 (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
1230 (Helvetica ; the family key
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1231 (fonts (normal . "Helvetica")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1232 (bold . "Helvetica-Bold")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1233 (italic . "Helvetica-Oblique")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1234 (bold-italic . "Helvetica-BoldOblique"))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1235 (size . 10.0)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1236 (line-height . 11.56)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1237 (space-width . 2.78)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1238 (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
1239 (Times
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1240 (fonts (normal . "Times-Roman")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1241 (bold . "Times-Bold")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1242 (italic . "Times-Italic")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1243 (bold-italic . "Times-BoldItalic"))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1244 (size . 10.0)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1245 (line-height . 11.0)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1246 (space-width . 2.5)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1247 (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
1248 (Palatino
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1249 (fonts (normal . "Palatino-Roman")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1250 (bold . "Palatino-Bold")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1251 (italic . "Palatino-Italic")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1252 (bold-italic . "Palatino-BoldItalic"))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1253 (size . 10.0)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1254 (line-height . 12.1)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1255 (space-width . 2.5)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1256 (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
1257 (Helvetica-Narrow
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1258 (fonts (normal . "Helvetica-Narrow")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1259 (bold . "Helvetica-Narrow-Bold")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1260 (italic . "Helvetica-Narrow-Oblique")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1261 (bold-italic . "Helvetica-Narrow-BoldOblique"))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1262 (size . 10.0)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1263 (line-height . 11.56)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1264 (space-width . 2.2796)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1265 (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
1266 (NewCenturySchlbk
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1267 (fonts (normal . "NewCenturySchlbk-Roman")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1268 (bold . "NewCenturySchlbk-Bold")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1269 (italic . "NewCenturySchlbk-Italic")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1270 (bold-italic . "NewCenturySchlbk-BoldItalic"))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1271 (size . 10.0)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1272 (line-height 12.15)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1273 (space-width . 2.78)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1274 (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
1275 ;; 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
1276 (AvantGarde-Book
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1277 (fonts (normal . "AvantGarde-Book")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1278 (italic . "AvantGarde-BookOblique"))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1279 (size . 10.0)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1280 (line-height . 11.77)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1281 (space-width . 2.77)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1282 (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
1283 (AvantGarde-Demi
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1284 (fonts (normal . "AvantGarde-Demi")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1285 (italic . "AvantGarde-DemiOblique"))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1286 (size . 10.0)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1287 (line-height . 12.72)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1288 (space-width . 2.8)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1289 (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
1290 (Bookman-Demi
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1291 (fonts (normal . "Bookman-Demi")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1292 (italic . "Bookman-DemiItalic"))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1293 (size . 10.0)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1294 (line-height . 11.77)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1295 (space-width . 3.4)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1296 (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
1297 (Bookman-Light
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1298 (fonts (normal . "Bookman-Light")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1299 (italic . "Bookman-LightItalic"))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1300 (size . 10.0)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1301 (line-height . 11.79)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1302 (space-width . 3.2)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1303 (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
1304 ;; 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
1305 (Symbol
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1306 (fonts (normal . "Symbol"))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1307 (size . 10.0)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1308 (line-height . 13.03)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1309 (space-width . 2.5)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1310 (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
1311 (Zapf-Dingbats
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1312 (fonts (normal . "Zapf-Dingbats"))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1313 (size . 10.0)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1314 (line-height . 9.63)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1315 (space-width . 2.78)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1316 (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
1317 (Zapf-Chancery-MediumItalic
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1318 (fonts (normal . "Zapf-Chancery-MediumItalic"))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1319 (size . 10.0)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1320 (line-height . 11.45)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1321 (space-width . 2.2)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1322 (avg-char-width . 4.10811))
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1323 )
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1324 "*Font info database: font family (the key), name, bold, italic, bold-italic,
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1325 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
1326 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
1327 - 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
1328 - generate the PostScript image to a file (C-u M-x ps-print-buffer)
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
1329 - open this file and delete the leading `%' (which is the PostScript
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1330 comment character) from the line
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1331 `% 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
1332 to get the line
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1333 `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
1334 - add the values to `ps-font-info-database'.
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1335 You can get all the fonts of YOUR printer using `ReportAllFontInfo'."
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1336 :type '(repeat (list :tag "Font Definition"
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1337 (symbol :tag "Font Family")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1338 (cons (const fonts)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1339 (repeat (cons (choice (const normal)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1340 (const bold)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1341 (const italic)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1342 (const bold-italic)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1343 (symbol :tag "Face"))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1344 (string :tag "Font Name"))))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1345 (cons (const size)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1346 (number :tag "Reference Size"))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1347 (cons (const line-height)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1348 (number :tag "Line Height"))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1349 (cons (const space-width)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1350 (number :tag "Space Width"))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1351 (cons (const avg-char-width)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1352 (number :tag "Average Character Width"))))
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1353 :group 'ps-print-font)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1354
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1355 (defcustom ps-font-family 'Courier
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
1356 "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
1357 :type 'symbol
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1358 :group 'ps-print-font)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1359
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1360 (defcustom ps-font-size (if ps-landscape-mode 7 8.5)
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
1361 "Font size, in points, 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
1362 :type 'number
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1363 :group 'ps-print-font)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1364
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1365 (defcustom ps-header-font-family 'Helvetica
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
1366 "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
1367 :type 'symbol
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1368 :group 'ps-print-font)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1369
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1370 (defcustom ps-header-font-size (if ps-landscape-mode 10 12)
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
1371 "Font size, in points, 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
1372 :type 'number
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1373 :group 'ps-print-font)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1374
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1375 (defcustom ps-header-title-font-size (if ps-landscape-mode 12 14)
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1376 "Font size, in points, for the top line of text in the header,
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
1377 when generating PostScript."
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1378 :type 'number
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1379 :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
1380
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1381 ;;; Colors
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1382
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1383 ;; Printing color requires x-color-values.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1384 (defcustom ps-print-color-p (or (fboundp 'x-color-values) ; Emacs
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
1385 (fboundp 'color-instance-rgb-components))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
1386 ; XEmacs
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1387 "*If non-nil, print the buffer's text in color."
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1388 :type 'boolean
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1389 :group 'ps-print-color)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1390
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1391 (defcustom ps-default-fg '(0.0 0.0 0.0)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1392 "*RGB values of the default foreground color. Defaults to black."
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1393 :type '(list (number :tag "Red") (number :tag "Green") (number :tag "Blue"))
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1394 :group 'ps-print-color)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1395
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1396 (defcustom ps-default-bg '(1.0 1.0 1.0)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1397 "*RGB values of the default background color. Defaults to white."
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1398 :type '(list (number :tag "Red") (number :tag "Green") (number :tag "Blue"))
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1399 :group 'ps-print-color)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1400
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1401 (defcustom ps-auto-font-detect t
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1402 "*Non-nil means automatically detect bold/italic face attributes.
19843
0c9342c1054d (ps-face-bold-p): Use face-bold-p.
Richard M. Stallman <rms@gnu.org>
parents: 19787
diff changeset
1403 If nil, we rely solely on the lists `ps-bold-faces', `ps-italic-faces',
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1404 and `ps-underlined-faces'."
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1405 :type 'boolean
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1406 :group 'ps-print-font)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1407
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1408 (defcustom ps-bold-faces
16870
4a5fa29f79d6 (ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents: 16361
diff changeset
1409 (unless ps-print-color-p
4a5fa29f79d6 (ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents: 16361
diff changeset
1410 '(font-lock-function-name-face
4a5fa29f79d6 (ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents: 16361
diff changeset
1411 font-lock-builtin-face
4a5fa29f79d6 (ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents: 16361
diff changeset
1412 font-lock-variable-name-face
4a5fa29f79d6 (ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents: 16361
diff changeset
1413 font-lock-keyword-face
4a5fa29f79d6 (ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents: 16361
diff changeset
1414 font-lock-warning-face))
10493
ed52763e77d6 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 10492
diff changeset
1415 "*A list of the \(non-bold\) faces that should be printed in bold font.
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
1416 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
1417 :type '(repeat face)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1418 :group 'ps-print-face)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1419
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1420 (defcustom ps-italic-faces
16870
4a5fa29f79d6 (ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents: 16361
diff changeset
1421 (unless ps-print-color-p
4a5fa29f79d6 (ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents: 16361
diff changeset
1422 '(font-lock-variable-name-face
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
1423 font-lock-type-face
16870
4a5fa29f79d6 (ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents: 16361
diff changeset
1424 font-lock-string-face
4a5fa29f79d6 (ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents: 16361
diff changeset
1425 font-lock-comment-face
4a5fa29f79d6 (ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents: 16361
diff changeset
1426 font-lock-warning-face))
10493
ed52763e77d6 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 10492
diff changeset
1427 "*A list of the \(non-italic\) faces that should be printed in italic font.
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
1428 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
1429 :type '(repeat face)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1430 :group 'ps-print-face)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1431
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1432 (defcustom ps-underlined-faces
16870
4a5fa29f79d6 (ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents: 16361
diff changeset
1433 (unless ps-print-color-p
4a5fa29f79d6 (ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents: 16361
diff changeset
1434 '(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
1435 font-lock-constant-face
16870
4a5fa29f79d6 (ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents: 16361
diff changeset
1436 font-lock-warning-face))
10493
ed52763e77d6 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 10492
diff changeset
1437 "*A list of the \(non-underlined\) faces that should be printed underlined.
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
1438 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
1439 :type '(repeat face)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1440 :group 'ps-print-face)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1441
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1442 (defcustom ps-left-header
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1443 (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
1444 "*The items to display (each on a line) on the left part of the page header.
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
1445 This applies to generating PostScript.
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1446
10493
ed52763e77d6 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 10492
diff changeset
1447 The value should be a list of strings and symbols, each representing an
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1448 entry in the PostScript array HeaderLinesLeft.
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1449
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1450 Strings are inserted unchanged into the array; those representing
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1451 PostScript string literals should be delimited with PostScript string
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1452 delimiters '(' and ')'.
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1453
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1454 For symbols with bound functions, the function is called and should
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1455 return a string to be inserted into the array. For symbols with bound
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1456 values, the value should be a string to be inserted into the array.
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1457 In either case, function or variable, the string value has PostScript
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1458 string delimiters added to it."
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1459 :type '(repeat (choice string symbol))
17681
59c4c8125906 Quote :group names.
Simon Marshall <simon@gnu.org>
parents: 17588
diff changeset
1460 :group 'ps-print-header)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1461 (make-variable-buffer-local 'ps-left-header)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1462
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1463 (defcustom ps-right-header
16870
4a5fa29f79d6 (ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents: 16361
diff changeset
1464 (list "/pagenumberstring load" 'time-stamp-mon-dd-yyyy 'time-stamp-hh:mm:ss)
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1465 "*The items to display (each on a line) on the right part of the page header.
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
1466 This applies to generating PostScript.
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1467
10493
ed52763e77d6 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 10492
diff changeset
1468 See the variable `ps-left-header' for a description of the format of
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1469 this variable."
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1470 :type '(repeat (choice string symbol))
17681
59c4c8125906 Quote :group names.
Simon Marshall <simon@gnu.org>
parents: 17588
diff changeset
1471 :group 'ps-print-header)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1472 (make-variable-buffer-local 'ps-right-header)
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1473
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1474 (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
1475 "*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
1476 :type 'boolean
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1477 :group 'ps-print)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1478
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
1479 (defcustom ps-adobe-tag "%!PS-Adobe-3.0\n"
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1480 "*Contains the header line identifying the output as PostScript.
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1481 By default, `ps-adobe-tag' contains the standard identifier. Some
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
1482 printers require slightly different versions of this line."
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
1483 :type 'string
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
1484 :group 'ps-print)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1485
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1486 (defcustom ps-build-face-reference t
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1487 "*Non-nil means build the reference face lists.
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1488
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1489 Ps-print sets this value to nil after it builds its internal reference
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1490 lists of bold and italic faces. By settings its value back to t, you
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1491 can force ps-print to rebuild the lists the next time you invoke one
10493
ed52763e77d6 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 10492
diff changeset
1492 of the ...-with-faces commands.
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1493
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1494 You should set this value back to t after you change the attributes of
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1495 any face, or create new faces. Most users shouldn't have to worry
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1496 about its setting, though."
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1497 :type 'boolean
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1498 :group 'ps-print-face)
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1499
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1500 (defcustom ps-always-build-face-reference nil
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1501 "*Non-nil means always rebuild the reference face lists.
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1502
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1503 If this variable is non-nil, ps-print will rebuild its internal
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1504 reference lists of bold and italic faces *every* time one of the
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1505 -with-faces commands is called. Most users shouldn't need to set this
17405
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1506 variable."
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1507 :type 'boolean
1c2363f760ef Add defgroup's; change use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17377
diff changeset
1508 :group 'ps-print-face)
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1509
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1510 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1511 ;; User commands
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1512
10683
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
1513 ;;;###autoload
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1514 (defun ps-print-buffer (&optional filename)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1515 "Generate and print a PostScript image of the buffer.
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1516
10493
ed52763e77d6 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 10492
diff changeset
1517 When called with a numeric prefix argument (C-u), prompts the user for
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1518 the name of a file to save the PostScript image in, instead of sending
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1519 it to the printer.
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1520
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1521 More specifically, the FILENAME argument is treated as follows: if it
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1522 is nil, send the image to the printer. If FILENAME is a string, save
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1523 the PostScript image in a file with that name. If FILENAME is a
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1524 number, prompt the user for the name of the file to save in."
10683
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
1525 (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
1526 (ps-print-without-faces (point-min) (point-max) filename))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1527
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1528
10683
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
1529 ;;;###autoload
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1530 (defun ps-print-buffer-with-faces (&optional filename)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1531 "Generate and print a PostScript image of the buffer.
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1532 Like `ps-print-buffer', but includes font, color, and underline
13807
2042acfaf58b Doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 12769
diff changeset
1533 information in the generated image. This command works only if you
2042acfaf58b Doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 12769
diff changeset
1534 are using a window system, so it has a way to determine color values."
10683
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
1535 (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
1536 (ps-print-with-faces (point-min) (point-max) filename))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1537
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1538
10683
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
1539 ;;;###autoload
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1540 (defun ps-print-region (from to &optional filename)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1541 "Generate and print a PostScript image of the region.
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1542 Like `ps-print-buffer', but prints just the current region."
10683
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
1543 (interactive (list (point) (mark) (ps-print-preprint current-prefix-arg)))
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
1544 (ps-print-without-faces from to filename t))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1545
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1546
10683
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
1547 ;;;###autoload
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1548 (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
1549 "Generate and print a PostScript image of the region.
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1550 Like `ps-print-region', but includes font, color, and underline
13807
2042acfaf58b Doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 12769
diff changeset
1551 information in the generated image. This command works only if you
2042acfaf58b Doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 12769
diff changeset
1552 are using a window system, so it has a way to determine color values."
10683
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
1553 (interactive (list (point) (mark) (ps-print-preprint current-prefix-arg)))
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
1554 (ps-print-with-faces from to filename t))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1555
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1556
10683
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
1557 ;;;###autoload
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1558 (defun ps-spool-buffer ()
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1559 "Generate and spool a PostScript image of the buffer.
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1560 Like `ps-print-buffer' except that the PostScript image is saved in a
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1561 local buffer to be sent to the printer later.
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1562
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1563 Use the command `ps-despool' to send the spooled images to the printer."
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1564 (interactive)
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1565 (ps-spool-without-faces (point-min) (point-max)))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1566
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1567
10683
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
1568 ;;;###autoload
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1569 (defun ps-spool-buffer-with-faces ()
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1570 "Generate and spool a PostScript image of the buffer.
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1571 Like `ps-spool-buffer', but includes font, color, and underline
13807
2042acfaf58b Doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 12769
diff changeset
1572 information in the generated image. This command works only if you
13828
612d7bd4b5d1 (ps-spool-buffer-with-faces): Fix typo in previous chg.
Richard M. Stallman <rms@gnu.org>
parents: 13807
diff changeset
1573 are using a window system, so it has a way to determine color values.
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1574
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1575 Use the command `ps-despool' to send the spooled images to the printer."
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1576 (interactive)
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1577 (ps-spool-with-faces (point-min) (point-max)))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1578
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1579
10683
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
1580 ;;;###autoload
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1581 (defun ps-spool-region (from to)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1582 "Generate a PostScript image of the region and spool locally.
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1583 Like `ps-spool-buffer', but spools just the current region.
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1584
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1585 Use the command `ps-despool' to send the spooled images to the printer."
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1586 (interactive "r")
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
1587 (ps-spool-without-faces from to t))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1588
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1589
10683
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
1590 ;;;###autoload
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1591 (defun ps-spool-region-with-faces (from to)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1592 "Generate a PostScript image of the region and spool locally.
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1593 Like `ps-spool-region', but includes font, color, and underline
13807
2042acfaf58b Doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 12769
diff changeset
1594 information in the generated image. This command works only if you
13828
612d7bd4b5d1 (ps-spool-buffer-with-faces): Fix typo in previous chg.
Richard M. Stallman <rms@gnu.org>
parents: 13807
diff changeset
1595 are using a window system, so it has a way to determine color values.
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1596
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1597 Use the command `ps-despool' to send the spooled images to the printer."
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1598 (interactive "r")
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
1599 (ps-spool-with-faces from to t))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1600
10683
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
1601 ;;;###autoload
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1602 (defun ps-despool (&optional filename)
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1603 "Send the spooled PostScript to the printer.
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1604
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1605 When called with a numeric prefix argument (C-u), prompt the user for
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1606 the name of a file to save the spooled PostScript in, instead of sending
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1607 it to the printer.
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1608
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1609 More specifically, the FILENAME argument is treated as follows: if it
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1610 is nil, send the image to the printer. If FILENAME is a string, save
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1611 the PostScript image in a file with that name. If FILENAME is a
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1612 number, prompt the user for the name of the file to save in."
10683
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
1613 (interactive (list (ps-print-preprint current-prefix-arg)))
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
1614 (ps-do-despool filename))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1615
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1616 ;;;###autoload
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1617 (defun ps-line-lengths ()
19879
87952270ceeb (ps-emacs-face-kind-p): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents: 19843
diff changeset
1618 "Display the correspondence between a line length and a font size,
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1619 using the current ps-print setup.
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1620 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
1621 (interactive)
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1622 (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
1623
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1624 ;;;###autoload
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1625 (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
1626 "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
1627 The table depends on the current ps-print setup."
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1628 (interactive (list (count-lines (point-min) (point-max))))
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1629 (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
1630
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1631 ;;;###autoload
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1632 (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
1633 "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
1634 The table depends on the current ps-print setup."
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1635 (interactive (list (count-lines (mark) (point))))
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1636 (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
1637
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1638 ;;;###autoload
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1639 (defun ps-setup ()
19879
87952270ceeb (ps-emacs-face-kind-p): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents: 19843
diff changeset
1640 "Return the current setup."
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
1641 (format
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
1642 "
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
1643 \(setq ps-print-color-p %s
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1644 ps-lpr-command \"%s\"
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1645 ps-lpr-switches %s
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1646
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
1647 ps-paper-type '%s
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
1648 ps-landscape-mode %s
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
1649 ps-number-of-columns %s
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
1650
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
1651 ps-zebra-stripes %s
19787
4ea00387fb08 (ps-setup): ps-zebra-stripe => ps-zebra-stripes.
Richard M. Stallman <rms@gnu.org>
parents: 19773
diff changeset
1652 ps-zebra-stripe-height %s
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
1653 ps-line-number %s
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
1654
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
1655 ps-print-control-characters %s
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
1656
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
1657 ps-print-background-image %s
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
1658
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
1659 ps-print-background-text %s
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
1660
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
1661 ps-left-margin %s
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
1662 ps-right-margin %s
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
1663 ps-inter-column %s
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
1664 ps-bottom-margin %s
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
1665 ps-top-margin %s
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
1666 ps-header-offset %s
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1667 ps-header-line-pad %s
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1668 ps-print-header %s
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1669 ps-print-header-frame %s
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1670 ps-header-lines %s
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1671 ps-show-n-of-n %s
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1672 ps-spool-duplex %s
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1673
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
1674 ps-font-family '%s
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
1675 ps-font-size %s
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
1676 ps-header-font-family '%s
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
1677 ps-header-font-size %s
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
1678 ps-header-title-font-size %s)
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1679 "
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
1680 ps-print-color-p
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
1681 ps-lpr-command
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
1682 ps-lpr-switches
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
1683 ps-paper-type
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
1684 ps-landscape-mode
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
1685 ps-number-of-columns
19787
4ea00387fb08 (ps-setup): ps-zebra-stripe => ps-zebra-stripes.
Richard M. Stallman <rms@gnu.org>
parents: 19773
diff changeset
1686 ps-zebra-stripes
4ea00387fb08 (ps-setup): ps-zebra-stripe => ps-zebra-stripes.
Richard M. Stallman <rms@gnu.org>
parents: 19773
diff changeset
1687 ps-zebra-stripe-height
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
1688 ps-line-number
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
1689 ps-print-control-characters
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
1690 ps-print-background-image
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
1691 ps-print-background-text
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
1692 ps-left-margin
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
1693 ps-right-margin
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
1694 ps-inter-column
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
1695 ps-bottom-margin
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
1696 ps-top-margin
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
1697 ps-header-offset
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
1698 ps-header-line-pad
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
1699 ps-print-header
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
1700 ps-print-header-frame
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
1701 ps-header-lines
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
1702 ps-show-n-of-n
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
1703 ps-spool-duplex
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
1704 ps-font-family
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
1705 ps-font-size
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
1706 ps-header-font-family
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
1707 ps-header-font-size
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
1708 ps-header-title-font-size))
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1709
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1710 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1711 ;; Utility functions and variables:
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1712
12769
4a905565cfa6 (ps-print-emacs-type): Renamed from emacs-type.
Richard M. Stallman <rms@gnu.org>
parents: 12768
diff changeset
1713 (defvar ps-print-emacs-type
4a905565cfa6 (ps-print-emacs-type): Renamed from emacs-type.
Richard M. Stallman <rms@gnu.org>
parents: 12768
diff changeset
1714 (cond ((string-match "XEmacs" emacs-version) 'xemacs)
4a905565cfa6 (ps-print-emacs-type): Renamed from emacs-type.
Richard M. Stallman <rms@gnu.org>
parents: 12768
diff changeset
1715 ((string-match "Lucid" emacs-version) 'lucid)
4a905565cfa6 (ps-print-emacs-type): Renamed from emacs-type.
Richard M. Stallman <rms@gnu.org>
parents: 12768
diff changeset
1716 ((string-match "Epoch" emacs-version) 'epoch)
4a905565cfa6 (ps-print-emacs-type): Renamed from emacs-type.
Richard M. Stallman <rms@gnu.org>
parents: 12768
diff changeset
1717 (t 'emacs)))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1718
12769
4a905565cfa6 (ps-print-emacs-type): Renamed from emacs-type.
Richard M. Stallman <rms@gnu.org>
parents: 12768
diff changeset
1719 (if (or (eq ps-print-emacs-type 'lucid)
4a905565cfa6 (ps-print-emacs-type): Renamed from emacs-type.
Richard M. Stallman <rms@gnu.org>
parents: 12768
diff changeset
1720 (eq ps-print-emacs-type 'xemacs))
11799
4a04c7799790 Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents: 10738
diff changeset
1721 (if (< emacs-minor-version 12)
4a04c7799790 Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents: 10738
diff changeset
1722 (setq ps-print-color-p nil))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1723 (require 'faces)) ; face-font, face-underline-p,
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1724 ; x-font-regexp
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1725
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
1726 ;; Return t if the device (which can be changed during an emacs session)
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
1727 ;; can handle colors.
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
1728 ;; This is function is not yet implemented for GNU emacs.
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
1729 (defun ps-color-device ()
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
1730 (if (and (eq ps-print-emacs-type 'xemacs)
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
1731 (>= emacs-minor-version 12))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
1732 (eq (device-class) 'color)
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
1733 t))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
1734
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1735 (require 'time-stamp)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1736
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1737 (defvar ps-print-prologue-1
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1738 "% ISOLatin1Encoding stolen from ps_init.ps in GhostScript 2.6.1.4:
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1739 /ISOLatin1Encoding where { pop } {
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1740 % -- The ISO Latin-1 encoding vector isn't known, so define it.
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1741 % -- The first half is the same as the standard encoding,
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1742 % -- except for minus instead of hyphen at code 055.
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1743 /ISOLatin1Encoding
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1744 StandardEncoding 0 45 getinterval aload pop
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1745 /minus
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1746 StandardEncoding 46 82 getinterval aload pop
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1747 %*** NOTE: the following are missing in the Adobe documentation,
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1748 %*** but appear in the displayed table:
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1749 %*** macron at 0225, dieresis at 0230, cedilla at 0233, space at 0240.
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1750 % 0200 (128)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1751 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1752 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1753 /dotlessi /grave /acute /circumflex /tilde /macron /breve /dotaccent
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1754 /dieresis /.notdef /ring /cedilla /.notdef /hungarumlaut /ogonek /caron
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1755 % 0240 (160)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1756 /space /exclamdown /cent /sterling
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1757 /currency /yen /brokenbar /section
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1758 /dieresis /copyright /ordfeminine /guillemotleft
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1759 /logicalnot /hyphen /registered /macron
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1760 /degree /plusminus /twosuperior /threesuperior
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1761 /acute /mu /paragraph /periodcentered
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1762 /cedilla /onesuperior /ordmasculine /guillemotright
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1763 /onequarter /onehalf /threequarters /questiondown
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1764 % 0300 (192)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1765 /Agrave /Aacute /Acircumflex /Atilde
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1766 /Adieresis /Aring /AE /Ccedilla
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1767 /Egrave /Eacute /Ecircumflex /Edieresis
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1768 /Igrave /Iacute /Icircumflex /Idieresis
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1769 /Eth /Ntilde /Ograve /Oacute
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1770 /Ocircumflex /Otilde /Odieresis /multiply
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1771 /Oslash /Ugrave /Uacute /Ucircumflex
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1772 /Udieresis /Yacute /Thorn /germandbls
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1773 % 0340 (224)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1774 /agrave /aacute /acircumflex /atilde
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1775 /adieresis /aring /ae /ccedilla
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1776 /egrave /eacute /ecircumflex /edieresis
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1777 /igrave /iacute /icircumflex /idieresis
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1778 /eth /ntilde /ograve /oacute
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1779 /ocircumflex /otilde /odieresis /divide
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1780 /oslash /ugrave /uacute /ucircumflex
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1781 /udieresis /yacute /thorn /ydieresis
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1782 256 packedarray def
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1783 } ifelse
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1784
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1785 /reencodeFontISO { %def
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1786 dup
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1787 length 12 add dict % Make a new font (a new dict the same size
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1788 % as the old one) with room for our new symbols.
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1789
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1790 begin % Make the new font the current dictionary.
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1791
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1792
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1793 { 1 index /FID ne
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1794 { def } { pop pop } ifelse
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1795 } forall % Copy each of the symbols from the old dictionary
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1796 % to the new one except for the font ID.
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1797
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1798 currentdict /FontType get 0 ne {
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1799 /Encoding ISOLatin1Encoding def % Override the encoding with
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1800 % the ISOLatin1 encoding.
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1801 } if
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1802
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1803 % Use the font's bounding box to determine the ascent, descent,
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1804 % and overall height; don't forget that these values have to be
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1805 % transformed using the font's matrix.
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1806
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1807 % ^ (x2 y2)
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1808 % | |
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1809 % | v
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1810 % | +----+ - -
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1811 % | | | ^
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1812 % | | | | Ascent (usually > 0)
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1813 % | | | |
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1814 % (0 0) -> +--+----+-------->
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1815 % | | |
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1816 % | | v Descent (usually < 0)
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1817 % (x1 y1) --> +----+ - -
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1818
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1819 currentdict /FontType get 0 ne {
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1820 FontBBox % -- x1 y1 x2 y2
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1821 FontMatrix transform /Ascent exch def pop
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1822 FontMatrix transform /Descent exch def pop
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1823 } {
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1824 /PrimaryFont FDepVector 0 get def
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1825 PrimaryFont /FontBBox get aload pop
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1826 PrimaryFont /FontMatrix get transform /Ascent exch def pop
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1827 PrimaryFont /FontMatrix get transform /Descent exch def pop
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1828 } ifelse
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
1829
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1830 /FontHeight Ascent Descent sub def % use `sub' because descent < 0
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1831
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1832 % Define these in case they're not in the FontInfo
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1833 % (also, here they're easier to get to).
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1834 /UnderlinePosition Descent 0.70 mul def
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1835 /OverlinePosition Descent UnderlinePosition sub Ascent add def
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1836 /StrikeoutPosition Ascent 0.30 mul def
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1837 /LineThickness 0 50 FontMatrix transform exch pop def
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1838 /Xshadow 0 80 FontMatrix transform exch pop def
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1839 /Yshadow 0 -90 FontMatrix transform exch pop def
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1840 /SpaceBackground Descent neg UnderlinePosition add def
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1841 /XBox Descent neg def
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1842 /YBox LineThickness 0.7 mul def
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1843
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1844 currentdict % Leave the new font on the stack
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1845 end % Stop using the font as the current dictionary.
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1846 definefont % Put the font into the font dictionary
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1847 pop % Discard the returned font.
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1848 } bind def
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1849
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1850 /DefFont { % Font definition
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1851 findfont exch scalefont reencodeFontISO
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1852 } def
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1853
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1854 /F { % Font selection
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1855 findfont
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1856 dup /Ascent get /Ascent exch def
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1857 dup /Descent get /Descent exch def
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1858 dup /FontHeight get /FontHeight exch def
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1859 dup /UnderlinePosition get /UnderlinePosition exch def
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1860 dup /OverlinePosition get /OverlinePosition exch def
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1861 dup /StrikeoutPosition get /StrikeoutPosition exch def
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1862 dup /LineThickness get /LineThickness exch def
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1863 dup /Xshadow get /Xshadow exch def
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1864 dup /Yshadow get /Yshadow exch def
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1865 dup /SpaceBackground get /SpaceBackground exch def
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1866 dup /XBox get /XBox exch def
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1867 dup /YBox get /YBox exch def
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1868 setfont
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1869 } def
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1870
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1871 /FG /setrgbcolor load def
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1872
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1873 /bg false def
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1874 /BG {
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1875 dup /bg exch def
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1876 {mark 4 1 roll ]}
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1877 {[ 1.0 1.0 1.0 ]}
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1878 ifelse
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1879 /bgcolor exch def
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1880 } def
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1881
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1882 % B width C
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1883 % +-----------+
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1884 % | Ascent (usually > 0)
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1885 % A + +
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1886 % | Descent (usually < 0)
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1887 % +-----------+
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1888 % E width D
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1889
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1890 /dobackground { % width --
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1891 currentpoint % -- width x y
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1892 gsave
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1893 newpath
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1894 moveto % A (x y)
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1895 0 Ascent rmoveto % B
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1896 dup 0 rlineto % C
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1897 0 Descent Ascent sub rlineto % D
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1898 neg 0 rlineto % E
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1899 closepath
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1900 bgcolor aload pop setrgbcolor
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1901 fill
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1902 grestore
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1903 } def
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1904
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1905 /eolbg { % dobackground until right margin
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1906 PrintWidth % -- x-eol
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1907 currentpoint pop % -- cur-x
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1908 sub % -- width until eol
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1909 dobackground
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1910 } def
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1911
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1912 /PLN {PrintLineNumber {doLineNumber}if} def
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1913
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1914 /SL { % Soft Linefeed
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1915 bg { eolbg } if
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1916 0 currentpoint exch pop LineHeight sub moveto
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1917 } def
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1918
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1919 /HL {SL PLN} def % Hard Linefeed
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1920
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1921 % Some debug
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1922 /dcp { currentpoint exch 40 string cvs print (, ) print = } def
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1923 /dp { print 2 copy exch 40 string cvs print (, ) print = } def
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1924
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1925 /W {
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1926 ( ) stringwidth % Get the width of a space in the current font.
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1927 pop % Discard the Y component.
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1928 mul % Multiply the width of a space
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
1929 % by the number of spaces to plot
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1930 bg { dup dobackground } if
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
1931 0 rmoveto
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1932 } def
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1933
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1934 /Effect 0 def
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1935 /EF {/Effect exch def} def
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1936
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1937 % stack: string |- --
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1938 % effect: 1 - underline 2 - strikeout 4 - overline
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1939 % 8 - shadow 16 - box 32 - outline
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1940 /S {
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1941 /xx currentpoint dup Descent add /yy exch def
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1942 Ascent add /YY exch def def
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1943 dup stringwidth pop xx add /XX exch def
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1944 Effect 8 and 0 ne {
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1945 /yy yy Yshadow add def
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1946 /XX XX Xshadow add def
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1947 } if
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1948 bg {
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1949 true
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1950 Effect 16 and 0 ne
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1951 {SpaceBackground doBox}
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1952 {xx yy XX YY doRect}
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1953 ifelse
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1954 } if % background
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1955 Effect 16 and 0 ne {false 0 doBox}if % box
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1956 Effect 8 and 0 ne {dup doShadow}if % shadow
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1957 Effect 32 and 0 ne
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1958 {true doOutline} % outline
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1959 {show} % normal text
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1960 ifelse
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1961 Effect 1 and 0 ne {UnderlinePosition Hline}if % underline
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1962 Effect 2 and 0 ne {StrikeoutPosition Hline}if % strikeout
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1963 Effect 4 and 0 ne {OverlinePosition Hline}if % overline
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1964 } bind def
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1965
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1966 % stack: position |- --
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1967 /Hline {
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1968 currentpoint exch pop add dup
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1969 gsave
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1970 newpath
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1971 xx exch moveto
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1972 XX exch lineto
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1973 closepath
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1974 LineThickness setlinewidth stroke
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1975 grestore
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1976 } bind def
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1977
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1978 % stack: fill-or-not delta |- --
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1979 /doBox {
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1980 /dd exch def
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1981 xx XBox sub dd sub yy YBox sub dd sub
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1982 XX XBox add dd add YY YBox add dd add
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1983 doRect
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1984 } bind def
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1985
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1986 % stack: fill-or-not lower-x lower-y upper-x upper-y |- --
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1987 /doRect {
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1988 /rYY exch def
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1989 /rXX exch def
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1990 /ryy exch def
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1991 /rxx exch def
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1992 gsave
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1993 newpath
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1994 rXX rYY moveto
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1995 rxx rYY lineto
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1996 rxx ryy lineto
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1997 rXX ryy lineto
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1998 closepath
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
1999 % top of stack: fill-or-not
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2000 {FillBgColor}
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2001 {LineThickness setlinewidth stroke}
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2002 ifelse
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2003 grestore
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2004 } bind def
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2005
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2006 % stack: string |- --
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2007 /doShadow {
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2008 gsave
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2009 Xshadow Yshadow rmoveto
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2010 false doOutline
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2011 grestore
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2012 } bind def
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2013
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2014 /st 1 string def
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2015
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2016 % stack: string fill-or-not |- --
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2017 /doOutline {
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2018 /-fillp- exch def
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2019 /-ox- currentpoint /-oy- exch def def
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2020 gsave
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2021 LineThickness setlinewidth
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2022 {
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2023 st 0 3 -1 roll put
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2024 st dup true charpath
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2025 -fillp- {gsave FillBgColor grestore}if
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2026 stroke stringwidth
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2027 -oy- add /-oy- exch def
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2028 -ox- add /-ox- exch def
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2029 -ox- -oy- moveto
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2030 } forall
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2031 grestore
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2032 -ox- -oy- moveto
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2033 } bind def
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2034
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2035 % stack: --
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2036 /FillBgColor {bgcolor aload pop setrgbcolor fill} bind def
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2037
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2038 /L0 6 /Times-Italic DefFont
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2039
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2040 % stack: --
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2041 /doLineNumber {
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2042 currentfont
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2043 gsave
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2044 0.0 0.0 0.0 setrgbcolor
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2045 /L0 findfont setfont
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2046 LineNumber Lines ge
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2047 {(end )}
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2048 {LineNumber 6 string cvs ( ) strcat}
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2049 ifelse
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2050 dup stringwidth pop neg 0 rmoveto
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2051 show
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2052 grestore
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2053 setfont
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2054 /LineNumber LineNumber 1 add def
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2055 } def
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2056
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2057 % stack: --
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2058 /printZebra {
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2059 gsave
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2060 0.985 setgray
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2061 /double-zebra ZebraHeight ZebraHeight add def
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2062 /yiter double-zebra LineHeight mul neg def
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2063 /xiter PrintWidth InterColumn add def
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2064 NumberOfColumns {LinesPerColumn doColumnZebra xiter 0 rmoveto}repeat
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2065 grestore
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2066 } def
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2067
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2068 % stack: lines-per-column |- --
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2069 /doColumnZebra {
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2070 gsave
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2071 dup double-zebra idiv {ZebraHeight doZebra 0 yiter rmoveto}repeat
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2072 double-zebra mod
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2073 dup 0 le {pop}{dup ZebraHeight gt {pop ZebraHeight}if doZebra}ifelse
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2074 grestore
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2075 } def
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2076
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2077 % stack: zebra-height (in lines) |- --
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2078 /doZebra {
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2079 /zh exch 0.05 sub LineHeight mul def
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2080 gsave
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2081 0 LineHeight 0.65 mul rmoveto
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2082 PrintWidth 0 rlineto
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2083 0 zh neg rlineto
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2084 PrintWidth neg 0 rlineto
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2085 0 zh rlineto
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2086 fill
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2087 grestore
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2088 } def
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2089
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2090 % tx ty rotation xscale yscale xpos ypos BeginBackImage
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2091 /BeginBackImage {
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2092 /-save-image- save def
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2093 /showpage {}def
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2094 translate
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2095 scale
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2096 rotate
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2097 translate
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2098 } def
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2099
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2100 /EndBackImage {
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2101 -save-image- restore
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2102 } def
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2103
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2104 % string fontsize fontname rotation gray xpos ypos ShowBackText
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2105 /ShowBackText {
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2106 gsave
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2107 translate
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2108 setgray
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2109 rotate
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2110 findfont exch dup /-offset- exch -0.25 mul def scalefont setfont
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2111 0 -offset- moveto
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2112 /-saveLineThickness- LineThickness def
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2113 /LineThickness 1 def
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2114 false doOutline
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2115 /LineThickness -saveLineThickness- def
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2116 grestore
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2117 } def
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2118
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2119 /BeginDoc {
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2120 % ---- save the state of the document (useful for ghostscript!)
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2121 /docState save def
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2122 % ---- [jack] Kludge: my ghostscript window is 21x27.7 instead of 21x29.7
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2123 /JackGhostscript where {
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2124 pop 1 27.7 29.7 div scale
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2125 } if
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2126 LandscapeMode {
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2127 % ---- translate to bottom-right corner of Portrait page
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2128 LandscapePageHeight 0 translate
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2129 90 rotate
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2130 } if
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2131 /ColumnWidth PrintWidth InterColumn add def
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2132 % ---- translate to lower left corner of TEXT
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2133 LeftMargin BottomMargin translate
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2134 % ---- define where printing will start
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2135 /f0 F % this installs Ascent
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2136 /PrintStartY PrintHeight Ascent sub def
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2137 /ColumnIndex 1 def
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2138 } def
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2139
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2140 /EndDoc {
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2141 % ---- on last page but not last column, spit out the page
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2142 ColumnIndex 1 eq not { showpage } if
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2143 % ---- restore the state of the document (useful for ghostscript!)
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2144 docState restore
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2145 } def
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2146
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2147 /BeginDSCPage {
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2148 % ---- when 1st column, save the state of the page
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2149 ColumnIndex 1 eq { /pageState save def } if
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2150 % ---- save the state of the column
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2151 /columnState save def
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2152 } def
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2153
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2154 /PrintHeaderWidth PrintOnlyOneHeader{PrintPageWidth}{PrintWidth}ifelse def
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2155
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2156 /BeginPage {
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2157 % ---- when 1st column, print all background effects
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2158 ColumnIndex 1 eq {
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2159 0 PrintStartY moveto % move to where printing will start
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2160 Zebra {printZebra}if
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2161 printGlobalBackground
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2162 printLocalBackground
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2163 } if
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2164 PrintHeader {
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2165 PrintOnlyOneHeader{ColumnIndex 1 eq}{true}ifelse {
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2166 PrintHeaderFrame {HeaderFrame}if
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2167 HeaderText
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2168 } if
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2169 } if
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2170 0 PrintStartY moveto % move to where printing will start
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2171 PLN
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2172 } def
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2173
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2174 /EndPage {
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2175 bg { eolbg } if
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2176 } def
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2177
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2178 /EndDSCPage {
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2179 ColumnIndex NumberOfColumns eq {
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2180 % ---- on last column, spit out the page
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2181 showpage
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2182 % ---- restore the state of the page
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2183 pageState restore
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2184 /ColumnIndex 1 def
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2185 } { % else
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2186 % ---- restore the state of the current column
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2187 columnState restore
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2188 % ---- and translate to the next column
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2189 ColumnWidth 0 translate
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2190 /ColumnIndex ColumnIndex 1 add def
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2191 } ifelse
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2192 } def
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2193
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2194 /SetHeaderLines { % nb-lines --
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2195 /HeaderLines exch def
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2196 % ---- bottom up
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2197 HeaderPad
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2198 HeaderLines 1 sub HeaderLineHeight mul add
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2199 HeaderTitleLineHeight add
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2200 HeaderPad add
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2201 /HeaderHeight exch def
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2202 } def
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2203
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2204 % |---------|
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2205 % | tm |
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2206 % |---------|
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2207 % | header |
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2208 % |-+-------| <-- (x y)
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2209 % | ho |
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2210 % |---------|
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2211 % | text |
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2212 % |-+-------| <-- (0 0)
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2213 % | bm |
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2214 % |---------|
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2215
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2216 /HeaderFrameStart { % -- x y
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2217 0 PrintHeight HeaderOffset add
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2218 } def
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2219
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2220 /HeaderFramePath {
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2221 PrintHeaderWidth 0 rlineto
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2222 0 HeaderHeight rlineto
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2223 PrintHeaderWidth neg 0 rlineto
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2224 0 HeaderHeight neg rlineto
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2225 } def
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2226
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2227 /HeaderFrame {
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2228 gsave
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2229 0.4 setlinewidth
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2230 % ---- fill a black rectangle (the shadow of the next one)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2231 HeaderFrameStart moveto
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2232 1 -1 rmoveto
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2233 HeaderFramePath
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2234 0 setgray fill
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2235 % ---- do the next rectangle ...
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2236 HeaderFrameStart moveto
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2237 HeaderFramePath
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2238 gsave 0.9 setgray fill grestore % filled with grey
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2239 gsave 0 setgray stroke grestore % drawn with black
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2240 grestore
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2241 } def
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2242
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2243 /HeaderStart {
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2244 HeaderFrameStart
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2245 exch HeaderPad add exch % horizontal pad
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2246 % ---- bottom up
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2247 HeaderPad add % vertical pad
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2248 HeaderDescent sub
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2249 HeaderLineHeight HeaderLines 1 sub mul add
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2250 } def
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2251
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2252 /strcat {
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2253 dup length 3 -1 roll dup length dup 4 -1 roll add string dup
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2254 0 5 -1 roll putinterval
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2255 dup 4 2 roll exch putinterval
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2256 } def
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2257
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2258 /pagenumberstring {
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2259 PageNumber 32 string cvs
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2260 ShowNofN {
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2261 (/) strcat
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2262 PageCount 32 string cvs strcat
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2263 } if
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2264 } def
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2265
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2266 /HeaderText {
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2267 HeaderStart moveto
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2268
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2269 HeaderLinesRight HeaderLinesLeft % -- rightLines leftLines
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2270
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2271 % ---- hack: `PN 1 and' == `PN 2 modulo'
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2272
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2273 % ---- if duplex and even page number, then exchange left and right
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2274 Duplex PageNumber 1 and 0 eq and { exch } if
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2275
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2276 { % ---- process the left lines
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2277 aload pop
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2278 exch F
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2279 gsave
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2280 dup xcheck { exec } if
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2281 show
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2282 grestore
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2283 0 HeaderLineHeight neg rmoveto
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2284 } forall
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2285
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2286 HeaderStart moveto
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2287
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2288 { % ---- process the right lines
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2289 aload pop
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2290 exch F
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2291 gsave
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2292 dup xcheck { exec } if
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2293 dup stringwidth pop
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2294 PrintHeaderWidth exch sub HeaderPad 2 mul sub 0 rmoveto
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2295 show
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2296 grestore
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2297 0 HeaderLineHeight neg rmoveto
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2298 } forall
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2299 } def
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2300
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2301 /ReportFontInfo {
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2302 2 copy
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2303 /t0 3 1 roll DefFont
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2304 /t0 F
10683
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
2305 /lh FontHeight def
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2306 /sw ( ) stringwidth pop def
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2307 /aw (01234567890abcdefghijklmnopqrstuvwxyz) dup length exch
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2308 stringwidth pop exch div def
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2309 /t1 12 /Helvetica-Oblique DefFont
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2310 /t1 F
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2311 gsave
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2312 (For ) show
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2313 128 string cvs show
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2314 ( ) show
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2315 32 string cvs show
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2316 ( point, the line height is ) show
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2317 lh 32 string cvs show
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2318 (, the space width is ) show
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2319 sw 32 string cvs show
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2320 (,) show
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2321 grestore
10683
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
2322 0 FontHeight neg rmoveto
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2323 gsave
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2324 (and a crude estimate of average character width is ) show
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2325 aw 32 string cvs show
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2326 (.) show
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2327 grestore
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2328 0 FontHeight neg rmoveto
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2329 } def
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2330
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2331 /cm { % cm to point
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2332 72 mul 2.54 div
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2333 } def
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2334
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2335 /ReportAllFontInfo {
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2336 FontDirectory
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2337 { % key = font name value = font dictionary
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2338 pop 10 exch ReportFontInfo
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2339 } forall
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2340 } def
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2341
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2342 % 3 cm 20 cm moveto 10 /Courier ReportFontInfo showpage
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2343 % 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
2344
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2345 ")
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2346
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2347 (defvar ps-print-prologue-2
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2348 "
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2349 % ---- These lines must be kept together because...
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2350
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2351 /h0 F
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2352 /HeaderTitleLineHeight FontHeight def
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2353
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2354 /h1 F
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2355 /HeaderLineHeight FontHeight def
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2356 /HeaderDescent Descent def
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 % ---- ...because `F' has a side-effect on `FontHeight' and `Descent'
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2359
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2360 ")
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2361
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2362 ;; Start Editing Here:
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2363
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2364 (defvar ps-source-buffer nil)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2365 (defvar ps-spool-buffer-name "*PostScript*")
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2366 (defvar ps-spool-buffer nil)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2367
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2368 (defvar ps-output-head nil)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2369 (defvar ps-output-tail nil)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2370
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2371 (defvar ps-page-count 0)
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2372 (defvar ps-showline-count 1)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2373
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2374 (defvar ps-control-or-escape-regexp nil)
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2375
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2376 (defvar ps-background-pages nil)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2377 (defvar ps-background-all-pages nil)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2378 (defvar ps-background-text-count 0)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2379 (defvar ps-background-image-count 0)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2380
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2381 (defvar ps-current-font 0)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2382 (defvar ps-default-color (if ps-print-color-p ps-default-fg)) ; black
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2383 (defvar ps-current-color ps-default-color)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2384 (defvar ps-current-bg nil)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2385
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2386 (defvar ps-razchunk 0)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2387
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2388 (defvar ps-color-format
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2389 (if (eq ps-print-emacs-type 'emacs)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2390
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2391 ;; Emacs understands the %f format; we'll use it to limit color RGB
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2392 ;; values to three decimals to cut down some on the size of the
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2393 ;; PostScript output.
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2394 "%0.3f %0.3f %0.3f"
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2395
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2396 ;; Lucid emacsen will have to make do with %s (princ) for floats.
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2397 "%s %s %s"))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2398
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2399 ;; These values determine how much print-height to deduct when headers
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2400 ;; are turned on. This is a pretty clumsy way of handling it, but
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2401 ;; it'll do for now.
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2402
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2403 (defvar ps-header-pad 0
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2404 "Vertical and horizontal space in points (1/72 inch) between the header frame
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2405 and the text it contains.")
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2406
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2407 ;; Define accessors to the dimensions list.
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2408
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2409 (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
2410 (defmacro ps-page-dimensions-get-height (dims) `(nth 1 ,dims))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2411
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2412 (defvar ps-landscape-page-height nil)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2413
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2414 (defvar ps-print-width nil)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2415 (defvar ps-print-height nil)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2416
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
2417 (defvar ps-height-remaining nil)
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
2418 (defvar ps-width-remaining nil)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2419
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2420 (defvar ps-print-color-scale nil)
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2421
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2422
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2423 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2424 ;; Internal Variables
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2425
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2426
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2427 (defvar ps-print-face-extension-alist nil
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2428 "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
2429 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
2430
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2431 (FACE . [BITS FG BG])
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2432
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2433 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
2434 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
2435 to a feature (bold, underline, etc)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2436 (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
2437 FG foreground color (string or nil)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2438 BG background color (string or nil)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2439
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2440 Don't change this list directly; instead,
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2441 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
2442 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
2443
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2444
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2445 (defvar ps-print-face-alist nil
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2446 "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
2447
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2448 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
2449 `ps-print-face-extension-alist'.
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2450
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2451 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
2452 `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
2453
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2454
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2455 (defconst ps-print-face-map-alist
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2456 '((bold . 1)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2457 (italic . 2)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2458 (underline . 4)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2459 (strikeout . 8)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2460 (overline . 16)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2461 (shadow . 32)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2462 (box . 64)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2463 (outline . 128))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2464 "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
2465 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
2466
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2467
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2468 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2469 ;; Remapping Faces
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2470
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2471
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2472 ;;;###autoload
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2473 (defun ps-extend-face-list (face-extension-list &optional merge-p)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2474 "Extend face in `ps-print-face-extension-alist'.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2475
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2476 If optional MERGE-P is non-nil, extensions in FACE-EXTENSION-LIST are merged
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2477 with face extension in `ps-print-face-extension-alist'; otherwise, overrides.
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2478
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2479 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
2480
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2481 See `ps-extend-face' for documentation."
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2482 (while face-extension-list
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2483 (ps-extend-face (car face-extension-list) merge-p)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2484 (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
2485
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2486
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2487 ;;;###autoload
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2488 (defun ps-extend-face (face-extension &optional merge-p)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2489 "Extend face in `ps-print-face-extension-alist'.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2490
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2491 If optional MERGE-P is non-nil, extensions in FACE-EXTENSION-LIST are merged
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2492 with face extensions in `ps-print-face-extension-alist'; otherwise, overrides.
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2493
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2494 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
2495
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2496 (FACE-NAME FOREGROUND BACKGROUND EXTENSION...)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2497
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2498 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
2499
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2500 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
2501 foreground and background colors respectively.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2502
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2503 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
2504 bold - use bold font.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2505 italic - use italic font.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2506 underline - put a line under text.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2507 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
2508 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
2509 shadow - text will have a shadow.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2510 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
2511 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
2512
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2513 If EXTENSION is any other symbol, it is ignored."
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2514 (let* ((face-name (nth 0 face-extension))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2515 (foreground (nth 1 face-extension))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2516 (background (nth 2 face-extension))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2517 (ps-face (cdr (assq face-name ps-print-face-extension-alist)))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2518 (face-vector (or ps-face (vector 0 nil nil)))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2519 (face-bit (ps-extension-bit face-extension)))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2520 ;; extend face
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2521 (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
2522 (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
2523 face-bit))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2524 (and foreground (stringp foreground) (aset face-vector 1 foreground))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2525 (and background (stringp background) (aset face-vector 2 background))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2526 ;; 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
2527 (or ps-face
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2528 (setq ps-print-face-extension-alist
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2529 (cons (cons face-name face-vector)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2530 ps-print-face-extension-alist)))))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2531
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2532
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2533 (defun ps-extension-bit (face-extension)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2534 (let ((face-bit 0))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2535 ;; 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
2536 (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
2537 (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
2538 (setq face-bit (logior face-bit
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2539 (or (cdr (assq (car face-extension)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2540 ps-print-face-map-alist))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2541 0))))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2542 face-bit))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2543
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2544
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2545 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2546 ;; Adapted from font-lock:
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2547 ;; 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
2548 ;; 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
2549 ;; 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
2550 ;; 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
2551
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2552 (defun ps-font-lock-face-attributes ()
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2553 (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
2554 (boundp 'font-lock-face-attributes)
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2555 (let ((face-attributes font-lock-face-attributes))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2556 (while face-attributes
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2557 (let* ((face-attribute (pop face-attributes))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2558 (face (car face-attribute)))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2559 ;; Rustle up a `defface' SPEC from a
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2560 ;; `font-lock-face-attributes' entry.
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2561 (unless (get face 'saved-face)
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2562 (let ((foreground (nth 1 face-attribute))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2563 (background (nth 2 face-attribute))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2564 (bold-p (nth 3 face-attribute))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2565 (italic-p (nth 4 face-attribute))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2566 (underline-p (nth 5 face-attribute))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2567 face-spec)
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2568 (when foreground
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2569 (setq face-spec (cons ':foreground
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2570 (cons foreground face-spec))))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2571 (when background
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2572 (setq face-spec (cons ':background
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2573 (cons background face-spec))))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2574 (when bold-p
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2575 (setq face-spec (append '(:bold t) face-spec)))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2576 (when italic-p
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2577 (setq face-spec (append '(:italic t) face-spec)))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2578 (when underline-p
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2579 (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
2580 (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
2581 )))))))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2582
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2583
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2584 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2585 ;; Internal functions and variables
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2586
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2587
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2588 (make-local-hook 'ps-print-hook)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2589 (make-local-hook 'ps-print-begin-page-hook)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2590 (make-local-hook 'ps-print-begin-column-hook)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2591
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2592
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2593 (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
2594 (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
2595 (ps-do-despool filename))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2596
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2597
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2598 (defun ps-spool-without-faces (from to &optional region-p)
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2599 (run-hooks 'ps-print-hook)
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2600 (ps-printing-region region-p)
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2601 (ps-generate (current-buffer) from to 'ps-generate-postscript))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2602
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2603
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2604 (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
2605 (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
2606 (ps-do-despool filename))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2607
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2608
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2609 (defun ps-spool-with-faces (from to &optional region-p)
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2610 (run-hooks 'ps-print-hook)
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2611 (ps-printing-region region-p)
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2612 (ps-generate (current-buffer) from to 'ps-generate-postscript-with-faces))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2613
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2614
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2615 (defsubst ps-count-lines (from to)
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2616 (+ (count-lines from to)
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2617 (save-excursion
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2618 (goto-char to)
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2619 (if (= (current-column) 0) 1 0))))
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2620
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2621
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2622 (defvar ps-printing-region nil
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2623 "Variable used to indicate if it is printing a region.
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2624 If non-nil, it is a cons, the car of which is the line number
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2625 where the region begins, and its cdr is the total number of lines
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2626 in the buffer. Formatting functions can use this information
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2627 to print the original line number (and not the number of lines printed),
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2628 and to indicate in the header that the printout is of a partial file.")
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2629
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2630
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2631 (defun ps-printing-region (region-p)
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2632 (setq ps-printing-region
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2633 (and region-p
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2634 (cons (ps-count-lines (point-min) (region-beginning))
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
2635 (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
2636
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2637
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2638 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2639 ;; Internal functions
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2640
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2641 (defsubst ps-font-list (font-sym)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2642 (get font-sym 'fonts))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2643
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2644 (defun ps-font (font-sym font-type)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2645 "Font family name for text of `font-type', when generating PostScript."
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2646 (let* ((font-list (ps-font-list font-sym))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2647 (normal-font (cdr (assq 'normal font-list))))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2648 (loop for font in font-list do
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2649 (when (eq font-type (car font))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2650 (return (or (cdr font) normal-font))))))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2651
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2652 (defun ps-fonts (font-sym)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2653 (loop for font in (ps-font-list font-sym) collect (cdr font)))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2654
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2655 (defun ps-font-number (font-sym font-type)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2656 (or (position font-type (ps-font-list font-sym) :key 'car)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2657 0))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2658
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2659 (defsubst ps-line-height (font-sym)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2660 "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
2661 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
2662 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
2663 point at which page-breaks are placed.
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2664 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
2665 (get font-sym 'line-height))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2666
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2667 (defsubst ps-title-line-height (font-sym)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2668 "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
2669 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
2670 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
2671 point at which page-breaks are placed.
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2672 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
2673 (get font-sym 'title-line-height))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2674
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2675 (defsubst ps-space-width (font-sym)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2676 "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
2677 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
2678 (get font-sym 'space-width))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2679
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2680 (defsubst ps-avg-char-width (font-sym)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2681 "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
2682 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
2683 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
2684 which long lines wrap around."
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2685 (get font-sym 'avg-char-width))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2686
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2687 (defun ps-line-lengths-internal ()
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2688 "Display the correspondence between a line length and a font size,
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2689 using the current ps-print setup.
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2690 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
2691 (let ((buf (get-buffer-create "*Line-lengths*"))
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2692 (ifs ps-font-size) ; initial font size
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2693 (icw (ps-avg-char-width 'ps-font-for-text)) ; initial character width
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2694 (print-width (progn (ps-get-page-dimensions)
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2695 ps-print-width))
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2696 (ps-setup (ps-setup)) ; setup for the current buffer
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2697 (fs-min 5) ; minimum font size
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2698 cw-min ; minimum character width
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2699 nb-cpl-max ; maximum nb of characters per line
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2700 (fs-max 14) ; maximum font size
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2701 cw-max ; maximum character width
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2702 nb-cpl-min ; minimum nb of characters per line
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2703 fs ; current font size
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2704 cw ; current character width
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2705 nb-cpl ; current nb of characters per line
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2706 )
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2707 (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
2708 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
2709 cw-max (/ (* icw fs-max) ifs)
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
2710 nb-cpl-min (floor (/ print-width cw-max))
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
2711 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
2712 (set-buffer buf)
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2713 (goto-char (point-max))
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
2714 (or (bolp) (insert "\n"))
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
2715 (insert ps-setup
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
2716 "nb char per line / font size\n")
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2717 (while (<= nb-cpl nb-cpl-max)
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
2718 (setq cw (/ print-width (float nb-cpl))
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
2719 fs (/ (* ifs cw) icw))
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2720 (insert (format "%3s %s\n" nb-cpl fs))
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2721 (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
2722 (insert "\n")
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2723 (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
2724
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2725 (defun ps-nb-pages (nb-lines)
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2726 "Display an approximate correspondence between a font size and the number
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2727 of pages the number of lines would require to print
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2728 using the current ps-print setup."
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2729 (let ((buf (get-buffer-create "*Nb-Pages*"))
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2730 (ifs ps-font-size) ; initial font size
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2731 (ilh (ps-line-height 'ps-font-for-text)) ; initial line height
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2732 (page-height (progn (ps-get-page-dimensions)
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2733 ps-print-height))
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2734 (ps-setup (ps-setup)) ; setup for the current buffer
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2735 (fs-min 4) ; minimum font size
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2736 lh-min ; minimum line height
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2737 nb-lpp-max ; maximum nb of lines per page
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2738 nb-page-min ; minimum nb of pages
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2739 (fs-max 14) ; maximum font size
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2740 lh-max ; maximum line height
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2741 nb-lpp-min ; minimum nb of lines per page
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2742 nb-page-max ; maximum nb of pages
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2743 fs ; current font size
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2744 lh ; current line height
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2745 nb-lpp ; current nb of lines per page
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2746 nb-page ; current nb of pages
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2747 )
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2748 (setq lh-min (/ (* ilh fs-min) ifs)
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2749 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
2750 nb-page-min (ceiling (/ (float nb-lines) nb-lpp-max))
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2751 lh-max (/ (* ilh fs-max) ifs)
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2752 nb-lpp-min (floor (/ page-height lh-max))
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
2753 nb-page-max (ceiling (/ (float nb-lines) nb-lpp-min))
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
2754 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
2755 (set-buffer buf)
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2756 (goto-char (point-max))
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
2757 (or (bolp) (insert "\n"))
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
2758 (insert ps-setup
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
2759 (format "%d lines\n" nb-lines)
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
2760 "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
2761 (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
2762 (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
2763 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
2764 fs (/ (* ifs lh) ilh))
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2765 (insert (format "%s %s\n" nb-page fs))
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2766 (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
2767 (insert "\n")
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2768 (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
2769
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2770 (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
2771 (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
2772 (or font-entry
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2773 (error "Don't have data to scale font %s. Known fonts families are %s"
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2774 font-family
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2775 (mapcar 'car ps-font-info-database)))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2776 (flet ((lookup (key) (cdr (assq key font-entry))))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2777 (let ((size (lookup 'size)))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2778 (put sym 'fonts (lookup 'fonts))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2779 (flet ((size-scale (key) (/ (* (lookup key) font-size) size)))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2780 (put sym 'space-width (size-scale 'space-width))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2781 (put sym 'avg-char-width (size-scale 'avg-char-width))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2782 (put sym 'line-height (size-scale 'line-height))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2783 (put sym 'title-line-height
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2784 (/ (* (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
2785
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2786 (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
2787 (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
2788 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
2789 (cond
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2790 ((null page-dimensions)
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2791 (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
2792 (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
2793 ((< ps-number-of-columns 1)
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2794 (error "The number of columns %d should be positive"
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
2795 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
2796
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2797 (ps-select-font ps-font-family 'ps-font-for-text
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2798 ps-font-size ps-font-size)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2799 (ps-select-font ps-header-font-family 'ps-font-for-header
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2800 ps-header-font-size ps-header-title-font-size)
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2801
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2802 (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
2803 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
2804
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2805 ;; Landscape mode
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2806 (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
2807 ;; 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
2808 (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
2809
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2810 ;; 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
2811 (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
2812
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2813 ;; | 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
2814 ;; 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
2815 ;; => pw == (page-width - lm -rm - (n - 1) * ic) / n
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
2816 (setq ps-print-width (/ (- page-width
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
2817 ps-left-margin ps-right-margin
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
2818 (* (1- ps-number-of-columns) ps-inter-column))
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
2819 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
2820 (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
2821 (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
2822 page-width == %s
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2823 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
2824 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
2825 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
2826 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
2827 | 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
2828 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
2829 => print-width == %d !"
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2830 page-width
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2831 ps-left-margin
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2832 ps-right-margin
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2833 ps-inter-column
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2834 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
2835 ps-print-width))
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2836
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2837 (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
2838 (- 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
2839 (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
2840 (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
2841 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
2842 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
2843 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
2844 => print-height == %d !"
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2845 ps-top-margin
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2846 ps-bottom-margin
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2847 ps-print-height))
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2848 ;; If headers are turned on, deduct the height of the header from
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2849 ;; the print height.
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
2850 (if ps-print-header
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2851 (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
2852 (ps-title-line-height 'ps-font-for-header))
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
2853 ps-print-height (- ps-print-height
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
2854 ps-header-offset
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
2855 ps-header-pad
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2856 (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
2857 (* (ps-line-height 'ps-font-for-header)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2858 (1- ps-header-lines))
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
2859 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
2860 (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
2861 (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
2862 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
2863 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
2864 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
2865 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
2866 header-height == %s
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2867 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
2868 => print-height == %d !"
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2869 ps-top-margin
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2870 ps-bottom-margin
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2871 ps-header-offset
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2872 ps-header-pad
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2873 (+ ps-header-pad
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2874 (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
2875 (* (ps-line-height 'ps-font-for-header)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
2876 (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
2877 ps-header-pad)
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
2878 ps-print-height))))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2879
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2880 (defun ps-print-preprint (&optional filename)
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
2881 (and filename
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
2882 (or (numberp filename)
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
2883 (listp filename))
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
2884 (let* ((name (concat (buffer-name) ".ps"))
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
2885 (prompt (format "Save PostScript to file: (default %s) " name))
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
2886 (res (read-file-name prompt default-directory name nil)))
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
2887 (if (file-directory-p res)
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
2888 (expand-file-name name (file-name-as-directory res))
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
2889 res))))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2890
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2891 ;; The following functions implement a simple list-buffering scheme so
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2892 ;; 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
2893 ;; 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
2894 ;; 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
2895 ;; insert its contents into the spool buffer (*PostScript*).
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2896
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2897 (defvar ps-string-escape-codes
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2898 (let ((table (make-vector 256 nil))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2899 (char ?\000))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2900 ;; control characters
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2901 (while (<= char ?\037)
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2902 (aset table char (format "\\%03o" char))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2903 (setq char (1+ char)))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2904 ;; printable characters
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2905 (while (< char ?\177)
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2906 (aset table char (format "%c" char))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2907 (setq char (1+ char)))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2908 ;; DEL and 8-bit characters
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2909 (while (<= char ?\377)
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2910 (aset table char (format "\\%o" char))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2911 (setq char (1+ char)))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2912 ;; 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
2913 (aset table ?\n "\\n") ; [NL] linefeed
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2914 (aset table ?\r "\\r") ; [CR] carriage return
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2915 (aset table ?\t "\\t") ; [HT] horizontal tab
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2916 (aset table ?\b "\\b") ; [BS] backspace
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2917 (aset table ?\f "\\f") ; [NP] form feed
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2918 ;; Escape PostScript escape and string delimiter characters:
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2919 (aset table ?\\ "\\\\")
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2920 (aset table ?\( "\\(")
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2921 (aset table ?\) "\\)")
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2922 table)
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2923 "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
2924
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2925 (defun ps-output-string-prim (string)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2926 (insert "(") ;insert start-string delimiter
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2927 (save-excursion ;insert string
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2928 (insert string))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2929 ;; Find and quote special characters as necessary for PS
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2930 (while (re-search-forward "[\000-\037\177-\377()\\]" nil t)
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2931 (let ((special (preceding-char)))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2932 (delete-char -1)
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
2933 (insert (aref ps-string-escape-codes special))))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2934 (goto-char (point-max))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2935 (insert ")")) ;insert end-string delimiter
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2936
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2937 (defun ps-init-output-queue ()
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
2938 (setq ps-output-head '("")
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
2939 ps-output-tail ps-output-head))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2940
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2941 (defun ps-output (&rest args)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2942 (setcdr ps-output-tail args)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2943 (while (cdr ps-output-tail)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2944 (setq ps-output-tail (cdr ps-output-tail))))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2945
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2946 (defun ps-output-string (string)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2947 (ps-output t string))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2948
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2949 (defun ps-output-list (the-list)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2950 (mapcar 'ps-output the-list))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2951
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2952 (defun ps-flush-output ()
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2953 (save-excursion
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2954 (set-buffer ps-spool-buffer)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2955 (goto-char (point-max))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2956 (while ps-output-head
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2957 (let ((it (car ps-output-head)))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2958 (if (not (eq t it))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2959 (insert it)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2960 (setq ps-output-head (cdr ps-output-head))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2961 (ps-output-string-prim (car ps-output-head))))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2962 (setq ps-output-head (cdr ps-output-head))))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2963 (ps-init-output-queue))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2964
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2965 (defun ps-insert-file (fname)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2966 (ps-flush-output)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2967 ;; Check to see that the file exists and is readable; if not, throw
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2968 ;; an error.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
2969 (or (file-readable-p fname)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2970 (error "Could not read file `%s'" fname))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2971 (save-excursion
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2972 (set-buffer ps-spool-buffer)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2973 (goto-char (point-max))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2974 (insert-file fname)))
19879
87952270ceeb (ps-emacs-face-kind-p): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents: 19843
diff changeset
2975
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2976 ;; These functions insert the arrays that define the contents of the
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2977 ;; headers.
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2978
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2979 (defun ps-generate-header-line (fonttag &optional content)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2980 (ps-output " [ " fonttag " ")
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2981 (cond
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2982 ;; Literal strings should be output as is -- the string must
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2983 ;; contain its own PS string delimiters, '(' and ')', if necessary.
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2984 ((stringp content)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2985 (ps-output content))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2986
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2987 ;; Functions are called -- they should return strings; they will be
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2988 ;; inserted as strings and the PS string delimiters added.
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2989 ((and (symbolp content) (fboundp content))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2990 (ps-output-string (funcall content)))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2991
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2992 ;; Variables will have their contents inserted. They should
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2993 ;; contain strings, and will be inserted as strings.
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2994 ((and (symbolp content) (boundp content))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2995 (ps-output-string (symbol-value content)))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2996
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2997 ;; Anything else will get turned into an empty string.
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2998 (t
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
2999 (ps-output-string "")))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3000 (ps-output " ]\n"))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3001
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3002 (defun ps-generate-header (name contents)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3003 (ps-output "/" name " [\n")
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3004 (if (> ps-header-lines 0)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3005 (let ((count 1))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3006 (ps-generate-header-line "/h0" (car contents))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3007 (while (and (< count ps-header-lines)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3008 (setq contents (cdr contents)))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3009 (ps-generate-header-line "/h1" (car contents))
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3010 (setq count (1+ count)))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3011 (ps-output "] def\n"))))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3012
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3013 (defun ps-output-boolean (name bool)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3014 (ps-output (format "/%s %s def\n" name (if bool "true" "false"))))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3015
19879
87952270ceeb (ps-emacs-face-kind-p): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents: 19843
diff changeset
3016
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3017 (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
3018 (if page-list
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3019 (mapcar
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3020 '(lambda (pages)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3021 (let ((start (if (consp pages) (car pages) pages))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3022 (end (if (consp pages) (cdr pages) pages)))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3023 (and (integerp start) (integerp end) (<= start end)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3024 (add-to-list 'ps-background-pages (vector start end func)))))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3025 page-list)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3026 (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
3027
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3028
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3029 (defun ps-get-boundingbox ()
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3030 (save-excursion
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3031 (set-buffer ps-spool-buffer)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3032 (save-excursion
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3033 (if (re-search-forward
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3034 "^%%BoundingBox:\\s-+\\([0-9.]+\\)\\s-+\\([0-9.]+\\)\\s-+\\([0-9.]+\\)\\s-+\\([0-9.]+\\)"
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3035 nil t)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3036 (vector (string-to-number ; lower x
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3037 (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
3038 (string-to-number ; lower y
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3039 (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
3040 (string-to-number ; upper x
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3041 (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
3042 (string-to-number ; upper y
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3043 (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
3044 (vector 0 0 0 0)))))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3045
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3046
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3047 ;; 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
3048 ;; to three decimals to cut down some on the size of the PostScript output.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3049 ;; Lucid emacsen will have to make do with %s (princ) for floats.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3050
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3051 (defvar ps-float-format (if (eq ps-print-emacs-type 'emacs)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3052 "%0.3f " ; emacs
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3053 "%s ")) ; Lucid emacsen
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3054
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3055
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3056 (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
3057 (let ((literal (or value default)))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3058 (if literal
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3059 (format (if (numberp literal)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3060 ps-float-format
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3061 "%s ")
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3062 literal)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3063 " ")))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3064
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3065
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3066 (defun ps-background-text ()
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3067 (mapcar
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3068 '(lambda (text)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3069 (setq ps-background-text-count (1+ ps-background-text-count))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3070 (ps-output (format "/ShowBackText-%d {\n" ps-background-text-count))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3071 (ps-output-string (nth 0 text)) ; text
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3072 (ps-output
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3073 "\n"
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3074 (ps-float-format (nth 4 text) 200.0) ; font size
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3075 (format "/%s " (or (nth 3 text) "Times-Roman")) ; font name
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3076 (ps-float-format (nth 6 text)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3077 "PrintHeight PrintPageWidth atan") ; rotation
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3078 (ps-float-format (nth 5 text) 0.85) ; gray
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3079 (ps-float-format (nth 1 text) "0") ; x position
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3080 (ps-float-format (nth 2 text) "BottomMargin") ; y position
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3081 "\nShowBackText} def\n")
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3082 (ps-background-pages (nthcdr 7 text) ; page list
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3083 (format "ShowBackText-%d\n"
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3084 ps-background-text-count)))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3085 ps-print-background-text))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3086
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3087
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3088 (defun ps-background-image ()
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3089 (mapcar
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3090 '(lambda (image)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3091 (let ((image-file (expand-file-name (nth 0 image))))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3092 (if (file-readable-p image-file)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3093 (progn
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3094 (setq ps-background-image-count (1+ ps-background-image-count))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3095 (ps-output
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3096 (format "/ShowBackImage-%d {\n--back-- " ps-background-image-count)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3097 (ps-float-format (nth 5 image) 0.0) ; rotation
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3098 (ps-float-format (nth 3 image) 1.0) ; x scale
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3099 (ps-float-format (nth 4 image) 1.0) ; y scale
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3100 (ps-float-format (nth 1 image) ; x position
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3101 "PrintPageWidth 2 div")
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3102 (ps-float-format (nth 2 image) ; y position
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3103 "PrintHeight 2 div BottomMargin add")
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3104 "\nBeginBackImage\n")
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3105 (ps-insert-file image-file)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3106 ;; coordinate adjustment to centralize image
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3107 ;; around x and y position
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3108 (let ((box (ps-get-boundingbox)))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3109 (save-excursion
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3110 (set-buffer ps-spool-buffer)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3111 (save-excursion
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3112 (if (re-search-backward "^--back--" nil t)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3113 (replace-match
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3114 (format "%s %s"
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3115 (ps-float-format
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3116 (- (+ (/ (- (aref box 2) (aref box 0)) 2.0)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3117 (aref box 0))))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3118 (ps-float-format
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3119 (- (+ (/ (- (aref box 3) (aref box 1)) 2.0)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3120 (aref box 1)))))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3121 t)))))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3122 (ps-output "\nEndBackImage} def\n")
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3123 (ps-background-pages (nthcdr 6 image) ; page list
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3124 (format "ShowBackImage-%d\n"
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3125 ps-background-image-count))))))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3126 ps-print-background-image))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3127
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3128
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3129 (defun ps-background (page-number)
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3130 (let (has-local-background)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3131 (mapcar '(lambda (range)
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3132 (and (<= (aref range 0) page-number)
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3133 (<= page-number (aref range 1))
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3134 (if has-local-background
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3135 (ps-output (aref range 2))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3136 (setq has-local-background t)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3137 (ps-output "/printLocalBackground {\n"
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3138 (aref range 2)))))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3139 ps-background-pages)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3140 (and has-local-background (ps-output "} def\n"))))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3141
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3142
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3143 (defun ps-begin-file ()
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3144 (ps-get-page-dimensions)
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3145 (setq ps-showline-count (if ps-printing-region (car ps-printing-region) 1)
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3146 ps-background-text-count 0
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3147 ps-background-image-count 0
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3148 ps-background-pages nil
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3149 ps-background-all-pages nil)
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3150
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3151 (ps-output ps-adobe-tag
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3152 "%%Title: " (buffer-name) ; Take job name from name of
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3153 ; first buffer printed
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3154 "\n%%Creator: " (user-full-name)
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3155 " (using ps-print v" ps-print-version
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3156 ")\n%%CreationDate: "
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3157 (time-stamp-hh:mm:ss) " " (time-stamp-mon-dd-yyyy)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3158 "\n%%Orientation: "
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3159 (if ps-landscape-mode "Landscape" "Portrait")
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3160 "\n%% DocumentFonts: Times-Roman Times-Italic "
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3161 (mapconcat 'identity
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3162 (remove-duplicates
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3163 (append (ps-fonts 'ps-font-for-text)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3164 (list (ps-font 'ps-font-for-header 'normal)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3165 (ps-font 'ps-font-for-header 'bold)))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3166 :test 'equal)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3167 " ")
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3168 "\n%%Pages: (atend)\n"
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3169 "%%EndComments\n\n")
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3170
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3171 (ps-output-boolean "LandscapeMode" ps-landscape-mode)
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3172 (ps-output (format "/NumberOfColumns %d def\n" ps-number-of-columns)
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3173
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3174 (format "/LandscapePageHeight %s def\n" ps-landscape-page-height)
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3175 (format "/PrintPageWidth %s def\n"
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3176 (- (* (+ ps-print-width ps-inter-column)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3177 ps-number-of-columns)
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3178 ps-inter-column))
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3179 (format "/PrintWidth %s def\n" ps-print-width)
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3180 (format "/PrintHeight %s def\n" ps-print-height)
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3181
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3182 (format "/LeftMargin %s def\n" ps-left-margin)
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3183 (format "/RightMargin %s def\n" ps-right-margin) ; not used
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3184 (format "/InterColumn %s def\n" ps-inter-column)
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3185
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3186 (format "/BottomMargin %s def\n" ps-bottom-margin)
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3187 (format "/TopMargin %s def\n" ps-top-margin) ; not used
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3188 (format "/HeaderOffset %s def\n" ps-header-offset)
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3189 (format "/HeaderPad %s def\n" ps-header-pad))
19879
87952270ceeb (ps-emacs-face-kind-p): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents: 19843
diff changeset
3190
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3191 (ps-output-boolean "PrintHeader" ps-print-header)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3192 (ps-output-boolean "PrintOnlyOneHeader" ps-print-only-one-header)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3193 (ps-output-boolean "PrintHeaderFrame" ps-print-header-frame)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3194 (ps-output-boolean "ShowNofN" ps-show-n-of-n)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3195 (ps-output-boolean "Duplex" ps-spool-duplex)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3196
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3197 (let ((line-height (ps-line-height 'ps-font-for-text)))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3198 (ps-output (format "/LineHeight %s def\n" line-height)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3199 (format "/LinesPerColumn %d def\n"
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3200 (round (/ (+ ps-print-height
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3201 (* line-height 0.45))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3202 line-height)))))
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3203
19485
eab8baa19dfa (ps-zebra-stripes): Renamed from ps-zebra-stripe.
Richard M. Stallman <rms@gnu.org>
parents: 19446
diff changeset
3204 (ps-output-boolean "Zebra" ps-zebra-stripes)
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3205 (ps-output-boolean "PrintLineNumber" ps-line-number)
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3206 (ps-output (format "/ZebraHeight %d def\n" ps-zebra-stripe-height)
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3207 (format "/Lines %d def\n"
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3208 (if ps-printing-region
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3209 (cdr ps-printing-region)
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3210 (ps-count-lines (point-min) (point-max))))
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3211 "/PageCount 0 def\n") ; set total page number
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3212 ; when printing has finished
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3213 ; (see `ps-generate')
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3214
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3215 (ps-background-text)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3216 (ps-background-image)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3217 (setq ps-background-all-pages (nreverse ps-background-all-pages)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3218 ps-background-pages (nreverse ps-background-pages))
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3219
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3220 (ps-output ps-print-prologue-1)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3221
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3222 (ps-output "/printGlobalBackground {\n")
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3223 (ps-output-list ps-background-all-pages)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3224 (ps-output "} def\n/printLocalBackground {\n} def\n")
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3225
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3226 ;; Header fonts
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3227 (ps-output (format "/h0 %s /%s DefFont\n" ; /h0 14 /Helvetica-Bold DefFont
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3228 ps-header-title-font-size (ps-font 'ps-font-for-header
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3229 'bold))
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3230 (format "/h1 %s /%s DefFont\n" ; /h1 12 /Helvetica DefFont
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3231 ps-header-font-size (ps-font 'ps-font-for-header
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3232 'normal)))
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3233
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3234 (ps-output ps-print-prologue-2)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3235
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3236 ;; Text fonts
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3237 (loop for font in (ps-font-list 'ps-font-for-text)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3238 for i from 0
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3239 do
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3240 (ps-output (format "/f%d %s /%s DefFont\n"
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3241 i
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3242 ps-font-size
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3243 (ps-font 'ps-font-for-text (car font)))))
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3244
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3245 (ps-output "\nBeginDoc\n\n"
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3246 "%%EndPrologue\n"))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3247
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3248 (defun ps-header-dirpart ()
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3249 (let ((fname (buffer-file-name)))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3250 (if fname
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3251 (if (string-equal (buffer-name) (file-name-nondirectory fname))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3252 (file-name-directory fname)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3253 fname)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3254 "")))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3255
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3256 (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
3257 (cond
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3258 ;; 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
3259 ((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
3260 "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
3261 ;; 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
3262 ((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
3263 "Super! C'est sokoban.el!")
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3264 (t (concat
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3265 (and ps-printing-region "Subset of: ")
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3266 (buffer-name)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3267 (and (buffer-modified-p) " (unsaved)")))))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3268
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3269 (defun ps-begin-job ()
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3270 (setq ps-page-count 0
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3271 ps-control-or-escape-regexp
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3272 (cond ((eq ps-print-control-characters '8-bit)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3273 "[\000-\037\177-\377]")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3274 ((eq ps-print-control-characters 'control-8-bit)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3275 "[\000-\037\177-\237]")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3276 ((eq ps-print-control-characters 'control)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3277 "[\000-\037\177]")
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3278 (t "[\t\n\f]"))))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3279
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3280 (defmacro ps-page-number ()
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3281 `(1+ (/ (1- ps-page-count) ps-number-of-columns)))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3282
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3283 (defun ps-end-file ()
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3284 (ps-output "\nEndDoc\n\n%%Trailer\n%%Pages: "
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3285 (format "%d" (ps-page-number))
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3286 "\n%%EOF\n"))
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3287
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3288
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3289 (defun ps-next-page ()
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3290 (ps-end-page)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3291 (ps-flush-output)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3292 (ps-begin-page))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3293
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3294 (defun ps-header-page ()
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3295 (if (prog1
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3296 (zerop (mod ps-page-count ps-number-of-columns))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3297 (incf ps-page-count))
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3298 ;; Print only when a new real page begins.
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3299 (let ((page-number (ps-page-number)))
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3300 (ps-output (format "\n%%%%Page: %d %d\n" page-number page-number))
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3301 (ps-output "BeginDSCPage\n")
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3302 (ps-background page-number)
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3303 (run-hooks 'ps-print-begin-page-hook))
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3304 ;; Print when any other page begins.
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3305 (ps-output "BeginDSCPage\n")
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3306 (run-hooks 'ps-print-begin-column-hook)))
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3307
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3308 (defun ps-begin-page ()
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3309 (ps-get-page-dimensions)
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3310 (setq ps-width-remaining ps-print-width
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3311 ps-height-remaining ps-print-height)
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3312
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3313 (ps-header-page)
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3314
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3315 (ps-output (format "/LineNumber %d def\n" ps-showline-count)
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3316 (format "/PageNumber %d def\n" (if ps-print-only-one-header
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3317 (ps-page-number)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3318 ps-page-count)))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3319
16870
4a5fa29f79d6 (ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents: 16361
diff changeset
3320 (when ps-print-header
4a5fa29f79d6 (ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents: 16361
diff changeset
3321 (ps-generate-header "HeaderLinesLeft" ps-left-header)
4a5fa29f79d6 (ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents: 16361
diff changeset
3322 (ps-generate-header "HeaderLinesRight" ps-right-header)
4a5fa29f79d6 (ps-print-version): Fix value.
Richard M. Stallman <rms@gnu.org>
parents: 16361
diff changeset
3323 (ps-output (format "%d SetHeaderLines\n" ps-header-lines)))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3324
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3325 (ps-output "BeginPage\n")
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3326 (ps-set-font ps-current-font)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3327 (ps-set-bg ps-current-bg)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3328 (ps-set-color ps-current-color))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3329
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3330 (defun ps-end-page ()
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3331 (ps-output "EndPage\nEndDSCPage\n"))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3332
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3333 (defun ps-dummy-page ()
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3334 (ps-header-page)
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3335 (ps-output "/PrintHeader false def
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3336 BeginPage
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3337 EndPage
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3338 EndDSCPage\n"))
19879
87952270ceeb (ps-emacs-face-kind-p): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents: 19843
diff changeset
3339
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3340 (defun ps-next-line ()
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3341 (setq ps-showline-count (1+ ps-showline-count))
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3342 (let ((lh (ps-line-height 'ps-font-for-text)))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3343 (if (< ps-height-remaining lh)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3344 (ps-next-page)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3345 (setq ps-width-remaining ps-print-width
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3346 ps-height-remaining (- ps-height-remaining lh))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3347 (ps-output "HL\n"))))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3348
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3349 (defun ps-continue-line ()
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3350 (let ((lh (ps-line-height 'ps-font-for-text)))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3351 (if (< ps-height-remaining lh)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3352 (ps-next-page)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3353 (setq ps-width-remaining ps-print-width
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3354 ps-height-remaining (- ps-height-remaining lh))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3355 (ps-output "SL\n"))))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3356
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3357 (defun ps-find-wrappoint (from to char-width)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3358 (let ((avail (truncate (/ ps-width-remaining char-width)))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3359 (todo (- to from)))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3360 (if (< todo avail)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3361 (cons to (* todo char-width))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3362 (cons (+ from avail) ps-width-remaining))))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3363
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3364 (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
3365 (let* ((wrappoint (ps-find-wrappoint from to
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3366 (ps-avg-char-width 'ps-font-for-text)))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3367 (to (car wrappoint))
17588
0054114145ca change all buffer-substring to buffer-substring-no-properties.
Simon Marshall <simon@gnu.org>
parents: 17440
diff changeset
3368 (string (buffer-substring-no-properties from to)))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3369 (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
3370 (ps-output " S\n")
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3371 wrappoint))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3372
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3373 (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
3374 (let* ((wrappoint (ps-find-wrappoint from to
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3375 (ps-space-width 'ps-font-for-text)))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3376 (to (car wrappoint)))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3377 (ps-output (format "%d W\n" (- to from)))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3378 wrappoint))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3379
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3380 (defun ps-plot (plotfunc from to &optional bg-color)
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3381 (while (< from to)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3382 (let* ((wrappoint (funcall plotfunc from to bg-color))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3383 (plotted-to (car wrappoint))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3384 (plotted-width (cdr wrappoint)))
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3385 (setq from plotted-to
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3386 ps-width-remaining (- ps-width-remaining plotted-width))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3387 (if (< from to)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3388 (ps-continue-line))))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3389 (if ps-razzle-dazzle
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3390 (let* ((q-todo (- (point-max) (point-min)))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3391 (q-done (- (point) (point-min)))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3392 (chunkfrac (/ q-todo 8))
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3393 (chunksize (min chunkfrac 1000)))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3394 (if (> (- q-done ps-razchunk) chunksize)
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3395 (progn
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3396 (setq ps-razchunk q-done)
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3397 (message "Formatting...%3d%%"
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3398 (if (< q-todo 100)
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3399 (/ (* 100 q-done) q-todo)
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3400 (/ q-done (/ q-todo 100)))
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3401 ))))))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3402
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3403 (defun ps-set-font (font)
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3404 (ps-output (format "/f%d F\n" (setq ps-current-font font))))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3405
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3406 (defun ps-set-bg (color)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3407 (if (setq ps-current-bg color)
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3408 (ps-output (format ps-color-format
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3409 (nth 0 color) (nth 1 color) (nth 2 color))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3410 " true BG\n")
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3411 (ps-output "false BG\n")))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3412
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3413 (defun ps-set-color (color)
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3414 (setq ps-current-color (or color ps-default-fg))
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3415 (ps-output (format ps-color-format
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3416 (nth 0 ps-current-color)
11799
4a04c7799790 Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents: 10738
diff changeset
3417 (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
3418 " FG\n"))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3419
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3420
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3421 (defvar ps-current-effect 0)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3422
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3423
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3424 (defun ps-plot-region (from to font &optional fg-color bg-color effects)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3425 (if (not (equal font ps-current-font))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3426 (ps-set-font font))
19879
87952270ceeb (ps-emacs-face-kind-p): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents: 19843
diff changeset
3427
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3428 ;; 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
3429 ;; different than the current.
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3430 (if (not (equal fg-color ps-current-color))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3431 (ps-set-color fg-color))
19879
87952270ceeb (ps-emacs-face-kind-p): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents: 19843
diff changeset
3432
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3433 (if (not (equal bg-color ps-current-bg))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3434 (ps-set-bg bg-color))
19879
87952270ceeb (ps-emacs-face-kind-p): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents: 19843
diff changeset
3435
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3436 ;; Specify effects (underline, overline, box, etc)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3437 (cond
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3438 ((not (integerp effects))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3439 (ps-output "0 EF\n")
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3440 (setq ps-current-effect 0))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3441 ((/= effects ps-current-effect)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3442 (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
3443 (setq ps-current-effect effects)))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3444
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3445 ;; Starting at the beginning of the specified region...
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3446 (save-excursion
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3447 (goto-char from)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3448
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3449 ;; ...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
3450 ;; pagefeeds, control characters, and plot each chunk.
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3451 (while (< from to)
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3452 (if (re-search-forward ps-control-or-escape-regexp to t)
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3453 ;; region with some control characters
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3454 (let* ((match-point (match-beginning 0))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3455 (match (char-after match-point)))
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3456 (ps-plot 'ps-basic-plot-string from (1- (point)) bg-color)
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3457 (cond
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3458 ((= match ?\t) ; tab
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3459 (let ((linestart (save-excursion (beginning-of-line) (point))))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3460 (forward-char -1)
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3461 (setq from (+ linestart (current-column)))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3462 (if (re-search-forward "[ \t]+" to t)
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3463 (ps-plot 'ps-basic-plot-whitespace
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3464 from (+ linestart (current-column))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3465 bg-color))))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3466
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3467 ((= match ?\n) ; newline
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3468 (ps-next-line))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3469
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3470 ((= match ?\f) ; form feed
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3471 ;; 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
3472 ;; it is a beginning of page.
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3473 (or (and (= (char-after (1- match-point)) ?\n)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3474 (= ps-height-remaining ps-print-height))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3475 (ps-next-page)))
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3476 ; characters from ^@ to ^_ and
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3477 (t ; characters from 127 to 255
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3478 (ps-control-character match)))
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3479 (setq from (point)))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3480 ;; region without control characters
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3481 (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
3482 (setq from to)))))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3483
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3484 (defvar ps-string-control-codes
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3485 (let ((table (make-vector 256 nil))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3486 (char ?\000))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3487 ;; control character
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3488 (while (<= char ?\037)
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3489 (aset table char (format "^%c" (+ char ?@)))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3490 (setq char (1+ char)))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3491 ;; printable character
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3492 (while (< char ?\177)
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3493 (aset table char (format "%c" char))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3494 (setq char (1+ char)))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3495 ;; DEL
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3496 (aset table char "^?")
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3497 ;; 8-bit character
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3498 (while (<= (setq char (1+ char)) ?\377)
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3499 (aset table char (format "\\%o" char)))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3500 table)
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3501 "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
3502
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3503 (defun ps-control-character (char)
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3504 (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
3505 (from (1- (point)))
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3506 (len (length str))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3507 (to (+ from len))
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3508 (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
3509 (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
3510 (if (< (car wrappoint) to)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3511 (ps-continue-line))
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3512 (setq ps-width-remaining (- ps-width-remaining (* len char-width)))
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3513 (ps-output-string str)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3514 (ps-output " S\n")))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3515
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3516 (defun ps-color-value (x-color-value)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3517 ;; Scale 16-bit X-COLOR-VALUE to PostScript color value in [0, 1] interval.
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3518 (/ x-color-value ps-print-color-scale))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3519
11799
4a04c7799790 Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents: 10738
diff changeset
3520 (defun ps-color-values (x-color)
4a04c7799790 Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents: 10738
diff changeset
3521 (cond ((fboundp 'x-color-values)
4a04c7799790 Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents: 10738
diff changeset
3522 (x-color-values x-color))
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3523 ((and (fboundp 'color-instance-rgb-components)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3524 (ps-color-device))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3525 (color-instance-rgb-components
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3526 (if (color-instance-p x-color)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3527 x-color
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3528 (make-color-instance
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3529 (if (color-specifier-p x-color)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3530 (color-name x-color)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3531 x-color)))))
11799
4a04c7799790 Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents: 10738
diff changeset
3532 (t (error "No available function to determine X color values."))))
4a04c7799790 Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents: 10738
diff changeset
3533
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3534
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3535 (defun ps-face-attributes (face)
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3536 "Return face attribute vector.
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3537
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3538 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
3539 `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
3540 return the attribute vector.
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3541
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3542 If FACE is not a valid face name, it is used default face."
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3543 (cdr (or (assq face ps-print-face-extension-alist)
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3544 (assq face ps-print-face-alist)
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3545 (let* ((the-face (if (facep face) face 'default))
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3546 (new-face (ps-screen-to-bit-face the-face)))
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3547 (or (and (eq the-face 'default)
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3548 (assq the-face ps-print-face-alist))
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3549 (setq ps-print-face-alist (cons new-face ps-print-face-alist)))
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3550 new-face))))
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3551
11799
4a04c7799790 Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents: 10738
diff changeset
3552
4a04c7799790 Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents: 10738
diff changeset
3553 (defun ps-face-attribute-list (face-or-list)
4a04c7799790 Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents: 10738
diff changeset
3554 (if (listp face-or-list)
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3555 ;; list of faces
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3556 (let ((effects 0)
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3557 foreground background face-attr)
11799
4a04c7799790 Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents: 10738
diff changeset
3558 (while face-or-list
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3559 (setq face-attr (ps-face-attributes (car face-or-list))
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3560 effects (logior effects (aref face-attr 0)))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3561 (or foreground (setq foreground (aref face-attr 1)))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3562 (or background (setq background (aref face-attr 2)))
11799
4a04c7799790 Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents: 10738
diff changeset
3563 (setq face-or-list (cdr face-or-list)))
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3564 (vector effects foreground background))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3565 ;; simple face
11799
4a04c7799790 Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents: 10738
diff changeset
3566 (ps-face-attributes face-or-list)))
4a04c7799790 Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents: 10738
diff changeset
3567
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3568
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3569 (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
3570
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3571
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3572 (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
3573 (cond
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3574 ((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
3575 (ps-plot-region from to 0))
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3576 ((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
3577 (t ; otherwise, text has a valid face
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3578 (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
3579 (effect (aref face-bit 0))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3580 (foreground (aref face-bit 1))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3581 (background (aref face-bit 2))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3582 (fg-color (if (and ps-print-color-p foreground (ps-color-device))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3583 (mapcar 'ps-color-value
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3584 (ps-color-values foreground))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3585 ps-default-color))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3586 (bg-color (and ps-print-color-p background (ps-color-device)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3587 (mapcar 'ps-color-value
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3588 (ps-color-values background)))))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3589 (ps-plot-region
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3590 from to
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3591 (ps-font-number 'ps-font-for-text
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3592 (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
3593 face))
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3594 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
3595 (goto-char to))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3596
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3597
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3598 (defun ps-xemacs-face-kind-p (face kind kind-regex kind-list)
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3599 (let* ((frame-font (or (face-font-instance face)
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3600 (face-font-instance 'default)))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3601 (kind-cons (and frame-font
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3602 (assq kind (font-instance-properties frame-font))))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3603 (kind-spec (cdr-safe kind-cons))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3604 (case-fold-search t))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3605 (or (and kind-spec (string-match kind-regex kind-spec))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3606 ;; Kludge-compatible:
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3607 (memq face kind-list))))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3608
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3609 (defun ps-face-bold-p (face)
12769
4a905565cfa6 (ps-print-emacs-type): Renamed from emacs-type.
Richard M. Stallman <rms@gnu.org>
parents: 12768
diff changeset
3610 (if (eq ps-print-emacs-type 'emacs)
19879
87952270ceeb (ps-emacs-face-kind-p): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents: 19843
diff changeset
3611 (or (face-bold-p face)
87952270ceeb (ps-emacs-face-kind-p): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents: 19843
diff changeset
3612 (memq face ps-bold-faces))
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3613 (ps-xemacs-face-kind-p face 'WEIGHT_NAME "bold\\|demibold" ps-bold-faces)))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3614
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3615 (defun ps-face-italic-p (face)
12769
4a905565cfa6 (ps-print-emacs-type): Renamed from emacs-type.
Richard M. Stallman <rms@gnu.org>
parents: 12768
diff changeset
3616 (if (eq ps-print-emacs-type 'emacs)
19879
87952270ceeb (ps-emacs-face-kind-p): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents: 19843
diff changeset
3617 (or (face-italic-p face)
87952270ceeb (ps-emacs-face-kind-p): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents: 19843
diff changeset
3618 (memq face ps-italic-faces))
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3619 (or (ps-xemacs-face-kind-p face 'ANGLE_NAME "i\\|o" ps-italic-faces)
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3620 (ps-xemacs-face-kind-p face 'SLANT "i\\|o" ps-italic-faces))))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3621
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3622 (defun ps-face-underlined-p (face)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3623 (or (face-underline-p face)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3624 (memq face ps-underlined-faces)))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3625
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3626
11799
4a04c7799790 Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents: 10738
diff changeset
3627 ;; Ensure that face-list is fbound.
4a04c7799790 Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents: 10738
diff changeset
3628 (or (fboundp 'face-list) (defalias 'face-list 'list-faces))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3629
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3630
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3631 (defun ps-build-reference-face-lists ()
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3632 ;; 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
3633 ;; `font-lock-face-attributes' (obsolete stuff)
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3634 (ps-font-lock-face-attributes)
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3635 ;; Now, rebuild reference face lists
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3636 (setq ps-print-face-alist nil)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3637 (if ps-auto-font-detect
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3638 (mapcar 'ps-map-face (face-list))
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3639 (mapcar 'ps-set-face-bold ps-bold-faces)
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3640 (mapcar 'ps-set-face-italic ps-italic-faces)
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3641 (mapcar 'ps-set-face-underline ps-underlined-faces))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3642 (setq ps-build-face-reference nil))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3643
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3644
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3645 (defun ps-set-face-bold (face)
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3646 (ps-set-face-attribute face 1))
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3647
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3648 (defun ps-set-face-italic (face)
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3649 (ps-set-face-attribute face 2))
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3650
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3651 (defun ps-set-face-underline (face)
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3652 (ps-set-face-attribute face 4))
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3653
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3654
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3655 (defun ps-set-face-attribute (face effect)
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3656 (let ((face-bit (cdr (ps-map-face face))))
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3657 (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
3658
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3659
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3660 (defun ps-map-face (face)
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3661 (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
3662 (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
3663 (if ps-face-bit
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3664 ;; if face exists, merge both
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3665 (let ((face-bit (cdr face-map)))
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3666 (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
3667 (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
3668 (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
3669 ;; if face does not exist, insert it
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3670 (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
3671 face-map))
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3672
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3673
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3674 (defun ps-screen-to-bit-face (face)
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3675 (cons face
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3676 (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
3677 (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
3678 (if (ps-face-underlined-p face) 4 0)) ; underline
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3679 (face-foreground face)
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3680 (face-background face))))
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3681
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3682
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3683 (defun ps-mapper (extent list)
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3684 (nconc list (list (list (extent-start-position extent) 'push extent)
19879
87952270ceeb (ps-emacs-face-kind-p): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents: 19843
diff changeset
3685 (list (extent-end-position extent) 'pull extent)))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3686 nil)
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3687
10683
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
3688 (defun ps-extent-sorter (a b)
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
3689 (< (extent-priority a) (extent-priority b)))
11799
4a04c7799790 Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents: 10738
diff changeset
3690
4a04c7799790 Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents: 10738
diff changeset
3691 (defun ps-print-ensure-fontified (start end)
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3692 (and (boundp 'lazy-lock-mode) (symbol-value 'lazy-lock-mode)
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3693 (if (fboundp 'lazy-lock-fontify-region)
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3694 (lazy-lock-fontify-region start end) ; the new
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3695 (lazy-lock-fontify-buffer)))) ; the old
11799
4a04c7799790 Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents: 10738
diff changeset
3696
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3697 (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
3698 ;; Some initialization...
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3699 (setq ps-current-effect 0)
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3700
10683
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
3701 ;; Build the reference lists of faces if necessary.
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3702 (if (or ps-always-build-face-reference
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3703 ps-build-face-reference)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3704 (progn
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3705 (message "Collecting face information...")
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3706 (ps-build-reference-face-lists)))
10683
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
3707 ;; Set the color scale. We do it here instead of in the defvar so
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
3708 ;; that ps-print can be dumped into emacs. This expression can't be
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
3709 ;; evaluated at dump-time because X isn't initialized.
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
3710 (setq ps-print-color-scale
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3711 (if (and ps-print-color-p (ps-color-device))
11799
4a04c7799790 Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents: 10738
diff changeset
3712 (float (car (ps-color-values "white")))
10683
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
3713 1.0))
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
3714 ;; Generate some PostScript.
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3715 (save-restriction
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3716 (narrow-to-region from to)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3717 (let ((face 'default)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3718 (position to))
11799
4a04c7799790 Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents: 10738
diff changeset
3719 (ps-print-ensure-fontified from to)
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3720 (cond
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3721 ((or (eq ps-print-emacs-type 'lucid)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3722 (eq ps-print-emacs-type 'xemacs))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3723 ;; Build the list of extents...
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3724 (let ((a (cons 'dummy nil))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3725 record type extent extent-list)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3726 (map-extents 'ps-mapper nil from to a)
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3727 (setq a (sort (cdr a) 'car-less-than-car)
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3728 extent-list nil)
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3729
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3730 ;; Loop through the extents...
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3731 (while a
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3732 (setq record (car a)
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3733
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3734 position (car record)
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3735 record (cdr record)
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3736
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3737 type (car record)
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3738 record (cdr record)
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3739
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3740 extent (car record))
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3741
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3742 ;; Plot up to this record.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3743 ;; 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
3744 ;; 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
3745 ;; positions less than 'from'. Since we've narrowed
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3746 ;; the buffer, this'll generate errors. This is a
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3747 ;; hack, but don't call ps-plot-with-face unless from >
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3748 ;; point-min.
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3749 (and (>= from (point-min)) (<= position (point-max))
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3750 (ps-plot-with-face from position face))
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3751
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3752 (cond
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3753 ((eq type 'push)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3754 (if (extent-face extent)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3755 (setq extent-list (sort (cons extent extent-list)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3756 'ps-extent-sorter))))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3757
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3758 ((eq type 'pull)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3759 (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
3760 'ps-extent-sorter))))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3761
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3762 (setq face
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3763 (if extent-list
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3764 (extent-face (car extent-list))
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3765 'default)
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3766
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3767 from position
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3768 a (cdr a)))))
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3769
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3770 ((eq ps-print-emacs-type 'emacs)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3771 (let ((property-change from)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3772 (overlay-change from))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3773 (while (< from to)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3774 (if (< property-change to) ; Don't search for property change
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3775 ; unless previous search succeeded.
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3776 (setq property-change
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3777 (next-property-change from nil to)))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3778 (if (< overlay-change to) ; Don't search for overlay change
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3779 ; unless previous search succeeded.
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3780 (setq overlay-change
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3781 (min (next-overlay-change from) to)))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3782 (setq position
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3783 (min property-change overlay-change))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3784 ;; 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
3785 ;; 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
3786 ;; 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
3787 ;; of buffer-invisibility-spec nonetheless overrides
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3788 ;; a face text property.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3789 (setq face
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3790 (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
3791 ;; Decide whether this invisible property
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3792 ;; really makes the text invisible.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3793 (if (eq buffer-invisibility-spec t)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3794 (not (null prop))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3795 (or (memq prop buffer-invisibility-spec)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3796 (assq prop buffer-invisibility-spec))))
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3797 'emacs--invisible--face)
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3798 ((get-text-property from 'face))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3799 (t 'default)))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3800 (let ((overlays (overlays-at from))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3801 (face-priority -1)) ; text-property
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3802 (while overlays
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3803 (let* ((overlay (car overlays))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3804 (overlay-face (overlay-get overlay 'face))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3805 (overlay-invisible (overlay-get overlay 'invisible))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3806 (overlay-priority (or (overlay-get overlay
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3807 'priority)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3808 0)))
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3809 (and (or overlay-invisible overlay-face)
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3810 (> overlay-priority face-priority)
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3811 (setq face (cond ((if (eq buffer-invisibility-spec t)
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3812 (not (null overlay-invisible))
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3813 (or (memq overlay-invisible
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3814 buffer-invisibility-spec)
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3815 (assq overlay-invisible
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3816 buffer-invisibility-spec)))
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3817 nil)
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3818 ((and face overlay-face)))
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3819 face-priority overlay-priority)))
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3820 (setq overlays (cdr overlays))))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3821 ;; Plot up to this record.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3822 (ps-plot-with-face from position face)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3823 (setq from position)))))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3824 (ps-plot-with-face from to face))))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3825
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3826 (defun ps-generate-postscript (from to)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3827 (ps-plot-region from to 0 nil))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3828
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3829 (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
3830 (save-excursion
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3831 (let ((from (min to from))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3832 (to (max to from))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3833 ;; 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
3834 ;; are copied into ps-spool-buffer.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3835 (inhibit-read-only t))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3836 (save-restriction
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3837 (narrow-to-region from to)
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3838 (and ps-razzle-dazzle
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3839 (message "Formatting...%3d%%" (setq ps-razchunk 0)))
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3840 (set-buffer buffer)
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3841 (setq ps-source-buffer buffer
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3842 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
3843 (ps-init-output-queue)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3844 (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
3845 (unwind-protect
10683
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
3846 (progn
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
3847 (set-buffer ps-spool-buffer)
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3848
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3849 ;; 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
3850 ;; 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
3851 ;; the end of this marker onwards.
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3852 (setq safe-marker (make-marker))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3853 (set-marker safe-marker (point-max))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3854
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3855 (goto-char (point-min))
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3856 (or (looking-at (regexp-quote ps-adobe-tag))
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3857 (setq needs-begin-file t))
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3858 (save-excursion
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3859 (set-buffer ps-source-buffer)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3860 (if needs-begin-file (ps-begin-file))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3861 (ps-begin-job)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3862 (ps-begin-page))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3863 (set-buffer ps-source-buffer)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3864 (funcall genfunc from to)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3865 (ps-end-page)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3866
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3867 (and ps-spool-duplex (= (mod ps-page-count 2) 1)
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3868 (ps-dummy-page))
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3869 (ps-flush-output)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3870
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3871 ;; Back to the PS output buffer to set the page count
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3872 (set-buffer ps-spool-buffer)
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3873 (goto-char (point-min))
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3874 (and (re-search-forward "^/PageCount 0 def$" nil t)
21086
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3875 (replace-match (format "/PageCount %d def"
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3876 (if ps-print-only-one-header
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3877 (ps-page-number)
12ecaaaea144 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20953
diff changeset
3878 ps-page-count))
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3879 t))
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3880
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3881 ;; Setting this variable tells the unwind form that the
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3882 ;; 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
3883 (setq completed-safely t))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3884
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3885 ;; Unwind form: If some bad mojo occurred while generating
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3886 ;; 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
3887 ;; 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
3888 ;; corrupted.
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3889 (and (markerp safe-marker) (not completed-safely)
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3890 (progn
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3891 (set-buffer ps-spool-buffer)
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3892 (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
3893
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3894 (and ps-razzle-dazzle (message "Formatting...done"))))))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3895
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3896 ;; Permit dynamic evaluation at print time of `ps-lpr-switches'.
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3897 (defun ps-do-despool (filename)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3898 (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
3899 (not (symbol-value 'ps-spool-buffer)))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3900 (message "No spooled PostScript to print")
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3901 (ps-end-file)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3902 (ps-flush-output)
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3903 (if filename
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3904 (save-excursion
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3905 (and ps-razzle-dazzle (message "Saving..."))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3906 (set-buffer ps-spool-buffer)
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3907 (setq filename (expand-file-name filename))
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3908 (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
3909 (and ps-razzle-dazzle (message "Wrote %s" filename)))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3910 ;; Else, spool to the printer
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3911 (and ps-razzle-dazzle (message "Printing..."))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3912 (save-excursion
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3913 (set-buffer ps-spool-buffer)
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3914 (if (and (eq system-type 'ms-dos)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3915 (stringp (symbol-value 'dos-ps-printer)))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3916 (write-region (point-min) (point-max)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3917 (symbol-value 'dos-ps-printer) t 0)
14190
395b22713872 (ps-do-despool): On MS-DOS, allow both the usual and
Richard M. Stallman <rms@gnu.org>
parents: 14169
diff changeset
3918 (let ((binary-process-input t)) ; for MS-DOS
395b22713872 (ps-do-despool): On MS-DOS, allow both the usual and
Richard M. Stallman <rms@gnu.org>
parents: 14169
diff changeset
3919 (apply 'call-process-region
395b22713872 (ps-do-despool): On MS-DOS, allow both the usual and
Richard M. Stallman <rms@gnu.org>
parents: 14169
diff changeset
3920 (point-min) (point-max) ps-lpr-command nil
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3921 (and (fboundp 'start-process) 0)
14190
395b22713872 (ps-do-despool): On MS-DOS, allow both the usual and
Richard M. Stallman <rms@gnu.org>
parents: 14169
diff changeset
3922 nil
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3923 (ps-flatten-list ; dynamic evaluation
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3924 (mapcar 'ps-eval-switch ps-lpr-switches))))))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3925 (and ps-razzle-dazzle (message "Printing...done")))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3926 (kill-buffer ps-spool-buffer)))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3927
20516
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3928 ;; Dynamic evaluation
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3929 (defun ps-eval-switch (arg)
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3930 (cond ((stringp arg) arg)
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3931 ((functionp arg) (apply arg nil))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3932 ((symbolp arg) (symbol-value arg))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3933 ((consp arg) (apply (car arg) (cdr arg)))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3934 (t nil)))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3935
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3936 ;; `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
3937 ;; 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
3938 ;; 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
3939
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3940 ;; (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
3941 ;; => (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
3942
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3943 (defun ps-flatten-list (&rest list)
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3944 (ps-flatten-list-1 list))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3945
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3946 (defun ps-flatten-list-1 (list)
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3947 (cond ((null list) nil)
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3948 ((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
3949 (ps-flatten-list-1 (cdr list))))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3950 (t (list list))))
d33438261904 Some comment, doc and bug fixes.
Richard M. Stallman <rms@gnu.org>
parents: 20332
diff changeset
3951
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3952 (defun ps-kill-emacs-check ()
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3953 (let (ps-buffer)
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3954 (and (setq ps-buffer (get-buffer ps-spool-buffer-name))
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3955 (buffer-modified-p ps-buffer)
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3956 (y-or-n-p "Unprinted PostScript waiting; print now? ")
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3957 (ps-despool))
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3958 (and (setq ps-buffer (get-buffer ps-spool-buffer-name))
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3959 (buffer-modified-p ps-buffer)
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3960 (not (yes-or-no-p "Unprinted PostScript waiting; exit anyway? "))
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
3961 (error "Unprinted PostScript"))))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3962
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3963 (if (fboundp 'add-hook)
16361
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
3964 (funcall 'add-hook 'kill-emacs-hook 'ps-kill-emacs-check)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3965 (if kill-emacs-hook
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3966 (message "Won't override existing kill-emacs-hook")
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3967 (setq kill-emacs-hook 'ps-kill-emacs-check)))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3968
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3969 ;;; Sample Setup Code:
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3970
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
3971 ;; 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
3972 ;; 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
3973 ;; 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
3974
11799
4a04c7799790 Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents: 10738
diff changeset
3975 ;; WARNING!!! The following code is *sample* code only. Don't use it
4a04c7799790 Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents: 10738
diff changeset
3976 ;; unless you understand what it does!
4a04c7799790 Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents: 10738
diff changeset
3977
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3978 (defmacro ps-prsc ()
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3979 `(if (eq ps-print-emacs-type 'emacs) [f22] 'f22))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3980 (defmacro ps-c-prsc ()
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3981 `(if (eq ps-print-emacs-type 'emacs) [C-f22] '(control f22)))
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3982 (defmacro ps-s-prsc ()
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
3983 `(if (eq ps-print-emacs-type 'emacs) [S-f22] '(shift f22)))
10683
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
3984
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3985 ;; 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
3986 ;; `ps-left-headers' specially for mail messages.
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3987 (defun ps-rmail-mode-hook ()
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3988 (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
3989 (setq ps-header-lines 3
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3990 ps-left-header
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3991 ;; 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
3992 ;; 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
3993 '(ps-article-subject ps-article-author buffer-name)))
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3994
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3995 ;; 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
3996 ;; same thing for rmail.
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3997 (defun ps-rmail-print-message-from-summary ()
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3998 (interactive)
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
3999 (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
4000
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4001 ;; Used in `ps-rmail-print-article-from-summary',
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4002 ;; `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
4003 (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
4004 (let ((ps-buf (or (and (boundp summary-buffer)
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4005 (symbol-value summary-buffer))
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4006 summary-default)))
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4007 (and (get-buffer ps-buf)
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4008 (save-excursion
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4009 (set-buffer ps-buf)
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4010 (ps-spool-buffer-with-faces)))))
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4011
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4012 ;; 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
4013 ;; placed in `ps-left-headers'.
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4014 (defun ps-article-subject ()
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4015 (save-excursion
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4016 (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
4017 (if (re-search-forward "^Subject:[ \t]+\\(.*\\)$" nil t)
17588
0054114145ca change all buffer-substring to buffer-substring-no-properties.
Simon Marshall <simon@gnu.org>
parents: 17440
diff changeset
4018 (buffer-substring-no-properties (match-beginning 1) (match-end 1))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4019 "Subject ???")))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4020
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4021 ;; 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
4022 ;; 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
4023 ;; 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
4024 (defun ps-article-author ()
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4025 (save-excursion
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4026 (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
4027 (if (re-search-forward "^From:[ \t]+\\(.*\\)$" nil t)
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4028 (let ((fromstring (buffer-substring-no-properties (match-beginning 1)
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4029 (match-end 1))))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4030 (cond
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4031
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4032 ;; Try first to match addresses that look like
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4033 ;; thompson@wg2.waii.com (Jim Thompson)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4034 ((string-match ".*[ \t]+(\\(.*\\))" fromstring)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4035 (substring fromstring (match-beginning 1) (match-end 1)))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4036
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4037 ;; Next try to match addresses that look like
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4038 ;; Jim Thompson <thompson@wg2.waii.com>
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4039 ((string-match "\\(.*\\)[ \t]+<.*>" fromstring)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4040 (substring fromstring (match-beginning 1) (match-end 1)))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4041
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4042 ;; Couldn't find a real name -- show the address instead.
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4043 (t fromstring)))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4044 "From ???")))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4045
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4046 ;; 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
4047 ;; `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
4048 ;; `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
4049 ;; 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
4050 ;; 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
4051 ;; only alternative is `gnus-article-prepare-hook'.
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4052 (defun ps-gnus-article-prepare-hook ()
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
4053 (setq ps-header-lines 3
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
4054 ps-left-header
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4055 ;; The left headers will display the article's subject, its
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4056 ;; author, and the newsgroup it was in.
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
4057 '(ps-article-subject ps-article-author gnus-newsgroup-name)))
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4058
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4059 ;; 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
4060 ;; `ps-left-headers' specially for mail messages.
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4061 (defun ps-vm-mode-hook ()
10683
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
4062 (local-set-key (ps-prsc) 'ps-vm-print-message-from-summary)
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
4063 (setq ps-header-lines 3
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
4064 ps-left-header
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4065 ;; The left headers will display the message's subject, its
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4066 ;; author, and the name of the folder it was in.
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
4067 '(ps-article-subject ps-article-author buffer-name)))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4068
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4069 ;; 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
4070 ;; 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
4071 ;; 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
4072 ;; 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
4073 ;; buffers first.
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4074 ;; sb: Updated for Gnus 5.
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4075 (defun ps-gnus-print-article-from-summary ()
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4076 (interactive)
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4077 (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
4078
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4079 ;; 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
4080 ;; same thing for vm.
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4081 (defun ps-vm-print-message-from-summary ()
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4082 (interactive)
19773
24853e0e38d6 Some comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19485
diff changeset
4083 (ps-print-message-from-summary 'vm-mail-buffer ""))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4084
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4085 ;; 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
4086 ;; prsc.
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4087 (defun ps-gnus-summary-setup ()
10683
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
4088 (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
4089
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4090 ;; 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
4091 ;; placed in `ps-left-headers'.
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4092 (defun ps-info-file ()
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4093 (save-excursion
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4094 (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
4095 (if (re-search-forward "File:[ \t]+\\([^, \t\n]*\\)" nil t)
17588
0054114145ca change all buffer-substring to buffer-substring-no-properties.
Simon Marshall <simon@gnu.org>
parents: 17440
diff changeset
4096 (buffer-substring-no-properties (match-beginning 1) (match-end 1))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4097 "File ???")))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4098
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4099 ;; 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
4100 ;; placed in `ps-left-headers'.
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4101 (defun ps-info-node ()
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4102 (save-excursion
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4103 (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
4104 (if (re-search-forward "Node:[ \t]+\\([^,\t\n]*\\)" nil t)
17588
0054114145ca change all buffer-substring to buffer-substring-no-properties.
Simon Marshall <simon@gnu.org>
parents: 17440
diff changeset
4105 (buffer-substring-no-properties (match-beginning 1) (match-end 1))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4106 "Node ???")))
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4107
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4108 (defun ps-info-mode-hook ()
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4109 (setq ps-left-header
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4110 ;; The left headers will display the node name and file name.
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
4111 '(ps-info-node ps-info-file)))
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4112
11799
4a04c7799790 Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents: 10738
diff changeset
4113 ;; 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
4114 ;; 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
4115 ;; 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
4116 ;; 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
4117 ;; modification.)
4a04c7799790 Miscellaneous fixes for better compatibility with
Karl Heuer <kwzh@gnu.org>
parents: 10738
diff changeset
4118
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4119 (defun ps-jts-ps-setup ()
10683
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
4120 (global-set-key (ps-prsc) 'ps-spool-buffer-with-faces) ;f22 is prsc
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
4121 (global-set-key (ps-s-prsc) 'ps-spool-region-with-faces)
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
4122 (global-set-key (ps-c-prsc) 'ps-despool)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4123 (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
4124 (add-hook 'gnus-summary-mode-hook 'ps-gnus-summary-setup)
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4125 (add-hook 'vm-mode-hook 'ps-vm-mode-hook)
10683
64e6021d0ba0 Various changes.
Richard M. Stallman <rms@gnu.org>
parents: 10493
diff changeset
4126 (add-hook 'vm-mode-hooks 'ps-vm-mode-hook)
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4127 (add-hook 'Info-mode-hook 'ps-info-mode-hook)
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
4128 (setq ps-spool-duplex t
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
4129 ps-print-color-p nil
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
4130 ps-lpr-command "lpr"
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
4131 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
4132 '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
4133
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4134 ;; 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
4135 ;; 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
4136 ;; (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
4137 ;; 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
4138 ;; without modification.)
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4139
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4140 (defun ps-jack-setup ()
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4141 (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
4142 ps-lpr-command "lpr"
20331
39baaa9c5980 Some comment and doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20019
diff changeset
4143 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
4144
19445
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4145 ps-paper-type 'a4
94a54fbffb3e A lot of comment and doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 19011
diff changeset
4146 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
4147 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
4148
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4149 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
4150 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
4151 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
4152 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
4153 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
4154 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
4155 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
4156 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
4157 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
4158 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
4159 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
4160 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
4161
032601b9959b (ps-print-prologue-1): Fix bug in postscript comment lines.
Richard M. Stallman <rms@gnu.org>
parents: 16186
diff changeset
4162 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
4163 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
4164 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
4165 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
4166 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
4167 'ps-jack-setup)
7257
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4168
3759ad84023b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4169 (provide 'ps-print)
10738
e7d5b119b583 (ps-print-version): Add caveat about version number.
Richard M. Stallman <rms@gnu.org>
parents: 10683
diff changeset
4170
10492
a0f38717d82d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 7257
diff changeset
4171 ;;; ps-print.el ends here