2001-07-16 14:36:26 +00:00
|
|
|
|
;;; ps-print.el --- print text from the buffer as PostScript
|
1995-01-20 06:09:03 +00:00
|
|
|
|
|
2003-02-13 11:57:42 +00:00
|
|
|
|
;; Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002,
|
2005-03-19 04:11:54 +00:00
|
|
|
|
;; 2003, 2004, 2005 Free Software Foundation, Inc.
|
1994-05-01 22:09:01 +00:00
|
|
|
|
|
2001-07-16 14:36:26 +00:00
|
|
|
|
;; Author: Jim Thompson (was <thompson@wg2.waii.com>)
|
|
|
|
|
;; Jacques Duthen (was <duthen@cegelec-red.fr>)
|
2003-03-06 01:54:17 +00:00
|
|
|
|
;; Vinicius Jose Latorre <viniciusjl@ig.com.br>
|
2001-07-16 14:36:26 +00:00
|
|
|
|
;; Kenichi Handa <handa@etl.go.jp> (multi-byte characters)
|
|
|
|
|
;; Maintainer: Kenichi Handa <handa@etl.go.jp> (multi-byte characters)
|
2003-03-06 01:54:17 +00:00
|
|
|
|
;; Vinicius Jose Latorre <viniciusjl@ig.com.br>
|
2001-07-16 14:36:26 +00:00
|
|
|
|
;; Keywords: wp, print, PostScript
|
2005-03-19 04:11:54 +00:00
|
|
|
|
;; Time-stamp: <2005/03/19 00:40:12 vinicius>
|
|
|
|
|
;; Version: 6.6.6
|
2001-07-16 14:36:26 +00:00
|
|
|
|
;; X-URL: http://www.cpqd.com.br/~vinicius/emacs/
|
Multi-byte buffer handling.
(ps-print-version): New version number (4.0) and doc fix.
(ps-color-device, ps-face-bold-p, ps-face-italic-p): Conditional
compilation for GNU Emacs and emacsens.
(ps-generate-postscript-with-faces): Force invisible text to be
visible.
(dos-ps-printer): New var to avoid compilation gripes.
(ps-mule-plot-string): Pay attention to the case
that no more characters can't be printed in the current line.
(ps-mule-find-wrappoint): ENDPOS should not be greater than TO.
Add codes to make ps-print.el work also on Emacs
20.2 and the earlier version.
(ps-mule-encode-7bit, ps-mule-encode-8bit): Modified for 20.2.
(ccl-encode-ethio-unicode, ps-mule-encode-ethiopic): Likewise.
(ps-mule-find-wrappoint): Likewise.
(ps-mule-generate-font): Change `X' to `x' in format
control-string.
(ps-generate): Call ps-mule-begin before calling ps-begin-job.
(ps-mule-cmpchar-prologue): Delete unnecessary `gsave' and
`restore' form procedures `BC' and `EC'.
(ps-print-prologue-1): Handle the case that FontBBox
is an executable procedure. Make LineThickness, Xshadow, and
Yshadow relative to FontHeight. Set SpaceWidth in BeginDoc.
(ps-mule-font-info-database, ps-mule-font-info-database-ps,
ps-mule-font-info-database-bdf): New vars.
(ps-mule-encode-7bit, ps-mule-encode-8bit): New funs.
(ccl-encode-ethio-unicode): New CCL program.
(ps-mule-encode-ethiopic): New fun.
(ps-mule-current-charset): New var.
(ps-mule-get-font-spec, ps-mule-font-spec-src,
ps-mule-font-spec-name, ps-mule-font-spec-encoding,
ps-mule-font-spec-bytes, ps-mule-printable-p): New funs.
(ps-mule-external-libraries): New var.
(ps-mule-init-external-library): New fun.
(ps-mule-font-cache): New var.
(ps-mule-generate-font, ps-mule-generate-glyphs): New funs.
(ps-last-font): New var.
(ps-mule-prepare-font): New fun.
(ps-mule-charset-list): New var.
(ps-mule-prologue-generated, ps-mule-prologue): New vars.
(ps-mule-skip-same-charset, ps-mule-find-wrappoint,
ps-mule-plot-string): New funs.
(ps-mule-cmpchar-prologue-generated, ps-mule-cmpchar-prologue):
New vars.
(ps-mule-plot-rule-cmpchar, ps-mule-plot-cmpchar,
ps-mule-prepare-cmpchar-font): New funs.
(ps-mule-bitmap-prologue-generated, ps-mule-bitmap-prologue): New
vars.
(ps-mule-generate-bitmap-prologue, ps-mule-generate-bitmap-font,
ps-mule-generate-bitmap-glyph): New funs.
(ps-mule-initialize, ps-mule-begin): New funs.
(ps-output-string-prim): Insert string as unibyte.
(ps-output-prologue): New fun.
(ps-flush-output): Handle the case of 'prologue.
(ps-begin-file): Call ps-mule-initialize.
(ps-begin-job): Set ps-control-or-escape-regexp differently if
printing multibyte characters.
(ps-begin-page): Set ps-mule-current-charset to 'ascii.
(ps-basic-plot-string): Handle the case of printing ASCII
characters by external libraries (e.g. BDF).
(ps-set-font): Set ps-last-font.
(ps-plot-region): Handle multibyte characters, use
ps-mule-plot-string for them.
(ps-generate): Set the spool buffer unibyte. Call ps-mule-begin.
1998-08-24 10:19:29 +00:00
|
|
|
|
|
2005-03-19 04:11:54 +00:00
|
|
|
|
(defconst ps-print-version "6.6.6"
|
2005-03-19 04:18:17 +00:00
|
|
|
|
"ps-print.el, v 6.6.6 <2005/03/19 vinicius>
|
1997-01-16 05:09:21 +00:00
|
|
|
|
|
1997-08-23 06:51:42 +00:00
|
|
|
|
Vinicius's last change version -- this file may have been edited as part of
|
2000-04-29 19:27:49 +00:00
|
|
|
|
Emacs without changes to the version number. When reporting bugs, please also
|
|
|
|
|
report the version of Emacs, if any, that ps-print was distributed with.
|
1997-01-16 05:09:21 +00:00
|
|
|
|
|
|
|
|
|
Please send all bug fixes and enhancements to
|
2003-03-06 01:54:17 +00:00
|
|
|
|
Vinicius Jose Latorre <viniciusjl@ig.com.br>.")
|
1994-05-01 22:09:01 +00:00
|
|
|
|
|
1995-01-20 06:20:32 +00:00
|
|
|
|
;; This file is part of GNU Emacs.
|
1994-05-01 22:09:01 +00:00
|
|
|
|
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; GNU Emacs is free software; you can redistribute it and/or modify it under
|
|
|
|
|
;; the terms of the GNU General Public License as published by the Free
|
|
|
|
|
;; Software Foundation; either version 2, or (at your option) any later
|
|
|
|
|
;; version.
|
1994-05-01 22:09:01 +00:00
|
|
|
|
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; GNU Emacs is distributed in the hope that it will be useful, but WITHOUT ANY
|
|
|
|
|
;; WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
|
|
|
|
|
;; FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
|
|
|
|
|
;; details.
|
1994-05-01 22:09:01 +00:00
|
|
|
|
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; You should have received a copy of the GNU General Public License along with
|
|
|
|
|
;; GNU Emacs; see the file COPYING. If not, write to the Free Software
|
|
|
|
|
;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
1994-05-01 22:09:01 +00:00
|
|
|
|
|
1995-01-20 06:09:03 +00:00
|
|
|
|
;;; Commentary:
|
1994-05-01 22:09:01 +00:00
|
|
|
|
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
1994-05-01 22:09:01 +00:00
|
|
|
|
;;
|
1995-01-20 06:09:03 +00:00
|
|
|
|
;; About ps-print
|
1994-05-01 22:09:01 +00:00
|
|
|
|
;; --------------
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
;;
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; This package provides printing of Emacs buffers on PostScript printers; the
|
|
|
|
|
;; buffer's bold and italic text attributes are preserved in the printer
|
2002-09-29 03:30:41 +00:00
|
|
|
|
;; output. ps-print is intended for use with Emacs or XEmacs, together with a
|
|
|
|
|
;; fontifying package such as font-lock or hilit.
|
1995-01-20 06:09:03 +00:00
|
|
|
|
;;
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; ps-print uses the same face attributes defined through font-lock or hilit to
|
|
|
|
|
;; print a PostScript file, but some faces are better seeing on the screen than
|
|
|
|
|
;; on paper, specially when you have a black/white PostScript printer.
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
;;
|
|
|
|
|
;; ps-print allows a remap of face to another one that it is better to print,
|
|
|
|
|
;; for example, the face font-lock-comment-face (if you are using font-lock)
|
|
|
|
|
;; could have bold or italic attribute when printing, besides foreground color.
|
|
|
|
|
;; This remap improves printing look (see How Ps-Print Maps Faces).
|
|
|
|
|
;;
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
;;
|
1995-01-20 06:09:03 +00:00
|
|
|
|
;; Using ps-print
|
1994-05-01 22:09:01 +00:00
|
|
|
|
;; --------------
|
|
|
|
|
;;
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; ps-print provides eight commands for generating PostScript images of Emacs
|
|
|
|
|
;; buffers:
|
1995-01-20 06:09:03 +00:00
|
|
|
|
;;
|
|
|
|
|
;; ps-print-buffer
|
|
|
|
|
;; ps-print-buffer-with-faces
|
|
|
|
|
;; ps-print-region
|
|
|
|
|
;; ps-print-region-with-faces
|
|
|
|
|
;; ps-spool-buffer
|
|
|
|
|
;; ps-spool-buffer-with-faces
|
|
|
|
|
;; ps-spool-region
|
|
|
|
|
;; ps-spool-region-with-faces
|
|
|
|
|
;;
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; These commands all perform essentially the same function: they generate
|
|
|
|
|
;; PostScript images suitable for printing on a PostScript printer or
|
|
|
|
|
;; displaying with GhostScript. These commands are collectively referred to as
|
|
|
|
|
;; "ps-print- commands".
|
1995-01-20 06:09:03 +00:00
|
|
|
|
;;
|
|
|
|
|
;; The word "print" or "spool" in the command name determines when the
|
|
|
|
|
;; PostScript image is sent to the printer:
|
1994-05-01 22:09:01 +00:00
|
|
|
|
;;
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; print - The PostScript image is immediately sent to the printer;
|
1994-05-01 22:09:01 +00:00
|
|
|
|
;;
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; spool - The PostScript image is saved temporarily in an Emacs
|
|
|
|
|
;; buffer. Many images may be spooled locally before
|
|
|
|
|
;; printing them. To send the spooled images to the
|
|
|
|
|
;; printer, use the command `ps-despool'.
|
1994-05-01 22:09:01 +00:00
|
|
|
|
;;
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; The spooling mechanism was designed for printing lots of small files (mail
|
|
|
|
|
;; messages or netnews articles) to save paper that would otherwise be wasted
|
|
|
|
|
;; on banner pages, and to make it easier to find your output at the printer
|
|
|
|
|
;; (it's easier to pick up one 50-page printout than to find 50 single-page
|
|
|
|
|
;; printouts).
|
1997-09-11 23:51:29 +00:00
|
|
|
|
;;
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; ps-print has a hook in the `kill-emacs-hook' so that you won't accidentally
|
|
|
|
|
;; quit from Emacs while you have unprinted PostScript waiting in the spool
|
|
|
|
|
;; buffer. If you do attempt to exit with spooled PostScript, you'll be asked
|
|
|
|
|
;; if you want to print it, and if you decline, you'll be asked to confirm the
|
|
|
|
|
;; exit; this is modeled on the confirmation that Emacs uses for modified
|
|
|
|
|
;; buffers.
|
1995-01-20 06:09:03 +00:00
|
|
|
|
;;
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; The word "buffer" or "region" in the command name determines how much of the
|
|
|
|
|
;; buffer is printed:
|
1995-01-20 06:09:03 +00:00
|
|
|
|
;;
|
|
|
|
|
;; buffer - Print the entire buffer.
|
|
|
|
|
;;
|
|
|
|
|
;; region - Print just the current region.
|
|
|
|
|
;;
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; The -with-faces suffix on the command name means that the command will
|
|
|
|
|
;; include font, color, and underline information in the PostScript image, so
|
|
|
|
|
;; the printed image can look as pretty as the buffer. The ps-print- commands
|
|
|
|
|
;; without the -with-faces suffix don't include font, color, or underline
|
|
|
|
|
;; information; images printed with these commands aren't as pretty, but are
|
|
|
|
|
;; faster to generate.
|
1995-01-20 06:09:03 +00:00
|
|
|
|
;;
|
|
|
|
|
;; Two ps-print- command examples:
|
|
|
|
|
;;
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; ps-print-buffer - print the entire buffer, without font,
|
|
|
|
|
;; color, or underline information, and
|
|
|
|
|
;; send it immediately to the printer.
|
1995-01-20 06:09:03 +00:00
|
|
|
|
;;
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; ps-spool-region-with-faces - print just the current region; include
|
|
|
|
|
;; font, color, and underline information,
|
|
|
|
|
;; and spool the image in Emacs to send to
|
|
|
|
|
;; the printer later.
|
1995-01-20 06:09:03 +00:00
|
|
|
|
;;
|
|
|
|
|
;;
|
|
|
|
|
;; Invoking Ps-Print
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
;; -----------------
|
1994-05-01 22:09:01 +00:00
|
|
|
|
;;
|
1995-01-20 06:09:03 +00:00
|
|
|
|
;; To print your buffer, type
|
1994-05-01 22:09:01 +00:00
|
|
|
|
;;
|
1995-01-20 06:09:03 +00:00
|
|
|
|
;; M-x ps-print-buffer
|
1994-05-01 22:09:01 +00:00
|
|
|
|
;;
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; or substitute one of the other seven ps-print- commands. The command will
|
|
|
|
|
;; generate the PostScript image and print or spool it as specified. By giving
|
|
|
|
|
;; the command a prefix argument
|
1995-01-20 06:09:03 +00:00
|
|
|
|
;;
|
|
|
|
|
;; C-u M-x ps-print-buffer
|
|
|
|
|
;;
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; it will save the PostScript image to a file instead of sending it to the
|
|
|
|
|
;; printer; you will be prompted for the name of the file to save the image to.
|
|
|
|
|
;; The prefix argument is ignored by the commands that spool their images, but
|
|
|
|
|
;; you may save the spooled images to a file by giving a prefix argument to
|
|
|
|
|
;; `ps-despool':
|
1995-01-20 06:09:03 +00:00
|
|
|
|
;;
|
|
|
|
|
;; C-u M-x ps-despool
|
|
|
|
|
;;
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; When invoked this way, `ps-despool' will prompt you for the name of the file
|
|
|
|
|
;; to save to.
|
1995-01-20 06:09:03 +00:00
|
|
|
|
;;
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; Any of the `ps-print-' commands can be bound to keys; I recommend binding
|
|
|
|
|
;; `ps-spool-buffer-with-faces', `ps-spool-region-with-faces', and
|
|
|
|
|
;; `ps-despool'. Here are the bindings I use on my Sun 4 keyboard:
|
1995-01-20 06:09:03 +00:00
|
|
|
|
;;
|
|
|
|
|
;; (global-set-key 'f22 'ps-spool-buffer-with-faces) ;f22 is prsc
|
1994-05-01 22:09:01 +00:00
|
|
|
|
;; (global-set-key '(shift f22) 'ps-spool-region-with-faces)
|
|
|
|
|
;; (global-set-key '(control f22) 'ps-despool)
|
|
|
|
|
;;
|
1995-01-20 06:09:03 +00:00
|
|
|
|
;;
|
|
|
|
|
;; The Printer Interface
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
;; ---------------------
|
1995-01-20 06:09:03 +00:00
|
|
|
|
;;
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; The variables `ps-lpr-command' and `ps-lpr-switches' determine what command
|
|
|
|
|
;; is used to send the PostScript images to the printer, and what arguments to
|
|
|
|
|
;; give the command. These are analogous to `lpr-command' and `lpr-switches'.
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
;;
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
;; Make sure that they contain appropriate values for your system;
|
|
|
|
|
;; see the usage notes below and the documentation of these variables.
|
|
|
|
|
;;
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
;; The variable `ps-printer-name' determines the name of a local printer for
|
User option for multibyte buffer handling and doc fix.
(ps-multibyte-buffer): New user option.
(ps-setup): Print new user option.
(ps-print-quote): New fun.
(ps-color-p, ps-mule-font-info-database-latin): New var.
(ps-default-color, ps-mule-font-info-database)
(ps-mule-font-info-database-ps-bdf): Adjust initialization.
(ps-mule-get-font-spec, ps-mule-begin, ps-begin-file)
(ps-plot-with-face, ps-generate-postscript-with-faces, ps-generate):
Little code improvement.
(ps-mule-initialize): Initialize ps-mule-font-info-database.
(ps-print-prologue-header, ps-font-family, ps-font-size)
(ps-header-font-family, ps-header-font-size, ps-header-title-font-size)
(ps-build-face-reference, ps-mule-font-info-database-bdf)
(ps-mule-external-libraries, ps-mule-init-external-library)
(ps-mule-prepare-font, ps-mule-find-wrappoint, ps-mule-plot-string): doc
fix.
To make it work also on Emacs 20.2 and the earlier
version, check the value of mule-version.
(ps-print-version): New version number (4.1.1) and doc
fix.
(ps-print-prologue-header): New user option.
(ps-color-values, ps-xemacs-face-kind-p, ps-mapper, ps-extent-sorter):
Conditional compilation for GNU Emacs and emacsens.
(ps-generate-postscript-with-faces): Skip invisible text better.
(ps-setup): Print new user option.
(ps-print-preprint): Check if input file name exists and is unwritable.
(ps-begin-file): Adjust PostScript prologue header for duplex printers
and insert user PostScript prologue header comments.
(ps-mule-encode-bit, ps-mule-string-ascii, ps-mule-string-encoding): New
funs.
(dos-ps-printer, lazy-lock-fontify-buffer): Eliminated.
(ps-mule-prologue, ps-mule-cmpchar-prologue, ps-mule-bitmap-prologue):
PostScript programming normalization.
(ps-mule-encode-7bit, ps-mule-encode-8bit, ps-mule-generate-font)
(ps-mule-generate-glyphs, ps-mule-prepare-font, ps-mule-plot-string)
(ps-mule-skip-same-charset, ps-mule-plot-rule-cmpchar)
(ps-mule-plot-cmpchar, ps-mule-prepare-cmpchar-font)
(ps-mule-initialize, ps-mule-begin, ps-face-bold-p, ps-do-despool):
Programming style normalization.
1998-10-26 20:22:17 +00:00
|
|
|
|
;; printing PostScript files.
|
|
|
|
|
;;
|
2000-10-18 14:31:05 +00:00
|
|
|
|
;; The variable `ps-printer-name-option' determines the option used by some
|
|
|
|
|
;; utilities to indicate the printer name, it's used only when
|
|
|
|
|
;; `ps-printer-name' is a non-empty string. If you're using lpr utility to
|
|
|
|
|
;; print, for example, `ps-printer-name-option' should be set to "-P".
|
|
|
|
|
;;
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; NOTE: `ps-lpr-command' and `ps-lpr-switches' take their initial values from
|
|
|
|
|
;; the variables `lpr-command' and `lpr-switches'. If you have
|
|
|
|
|
;; `lpr-command' set to invoke a pretty-printer such as `enscript', then
|
|
|
|
|
;; ps-print won't work properly. `ps-lpr-command' must name a program
|
|
|
|
|
;; that does not format the files it prints.
|
User option for multibyte buffer handling and doc fix.
(ps-multibyte-buffer): New user option.
(ps-setup): Print new user option.
(ps-print-quote): New fun.
(ps-color-p, ps-mule-font-info-database-latin): New var.
(ps-default-color, ps-mule-font-info-database)
(ps-mule-font-info-database-ps-bdf): Adjust initialization.
(ps-mule-get-font-spec, ps-mule-begin, ps-begin-file)
(ps-plot-with-face, ps-generate-postscript-with-faces, ps-generate):
Little code improvement.
(ps-mule-initialize): Initialize ps-mule-font-info-database.
(ps-print-prologue-header, ps-font-family, ps-font-size)
(ps-header-font-family, ps-header-font-size, ps-header-title-font-size)
(ps-build-face-reference, ps-mule-font-info-database-bdf)
(ps-mule-external-libraries, ps-mule-init-external-library)
(ps-mule-prepare-font, ps-mule-find-wrappoint, ps-mule-plot-string): doc
fix.
To make it work also on Emacs 20.2 and the earlier
version, check the value of mule-version.
(ps-print-version): New version number (4.1.1) and doc
fix.
(ps-print-prologue-header): New user option.
(ps-color-values, ps-xemacs-face-kind-p, ps-mapper, ps-extent-sorter):
Conditional compilation for GNU Emacs and emacsens.
(ps-generate-postscript-with-faces): Skip invisible text better.
(ps-setup): Print new user option.
(ps-print-preprint): Check if input file name exists and is unwritable.
(ps-begin-file): Adjust PostScript prologue header for duplex printers
and insert user PostScript prologue header comments.
(ps-mule-encode-bit, ps-mule-string-ascii, ps-mule-string-encoding): New
funs.
(dos-ps-printer, lazy-lock-fontify-buffer): Eliminated.
(ps-mule-prologue, ps-mule-cmpchar-prologue, ps-mule-bitmap-prologue):
PostScript programming normalization.
(ps-mule-encode-7bit, ps-mule-encode-8bit, ps-mule-generate-font)
(ps-mule-generate-glyphs, ps-mule-prepare-font, ps-mule-plot-string)
(ps-mule-skip-same-charset, ps-mule-plot-rule-cmpchar)
(ps-mule-plot-cmpchar, ps-mule-prepare-cmpchar-font)
(ps-mule-initialize, ps-mule-begin, ps-face-bold-p, ps-do-despool):
Programming style normalization.
1998-10-26 20:22:17 +00:00
|
|
|
|
;; `ps-printer-name' takes its initial value from the variable
|
2000-10-18 14:31:05 +00:00
|
|
|
|
;; `printer-name'. `ps-printer-name-option' tries to guess which system
|
|
|
|
|
;; Emacs is running and takes its initial value in accordance with this
|
|
|
|
|
;; guess.
|
1995-01-20 06:09:03 +00:00
|
|
|
|
;;
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
;; The variable `ps-print-region-function' specifies a function to print the
|
|
|
|
|
;; region on a PostScript printer.
|
|
|
|
|
;; See definition of `call-process-region' for calling conventions. The fourth
|
|
|
|
|
;; and the sixth arguments are both nil.
|
|
|
|
|
;;
|
XEmacs compatibility. Doc fix. Can select page size
with/without giving an error if PostScript printer doesn't have this
kind of page size. Zebra Stripe continues or restarts on next page.
Manual/automatic paper feeding. Switch or not the header.
(ps-print-version): New version number (5.2.2).
(ps-windows-system): Include emx as a Windows system.
(ps-setup, ps-begin-file, ps-color-values, ps-screen-to-bit-face)
(ps-generate-postscript-with-faces, ps-generate-postscript-with-faces)
(ps-background-text): Code fix.
(ps-error-handler-message, ps-user-defined-prologue)
(ps-print-prologue-header, ps-printer-name)
(ps-print-control-characters, ps-n-up-filling, ps-zebra-color)
(ps-line-number-step, ps-spool-config, ps-default-fg, ps-default-bg)
(ps-use-face-background): Customization fix.
(ps-n-up-database): Data fix.
(ps-warn-paper-type, ps-zebra-stripe-follow, ps-manual-feed)
(ps-switch-header): New vars.
(ps-xemacs-color-name, ps-face-foreground-name)
(ps-face-background-name, ps-boolean-constant): New funs.
2000-06-07 15:34:55 +00:00
|
|
|
|
;; The variable `ps-manual-feed' indicates if the printer will manually feed
|
|
|
|
|
;; paper. If it's nil, automatic feeding takes place. If it's non-nil, manual
|
|
|
|
|
;; feeding takes place. The default is nil (automatic feeding).
|
|
|
|
|
;;
|
(ps-end-job): Bind case-fold-search only after
switching to ps-spool-buffer.
Line number font customization. PostScript: Lines and
PageCount are initialized on each page. Doc Fix.
(ps-print-version): New version number (6.3.2).
(ps-lpr-switches, ps-font-info-database, ps-font-size)
(ps-header-font-size, ps-header-title-font-size, ps-left-header)
(ps-right-header): Customization fix.
(ps-setup, ps-select-font, ps-begin-file, ps-header-sheet, ps-end-job):
Fix code.
(ps-end-with-control-d, ps-line-number-font, ps-line-number-font-size):
New vars.
2000-11-30 13:20:49 +00:00
|
|
|
|
;; The variable `ps-end-with-control-d' specifies whether C-d (\x04) should be
|
|
|
|
|
;; inserted at end of PostScript generated. Non-nil means do so. The default
|
|
|
|
|
;; is nil (don't insert).
|
|
|
|
|
;;
|
2000-05-18 21:50:51 +00:00
|
|
|
|
;; If you're using Emacs for Windows 95/98/NT or MS-DOS, don't forget to
|
2000-10-18 14:31:05 +00:00
|
|
|
|
;; customize the following variables: `ps-printer-name',
|
|
|
|
|
;; `ps-printer-name-option', `ps-lpr-command', `ps-lpr-switches' and
|
|
|
|
|
;; `ps-spool-config'. See these variables documentation in the code or by
|
|
|
|
|
;; typing, for example, C-h v ps-printer-name RET.
|
2000-04-13 19:15:23 +00:00
|
|
|
|
;;
|
1995-01-20 06:09:03 +00:00
|
|
|
|
;;
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
;; The Page Layout
|
|
|
|
|
;; ---------------
|
1995-01-20 06:09:03 +00:00
|
|
|
|
;;
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
;; All dimensions are floats in PostScript points.
|
|
|
|
|
;; 1 inch == 2.54 cm == 72 points
|
|
|
|
|
;; 1 cm == (/ 1 2.54) inch == (/ 72 2.54) points
|
1995-01-20 06:09:03 +00:00
|
|
|
|
;;
|
2000-04-29 19:27:49 +00:00
|
|
|
|
;; The variable `ps-paper-type' determines the size of paper ps-print formats
|
|
|
|
|
;; for; it should contain one of the symbols: `a4' `a3' `letter' `legal'
|
|
|
|
|
;; `letter-small' `tabloid' `ledger' `statement' `executive' `a4small' `b4'
|
|
|
|
|
;; `b5'.
|
1995-01-20 06:09:03 +00:00
|
|
|
|
;;
|
XEmacs compatibility. Doc fix. Can select page size
with/without giving an error if PostScript printer doesn't have this
kind of page size. Zebra Stripe continues or restarts on next page.
Manual/automatic paper feeding. Switch or not the header.
(ps-print-version): New version number (5.2.2).
(ps-windows-system): Include emx as a Windows system.
(ps-setup, ps-begin-file, ps-color-values, ps-screen-to-bit-face)
(ps-generate-postscript-with-faces, ps-generate-postscript-with-faces)
(ps-background-text): Code fix.
(ps-error-handler-message, ps-user-defined-prologue)
(ps-print-prologue-header, ps-printer-name)
(ps-print-control-characters, ps-n-up-filling, ps-zebra-color)
(ps-line-number-step, ps-spool-config, ps-default-fg, ps-default-bg)
(ps-use-face-background): Customization fix.
(ps-n-up-database): Data fix.
(ps-warn-paper-type, ps-zebra-stripe-follow, ps-manual-feed)
(ps-switch-header): New vars.
(ps-xemacs-color-name, ps-face-foreground-name)
(ps-face-background-name, ps-boolean-constant): New funs.
2000-06-07 15:34:55 +00:00
|
|
|
|
;; If variable `ps-warn-paper-type' is nil, it's *not* given an error if
|
|
|
|
|
;; PostScript printer doesn't have a paper with the size indicated by
|
|
|
|
|
;; `ps-paper-type', instead it uses the default paper size. If variable
|
|
|
|
|
;; `ps-warn-paper-type' is non-nil, it's given an error if PostScript printer
|
|
|
|
|
;; doesn't have a paper with the size indicated by `ps-paper-type'. It's used
|
|
|
|
|
;; when `ps-spool-config' is set to `setpagedevice' (see section Duplex
|
|
|
|
|
;; Printers). The default value is non-nil (it gives an error).
|
|
|
|
|
;;
|
2000-04-29 19:27:49 +00:00
|
|
|
|
;; The variable `ps-landscape-mode' determines the orientation of the printing
|
|
|
|
|
;; on the page: nil means `portrait' mode, non-nil means `landscape' mode.
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
;; There is no oblique mode yet, though this is easy to do in ps.
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
;;
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; In landscape mode, the text is NOT scaled: you may print 70 lines in
|
|
|
|
|
;; portrait mode and only 50 lines in landscape mode. The margins represent
|
|
|
|
|
;; margins in the printed paper: the top margin is the margin between the top
|
|
|
|
|
;; of the page and the printed header, whatever the orientation is.
|
1995-05-12 02:18:47 +00:00
|
|
|
|
;;
|
2000-04-29 19:27:49 +00:00
|
|
|
|
;; The variable `ps-number-of-columns' determines the number of columns both in
|
|
|
|
|
;; landscape and portrait mode.
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
;; You can use:
|
2000-04-29 19:27:49 +00:00
|
|
|
|
;; - (the standard) one column portrait mode.
|
|
|
|
|
;; - (my favorite) two columns landscape mode (which spares trees).
|
|
|
|
|
;; but also:
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
;; - one column landscape mode for files with very long lines.
|
2000-04-29 19:27:49 +00:00
|
|
|
|
;; - multi-column portrait or landscape mode.
|
|
|
|
|
;;
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; The variable `ps-print-upside-down' determines other orientation for
|
|
|
|
|
;; printing page: nil means `normal' printing, non-nil means `upside-down'
|
|
|
|
|
;; printing (that is, the page is rotated by 180 grades). The default value is
|
|
|
|
|
;; nil (`normal' printing).
|
2000-04-29 19:27:49 +00:00
|
|
|
|
;;
|
|
|
|
|
;; The `upside-down' orientation can be used in portrait or landscape mode.
|
1995-01-20 06:09:03 +00:00
|
|
|
|
;;
|
Fix bug: if ^L is the very first buffer character,
ps-print crashes. New feature: page selection for printing. Create
raw-text-unix coding system for XEmacs. Doc fix.
(ps-print-version): New version number (5.2.3).
(ps-plot-region): Bug fix.
(ps-setup, ps-init-output-queue, ps-output, ps-begin-job, ps-end-file)
(ps-header-sheet, ps-generate, ps-end-job): Code fix.
(ps-restore-selected-pages, ps-selected-pages, ps-print-page-p): New
funs.
(ps-selected-pages, ps-last-selected-pages, ps-first-page)
(ps-last-page): New vars.
2000-06-22 12:27:49 +00:00
|
|
|
|
;; The variable `ps-selected-pages' specifies which pages to print. If it's
|
|
|
|
|
;; nil, all pages are printed. If it's a list, the list element may be an
|
|
|
|
|
;; integer or a cons cell (FROM . TO) designating FROM page to TO page; any
|
|
|
|
|
;; invalid element is ignored, that is, an integer lesser than one or if FROM
|
|
|
|
|
;; is greater than TO. Otherwise, it's treated as nil. The default value is
|
|
|
|
|
;; nil (print all pages). After ps-print processing `ps-selected-pages' is set
|
|
|
|
|
;; to nil. But the latest `ps-selected-pages' is saved in
|
|
|
|
|
;; `ps-last-selected-pages' (see it for documentation). So you can restore the
|
|
|
|
|
;; latest selected pages by using `ps-last-selected-pages' or by calling
|
|
|
|
|
;; `ps-restore-selected-pages' command (see it for documentation).
|
|
|
|
|
;;
|
2000-08-29 10:51:52 +00:00
|
|
|
|
;; The variable `ps-even-or-odd-pages' specifies if it prints even/odd pages.
|
|
|
|
|
;;
|
|
|
|
|
;; Valid values are:
|
|
|
|
|
;;
|
|
|
|
|
;; nil print all pages.
|
|
|
|
|
;;
|
2000-11-02 12:04:59 +00:00
|
|
|
|
;; even-page print only even pages.
|
2000-08-29 10:51:52 +00:00
|
|
|
|
;;
|
2000-11-02 12:04:59 +00:00
|
|
|
|
;; odd-page print only odd pages.
|
|
|
|
|
;;
|
|
|
|
|
;; even-sheet print only even sheets.
|
|
|
|
|
;;
|
|
|
|
|
;; odd-sheet print only odd sheets.
|
2000-08-29 10:51:52 +00:00
|
|
|
|
;;
|
|
|
|
|
;; Any other value is treated as nil. The default value is nil.
|
|
|
|
|
;;
|
2000-11-02 12:04:59 +00:00
|
|
|
|
;; See `ps-even-or-odd-pages' for more detailed documentation.
|
|
|
|
|
;;
|
1995-01-20 06:09:03 +00:00
|
|
|
|
;;
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
;; Horizontal layout
|
|
|
|
|
;; -----------------
|
1995-01-20 06:09:03 +00:00
|
|
|
|
;;
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
;; The horizontal layout is determined by the variables
|
|
|
|
|
;; `ps-left-margin' `ps-inter-column' `ps-right-margin'
|
|
|
|
|
;; as follows:
|
1995-01-20 06:09:03 +00:00
|
|
|
|
;;
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
;; ------------------------------------------
|
|
|
|
|
;; | | | | | | | |
|
|
|
|
|
;; | lm | text | ic | text | ic | text | rm |
|
|
|
|
|
;; | | | | | | | |
|
|
|
|
|
;; ------------------------------------------
|
1995-01-20 06:09:03 +00:00
|
|
|
|
;;
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
;; If `ps-number-of-columns' is 1, `ps-inter-column' is not relevant.
|
|
|
|
|
;; Usually, lm = rm > 0 and ic = lm
|
|
|
|
|
;; If (ic < 0), the text of adjacent columns can overlap.
|
1995-01-20 06:09:03 +00:00
|
|
|
|
;;
|
|
|
|
|
;;
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
;; Vertical layout
|
|
|
|
|
;; ---------------
|
|
|
|
|
;;
|
|
|
|
|
;; The vertical layout is determined by the variables
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; `ps-bottom-margin' `ps-top-margin' `ps-header-offset' `ps-footer-offset'
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
;; as follows:
|
|
|
|
|
;;
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; |--------| |--------| |--------| |--------|
|
|
|
|
|
;; | tm | | tm | | tm | | tm |
|
|
|
|
|
;; |--------| |--------| |--------| |--------|
|
|
|
|
|
;; | header | | | | header | | |
|
|
|
|
|
;; |--------| | | |--------| | |
|
|
|
|
|
;; | ho | | | | ho | | |
|
|
|
|
|
;; |--------| | | |--------| | |
|
|
|
|
|
;; | | | | | | | |
|
|
|
|
|
;; | text | or | text | or | text | or | text |
|
|
|
|
|
;; | | | | | | | |
|
|
|
|
|
;; | | |--------| |--------| | |
|
|
|
|
|
;; | | | fo | | fo | | |
|
|
|
|
|
;; | | |--------| |--------| | |
|
|
|
|
|
;; | | | footer | | footer | | |
|
|
|
|
|
;; |--------| |--------| |--------| |--------|
|
|
|
|
|
;; | bm | | bm | | bm | | bm |
|
|
|
|
|
;; |--------| |--------| |--------| |--------|
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
;;
|
|
|
|
|
;; If `ps-print-header' is nil, `ps-header-offset' is not relevant.
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; If `ps-print-footer' is nil, `ps-footer-offset' is not relevant.
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
;; The margins represent margins in the printed paper:
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; the top margin is the margin between the top of the page and the printed
|
|
|
|
|
;; header, whatever the orientation is;
|
|
|
|
|
;; the bottom margin is the margin between the bottom of the page and the
|
|
|
|
|
;; printed footer, whatever the orientation is.
|
1995-01-20 06:09:03 +00:00
|
|
|
|
;;
|
|
|
|
|
;;
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; Headers & Footers
|
|
|
|
|
;; -----------------
|
1995-01-20 06:09:03 +00:00
|
|
|
|
;;
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; ps-print can print headers at the top of each column or at the top of each
|
|
|
|
|
;; page; the default headers contain the following four items: on the left, the
|
|
|
|
|
;; name of the buffer and, if the buffer is visiting a file, the file's
|
|
|
|
|
;; directory; on the right, the page number and date of printing. The default
|
|
|
|
|
;; headers look something like this:
|
1995-01-20 06:09:03 +00:00
|
|
|
|
;;
|
|
|
|
|
;; ps-print.el 1/21
|
|
|
|
|
;; /home/jct/emacs-lisp/ps/new 94/12/31
|
1997-09-11 23:51:29 +00:00
|
|
|
|
;;
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; When printing on duplex printers, left and right are reversed so that the
|
|
|
|
|
;; page numbers are toward the outside (cf. `ps-spool-duplex').
|
1995-01-20 06:09:03 +00:00
|
|
|
|
;;
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
;; Headers are configurable:
|
|
|
|
|
;; To turn them off completely, set `ps-print-header' to nil.
|
|
|
|
|
;; To turn off the header's gaudy framing box,
|
|
|
|
|
;; set `ps-print-header-frame' to nil.
|
|
|
|
|
;;
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; The variable `ps-header-frame-alist' specifies header frame properties
|
|
|
|
|
;; alist. Valid frame properties are:
|
|
|
|
|
;;
|
|
|
|
|
;; fore-color Specify the foreground frame color.
|
|
|
|
|
;; It should be a float number between 0.0 (black color)
|
|
|
|
|
;; and 1.0 (white color), a string which is a color name,
|
|
|
|
|
;; or a list of 3 float numbers which corresponds to the
|
|
|
|
|
;; Red Green Blue color scale, each float number between
|
|
|
|
|
;; 0.0 (dark color) and 1.0 (bright color).
|
|
|
|
|
;; The default is 0 ("black").
|
|
|
|
|
;;
|
|
|
|
|
;; back-color Specify the background frame color (similar to
|
|
|
|
|
;; fore-color). The default is 0.9 ("gray90").
|
|
|
|
|
;;
|
|
|
|
|
;; shadow-color Specify the shadow color (similar to fore-color).
|
|
|
|
|
;; The default is 0 ("black").
|
|
|
|
|
;;
|
|
|
|
|
;; border-color Specify the border color (similar to fore-color).
|
|
|
|
|
;; The default is 0 ("black").
|
|
|
|
|
;;
|
|
|
|
|
;; border-width Specify the border width.
|
|
|
|
|
;; The default is 0.4.
|
|
|
|
|
;;
|
|
|
|
|
;; Any other property is ignored.
|
|
|
|
|
;;
|
|
|
|
|
;; Don't change this alist directly, instead use customization, or `ps-value',
|
|
|
|
|
;; `ps-get', `ps-put' and `ps-del' functions (see them for documentation).
|
|
|
|
|
;;
|
|
|
|
|
;; To print only one header at the top of each page, set
|
|
|
|
|
;; `ps-print-only-one-header' to t.
|
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.
1998-03-07 06:04:46 +00:00
|
|
|
|
;;
|
XEmacs compatibility. Doc fix. Can select page size
with/without giving an error if PostScript printer doesn't have this
kind of page size. Zebra Stripe continues or restarts on next page.
Manual/automatic paper feeding. Switch or not the header.
(ps-print-version): New version number (5.2.2).
(ps-windows-system): Include emx as a Windows system.
(ps-setup, ps-begin-file, ps-color-values, ps-screen-to-bit-face)
(ps-generate-postscript-with-faces, ps-generate-postscript-with-faces)
(ps-background-text): Code fix.
(ps-error-handler-message, ps-user-defined-prologue)
(ps-print-prologue-header, ps-printer-name)
(ps-print-control-characters, ps-n-up-filling, ps-zebra-color)
(ps-line-number-step, ps-spool-config, ps-default-fg, ps-default-bg)
(ps-use-face-background): Customization fix.
(ps-n-up-database): Data fix.
(ps-warn-paper-type, ps-zebra-stripe-follow, ps-manual-feed)
(ps-switch-header): New vars.
(ps-xemacs-color-name, ps-face-foreground-name)
(ps-face-background-name, ps-boolean-constant): New funs.
2000-06-07 15:34:55 +00:00
|
|
|
|
;; To switch headers, set `ps-switch-header' to:
|
|
|
|
|
;;
|
|
|
|
|
;; nil Never switch headers.
|
|
|
|
|
;;
|
|
|
|
|
;; t Always switch headers.
|
|
|
|
|
;;
|
|
|
|
|
;; duplex Switch headers only when duplexing is on, that is, when
|
|
|
|
|
;; `ps-spool-duplex' is non-nil (see Duplex Printers).
|
|
|
|
|
;;
|
|
|
|
|
;; Any other value is treated as t. The default value is `duplex'.
|
|
|
|
|
;;
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; The font family and size of text in the header are determined by the
|
|
|
|
|
;; variables `ps-header-font-family', `ps-header-font-size' and
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
;; `ps-header-title-font-size' (see below).
|
|
|
|
|
;;
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; The variable `ps-header-line-pad' determines the portion of a header title
|
|
|
|
|
;; line height to insert between the header frame and the text it contains,
|
|
|
|
|
;; both in the vertical and horizontal directions: .5 means half a line.
|
|
|
|
|
;;
|
|
|
|
|
;; Page numbers are printed in `n/m' format, indicating page n of m pages; to
|
|
|
|
|
;; omit the total page count and just print the page number, set
|
|
|
|
|
;; `ps-show-n-of-n' to nil.
|
|
|
|
|
;;
|
|
|
|
|
;; The amount of information in the header can be changed by changing the
|
|
|
|
|
;; number of lines. To show less, set `ps-header-lines' to 1, and the header
|
|
|
|
|
;; will show only the buffer name and page number. To show more, set
|
|
|
|
|
;; `ps-header-lines' to 3, and the header will show the time of printing below
|
|
|
|
|
;; the date.
|
|
|
|
|
;;
|
|
|
|
|
;; To change the content of the headers, change the variables `ps-left-header'
|
|
|
|
|
;; and `ps-right-header'.
|
|
|
|
|
;; These variables are lists, specifying top-to-bottom the text to display on
|
|
|
|
|
;; the left or right side of the header. Each element of the list should be a
|
|
|
|
|
;; string or a symbol. Strings are inserted directly into the PostScript
|
|
|
|
|
;; arrays, and should contain the PostScript string delimiters '(' and ')'.
|
|
|
|
|
;;
|
|
|
|
|
;; Symbols in the header format lists can either represent functions or
|
|
|
|
|
;; variables. Functions are called, and should return a string to show in the
|
|
|
|
|
;; header. Variables should contain strings to display in the header. In
|
|
|
|
|
;; either case, function or variable, the PostScript string delimiters are
|
|
|
|
|
;; added by ps-print, and should not be part of the returned value.
|
1995-01-20 06:09:03 +00:00
|
|
|
|
;;
|
|
|
|
|
;; Here's an example: say we want the left header to display the text
|
|
|
|
|
;;
|
|
|
|
|
;; Moe
|
|
|
|
|
;; Larry
|
|
|
|
|
;; Curly
|
|
|
|
|
;;
|
|
|
|
|
;; where we have a function to return "Moe"
|
|
|
|
|
;;
|
|
|
|
|
;; (defun moe-func ()
|
|
|
|
|
;; "Moe")
|
|
|
|
|
;;
|
|
|
|
|
;; a variable specifying "Larry"
|
|
|
|
|
;;
|
|
|
|
|
;; (setq larry-var "Larry")
|
|
|
|
|
;;
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; and a literal for "Curly". Here's how `ps-left-header' should be set:
|
1995-01-20 06:09:03 +00:00
|
|
|
|
;;
|
|
|
|
|
;; (setq ps-left-header (list 'moe-func 'larry-var "(Curly)"))
|
|
|
|
|
;;
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; Note that Curly has the PostScript string delimiters inside his quotes --
|
|
|
|
|
;; those aren't misplaced lisp delimiters!
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
;;
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; Without them, PostScript would attempt to call the undefined function Curly,
|
|
|
|
|
;; which would result in a PostScript error.
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
;;
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; Since most printers don't report PostScript errors except by aborting the
|
|
|
|
|
;; print job, this kind of error can be hard to track down.
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
;;
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
;; Consider yourself warned!
|
1995-01-20 06:09:03 +00:00
|
|
|
|
;;
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; ps-print also print footers. The footer variables are: `ps-print-footer',
|
|
|
|
|
;; `ps-footer-offset', `ps-print-footer-frame', `ps-footer-font-family',
|
|
|
|
|
;; `ps-footer-font-size', `ps-footer-line-pad', `ps-footer-lines',
|
|
|
|
|
;; `ps-left-footer', `ps-right-footer' and `ps-footer-frame-alist'. These
|
|
|
|
|
;; variables are similar to those one that control headers.
|
|
|
|
|
;;
|
|
|
|
|
;; The variables `ps-print-only-one-header' and `ps-switch-header' also control
|
|
|
|
|
;; the footer (The same way that control header).
|
|
|
|
|
;;
|
|
|
|
|
;; As a footer example, if you want to have a centered page number in the
|
|
|
|
|
;; footer but without headers, set:
|
|
|
|
|
;;
|
|
|
|
|
;; (setq ps-print-header nil
|
|
|
|
|
;; ps-print-footer t
|
|
|
|
|
;; ps-print-footer-frame nil
|
|
|
|
|
;; ps-footer-lines 1
|
|
|
|
|
;; ps-right-footer nil
|
|
|
|
|
;; ps-left-footer
|
|
|
|
|
;; (list (concat "{pagenumberstring dup stringwidth pop"
|
|
|
|
|
;; " 2 div PrintWidth 2 div exch sub 0 rmoveto}")))
|
|
|
|
|
;;
|
1995-01-20 06:09:03 +00:00
|
|
|
|
;;
|
User option for multibyte buffer handling and doc fix.
(ps-multibyte-buffer): New user option.
(ps-setup): Print new user option.
(ps-print-quote): New fun.
(ps-color-p, ps-mule-font-info-database-latin): New var.
(ps-default-color, ps-mule-font-info-database)
(ps-mule-font-info-database-ps-bdf): Adjust initialization.
(ps-mule-get-font-spec, ps-mule-begin, ps-begin-file)
(ps-plot-with-face, ps-generate-postscript-with-faces, ps-generate):
Little code improvement.
(ps-mule-initialize): Initialize ps-mule-font-info-database.
(ps-print-prologue-header, ps-font-family, ps-font-size)
(ps-header-font-family, ps-header-font-size, ps-header-title-font-size)
(ps-build-face-reference, ps-mule-font-info-database-bdf)
(ps-mule-external-libraries, ps-mule-init-external-library)
(ps-mule-prepare-font, ps-mule-find-wrappoint, ps-mule-plot-string): doc
fix.
To make it work also on Emacs 20.2 and the earlier
version, check the value of mule-version.
(ps-print-version): New version number (4.1.1) and doc
fix.
(ps-print-prologue-header): New user option.
(ps-color-values, ps-xemacs-face-kind-p, ps-mapper, ps-extent-sorter):
Conditional compilation for GNU Emacs and emacsens.
(ps-generate-postscript-with-faces): Skip invisible text better.
(ps-setup): Print new user option.
(ps-print-preprint): Check if input file name exists and is unwritable.
(ps-begin-file): Adjust PostScript prologue header for duplex printers
and insert user PostScript prologue header comments.
(ps-mule-encode-bit, ps-mule-string-ascii, ps-mule-string-encoding): New
funs.
(dos-ps-printer, lazy-lock-fontify-buffer): Eliminated.
(ps-mule-prologue, ps-mule-cmpchar-prologue, ps-mule-bitmap-prologue):
PostScript programming normalization.
(ps-mule-encode-7bit, ps-mule-encode-8bit, ps-mule-generate-font)
(ps-mule-generate-glyphs, ps-mule-prepare-font, ps-mule-plot-string)
(ps-mule-skip-same-charset, ps-mule-plot-rule-cmpchar)
(ps-mule-plot-cmpchar, ps-mule-prepare-cmpchar-font)
(ps-mule-initialize, ps-mule-begin, ps-face-bold-p, ps-do-despool):
Programming style normalization.
1998-10-26 20:22:17 +00:00
|
|
|
|
;; PostScript Prologue Header
|
|
|
|
|
;; --------------------------
|
|
|
|
|
;;
|
|
|
|
|
;; It is possible to add PostScript prologue header comments besides that
|
|
|
|
|
;; ps-print generates by setting the variable `ps-print-prologue-header'.
|
|
|
|
|
;;
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; `ps-print-prologue-header' may be a string or a symbol function which
|
|
|
|
|
;; returns a string. Note that this string is inserted on PostScript prologue
|
|
|
|
|
;; header section which is used to define some document characteristic through
|
User option for multibyte buffer handling and doc fix.
(ps-multibyte-buffer): New user option.
(ps-setup): Print new user option.
(ps-print-quote): New fun.
(ps-color-p, ps-mule-font-info-database-latin): New var.
(ps-default-color, ps-mule-font-info-database)
(ps-mule-font-info-database-ps-bdf): Adjust initialization.
(ps-mule-get-font-spec, ps-mule-begin, ps-begin-file)
(ps-plot-with-face, ps-generate-postscript-with-faces, ps-generate):
Little code improvement.
(ps-mule-initialize): Initialize ps-mule-font-info-database.
(ps-print-prologue-header, ps-font-family, ps-font-size)
(ps-header-font-family, ps-header-font-size, ps-header-title-font-size)
(ps-build-face-reference, ps-mule-font-info-database-bdf)
(ps-mule-external-libraries, ps-mule-init-external-library)
(ps-mule-prepare-font, ps-mule-find-wrappoint, ps-mule-plot-string): doc
fix.
To make it work also on Emacs 20.2 and the earlier
version, check the value of mule-version.
(ps-print-version): New version number (4.1.1) and doc
fix.
(ps-print-prologue-header): New user option.
(ps-color-values, ps-xemacs-face-kind-p, ps-mapper, ps-extent-sorter):
Conditional compilation for GNU Emacs and emacsens.
(ps-generate-postscript-with-faces): Skip invisible text better.
(ps-setup): Print new user option.
(ps-print-preprint): Check if input file name exists and is unwritable.
(ps-begin-file): Adjust PostScript prologue header for duplex printers
and insert user PostScript prologue header comments.
(ps-mule-encode-bit, ps-mule-string-ascii, ps-mule-string-encoding): New
funs.
(dos-ps-printer, lazy-lock-fontify-buffer): Eliminated.
(ps-mule-prologue, ps-mule-cmpchar-prologue, ps-mule-bitmap-prologue):
PostScript programming normalization.
(ps-mule-encode-7bit, ps-mule-encode-8bit, ps-mule-generate-font)
(ps-mule-generate-glyphs, ps-mule-prepare-font, ps-mule-plot-string)
(ps-mule-skip-same-charset, ps-mule-plot-rule-cmpchar)
(ps-mule-plot-cmpchar, ps-mule-prepare-cmpchar-font)
(ps-mule-initialize, ps-mule-begin, ps-face-bold-p, ps-do-despool):
Programming style normalization.
1998-10-26 20:22:17 +00:00
|
|
|
|
;; PostScript special comments, like "%%Requirements: jog\n".
|
|
|
|
|
;;
|
|
|
|
|
;; By default `ps-print-prologue-header' is nil.
|
|
|
|
|
;;
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; ps-print always inserts the %%Requirements: comment, so if you need to
|
|
|
|
|
;; insert more requirements put them first in `ps-print-prologue-header' using
|
|
|
|
|
;; the "%%+" comment. For example, if you need to set numcopies to 3 and jog
|
|
|
|
|
;; on requirements and set %%LanguageLevel: to 2, do:
|
User option for multibyte buffer handling and doc fix.
(ps-multibyte-buffer): New user option.
(ps-setup): Print new user option.
(ps-print-quote): New fun.
(ps-color-p, ps-mule-font-info-database-latin): New var.
(ps-default-color, ps-mule-font-info-database)
(ps-mule-font-info-database-ps-bdf): Adjust initialization.
(ps-mule-get-font-spec, ps-mule-begin, ps-begin-file)
(ps-plot-with-face, ps-generate-postscript-with-faces, ps-generate):
Little code improvement.
(ps-mule-initialize): Initialize ps-mule-font-info-database.
(ps-print-prologue-header, ps-font-family, ps-font-size)
(ps-header-font-family, ps-header-font-size, ps-header-title-font-size)
(ps-build-face-reference, ps-mule-font-info-database-bdf)
(ps-mule-external-libraries, ps-mule-init-external-library)
(ps-mule-prepare-font, ps-mule-find-wrappoint, ps-mule-plot-string): doc
fix.
To make it work also on Emacs 20.2 and the earlier
version, check the value of mule-version.
(ps-print-version): New version number (4.1.1) and doc
fix.
(ps-print-prologue-header): New user option.
(ps-color-values, ps-xemacs-face-kind-p, ps-mapper, ps-extent-sorter):
Conditional compilation for GNU Emacs and emacsens.
(ps-generate-postscript-with-faces): Skip invisible text better.
(ps-setup): Print new user option.
(ps-print-preprint): Check if input file name exists and is unwritable.
(ps-begin-file): Adjust PostScript prologue header for duplex printers
and insert user PostScript prologue header comments.
(ps-mule-encode-bit, ps-mule-string-ascii, ps-mule-string-encoding): New
funs.
(dos-ps-printer, lazy-lock-fontify-buffer): Eliminated.
(ps-mule-prologue, ps-mule-cmpchar-prologue, ps-mule-bitmap-prologue):
PostScript programming normalization.
(ps-mule-encode-7bit, ps-mule-encode-8bit, ps-mule-generate-font)
(ps-mule-generate-glyphs, ps-mule-prepare-font, ps-mule-plot-string)
(ps-mule-skip-same-charset, ps-mule-plot-rule-cmpchar)
(ps-mule-plot-cmpchar, ps-mule-prepare-cmpchar-font)
(ps-mule-initialize, ps-mule-begin, ps-face-bold-p, ps-do-despool):
Programming style normalization.
1998-10-26 20:22:17 +00:00
|
|
|
|
;;
|
|
|
|
|
;; (setq ps-print-prologue-header
|
|
|
|
|
;; "%%+ numcopies(3) jog\n%%LanguageLevel: 2\n")
|
|
|
|
|
;;
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; The duplex requirement is inserted by ps-print (see section Duplex
|
|
|
|
|
;; Printers).
|
User option for multibyte buffer handling and doc fix.
(ps-multibyte-buffer): New user option.
(ps-setup): Print new user option.
(ps-print-quote): New fun.
(ps-color-p, ps-mule-font-info-database-latin): New var.
(ps-default-color, ps-mule-font-info-database)
(ps-mule-font-info-database-ps-bdf): Adjust initialization.
(ps-mule-get-font-spec, ps-mule-begin, ps-begin-file)
(ps-plot-with-face, ps-generate-postscript-with-faces, ps-generate):
Little code improvement.
(ps-mule-initialize): Initialize ps-mule-font-info-database.
(ps-print-prologue-header, ps-font-family, ps-font-size)
(ps-header-font-family, ps-header-font-size, ps-header-title-font-size)
(ps-build-face-reference, ps-mule-font-info-database-bdf)
(ps-mule-external-libraries, ps-mule-init-external-library)
(ps-mule-prepare-font, ps-mule-find-wrappoint, ps-mule-plot-string): doc
fix.
To make it work also on Emacs 20.2 and the earlier
version, check the value of mule-version.
(ps-print-version): New version number (4.1.1) and doc
fix.
(ps-print-prologue-header): New user option.
(ps-color-values, ps-xemacs-face-kind-p, ps-mapper, ps-extent-sorter):
Conditional compilation for GNU Emacs and emacsens.
(ps-generate-postscript-with-faces): Skip invisible text better.
(ps-setup): Print new user option.
(ps-print-preprint): Check if input file name exists and is unwritable.
(ps-begin-file): Adjust PostScript prologue header for duplex printers
and insert user PostScript prologue header comments.
(ps-mule-encode-bit, ps-mule-string-ascii, ps-mule-string-encoding): New
funs.
(dos-ps-printer, lazy-lock-fontify-buffer): Eliminated.
(ps-mule-prologue, ps-mule-cmpchar-prologue, ps-mule-bitmap-prologue):
PostScript programming normalization.
(ps-mule-encode-7bit, ps-mule-encode-8bit, ps-mule-generate-font)
(ps-mule-generate-glyphs, ps-mule-prepare-font, ps-mule-plot-string)
(ps-mule-skip-same-charset, ps-mule-plot-rule-cmpchar)
(ps-mule-plot-cmpchar, ps-mule-prepare-cmpchar-font)
(ps-mule-initialize, ps-mule-begin, ps-face-bold-p, ps-do-despool):
Programming style normalization.
1998-10-26 20:22:17 +00:00
|
|
|
|
;;
|
|
|
|
|
;; Do not forget to terminate the string with "\n".
|
|
|
|
|
;;
|
|
|
|
|
;; For more information about PostScript document comments, see:
|
|
|
|
|
;; PostScript Language Reference Manual (2nd edition)
|
|
|
|
|
;; Adobe Systems Incorporated
|
|
|
|
|
;; Appendix G: Document Structuring Conventions -- Version 3.0
|
|
|
|
|
;;
|
2000-03-15 13:35:02 +00:00
|
|
|
|
;; It is also possible to add an user defined PostScript prologue code before
|
|
|
|
|
;; all generated prologue code by setting the variable
|
|
|
|
|
;; `ps-user-defined-prologue'.
|
|
|
|
|
;;
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; `ps-user-defined-prologue' may be a string or a symbol function which
|
|
|
|
|
;; returns a string. Note that this string is inserted after `ps-adobe-tag'
|
|
|
|
|
;; and PostScript prologue comments, and before ps-print PostScript prologue
|
|
|
|
|
;; code section. That is, this string is inserted after error handler
|
|
|
|
|
;; initialization and before ps-print settings.
|
2000-03-15 13:35:02 +00:00
|
|
|
|
;;
|
|
|
|
|
;; By default `ps-user-defined-prologue' is nil.
|
|
|
|
|
;;
|
|
|
|
|
;; It's strongly recommended only insert PostScript code and/or comments
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; specific for your printing system particularities. For example, some
|
|
|
|
|
;; special initialization that only your printing system needs.
|
2000-03-15 13:35:02 +00:00
|
|
|
|
;;
|
|
|
|
|
;; Do not insert code for duplex printing, n-up printing or error handler,
|
|
|
|
|
;; ps-print handles this in a suitable way.
|
|
|
|
|
;;
|
|
|
|
|
;; For more information about PostScript, see:
|
|
|
|
|
;; PostScript Language Reference Manual (2nd edition)
|
|
|
|
|
;; Adobe Systems Incorporated
|
|
|
|
|
;;
|
2000-08-29 10:51:52 +00:00
|
|
|
|
;; As an example for `ps-user-defined-prologue' setting:
|
|
|
|
|
;;
|
|
|
|
|
;; ;; Setting for HP PostScript printer
|
|
|
|
|
;; (setq ps-user-defined-prologue
|
|
|
|
|
;; (concat "<</DeferredMediaSelection true /PageSize [612 792] "
|
|
|
|
|
;; "/MediaPosition 2 /MediaType (Plain)>> setpagedevice"))
|
|
|
|
|
;;
|
2000-03-15 13:35:02 +00:00
|
|
|
|
;;
|
|
|
|
|
;; PostScript Error Handler
|
|
|
|
|
;; ------------------------
|
|
|
|
|
;;
|
|
|
|
|
;; ps-print instruments generated PostScript code with an error handler.
|
|
|
|
|
;;
|
|
|
|
|
;; The variable `ps-error-handler-message' specifies where the error handler
|
|
|
|
|
;; message should be sent.
|
|
|
|
|
;;
|
|
|
|
|
;; Valid values are:
|
|
|
|
|
;;
|
|
|
|
|
;; none catch the error and *DON'T* send any message.
|
|
|
|
|
;;
|
|
|
|
|
;; paper catch the error and print on paper the error message.
|
|
|
|
|
;; This is the default value.
|
|
|
|
|
;;
|
|
|
|
|
;; system catch the error and send back the error message to
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; printing system. This is useful only if printing
|
|
|
|
|
;; system send back an email reporting the error, or if
|
|
|
|
|
;; there is some other alternative way to report back the
|
|
|
|
|
;; error from the system to you.
|
2000-03-15 13:35:02 +00:00
|
|
|
|
;;
|
|
|
|
|
;; paper-and-system catch the error, print on paper the error message and
|
|
|
|
|
;; send back the error message to printing system.
|
|
|
|
|
;;
|
|
|
|
|
;; Any other value is treated as `paper'.
|
|
|
|
|
;;
|
User option for multibyte buffer handling and doc fix.
(ps-multibyte-buffer): New user option.
(ps-setup): Print new user option.
(ps-print-quote): New fun.
(ps-color-p, ps-mule-font-info-database-latin): New var.
(ps-default-color, ps-mule-font-info-database)
(ps-mule-font-info-database-ps-bdf): Adjust initialization.
(ps-mule-get-font-spec, ps-mule-begin, ps-begin-file)
(ps-plot-with-face, ps-generate-postscript-with-faces, ps-generate):
Little code improvement.
(ps-mule-initialize): Initialize ps-mule-font-info-database.
(ps-print-prologue-header, ps-font-family, ps-font-size)
(ps-header-font-family, ps-header-font-size, ps-header-title-font-size)
(ps-build-face-reference, ps-mule-font-info-database-bdf)
(ps-mule-external-libraries, ps-mule-init-external-library)
(ps-mule-prepare-font, ps-mule-find-wrappoint, ps-mule-plot-string): doc
fix.
To make it work also on Emacs 20.2 and the earlier
version, check the value of mule-version.
(ps-print-version): New version number (4.1.1) and doc
fix.
(ps-print-prologue-header): New user option.
(ps-color-values, ps-xemacs-face-kind-p, ps-mapper, ps-extent-sorter):
Conditional compilation for GNU Emacs and emacsens.
(ps-generate-postscript-with-faces): Skip invisible text better.
(ps-setup): Print new user option.
(ps-print-preprint): Check if input file name exists and is unwritable.
(ps-begin-file): Adjust PostScript prologue header for duplex printers
and insert user PostScript prologue header comments.
(ps-mule-encode-bit, ps-mule-string-ascii, ps-mule-string-encoding): New
funs.
(dos-ps-printer, lazy-lock-fontify-buffer): Eliminated.
(ps-mule-prologue, ps-mule-cmpchar-prologue, ps-mule-bitmap-prologue):
PostScript programming normalization.
(ps-mule-encode-7bit, ps-mule-encode-8bit, ps-mule-generate-font)
(ps-mule-generate-glyphs, ps-mule-prepare-font, ps-mule-plot-string)
(ps-mule-skip-same-charset, ps-mule-plot-rule-cmpchar)
(ps-mule-plot-cmpchar, ps-mule-prepare-cmpchar-font)
(ps-mule-initialize, ps-mule-begin, ps-face-bold-p, ps-do-despool):
Programming style normalization.
1998-10-26 20:22:17 +00:00
|
|
|
|
;;
|
1995-01-20 06:09:03 +00:00
|
|
|
|
;; Duplex Printers
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
;; ---------------
|
1995-01-20 06:09:03 +00:00
|
|
|
|
;;
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
;; If you have a duplex-capable printer (one that prints both sides of the
|
|
|
|
|
;; paper), set `ps-spool-duplex' to t.
|
|
|
|
|
;; ps-print will insert blank pages to make sure each buffer starts on the
|
|
|
|
|
;; correct side of the paper.
|
|
|
|
|
;;
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; The variable `ps-spool-config' specifies who is the responsible for setting
|
|
|
|
|
;; duplex and page size. Valid values are:
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
;;
|
|
|
|
|
;; lpr-switches duplex and page size are configured by `ps-lpr-switches'.
|
|
|
|
|
;; Don't forget to set `ps-lpr-switches' to select duplex
|
|
|
|
|
;; printing for your printer.
|
|
|
|
|
;;
|
|
|
|
|
;; setpagedevice duplex and page size are configured by ps-print using the
|
|
|
|
|
;; setpagedevice PostScript operator.
|
|
|
|
|
;;
|
|
|
|
|
;; nil duplex and page size are configured by ps-print *not* using
|
|
|
|
|
;; the setpagedevice PostScript operator.
|
|
|
|
|
;;
|
|
|
|
|
;; Any other value is treated as nil.
|
|
|
|
|
;;
|
|
|
|
|
;; The default value is `lpr-switches'.
|
|
|
|
|
;;
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; WARNING: The setpagedevice PostScript operator affects ghostview utility
|
|
|
|
|
;; when viewing file generated using landscape. Also on some
|
|
|
|
|
;; printers, setpagedevice affects zebra stripes; on other printers,
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
;; setpagedevice affects the left margin.
|
|
|
|
|
;; Besides all that, if your printer does not have the paper size
|
|
|
|
|
;; specified by setpagedevice, your printing will be aborted.
|
|
|
|
|
;; So, if you need to use setpagedevice, set `ps-spool-config' to
|
|
|
|
|
;; `setpagedevice', generate a test file and send it to your printer;
|
|
|
|
|
;; if the printed file isn't ok, set `ps-spool-config' to nil.
|
|
|
|
|
;;
|
|
|
|
|
;; The variable `ps-spool-tumble' specifies how the page images on opposite
|
|
|
|
|
;; sides of a sheet are oriented with respect to each other. If
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; `ps-spool-tumble' is nil, produces output suitable for binding on the left
|
|
|
|
|
;; or right. If `ps-spool-tumble' is non-nil, produces output suitable for
|
|
|
|
|
;; binding at the top or bottom. It has effect only when `ps-spool-duplex' is
|
|
|
|
|
;; non-nil. The default value is nil.
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
;;
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; Some printer system prints a header page and forces the first page be
|
|
|
|
|
;; printed on header page back, when using duplex. If your printer system has
|
|
|
|
|
;; this behavior, set variable `ps-banner-page-when-duplexing' to t.
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
;;
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; When `ps-banner-page-when-duplexing' is non-nil, it prints a blank page as
|
|
|
|
|
;; the very first printed page. So, it behaves as the very first character of
|
|
|
|
|
;; buffer (or region) is ^L (\014).
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
;;
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; The default for `ps-banner-page-when-duplexing' is nil (*don't* skip the
|
|
|
|
|
;; very first page).
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
;;
|
|
|
|
|
;;
|
|
|
|
|
;; N-up Printing
|
|
|
|
|
;; -------------
|
|
|
|
|
;;
|
|
|
|
|
;; The variable `ps-n-up-printing' specifies the number of pages per sheet of
|
|
|
|
|
;; paper. The value specified must be between 1 and 100. The default is 1.
|
|
|
|
|
;;
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; NOTE: some PostScript printer may crash printing if `ps-n-up-printing' is
|
|
|
|
|
;; set to a high value (for example, 23). If this happens, set a lower value.
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
;;
|
|
|
|
|
;; The variable `ps-n-up-margin' specifies the margin in points between the
|
|
|
|
|
;; sheet border and the n-up printing. The default is 1 cm (or 0.3937 inches,
|
|
|
|
|
;; or 28.35 points).
|
|
|
|
|
;;
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; If variable `ps-n-up-border-p' is non-nil a border is drawn around each
|
|
|
|
|
;; page. The default is t.
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
;;
|
|
|
|
|
;; The variable `ps-n-up-filling' specifies how page matrix is filled on each
|
|
|
|
|
;; sheet of paper. Following are the valid values for `ps-n-up-filling' with a
|
|
|
|
|
;; filling example using a 3x4 page matrix:
|
|
|
|
|
;;
|
|
|
|
|
;; left-top 1 2 3 4 left-bottom 9 10 11 12
|
|
|
|
|
;; 5 6 7 8 5 6 7 8
|
|
|
|
|
;; 9 10 11 12 1 2 3 4
|
|
|
|
|
;;
|
|
|
|
|
;; right-top 4 3 2 1 right-bottom 12 11 10 9
|
|
|
|
|
;; 8 7 6 5 8 7 6 5
|
|
|
|
|
;; 12 11 10 9 4 3 2 1
|
|
|
|
|
;;
|
|
|
|
|
;; top-left 1 4 7 10 bottom-left 3 6 9 12
|
|
|
|
|
;; 2 5 8 11 2 5 8 11
|
|
|
|
|
;; 3 6 9 12 1 4 7 10
|
|
|
|
|
;;
|
|
|
|
|
;; top-right 10 7 4 1 bottom-right 12 9 6 3
|
|
|
|
|
;; 11 8 5 2 11 8 5 2
|
|
|
|
|
;; 12 9 6 3 10 7 4 1
|
|
|
|
|
;;
|
2001-09-18 09:28:00 +00:00
|
|
|
|
;; Any other value is treated as `left-top'.
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
;;
|
|
|
|
|
;; The default value is left-top.
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
;;
|
1997-09-11 23:51:29 +00:00
|
|
|
|
;;
|
Some comment, doc and bug fixes.
(ps-print-version): New version number (3.05.3) and doc fix.
(ps-output-string-prim, ps-begin-job, ps-control-character)
(ps-plot-region): Bug fix.
(ps-print-control-characters): New custom var.
(ps-string-escape-codes, ps-string-control-codes): New var.
(ps-color-device, ps-font-lock-face-attributes, ps-eval-switch)
(ps-flatten-list, ps-flatten-list-1): New fn.
(ps-setup): Update current setup.
(ps-begin-file): Adjust PostScript header file.
(ps-plot, ps-face-attribute-list): Little programming improvement.
(ps-print-prologue-1): Replace NumberOfZebra by ZebraHeight.
(ps-print-without-faces, ps-print-with-faces): Little reprogramming.
(ps-plot-with-face): Get color only on color screen device.
(ps-build-reference-face-lists): Handle obsolete
font-lock-face-attributes.
(ps-print-ensure-fontified): Little programming setting.
(ps-generate-postscript-with-faces): Adjust initializations, get color
only on color screen device.
(ps-generate): Replace (if A B) by (and A B).
(ps-do-despool): Dynamic evaluation for ps-lpr-switches,
Replace (if A B) by (and A B).
(color-instance-rgb-components, ps-color-values): Replace
pixel-components by color-instance-rgb-components.
(ps-xemacs-face-kind-p): Replace face-font by face-font-instance,
replace x-font-properties by font-instance-properties.
1997-12-25 18:33:52 +00:00
|
|
|
|
;; Control And 8-bit Characters
|
|
|
|
|
;; ----------------------------
|
|
|
|
|
;;
|
|
|
|
|
;; The variable `ps-print-control-characters' specifies whether you want to see
|
|
|
|
|
;; a printable form for control and 8-bit characters, that is, instead of
|
1998-05-06 04:06:30 +00:00
|
|
|
|
;; sending, for example, a ^D (\004) to printer, it is sent the string "^D".
|
Some comment, doc and bug fixes.
(ps-print-version): New version number (3.05.3) and doc fix.
(ps-output-string-prim, ps-begin-job, ps-control-character)
(ps-plot-region): Bug fix.
(ps-print-control-characters): New custom var.
(ps-string-escape-codes, ps-string-control-codes): New var.
(ps-color-device, ps-font-lock-face-attributes, ps-eval-switch)
(ps-flatten-list, ps-flatten-list-1): New fn.
(ps-setup): Update current setup.
(ps-begin-file): Adjust PostScript header file.
(ps-plot, ps-face-attribute-list): Little programming improvement.
(ps-print-prologue-1): Replace NumberOfZebra by ZebraHeight.
(ps-print-without-faces, ps-print-with-faces): Little reprogramming.
(ps-plot-with-face): Get color only on color screen device.
(ps-build-reference-face-lists): Handle obsolete
font-lock-face-attributes.
(ps-print-ensure-fontified): Little programming setting.
(ps-generate-postscript-with-faces): Adjust initializations, get color
only on color screen device.
(ps-generate): Replace (if A B) by (and A B).
(ps-do-despool): Dynamic evaluation for ps-lpr-switches,
Replace (if A B) by (and A B).
(color-instance-rgb-components, ps-color-values): Replace
pixel-components by color-instance-rgb-components.
(ps-xemacs-face-kind-p): Replace face-font by face-font-instance,
replace x-font-properties by font-instance-properties.
1997-12-25 18:33:52 +00:00
|
|
|
|
;;
|
|
|
|
|
;; Valid values for `ps-print-control-characters' are:
|
|
|
|
|
;;
|
1998-09-23 22:11:56 +00:00
|
|
|
|
;; 8-bit This is the value to use when you want an ASCII encoding of
|
|
|
|
|
;; any control or non-ASCII character. Control characters are
|
|
|
|
|
;; encoded as "^D", and non-ASCII characters have an
|
1998-05-06 04:06:30 +00:00
|
|
|
|
;; octal encoding.
|
|
|
|
|
;;
|
1998-09-23 22:11:56 +00:00
|
|
|
|
;; control-8-bit This is the value to use when you want an ASCII encoding of
|
1998-05-06 04:06:30 +00:00
|
|
|
|
;; any control character, whether it is 7 or 8-bit.
|
|
|
|
|
;; European 8-bits accented characters are printed according
|
|
|
|
|
;; the current font.
|
|
|
|
|
;;
|
1998-09-23 22:11:56 +00:00
|
|
|
|
;; control Only ASCII control characters have an ASCII encoding.
|
1998-05-06 04:06:30 +00:00
|
|
|
|
;; European 8-bits accented characters are printed according
|
|
|
|
|
;; the current font.
|
|
|
|
|
;;
|
1998-09-23 22:11:56 +00:00
|
|
|
|
;; nil No ASCII encoding. Any character is printed according the
|
1998-05-06 04:06:30 +00:00
|
|
|
|
;; current font.
|
Some comment, doc and bug fixes.
(ps-print-version): New version number (3.05.3) and doc fix.
(ps-output-string-prim, ps-begin-job, ps-control-character)
(ps-plot-region): Bug fix.
(ps-print-control-characters): New custom var.
(ps-string-escape-codes, ps-string-control-codes): New var.
(ps-color-device, ps-font-lock-face-attributes, ps-eval-switch)
(ps-flatten-list, ps-flatten-list-1): New fn.
(ps-setup): Update current setup.
(ps-begin-file): Adjust PostScript header file.
(ps-plot, ps-face-attribute-list): Little programming improvement.
(ps-print-prologue-1): Replace NumberOfZebra by ZebraHeight.
(ps-print-without-faces, ps-print-with-faces): Little reprogramming.
(ps-plot-with-face): Get color only on color screen device.
(ps-build-reference-face-lists): Handle obsolete
font-lock-face-attributes.
(ps-print-ensure-fontified): Little programming setting.
(ps-generate-postscript-with-faces): Adjust initializations, get color
only on color screen device.
(ps-generate): Replace (if A B) by (and A B).
(ps-do-despool): Dynamic evaluation for ps-lpr-switches,
Replace (if A B) by (and A B).
(color-instance-rgb-components, ps-color-values): Replace
pixel-components by color-instance-rgb-components.
(ps-xemacs-face-kind-p): Replace face-font by face-font-instance,
replace x-font-properties by font-instance-properties.
1997-12-25 18:33:52 +00:00
|
|
|
|
;;
|
|
|
|
|
;; Any other value is treated as nil.
|
|
|
|
|
;;
|
1998-05-06 04:15:25 +00:00
|
|
|
|
;; The default is `control-8-bit'.
|
Some comment, doc and bug fixes.
(ps-print-version): New version number (3.05.3) and doc fix.
(ps-output-string-prim, ps-begin-job, ps-control-character)
(ps-plot-region): Bug fix.
(ps-print-control-characters): New custom var.
(ps-string-escape-codes, ps-string-control-codes): New var.
(ps-color-device, ps-font-lock-face-attributes, ps-eval-switch)
(ps-flatten-list, ps-flatten-list-1): New fn.
(ps-setup): Update current setup.
(ps-begin-file): Adjust PostScript header file.
(ps-plot, ps-face-attribute-list): Little programming improvement.
(ps-print-prologue-1): Replace NumberOfZebra by ZebraHeight.
(ps-print-without-faces, ps-print-with-faces): Little reprogramming.
(ps-plot-with-face): Get color only on color screen device.
(ps-build-reference-face-lists): Handle obsolete
font-lock-face-attributes.
(ps-print-ensure-fontified): Little programming setting.
(ps-generate-postscript-with-faces): Adjust initializations, get color
only on color screen device.
(ps-generate): Replace (if A B) by (and A B).
(ps-do-despool): Dynamic evaluation for ps-lpr-switches,
Replace (if A B) by (and A B).
(color-instance-rgb-components, ps-color-values): Replace
pixel-components by color-instance-rgb-components.
(ps-xemacs-face-kind-p): Replace face-font by face-font-instance,
replace x-font-properties by font-instance-properties.
1997-12-25 18:33:52 +00:00
|
|
|
|
;;
|
|
|
|
|
;; Characters TAB, NEWLINE and FORMFEED are always treated by ps-print engine.
|
|
|
|
|
;;
|
|
|
|
|
;;
|
1998-10-26 20:25:41 +00:00
|
|
|
|
;; Printing Multi-byte Buffer
|
|
|
|
|
;; --------------------------
|
User option for multibyte buffer handling and doc fix.
(ps-multibyte-buffer): New user option.
(ps-setup): Print new user option.
(ps-print-quote): New fun.
(ps-color-p, ps-mule-font-info-database-latin): New var.
(ps-default-color, ps-mule-font-info-database)
(ps-mule-font-info-database-ps-bdf): Adjust initialization.
(ps-mule-get-font-spec, ps-mule-begin, ps-begin-file)
(ps-plot-with-face, ps-generate-postscript-with-faces, ps-generate):
Little code improvement.
(ps-mule-initialize): Initialize ps-mule-font-info-database.
(ps-print-prologue-header, ps-font-family, ps-font-size)
(ps-header-font-family, ps-header-font-size, ps-header-title-font-size)
(ps-build-face-reference, ps-mule-font-info-database-bdf)
(ps-mule-external-libraries, ps-mule-init-external-library)
(ps-mule-prepare-font, ps-mule-find-wrappoint, ps-mule-plot-string): doc
fix.
To make it work also on Emacs 20.2 and the earlier
version, check the value of mule-version.
(ps-print-version): New version number (4.1.1) and doc
fix.
(ps-print-prologue-header): New user option.
(ps-color-values, ps-xemacs-face-kind-p, ps-mapper, ps-extent-sorter):
Conditional compilation for GNU Emacs and emacsens.
(ps-generate-postscript-with-faces): Skip invisible text better.
(ps-setup): Print new user option.
(ps-print-preprint): Check if input file name exists and is unwritable.
(ps-begin-file): Adjust PostScript prologue header for duplex printers
and insert user PostScript prologue header comments.
(ps-mule-encode-bit, ps-mule-string-ascii, ps-mule-string-encoding): New
funs.
(dos-ps-printer, lazy-lock-fontify-buffer): Eliminated.
(ps-mule-prologue, ps-mule-cmpchar-prologue, ps-mule-bitmap-prologue):
PostScript programming normalization.
(ps-mule-encode-7bit, ps-mule-encode-8bit, ps-mule-generate-font)
(ps-mule-generate-glyphs, ps-mule-prepare-font, ps-mule-plot-string)
(ps-mule-skip-same-charset, ps-mule-plot-rule-cmpchar)
(ps-mule-plot-cmpchar, ps-mule-prepare-cmpchar-font)
(ps-mule-initialize, ps-mule-begin, ps-face-bold-p, ps-do-despool):
Programming style normalization.
1998-10-26 20:22:17 +00:00
|
|
|
|
;;
|
1998-12-15 06:31:48 +00:00
|
|
|
|
;; See ps-mule.el for documentation.
|
Multi-byte buffer handling.
(ps-print-version): New version number (4.0) and doc fix.
(ps-color-device, ps-face-bold-p, ps-face-italic-p): Conditional
compilation for GNU Emacs and emacsens.
(ps-generate-postscript-with-faces): Force invisible text to be
visible.
(dos-ps-printer): New var to avoid compilation gripes.
(ps-mule-plot-string): Pay attention to the case
that no more characters can't be printed in the current line.
(ps-mule-find-wrappoint): ENDPOS should not be greater than TO.
Add codes to make ps-print.el work also on Emacs
20.2 and the earlier version.
(ps-mule-encode-7bit, ps-mule-encode-8bit): Modified for 20.2.
(ccl-encode-ethio-unicode, ps-mule-encode-ethiopic): Likewise.
(ps-mule-find-wrappoint): Likewise.
(ps-mule-generate-font): Change `X' to `x' in format
control-string.
(ps-generate): Call ps-mule-begin before calling ps-begin-job.
(ps-mule-cmpchar-prologue): Delete unnecessary `gsave' and
`restore' form procedures `BC' and `EC'.
(ps-print-prologue-1): Handle the case that FontBBox
is an executable procedure. Make LineThickness, Xshadow, and
Yshadow relative to FontHeight. Set SpaceWidth in BeginDoc.
(ps-mule-font-info-database, ps-mule-font-info-database-ps,
ps-mule-font-info-database-bdf): New vars.
(ps-mule-encode-7bit, ps-mule-encode-8bit): New funs.
(ccl-encode-ethio-unicode): New CCL program.
(ps-mule-encode-ethiopic): New fun.
(ps-mule-current-charset): New var.
(ps-mule-get-font-spec, ps-mule-font-spec-src,
ps-mule-font-spec-name, ps-mule-font-spec-encoding,
ps-mule-font-spec-bytes, ps-mule-printable-p): New funs.
(ps-mule-external-libraries): New var.
(ps-mule-init-external-library): New fun.
(ps-mule-font-cache): New var.
(ps-mule-generate-font, ps-mule-generate-glyphs): New funs.
(ps-last-font): New var.
(ps-mule-prepare-font): New fun.
(ps-mule-charset-list): New var.
(ps-mule-prologue-generated, ps-mule-prologue): New vars.
(ps-mule-skip-same-charset, ps-mule-find-wrappoint,
ps-mule-plot-string): New funs.
(ps-mule-cmpchar-prologue-generated, ps-mule-cmpchar-prologue):
New vars.
(ps-mule-plot-rule-cmpchar, ps-mule-plot-cmpchar,
ps-mule-prepare-cmpchar-font): New funs.
(ps-mule-bitmap-prologue-generated, ps-mule-bitmap-prologue): New
vars.
(ps-mule-generate-bitmap-prologue, ps-mule-generate-bitmap-font,
ps-mule-generate-bitmap-glyph): New funs.
(ps-mule-initialize, ps-mule-begin): New funs.
(ps-output-string-prim): Insert string as unibyte.
(ps-output-prologue): New fun.
(ps-flush-output): Handle the case of 'prologue.
(ps-begin-file): Call ps-mule-initialize.
(ps-begin-job): Set ps-control-or-escape-regexp differently if
printing multibyte characters.
(ps-begin-page): Set ps-mule-current-charset to 'ascii.
(ps-basic-plot-string): Handle the case of printing ASCII
characters by external libraries (e.g. BDF).
(ps-set-font): Set ps-last-font.
(ps-plot-region): Handle multibyte characters, use
ps-mule-plot-string for them.
(ps-generate): Set the spool buffer unibyte. Call ps-mule-begin.
1998-08-24 10:19:29 +00:00
|
|
|
|
;;
|
|
|
|
|
;;
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
;; Line Number
|
|
|
|
|
;; -----------
|
|
|
|
|
;;
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.1).
(ps-adobe-tag): Replace defvar by defcustom, and doc fix.
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): Add arg REGION-P.
(ps-print-region-with-faces, ps-print-region)
(ps-spool-region, ps-spool-region-with-faces): Fix calls to
the functions above.
(ps-setup): Print value of ps-zebra-stripe, ps-number-of-zebra,
ps-line-number, ps-print-background-image,
and ps-print-background-text.
(ps-print-prologue-1): Bug fix in PostScript programming:
/BeginDSCPage, /BeginPage.
(ps-showpage-count, ps-ref-bold-faces, ps-ref-italic-faces)
(ps-ref-underlined-faces, font-lock-face-attributes)
(ps-initialize-faces): Vars deleted.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-initialize-faces, ps-header-height)
(ps-hard-lf, ps-soft-lf, ps-get-face, ps-map-font-lock): Fn deleted.
(ps-extend-face-list, ps-extend-face): Doc fix.
(ps-print-face-alist): New var to handle face alist.
(ps-printing-region): New var and fn.
(ps-header-page, ps-set-face-bold, ps-set-face-italic)
(ps-set-face-underline, ps-set-face-attribute, ps-map-face): New fn.
(ps-rmail-mode-hook, ps-rmail-print-message-from-summary)
(ps-print-message-from-summary, ps-vm-print-message-from-summary):
Fns moved.
(ps-background): New argument PAGE-NUMBER.
(ps-begin-file): Bug fix and print proper line number in a region.
(ps-begin-page): Call ps-header-page.
(ps-get-buffer-name): Indicates in the header when printing a region.
(ps-end-page): Delete ps-showpage-count.
(ps-dummy-page): Calls ps-header-page.
(ps-set-color): Programming improvement.
(ps-plot-region): Doc fix.
(ps-face-attributes): Same functionality as deleted ps-get-face.
(ps-build-reference-face-lists): Do the job by calling
ps-set-face-bold and ps-bold-faces, and friends.
1997-09-06 02:52:00 +00:00
|
|
|
|
;; The variable `ps-line-number' specifies whether to number each line;
|
|
|
|
|
;; non-nil means do so. The default is nil (don't number each line).
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
;;
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; The variable `ps-line-number-color' specifies the color for line number.
|
|
|
|
|
;; See `ps-zebra-color' for documentation. The default is "black" (or 0.0, or
|
|
|
|
|
;; '(0.0 0.0 0.0)).
|
|
|
|
|
;;
|
(ps-end-job): Bind case-fold-search only after
switching to ps-spool-buffer.
Line number font customization. PostScript: Lines and
PageCount are initialized on each page. Doc Fix.
(ps-print-version): New version number (6.3.2).
(ps-lpr-switches, ps-font-info-database, ps-font-size)
(ps-header-font-size, ps-header-title-font-size, ps-left-header)
(ps-right-header): Customization fix.
(ps-setup, ps-select-font, ps-begin-file, ps-header-sheet, ps-end-job):
Fix code.
(ps-end-with-control-d, ps-line-number-font, ps-line-number-font-size):
New vars.
2000-11-30 13:20:49 +00:00
|
|
|
|
;; The variable `ps-line-number-font' specifies the font for line number.
|
|
|
|
|
;; The default is "Times-Italic".
|
|
|
|
|
;;
|
|
|
|
|
;; The variable `ps-line-number-font-size' specifies the font size in points
|
|
|
|
|
;; for line number. See `ps-font-size' for documentation. The default is 6.
|
|
|
|
|
;;
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; The variable `ps-line-number-step' specifies the interval that line number
|
|
|
|
|
;; is printed. For example, if `ps-line-number-step' is set to 2, the printing
|
2000-04-29 19:27:49 +00:00
|
|
|
|
;; will look like:
|
|
|
|
|
;;
|
|
|
|
|
;; 1 one line
|
|
|
|
|
;; one line
|
|
|
|
|
;; 3 one line
|
|
|
|
|
;; one line
|
2000-05-18 21:50:51 +00:00
|
|
|
|
;; 5 one line
|
2000-04-29 19:27:49 +00:00
|
|
|
|
;; one line
|
|
|
|
|
;; ...
|
|
|
|
|
;;
|
|
|
|
|
;; Valid values are:
|
|
|
|
|
;;
|
|
|
|
|
;; integer an integer that specifies the interval that line number is
|
|
|
|
|
;; printed. If it's lesser than or equal to zero, it's used the
|
|
|
|
|
;; value 1.
|
|
|
|
|
;;
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; `zebra' specifies that only the line number of the first line in a
|
|
|
|
|
;; zebra stripe is to be printed.
|
2000-04-29 19:27:49 +00:00
|
|
|
|
;;
|
|
|
|
|
;; Any other value is treated as `zebra'.
|
|
|
|
|
;; The default value is 1, so each line number is printed.
|
|
|
|
|
;;
|
2000-05-18 21:50:51 +00:00
|
|
|
|
;; The variable `ps-line-number-start' specifies the starting point in the
|
|
|
|
|
;; interval given by `ps-line-number-step'. For example, if
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; `ps-line-number-step' is set to 3 and `ps-line-number-start' is set to 3,
|
|
|
|
|
;; the printing will look like:
|
2000-05-18 21:50:51 +00:00
|
|
|
|
;;
|
|
|
|
|
;; one line
|
|
|
|
|
;; one line
|
|
|
|
|
;; 3 one line
|
|
|
|
|
;; one line
|
|
|
|
|
;; one line
|
|
|
|
|
;; 6 one line
|
|
|
|
|
;; one line
|
|
|
|
|
;; one line
|
|
|
|
|
;; 9 one line
|
|
|
|
|
;; one line
|
|
|
|
|
;; ...
|
|
|
|
|
;;
|
|
|
|
|
;; The values for `ps-line-number-start':
|
|
|
|
|
;;
|
|
|
|
|
;; * If `ps-line-number-step' is an integer, must be between 1 and the value
|
|
|
|
|
;; of `ps-line-number-step' inclusive.
|
|
|
|
|
;;
|
|
|
|
|
;; * If `ps-line-number-step' is set to `zebra', must be between 1 and the
|
2000-08-29 10:51:52 +00:00
|
|
|
|
;; value of `ps-zebra-stripe-height' inclusive.
|
2000-05-18 21:50:51 +00:00
|
|
|
|
;;
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; The default value is 1, so the line number of the first line of each
|
|
|
|
|
;; interval is printed.
|
2000-05-18 21:50:51 +00:00
|
|
|
|
;;
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
;;
|
|
|
|
|
;; Zebra Stripes
|
|
|
|
|
;; -------------
|
|
|
|
|
;;
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; Zebra stripes are a kind of background that appear "underneath" the text and
|
|
|
|
|
;; can make the text easier to read. They look like this:
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
;;
|
|
|
|
|
;; XXXXXXXXXXXXXXXXXXXXXXXX
|
|
|
|
|
;; XXXXXXXXXXXXXXXXXXXXXXXX
|
1997-08-23 06:51:42 +00:00
|
|
|
|
;; XXXXXXXXXXXXXXXXXXXXXXXX
|
|
|
|
|
;;
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
;;
|
|
|
|
|
;;
|
|
|
|
|
;; XXXXXXXXXXXXXXXXXXXXXXXX
|
|
|
|
|
;; XXXXXXXXXXXXXXXXXXXXXXXX
|
1997-08-23 06:51:42 +00:00
|
|
|
|
;; XXXXXXXXXXXXXXXXXXXXXXXX
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
;;
|
1997-09-11 23:51:29 +00:00
|
|
|
|
;; The blocks of X's represent rectangles filled with a light gray color.
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.1).
(ps-adobe-tag): Replace defvar by defcustom, and doc fix.
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): Add arg REGION-P.
(ps-print-region-with-faces, ps-print-region)
(ps-spool-region, ps-spool-region-with-faces): Fix calls to
the functions above.
(ps-setup): Print value of ps-zebra-stripe, ps-number-of-zebra,
ps-line-number, ps-print-background-image,
and ps-print-background-text.
(ps-print-prologue-1): Bug fix in PostScript programming:
/BeginDSCPage, /BeginPage.
(ps-showpage-count, ps-ref-bold-faces, ps-ref-italic-faces)
(ps-ref-underlined-faces, font-lock-face-attributes)
(ps-initialize-faces): Vars deleted.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-initialize-faces, ps-header-height)
(ps-hard-lf, ps-soft-lf, ps-get-face, ps-map-font-lock): Fn deleted.
(ps-extend-face-list, ps-extend-face): Doc fix.
(ps-print-face-alist): New var to handle face alist.
(ps-printing-region): New var and fn.
(ps-header-page, ps-set-face-bold, ps-set-face-italic)
(ps-set-face-underline, ps-set-face-attribute, ps-map-face): New fn.
(ps-rmail-mode-hook, ps-rmail-print-message-from-summary)
(ps-print-message-from-summary, ps-vm-print-message-from-summary):
Fns moved.
(ps-background): New argument PAGE-NUMBER.
(ps-begin-file): Bug fix and print proper line number in a region.
(ps-begin-page): Call ps-header-page.
(ps-get-buffer-name): Indicates in the header when printing a region.
(ps-end-page): Delete ps-showpage-count.
(ps-dummy-page): Calls ps-header-page.
(ps-set-color): Programming improvement.
(ps-plot-region): Doc fix.
(ps-face-attributes): Same functionality as deleted ps-get-face.
(ps-build-reference-face-lists): Do the job by calling
ps-set-face-bold and ps-bold-faces, and friends.
1997-09-06 02:52:00 +00:00
|
|
|
|
;; Each rectangle extends all the way across the page.
|
|
|
|
|
;;
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; The height, in lines, of each rectangle is controlled by the variable
|
|
|
|
|
;; `ps-zebra-stripe-height', which is 3 by default. The distance between
|
|
|
|
|
;; stripes equals the height of a stripe.
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.2) and doc fix.
(ps-print, ps-header-lines, ps-show-n-of-n, ps-font-info-database)
(ps-font-family, ps-font-size, ps-header-font-family)
(ps-header-font-size, ps-header-title-font-size, ps-bold-faces)
(ps-italic-faces, ps-underlined-faces, ps-left-header, ps-right-header)
(ps-font, ps-font-bold, ps-font-italic, ps-font-bold-italic)
(ps-avg-char-width, ps-space-width, ps-line-height): Doc fix.
(ps-error-scale-font): New fn.
(ps-soft-lf, ps-hard-lf): Fn deleted.
(ps-get-page-dimensions, ps-set-bg, ps-face-bold-p, ps-face-italic-p)
(ps-set-color): Reindentation.
(ps-output-string-prim, ps-xemacs-face-kind-p): Internal blank lines
deleted.
(ps-set-font): Little programming improvement.
(ps-line-lengths-internal, ps-nb-pages, ps-select-font)
(ps-select-header-font): Simplify some expressions.
(ps-plot-region): Replace (- X 1) by (1- X).
(ps-generate-header): Replace (+ X 1) by (1+ X).
(ps-print-preprint, ps-plot-with-face, ps-print-ensure-fontified)
(ps-kill-emacs-check): Replace (if (and A B) C) by (and A B C).
(ps-init-output-queue, ps-gnus-article-prepare-hook, ps-jts-ps-setup):
Replace (setq a b)(setq c d) by (setq a b c d).
(ps-begin-file, ps-end-file): Replace (ps-output A)(ps-output B)
by (ps-output A B).
(ps-begin-page): Replace (ps-output A)(ps-output B) by (ps-output A B),
replace (setq a b)(setq c d) by (setq a b c d).
(ps-next-line, ps-continue-line): Replace (setq a b)(setq c d)
by (setq a b c d), and incorporates ps-soft-lf and ps-hard-lf,
respectively.
(ps-plot): Replace (setq a b)(setq c d) by (setq a b c d),
and programming improvement.
(ps-generate-postscript-with-faces): Initialization fix,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if (and A B) C) by (and A B C).
(ps-generate): Doc fix, reprogramming to set the page count,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if A nil B) by (or A B),
replace (if (and A B) C) by (and A B C).
(ps-info-mode-hook): Replace (list 'A 'B) by '(A B).
(ps-jack-setup): Replace (list) by nil.
1997-11-23 02:26:50 +00:00
|
|
|
|
;;
|
1997-09-07 04:02:32 +00:00
|
|
|
|
;; The variable `ps-zebra-stripes' controls whether to print zebra stripes.
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.1).
(ps-adobe-tag): Replace defvar by defcustom, and doc fix.
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): Add arg REGION-P.
(ps-print-region-with-faces, ps-print-region)
(ps-spool-region, ps-spool-region-with-faces): Fix calls to
the functions above.
(ps-setup): Print value of ps-zebra-stripe, ps-number-of-zebra,
ps-line-number, ps-print-background-image,
and ps-print-background-text.
(ps-print-prologue-1): Bug fix in PostScript programming:
/BeginDSCPage, /BeginPage.
(ps-showpage-count, ps-ref-bold-faces, ps-ref-italic-faces)
(ps-ref-underlined-faces, font-lock-face-attributes)
(ps-initialize-faces): Vars deleted.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-initialize-faces, ps-header-height)
(ps-hard-lf, ps-soft-lf, ps-get-face, ps-map-font-lock): Fn deleted.
(ps-extend-face-list, ps-extend-face): Doc fix.
(ps-print-face-alist): New var to handle face alist.
(ps-printing-region): New var and fn.
(ps-header-page, ps-set-face-bold, ps-set-face-italic)
(ps-set-face-underline, ps-set-face-attribute, ps-map-face): New fn.
(ps-rmail-mode-hook, ps-rmail-print-message-from-summary)
(ps-print-message-from-summary, ps-vm-print-message-from-summary):
Fns moved.
(ps-background): New argument PAGE-NUMBER.
(ps-begin-file): Bug fix and print proper line number in a region.
(ps-begin-page): Call ps-header-page.
(ps-get-buffer-name): Indicates in the header when printing a region.
(ps-end-page): Delete ps-showpage-count.
(ps-dummy-page): Calls ps-header-page.
(ps-set-color): Programming improvement.
(ps-plot-region): Doc fix.
(ps-face-attributes): Same functionality as deleted ps-get-face.
(ps-build-reference-face-lists): Do the job by calling
ps-set-face-bold and ps-bold-faces, and friends.
1997-09-06 02:52:00 +00:00
|
|
|
|
;; Non-nil means yes, nil means no. The default is nil.
|
|
|
|
|
;;
|
PostScript programming fix for ghostview, doc fix.
(ps-print-version): New version number (5.1.3).
(ps-begin-file, ps-begin-job, ps-set-color, ps-do-despool, ps-setup)
(ps-insert-file, ps-output-boolean, ps-plot-with-face)
(ps-generate-postscript-with-faces): Code fix.
(ps-color-values): XEmacs compatibility.
(ps-print-background-image, ps-print-background-text, ps-printer-name)
(ps-default-fg, ps-default-bg): Adjust customization.
(ps-zebra-color): Adjust customization, renaming old ps-zebra-gray var.
(ps-color-scale): Renaming old ps-color-value fun.
(ps-print-headers): Replace ps-print-header group to avoid conflict
with ps-print-header variable.
(ps-print-miscellany): New group.
(ps-format-color, ps-rgb-color): New funs.
(ps-default-foreground): New var.
(ps-printer-name-option): New const.
2000-03-30 13:21:45 +00:00
|
|
|
|
;; The variable `ps-zebra-color' controls the zebra stripes gray scale or RGB
|
|
|
|
|
;; color. It should be a float number between 0.0 (black color) and 1.0 (white
|
|
|
|
|
;; color), a string which is a color name, or a list of 3 numbers which
|
|
|
|
|
;; corresponds to the Red Green Blue color scale.
|
|
|
|
|
;; The default is 0.95 (or "gray95", or '(0.95 0.95 0.95)).
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
;;
|
2001-02-20 10:41:10 +00:00
|
|
|
|
;; The variable `ps-zebra-stripe-follow' specifies how zebra stripes continue
|
|
|
|
|
;; on next page. Visually, valid values are (the character `+' at right of
|
|
|
|
|
;; each column indicates that a line is printed):
|
|
|
|
|
;;
|
|
|
|
|
;; `nil' `follow' `full' `full-follow'
|
|
|
|
|
;; Current Page -------- ----------- --------- ----------------
|
|
|
|
|
;; 1 XXXXX + 1 XXXXXXXX + 1 XXXXXX + 1 XXXXXXXXXXXXX +
|
|
|
|
|
;; 2 XXXXX + 2 XXXXXXXX + 2 XXXXXX + 2 XXXXXXXXXXXXX +
|
|
|
|
|
;; 3 XXXXX + 3 XXXXXXXX + 3 XXXXXX + 3 XXXXXXXXXXXXX +
|
|
|
|
|
;; 4 + 4 + 4 + 4 +
|
|
|
|
|
;; 5 + 5 + 5 + 5 +
|
|
|
|
|
;; 6 + 6 + 6 + 6 +
|
|
|
|
|
;; 7 XXXXX + 7 XXXXXXXX + 7 XXXXXX + 7 XXXXXXXXXXXXX +
|
|
|
|
|
;; 8 XXXXX + 8 XXXXXXXX + 8 XXXXXX + 8 XXXXXXXXXXXXX +
|
|
|
|
|
;; 9 XXXXX + 9 XXXXXXXX + 9 XXXXXX + 9 XXXXXXXXXXXXX +
|
|
|
|
|
;; 10 + 10 +
|
|
|
|
|
;; 11 + 11 +
|
|
|
|
|
;; -------- ----------- --------- ----------------
|
|
|
|
|
;; Next Page -------- ----------- --------- ----------------
|
|
|
|
|
;; 12 XXXXX + 12 + 10 XXXXXX + 10 +
|
|
|
|
|
;; 13 XXXXX + 13 XXXXXXXX + 11 XXXXXX + 11 +
|
|
|
|
|
;; 14 XXXXX + 14 XXXXXXXX + 12 XXXXXX + 12 +
|
|
|
|
|
;; 15 + 15 XXXXXXXX + 13 + 13 XXXXXXXXXXXXX +
|
|
|
|
|
;; 16 + 16 + 14 + 14 XXXXXXXXXXXXX +
|
|
|
|
|
;; 17 + 17 + 15 + 15 XXXXXXXXXXXXX +
|
|
|
|
|
;; 18 XXXXX + 18 + 16 XXXXXX + 16 +
|
|
|
|
|
;; 19 XXXXX + 19 XXXXXXXX + 17 XXXXXX + 17 +
|
|
|
|
|
;; 20 XXXXX + 20 XXXXXXXX + 18 XXXXXX + 18 +
|
|
|
|
|
;; 21 + 21 XXXXXXXX +
|
|
|
|
|
;; 22 + 22 +
|
|
|
|
|
;; -------- ----------- --------- ----------------
|
|
|
|
|
;;
|
2003-05-15 02:32:03 +00:00
|
|
|
|
;; Any other value is treated as nil.
|
XEmacs compatibility. Doc fix. Can select page size
with/without giving an error if PostScript printer doesn't have this
kind of page size. Zebra Stripe continues or restarts on next page.
Manual/automatic paper feeding. Switch or not the header.
(ps-print-version): New version number (5.2.2).
(ps-windows-system): Include emx as a Windows system.
(ps-setup, ps-begin-file, ps-color-values, ps-screen-to-bit-face)
(ps-generate-postscript-with-faces, ps-generate-postscript-with-faces)
(ps-background-text): Code fix.
(ps-error-handler-message, ps-user-defined-prologue)
(ps-print-prologue-header, ps-printer-name)
(ps-print-control-characters, ps-n-up-filling, ps-zebra-color)
(ps-line-number-step, ps-spool-config, ps-default-fg, ps-default-bg)
(ps-use-face-background): Customization fix.
(ps-n-up-database): Data fix.
(ps-warn-paper-type, ps-zebra-stripe-follow, ps-manual-feed)
(ps-switch-header): New vars.
(ps-xemacs-color-name, ps-face-foreground-name)
(ps-face-background-name, ps-boolean-constant): New funs.
2000-06-07 15:34:55 +00:00
|
|
|
|
;;
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.1).
(ps-adobe-tag): Replace defvar by defcustom, and doc fix.
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): Add arg REGION-P.
(ps-print-region-with-faces, ps-print-region)
(ps-spool-region, ps-spool-region-with-faces): Fix calls to
the functions above.
(ps-setup): Print value of ps-zebra-stripe, ps-number-of-zebra,
ps-line-number, ps-print-background-image,
and ps-print-background-text.
(ps-print-prologue-1): Bug fix in PostScript programming:
/BeginDSCPage, /BeginPage.
(ps-showpage-count, ps-ref-bold-faces, ps-ref-italic-faces)
(ps-ref-underlined-faces, font-lock-face-attributes)
(ps-initialize-faces): Vars deleted.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-initialize-faces, ps-header-height)
(ps-hard-lf, ps-soft-lf, ps-get-face, ps-map-font-lock): Fn deleted.
(ps-extend-face-list, ps-extend-face): Doc fix.
(ps-print-face-alist): New var to handle face alist.
(ps-printing-region): New var and fn.
(ps-header-page, ps-set-face-bold, ps-set-face-italic)
(ps-set-face-underline, ps-set-face-attribute, ps-map-face): New fn.
(ps-rmail-mode-hook, ps-rmail-print-message-from-summary)
(ps-print-message-from-summary, ps-vm-print-message-from-summary):
Fns moved.
(ps-background): New argument PAGE-NUMBER.
(ps-begin-file): Bug fix and print proper line number in a region.
(ps-begin-page): Call ps-header-page.
(ps-get-buffer-name): Indicates in the header when printing a region.
(ps-end-page): Delete ps-showpage-count.
(ps-dummy-page): Calls ps-header-page.
(ps-set-color): Programming improvement.
(ps-plot-region): Doc fix.
(ps-face-attributes): Same functionality as deleted ps-get-face.
(ps-build-reference-face-lists): Do the job by calling
ps-set-face-bold and ps-bold-faces, and friends.
1997-09-06 02:52:00 +00:00
|
|
|
|
;; See also section How Ps-Print Has A Text And/Or Image On Background.
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
;;
|
|
|
|
|
;;
|
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.
1998-03-07 06:04:46 +00:00
|
|
|
|
;; Hooks
|
|
|
|
|
;; -----
|
|
|
|
|
;;
|
User option for multibyte buffer handling and doc fix.
(ps-multibyte-buffer): New user option.
(ps-setup): Print new user option.
(ps-print-quote): New fun.
(ps-color-p, ps-mule-font-info-database-latin): New var.
(ps-default-color, ps-mule-font-info-database)
(ps-mule-font-info-database-ps-bdf): Adjust initialization.
(ps-mule-get-font-spec, ps-mule-begin, ps-begin-file)
(ps-plot-with-face, ps-generate-postscript-with-faces, ps-generate):
Little code improvement.
(ps-mule-initialize): Initialize ps-mule-font-info-database.
(ps-print-prologue-header, ps-font-family, ps-font-size)
(ps-header-font-family, ps-header-font-size, ps-header-title-font-size)
(ps-build-face-reference, ps-mule-font-info-database-bdf)
(ps-mule-external-libraries, ps-mule-init-external-library)
(ps-mule-prepare-font, ps-mule-find-wrappoint, ps-mule-plot-string): doc
fix.
To make it work also on Emacs 20.2 and the earlier
version, check the value of mule-version.
(ps-print-version): New version number (4.1.1) and doc
fix.
(ps-print-prologue-header): New user option.
(ps-color-values, ps-xemacs-face-kind-p, ps-mapper, ps-extent-sorter):
Conditional compilation for GNU Emacs and emacsens.
(ps-generate-postscript-with-faces): Skip invisible text better.
(ps-setup): Print new user option.
(ps-print-preprint): Check if input file name exists and is unwritable.
(ps-begin-file): Adjust PostScript prologue header for duplex printers
and insert user PostScript prologue header comments.
(ps-mule-encode-bit, ps-mule-string-ascii, ps-mule-string-encoding): New
funs.
(dos-ps-printer, lazy-lock-fontify-buffer): Eliminated.
(ps-mule-prologue, ps-mule-cmpchar-prologue, ps-mule-bitmap-prologue):
PostScript programming normalization.
(ps-mule-encode-7bit, ps-mule-encode-8bit, ps-mule-generate-font)
(ps-mule-generate-glyphs, ps-mule-prepare-font, ps-mule-plot-string)
(ps-mule-skip-same-charset, ps-mule-plot-rule-cmpchar)
(ps-mule-plot-cmpchar, ps-mule-prepare-cmpchar-font)
(ps-mule-initialize, ps-mule-begin, ps-face-bold-p, ps-do-despool):
Programming style normalization.
1998-10-26 20:22:17 +00:00
|
|
|
|
;; ps-print has the following hook variables:
|
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.
1998-03-07 06:04:46 +00:00
|
|
|
|
;;
|
|
|
|
|
;; `ps-print-hook'
|
|
|
|
|
;; It is evaluated once before any printing process. This is the right
|
|
|
|
|
;; place to initialize ps-print global data.
|
|
|
|
|
;; For an example, see section Adding a New Font Family.
|
|
|
|
|
;;
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
;; `ps-print-begin-sheet-hook'
|
|
|
|
|
;; It is evaluated on each beginning of sheet of paper.
|
|
|
|
|
;; If `ps-n-up-printing' is equal to 1, `ps-print-begin-page-hook' is never
|
|
|
|
|
;; evaluated.
|
|
|
|
|
;;
|
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.
1998-03-07 06:04:46 +00:00
|
|
|
|
;; `ps-print-begin-page-hook'
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; It is evaluated on each beginning of page, except in the beginning of
|
|
|
|
|
;; page that `ps-print-begin-sheet-hook' is evaluated.
|
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.
1998-03-07 06:04:46 +00:00
|
|
|
|
;;
|
|
|
|
|
;; `ps-print-begin-column-hook'
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; It is evaluated on each beginning of column, except in the beginning of
|
|
|
|
|
;; column that `ps-print-begin-page-hook' is evaluated or that
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
;; `ps-print-begin-sheet-hook' is evaluated.
|
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.
1998-03-07 06:04:46 +00:00
|
|
|
|
;;
|
|
|
|
|
;;
|
|
|
|
|
;; Font Managing
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
;; -------------
|
|
|
|
|
;;
|
Doc fix, font size specifies landscape and portrait sizes.
(ps-print-version): New version number (4.1.4).
(ps-font-size, ps-header-font-size, ps-header-title-font-size):
Specifies landscape and portrait sizes.
(ps-setup, ps-print-quote, ps-line-lengths-internal, ps-nb-pages)
(ps-get-page-dimensions, ps-begin-file, ps-begin-job, ps-generate): Fun
fix.
(ps-get-font-size): New fun.
(ps-font-size-internal, ps-header-font-size-internal)
(ps-header-title-font-size-internal): New vars.
PostScript programming fix.
(ps-print-prologue-1): Fix BeginDoc PostScript procedure (do'nt use
setpagedevice operator).
1999-02-27 01:37:15 +00:00
|
|
|
|
;; ps-print now knows rather precisely some fonts: the variable
|
|
|
|
|
;; `ps-font-info-database' contains information for a list of font families
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; (currently mainly `Courier' `Helvetica' `Times' `Palatino'
|
|
|
|
|
;; `Helvetica-Narrow' `NewCenturySchlbk'). Each font family contains the font
|
|
|
|
|
;; names for standard, bold, italic and bold-italic characters, a reference
|
|
|
|
|
;; size (usually 10) and the corresponding line height, width of a space and
|
|
|
|
|
;; average character width.
|
1997-09-11 23:51:29 +00:00
|
|
|
|
;;
|
Doc fix, font size specifies landscape and portrait sizes.
(ps-print-version): New version number (4.1.4).
(ps-font-size, ps-header-font-size, ps-header-title-font-size):
Specifies landscape and portrait sizes.
(ps-setup, ps-print-quote, ps-line-lengths-internal, ps-nb-pages)
(ps-get-page-dimensions, ps-begin-file, ps-begin-job, ps-generate): Fun
fix.
(ps-get-font-size): New fun.
(ps-font-size-internal, ps-header-font-size-internal)
(ps-header-title-font-size-internal): New vars.
PostScript programming fix.
(ps-print-prologue-1): Fix BeginDoc PostScript procedure (do'nt use
setpagedevice operator).
1999-02-27 01:37:15 +00:00
|
|
|
|
;; The variable `ps-font-family' determines which font family is to be used for
|
|
|
|
|
;; ordinary text. If its value does not correspond to a known font family, an
|
|
|
|
|
;; error message is printed into the `*Messages*' buffer, which lists the
|
|
|
|
|
;; currently available font families.
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
;;
|
Doc fix, font size specifies landscape and portrait sizes.
(ps-print-version): New version number (4.1.4).
(ps-font-size, ps-header-font-size, ps-header-title-font-size):
Specifies landscape and portrait sizes.
(ps-setup, ps-print-quote, ps-line-lengths-internal, ps-nb-pages)
(ps-get-page-dimensions, ps-begin-file, ps-begin-job, ps-generate): Fun
fix.
(ps-get-font-size): New fun.
(ps-font-size-internal, ps-header-font-size-internal)
(ps-header-title-font-size-internal): New vars.
PostScript programming fix.
(ps-print-prologue-1): Fix BeginDoc PostScript procedure (do'nt use
setpagedevice operator).
1999-02-27 01:37:15 +00:00
|
|
|
|
;; The variable `ps-font-size' determines the size (in points) of the font for
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; ordinary text, when generating PostScript. Its value is a float or a cons
|
|
|
|
|
;; of floats which has the following form:
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
;;
|
Doc fix, font size specifies landscape and portrait sizes.
(ps-print-version): New version number (4.1.4).
(ps-font-size, ps-header-font-size, ps-header-title-font-size):
Specifies landscape and portrait sizes.
(ps-setup, ps-print-quote, ps-line-lengths-internal, ps-nb-pages)
(ps-get-page-dimensions, ps-begin-file, ps-begin-job, ps-generate): Fun
fix.
(ps-get-font-size): New fun.
(ps-font-size-internal, ps-header-font-size-internal)
(ps-header-title-font-size-internal): New vars.
PostScript programming fix.
(ps-print-prologue-1): Fix BeginDoc PostScript procedure (do'nt use
setpagedevice operator).
1999-02-27 01:37:15 +00:00
|
|
|
|
;; (LANDSCAPE-SIZE . PORTRAIT-SIZE)
|
|
|
|
|
;;
|
|
|
|
|
;; Similarly, the variable `ps-header-font-family' determines which font family
|
|
|
|
|
;; is to be used for text in the header.
|
|
|
|
|
;;
|
|
|
|
|
;; The variable `ps-header-font-size' determines the font size, in points, for
|
|
|
|
|
;; text in the header (similar to `ps-font-size').
|
|
|
|
|
;;
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; The variable `ps-header-title-font-size' determines the font size, in
|
|
|
|
|
;; points, for the top line of text in the header (similar to `ps-font-size').
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
;;
|
Line and paragraph spacing feature. Region to cut
out when printing. Doc fix.
(ps-print-version): New version number (6.5).
(ps-line-spacing, ps-paragraph-spacing, ps-paragraph-regexp): New
vars. Line and paragraph spacing feature.
(ps-begin-cut-regexp, ps-end-cut-regexp): New vars. Region to cut
out when printing.
(ps-setup, ps-nb-pages, ps-get-page-dimensions, ps-begin-file)
(ps-get-font-size, ps-begin-job, ps-continue-line)
(ps-plot-region): Code fix.
(ps-print-prologue-2): Var eliminated.
(ps-line-spacing-internal, ps-paragraph-spacing-internal): New
internal vars.
(ps-get-size): New fun.
(ps-output-string-prim, ps-init-output-queue, ps-print-page-p)
(ps-next-line): Replace defun by defsubst.
(ps-mule-plot-string): Autoload doc fix.
(ps-mule-generate-font): New arg HEADER-P. If it is
non-nil, generate font for the header strings.
(ps-mule-prepare-font): Likewise.
(ps-mule-generate-glyphs): Likewise.
(ps-mule-string-encoding): Likewise.
(ps-mule-header-charsets): New variable.
(ps-mule-encode-header-string): New function.
(ps-mule-header-string-charsets): New function.
(ps-mule-begin-job): Check charsets in the header strings. If there
are non-ASCII and non-Latin1 charsets, prepare fonts for them.
2001-04-02 10:35:07 +00:00
|
|
|
|
;; The variable `ps-line-spacing' determines the line spacing, in points, for
|
|
|
|
|
;; ordinary text, when generating PostScript (similar to `ps-font-size'). The
|
|
|
|
|
;; default value is 0 (zero = no line spacing).
|
|
|
|
|
;;
|
|
|
|
|
;; The variable `ps-paragraph-spacing' determines the paragraph spacing, in
|
|
|
|
|
;; points, for ordinary text, when generating PostScript (similar to
|
|
|
|
|
;; `ps-font-size'). The default value is 0 (zero = no paragraph spacing).
|
|
|
|
|
;;
|
|
|
|
|
;; To get all lines with some spacing set both `ps-line-spacing' and
|
|
|
|
|
;; `ps-paragraph-spacing' variables.
|
|
|
|
|
;;
|
|
|
|
|
;; The variable `ps-paragraph-regexp' specifies the paragraph delimiter. It
|
|
|
|
|
;; should be a regexp or nil. The default value is "[ \t]*$", that is, an
|
|
|
|
|
;; empty line or a line containing only spaces and tabs.
|
|
|
|
|
;;
|
|
|
|
|
;; The variable `ps-begin-cut-regexp' and `ps-end-cut-regexp' specify the start
|
|
|
|
|
;; and end of a region to cut out when printing.
|
|
|
|
|
;;
|
|
|
|
|
;; As an example, variables `ps-begin-cut-regexp' and `ps-end-cut-regexp' may
|
|
|
|
|
;; be set to "^Local Variables:" and "^End:", respectively, in order to leave
|
|
|
|
|
;; out some special printing instructions from the actual print. Special
|
|
|
|
|
;; printing instructions may be appended to the end of the file just like any
|
|
|
|
|
;; other buffer-local variables. See section "Local Variables in Files" on
|
|
|
|
|
;; Emacs manual for more information.
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;;
|
|
|
|
|
;; Variables `ps-begin-cut-regexp' and `ps-end-cut-regexp' control together
|
|
|
|
|
;; what actually gets printed. Both variables may be set to nil in which case
|
|
|
|
|
;; no cutting occurs. By default, both variables are set to nil.
|
Line and paragraph spacing feature. Region to cut
out when printing. Doc fix.
(ps-print-version): New version number (6.5).
(ps-line-spacing, ps-paragraph-spacing, ps-paragraph-regexp): New
vars. Line and paragraph spacing feature.
(ps-begin-cut-regexp, ps-end-cut-regexp): New vars. Region to cut
out when printing.
(ps-setup, ps-nb-pages, ps-get-page-dimensions, ps-begin-file)
(ps-get-font-size, ps-begin-job, ps-continue-line)
(ps-plot-region): Code fix.
(ps-print-prologue-2): Var eliminated.
(ps-line-spacing-internal, ps-paragraph-spacing-internal): New
internal vars.
(ps-get-size): New fun.
(ps-output-string-prim, ps-init-output-queue, ps-print-page-p)
(ps-next-line): Replace defun by defsubst.
(ps-mule-plot-string): Autoload doc fix.
(ps-mule-generate-font): New arg HEADER-P. If it is
non-nil, generate font for the header strings.
(ps-mule-prepare-font): Likewise.
(ps-mule-generate-glyphs): Likewise.
(ps-mule-string-encoding): Likewise.
(ps-mule-header-charsets): New variable.
(ps-mule-encode-header-string): New function.
(ps-mule-header-string-charsets): New function.
(ps-mule-begin-job): Check charsets in the header strings. If there
are non-ASCII and non-Latin1 charsets, prepare fonts for them.
2001-04-02 10:35:07 +00:00
|
|
|
|
;;
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
;;
|
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.
1998-03-07 06:04:46 +00:00
|
|
|
|
;; Adding a New Font Family
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
;; ------------------------
|
|
|
|
|
;;
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; To use a new font family, you MUST first teach ps-print this font, i.e., add
|
|
|
|
|
;; its information to `ps-font-info-database', otherwise ps-print cannot
|
|
|
|
|
;; correctly place line and page breaks.
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
;;
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; For example, assuming `Helvetica' is unknown, you first need to do the
|
|
|
|
|
;; following ONLY ONCE:
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
;;
|
|
|
|
|
;; - create a new buffer
|
|
|
|
|
;; - generate the PostScript image to a file (C-u M-x ps-print-buffer)
|
|
|
|
|
;; - open this file and find the line:
|
Fix bug: if ^L is the very first buffer character,
ps-print crashes. New feature: page selection for printing. Create
raw-text-unix coding system for XEmacs. Doc fix.
(ps-print-version): New version number (5.2.3).
(ps-plot-region): Bug fix.
(ps-setup, ps-init-output-queue, ps-output, ps-begin-job, ps-end-file)
(ps-header-sheet, ps-generate, ps-end-job): Code fix.
(ps-restore-selected-pages, ps-selected-pages, ps-print-page-p): New
funs.
(ps-selected-pages, ps-last-selected-pages, ps-first-page)
(ps-last-page): New vars.
2000-06-22 12:27:49 +00:00
|
|
|
|
;; `% 3 cm 20 cm moveto 10/Courier ReportFontInfo showpage'
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.1).
(ps-adobe-tag): Replace defvar by defcustom, and doc fix.
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): Add arg REGION-P.
(ps-print-region-with-faces, ps-print-region)
(ps-spool-region, ps-spool-region-with-faces): Fix calls to
the functions above.
(ps-setup): Print value of ps-zebra-stripe, ps-number-of-zebra,
ps-line-number, ps-print-background-image,
and ps-print-background-text.
(ps-print-prologue-1): Bug fix in PostScript programming:
/BeginDSCPage, /BeginPage.
(ps-showpage-count, ps-ref-bold-faces, ps-ref-italic-faces)
(ps-ref-underlined-faces, font-lock-face-attributes)
(ps-initialize-faces): Vars deleted.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-initialize-faces, ps-header-height)
(ps-hard-lf, ps-soft-lf, ps-get-face, ps-map-font-lock): Fn deleted.
(ps-extend-face-list, ps-extend-face): Doc fix.
(ps-print-face-alist): New var to handle face alist.
(ps-printing-region): New var and fn.
(ps-header-page, ps-set-face-bold, ps-set-face-italic)
(ps-set-face-underline, ps-set-face-attribute, ps-map-face): New fn.
(ps-rmail-mode-hook, ps-rmail-print-message-from-summary)
(ps-print-message-from-summary, ps-vm-print-message-from-summary):
Fns moved.
(ps-background): New argument PAGE-NUMBER.
(ps-begin-file): Bug fix and print proper line number in a region.
(ps-begin-page): Call ps-header-page.
(ps-get-buffer-name): Indicates in the header when printing a region.
(ps-end-page): Delete ps-showpage-count.
(ps-dummy-page): Calls ps-header-page.
(ps-set-color): Programming improvement.
(ps-plot-region): Doc fix.
(ps-face-attributes): Same functionality as deleted ps-get-face.
(ps-build-reference-face-lists): Do the job by calling
ps-set-face-bold and ps-bold-faces, and friends.
1997-09-06 02:52:00 +00:00
|
|
|
|
;; - delete the leading `%' (which is the PostScript comment character)
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; - replace in this line `Courier' by the new font (say `Helvetica') to get
|
|
|
|
|
;; the line:
|
Fix bug: if ^L is the very first buffer character,
ps-print crashes. New feature: page selection for printing. Create
raw-text-unix coding system for XEmacs. Doc fix.
(ps-print-version): New version number (5.2.3).
(ps-plot-region): Bug fix.
(ps-setup, ps-init-output-queue, ps-output, ps-begin-job, ps-end-file)
(ps-header-sheet, ps-generate, ps-end-job): Code fix.
(ps-restore-selected-pages, ps-selected-pages, ps-print-page-p): New
funs.
(ps-selected-pages, ps-last-selected-pages, ps-first-page)
(ps-last-page): New vars.
2000-06-22 12:27:49 +00:00
|
|
|
|
;; `3 cm 20 cm moveto 10/Helvetica ReportFontInfo showpage'
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
;; - send this file to the printer (or to ghostscript).
|
|
|
|
|
;; You should read the following on the output page:
|
|
|
|
|
;;
|
|
|
|
|
;; For Helvetica 10 point, the line height is 11.56, the space width is 2.78
|
|
|
|
|
;; and a crude estimate of average character width is 5.09243
|
|
|
|
|
;;
|
|
|
|
|
;; - Add these values to the `ps-font-info-database':
|
|
|
|
|
;; (setq ps-font-info-database
|
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.
1998-03-07 06:04:46 +00:00
|
|
|
|
;; (append
|
|
|
|
|
;; '((Helvetica ; the family key
|
|
|
|
|
;; (fonts (normal . "Helvetica")
|
|
|
|
|
;; (bold . "Helvetica-Bold")
|
|
|
|
|
;; (italic . "Helvetica-Oblique")
|
|
|
|
|
;; (bold-italic . "Helvetica-BoldOblique"))
|
|
|
|
|
;; (size . 10.0)
|
|
|
|
|
;; (line-height . 11.56)
|
|
|
|
|
;; (space-width . 2.78)
|
|
|
|
|
;; (avg-char-width . 5.09243)))
|
|
|
|
|
;; ps-font-info-database))
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
;; - Now you can use this font family with any size:
|
|
|
|
|
;; (setq ps-font-family 'Helvetica)
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; - if you want to use this family in another emacs session, you must put into
|
|
|
|
|
;; your `~/.emacs':
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
;; (require 'ps-print)
|
|
|
|
|
;; (setq ps-font-info-database (append ...)))
|
|
|
|
|
;; if you don't want to load ps-print, you have to copy the whole value:
|
|
|
|
|
;; (setq ps-font-info-database '(<your stuff> <the standard stuff>))
|
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.
1998-03-07 06:04:46 +00:00
|
|
|
|
;; or, use `ps-print-hook' (see section Hooks):
|
|
|
|
|
;; (add-hook 'ps-print-hook
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
;; '(lambda ()
|
|
|
|
|
;; (or (assq 'Helvetica ps-font-info-database)
|
|
|
|
|
;; (setq ps-font-info-database (append ...)))))
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
;;
|
|
|
|
|
;; You can create new `mixed' font families like:
|
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.
1998-03-07 06:04:46 +00:00
|
|
|
|
;; (my-mixed-family
|
|
|
|
|
;; (fonts (normal . "Courier-Bold")
|
|
|
|
|
;; (bold . "Helvetica")
|
2005-02-18 00:44:44 +00:00
|
|
|
|
;; (italic . "ZapfChancery-MediumItalic")
|
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.
1998-03-07 06:04:46 +00:00
|
|
|
|
;; (bold-italic . "NewCenturySchlbk-BoldItalic")
|
|
|
|
|
;; (w3-table-hack-x-face . "LineDrawNormal"))
|
|
|
|
|
;; (size . 10.0)
|
|
|
|
|
;; (line-height . 10.55)
|
|
|
|
|
;; (space-width . 6.0)
|
|
|
|
|
;; (avg-char-width . 6.0))
|
User option for multibyte buffer handling and doc fix.
(ps-multibyte-buffer): New user option.
(ps-setup): Print new user option.
(ps-print-quote): New fun.
(ps-color-p, ps-mule-font-info-database-latin): New var.
(ps-default-color, ps-mule-font-info-database)
(ps-mule-font-info-database-ps-bdf): Adjust initialization.
(ps-mule-get-font-spec, ps-mule-begin, ps-begin-file)
(ps-plot-with-face, ps-generate-postscript-with-faces, ps-generate):
Little code improvement.
(ps-mule-initialize): Initialize ps-mule-font-info-database.
(ps-print-prologue-header, ps-font-family, ps-font-size)
(ps-header-font-family, ps-header-font-size, ps-header-title-font-size)
(ps-build-face-reference, ps-mule-font-info-database-bdf)
(ps-mule-external-libraries, ps-mule-init-external-library)
(ps-mule-prepare-font, ps-mule-find-wrappoint, ps-mule-plot-string): doc
fix.
To make it work also on Emacs 20.2 and the earlier
version, check the value of mule-version.
(ps-print-version): New version number (4.1.1) and doc
fix.
(ps-print-prologue-header): New user option.
(ps-color-values, ps-xemacs-face-kind-p, ps-mapper, ps-extent-sorter):
Conditional compilation for GNU Emacs and emacsens.
(ps-generate-postscript-with-faces): Skip invisible text better.
(ps-setup): Print new user option.
(ps-print-preprint): Check if input file name exists and is unwritable.
(ps-begin-file): Adjust PostScript prologue header for duplex printers
and insert user PostScript prologue header comments.
(ps-mule-encode-bit, ps-mule-string-ascii, ps-mule-string-encoding): New
funs.
(dos-ps-printer, lazy-lock-fontify-buffer): Eliminated.
(ps-mule-prologue, ps-mule-cmpchar-prologue, ps-mule-bitmap-prologue):
PostScript programming normalization.
(ps-mule-encode-7bit, ps-mule-encode-8bit, ps-mule-generate-font)
(ps-mule-generate-glyphs, ps-mule-prepare-font, ps-mule-plot-string)
(ps-mule-skip-same-charset, ps-mule-plot-rule-cmpchar)
(ps-mule-plot-cmpchar, ps-mule-prepare-cmpchar-font)
(ps-mule-initialize, ps-mule-begin, ps-face-bold-p, ps-do-despool):
Programming style normalization.
1998-10-26 20:22:17 +00:00
|
|
|
|
;;
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
;; Now you can use your new font family with any size:
|
|
|
|
|
;; (setq ps-font-family 'my-mixed-family)
|
|
|
|
|
;;
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; Note that on above example the `w3-table-hack-x-face' entry refers to a face
|
|
|
|
|
;; symbol, so when printing this face it'll be used the font `LineDrawNormal'.
|
|
|
|
|
;; If the face `w3-table-hack-x-face' is remapped to use bold and/or italic
|
|
|
|
|
;; attribute, the corresponding entry (bold, italic or bold-italic) will be
|
|
|
|
|
;; used instead of `w3-table-hack-x-face' entry.
|
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.
1998-03-07 06:04:46 +00:00
|
|
|
|
;;
|
|
|
|
|
;; Note also that the font family entry order is irrelevant, so the above
|
|
|
|
|
;; example could also be written:
|
|
|
|
|
;; (my-mixed-family
|
|
|
|
|
;; (size . 10.0)
|
|
|
|
|
;; (fonts (w3-table-hack-x-face . "LineDrawNormal")
|
|
|
|
|
;; (bold . "Helvetica")
|
|
|
|
|
;; (bold-italic . "NewCenturySchlbk-BoldItalic")
|
2005-02-18 00:44:44 +00:00
|
|
|
|
;; (italic . "ZapfChancery-MediumItalic")
|
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.
1998-03-07 06:04:46 +00:00
|
|
|
|
;; (normal . "Courier-Bold"))
|
|
|
|
|
;; (avg-char-width . 6.0)
|
|
|
|
|
;; (space-width . 6.0)
|
|
|
|
|
;; (line-height . 10.55))
|
|
|
|
|
;;
|
|
|
|
|
;; Despite the note above, it is recommended that some convention about
|
|
|
|
|
;; entry order be used.
|
|
|
|
|
;;
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
;; You can get information on all the fonts resident in YOUR printer
|
|
|
|
|
;; by uncommenting the line:
|
|
|
|
|
;; % 3 cm 20 cm moveto ReportAllFontInfo showpage
|
|
|
|
|
;;
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.1).
(ps-adobe-tag): Replace defvar by defcustom, and doc fix.
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): Add arg REGION-P.
(ps-print-region-with-faces, ps-print-region)
(ps-spool-region, ps-spool-region-with-faces): Fix calls to
the functions above.
(ps-setup): Print value of ps-zebra-stripe, ps-number-of-zebra,
ps-line-number, ps-print-background-image,
and ps-print-background-text.
(ps-print-prologue-1): Bug fix in PostScript programming:
/BeginDSCPage, /BeginPage.
(ps-showpage-count, ps-ref-bold-faces, ps-ref-italic-faces)
(ps-ref-underlined-faces, font-lock-face-attributes)
(ps-initialize-faces): Vars deleted.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-initialize-faces, ps-header-height)
(ps-hard-lf, ps-soft-lf, ps-get-face, ps-map-font-lock): Fn deleted.
(ps-extend-face-list, ps-extend-face): Doc fix.
(ps-print-face-alist): New var to handle face alist.
(ps-printing-region): New var and fn.
(ps-header-page, ps-set-face-bold, ps-set-face-italic)
(ps-set-face-underline, ps-set-face-attribute, ps-map-face): New fn.
(ps-rmail-mode-hook, ps-rmail-print-message-from-summary)
(ps-print-message-from-summary, ps-vm-print-message-from-summary):
Fns moved.
(ps-background): New argument PAGE-NUMBER.
(ps-begin-file): Bug fix and print proper line number in a region.
(ps-begin-page): Call ps-header-page.
(ps-get-buffer-name): Indicates in the header when printing a region.
(ps-end-page): Delete ps-showpage-count.
(ps-dummy-page): Calls ps-header-page.
(ps-set-color): Programming improvement.
(ps-plot-region): Doc fix.
(ps-face-attributes): Same functionality as deleted ps-get-face.
(ps-build-reference-face-lists): Do the job by calling
ps-set-face-bold and ps-bold-faces, and friends.
1997-09-06 02:52:00 +00:00
|
|
|
|
;; The PostScript file should be sent to YOUR PostScript printer.
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; If you send it to ghostscript or to another PostScript printer, you may get
|
|
|
|
|
;; slightly different results.
|
2000-08-29 10:51:52 +00:00
|
|
|
|
;; Anyway, as ghostscript fonts are autoload, you won't get much font info.
|
|
|
|
|
;;
|
|
|
|
|
;; Note also that ps-print DOESN'T download any font to your printer, instead
|
|
|
|
|
;; it uses the fonts resident in your printer.
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
;;
|
|
|
|
|
;;
|
|
|
|
|
;; How Ps-Print Deals With Faces
|
|
|
|
|
;; -----------------------------
|
1995-01-20 06:09:03 +00:00
|
|
|
|
;;
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; The ps-print-*-with-faces commands attempt to determine which faces should
|
|
|
|
|
;; be printed in bold or italic, but their guesses aren't always right. For
|
|
|
|
|
;; example, you might want to map colors into faces so that blue faces print in
|
|
|
|
|
;; bold, and red faces in italic.
|
1995-01-20 06:09:03 +00:00
|
|
|
|
;;
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; It is possible to force ps-print to consider specific faces bold, italic or
|
|
|
|
|
;; underline, no matter what font they are displayed in, by setting the
|
|
|
|
|
;; variables `ps-bold-faces', `ps-italic-faces' and `ps-underlined-faces'.
|
Some comment, doc and bug fixes.
(ps-print-version): New version number (3.05.3) and doc fix.
(ps-output-string-prim, ps-begin-job, ps-control-character)
(ps-plot-region): Bug fix.
(ps-print-control-characters): New custom var.
(ps-string-escape-codes, ps-string-control-codes): New var.
(ps-color-device, ps-font-lock-face-attributes, ps-eval-switch)
(ps-flatten-list, ps-flatten-list-1): New fn.
(ps-setup): Update current setup.
(ps-begin-file): Adjust PostScript header file.
(ps-plot, ps-face-attribute-list): Little programming improvement.
(ps-print-prologue-1): Replace NumberOfZebra by ZebraHeight.
(ps-print-without-faces, ps-print-with-faces): Little reprogramming.
(ps-plot-with-face): Get color only on color screen device.
(ps-build-reference-face-lists): Handle obsolete
font-lock-face-attributes.
(ps-print-ensure-fontified): Little programming setting.
(ps-generate-postscript-with-faces): Adjust initializations, get color
only on color screen device.
(ps-generate): Replace (if A B) by (and A B).
(ps-do-despool): Dynamic evaluation for ps-lpr-switches,
Replace (if A B) by (and A B).
(color-instance-rgb-components, ps-color-values): Replace
pixel-components by color-instance-rgb-components.
(ps-xemacs-face-kind-p): Replace face-font by face-font-instance,
replace x-font-properties by font-instance-properties.
1997-12-25 18:33:52 +00:00
|
|
|
|
;; These variables contain lists of faces that ps-print should consider bold,
|
|
|
|
|
;; italic or underline; to set them, put code like the following into your
|
|
|
|
|
;; .emacs file:
|
1995-01-20 06:09:03 +00:00
|
|
|
|
;;
|
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.
1998-03-07 06:04:46 +00:00
|
|
|
|
;; (setq ps-bold-faces '(my-blue-face))
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
;; (setq ps-italic-faces '(my-red-face))
|
Some comment, doc and bug fixes.
(ps-print-version): New version number (3.05.3) and doc fix.
(ps-output-string-prim, ps-begin-job, ps-control-character)
(ps-plot-region): Bug fix.
(ps-print-control-characters): New custom var.
(ps-string-escape-codes, ps-string-control-codes): New var.
(ps-color-device, ps-font-lock-face-attributes, ps-eval-switch)
(ps-flatten-list, ps-flatten-list-1): New fn.
(ps-setup): Update current setup.
(ps-begin-file): Adjust PostScript header file.
(ps-plot, ps-face-attribute-list): Little programming improvement.
(ps-print-prologue-1): Replace NumberOfZebra by ZebraHeight.
(ps-print-without-faces, ps-print-with-faces): Little reprogramming.
(ps-plot-with-face): Get color only on color screen device.
(ps-build-reference-face-lists): Handle obsolete
font-lock-face-attributes.
(ps-print-ensure-fontified): Little programming setting.
(ps-generate-postscript-with-faces): Adjust initializations, get color
only on color screen device.
(ps-generate): Replace (if A B) by (and A B).
(ps-do-despool): Dynamic evaluation for ps-lpr-switches,
Replace (if A B) by (and A B).
(color-instance-rgb-components, ps-color-values): Replace
pixel-components by color-instance-rgb-components.
(ps-xemacs-face-kind-p): Replace face-font by face-font-instance,
replace x-font-properties by font-instance-properties.
1997-12-25 18:33:52 +00:00
|
|
|
|
;; (setq ps-underlined-faces '(my-green-face))
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
;;
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; Faces like bold-italic that are both bold and italic should go in *both*
|
|
|
|
|
;; lists.
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
;;
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; ps-print keeps internal lists of which fonts are bold and which are italic;
|
|
|
|
|
;; these lists are built the first time you invoke ps-print.
|
|
|
|
|
;; For the sake of efficiency, the lists are built only once; the same lists
|
|
|
|
|
;; are referred in later invocations of ps-print.
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
;;
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; Because these lists are built only once, it's possible for them to get out
|
|
|
|
|
;; of sync, if a face changes, or if new faces are added. To get the lists
|
|
|
|
|
;; back in sync, you can set the variable `ps-build-face-reference' to t, and
|
|
|
|
|
;; the lists will be rebuilt the next time ps-print is invoked. If you need
|
|
|
|
|
;; that the lists always be rebuilt when ps-print is invoked, set the variable
|
Some comment, doc and bug fixes.
(ps-print-version): New version number (3.05.3) and doc fix.
(ps-output-string-prim, ps-begin-job, ps-control-character)
(ps-plot-region): Bug fix.
(ps-print-control-characters): New custom var.
(ps-string-escape-codes, ps-string-control-codes): New var.
(ps-color-device, ps-font-lock-face-attributes, ps-eval-switch)
(ps-flatten-list, ps-flatten-list-1): New fn.
(ps-setup): Update current setup.
(ps-begin-file): Adjust PostScript header file.
(ps-plot, ps-face-attribute-list): Little programming improvement.
(ps-print-prologue-1): Replace NumberOfZebra by ZebraHeight.
(ps-print-without-faces, ps-print-with-faces): Little reprogramming.
(ps-plot-with-face): Get color only on color screen device.
(ps-build-reference-face-lists): Handle obsolete
font-lock-face-attributes.
(ps-print-ensure-fontified): Little programming setting.
(ps-generate-postscript-with-faces): Adjust initializations, get color
only on color screen device.
(ps-generate): Replace (if A B) by (and A B).
(ps-do-despool): Dynamic evaluation for ps-lpr-switches,
Replace (if A B) by (and A B).
(color-instance-rgb-components, ps-color-values): Replace
pixel-components by color-instance-rgb-components.
(ps-xemacs-face-kind-p): Replace face-font by face-font-instance,
replace x-font-properties by font-instance-properties.
1997-12-25 18:33:52 +00:00
|
|
|
|
;; `ps-always-build-face-reference' to t.
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
;;
|
2000-04-29 19:27:49 +00:00
|
|
|
|
;; If you need to print without worrying about face background color, set the
|
|
|
|
|
;; variable `ps-use-face-background' which specifies if face background should
|
|
|
|
|
;; be used. Valid values are:
|
|
|
|
|
;;
|
|
|
|
|
;; t always use face background color.
|
|
|
|
|
;; nil never use face background color.
|
|
|
|
|
;; (face...) list of faces whose background color will be used.
|
|
|
|
|
;;
|
|
|
|
|
;; Any other value will be treated as t.
|
2003-03-06 01:54:17 +00:00
|
|
|
|
;; The default value is nil.
|
2000-04-29 19:27:49 +00:00
|
|
|
|
;;
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
;;
|
|
|
|
|
;; How Ps-Print Deals With Color
|
|
|
|
|
;; -----------------------------
|
|
|
|
|
;;
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; ps-print detects faces with foreground and background colors defined and
|
|
|
|
|
;; embeds color information in the PostScript image.
|
|
|
|
|
;; The default foreground and background colors are defined by the variables
|
|
|
|
|
;; `ps-default-fg' and `ps-default-bg'.
|
2001-09-18 09:28:00 +00:00
|
|
|
|
;; On black/white printers, colors are displayed in gray scale.
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
;; To turn off color output, set `ps-print-color-p' to nil.
|
2001-09-18 09:28:00 +00:00
|
|
|
|
;; You can also set `ps-print-color-p' to 'black-white to have a better looking
|
|
|
|
|
;; on black/white printers. See also `ps-black-white-faces' for documentation.
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
;;
|
|
|
|
|
;;
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
;; How Ps-Print Maps Faces
|
|
|
|
|
;; -----------------------
|
|
|
|
|
;;
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; As ps-print uses PostScript to print buffers, it is possible to have other
|
|
|
|
|
;; attributes associated with faces. So the new attributes used by ps-print
|
|
|
|
|
;; are:
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
;;
|
|
|
|
|
;; strikeout - like underline, but the line is in middle of text.
|
|
|
|
|
;; overline - like underline, but the line is over the text.
|
|
|
|
|
;; shadow - text will have a shadow.
|
|
|
|
|
;; box - text will be surrounded by a box.
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.1).
(ps-adobe-tag): Replace defvar by defcustom, and doc fix.
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): Add arg REGION-P.
(ps-print-region-with-faces, ps-print-region)
(ps-spool-region, ps-spool-region-with-faces): Fix calls to
the functions above.
(ps-setup): Print value of ps-zebra-stripe, ps-number-of-zebra,
ps-line-number, ps-print-background-image,
and ps-print-background-text.
(ps-print-prologue-1): Bug fix in PostScript programming:
/BeginDSCPage, /BeginPage.
(ps-showpage-count, ps-ref-bold-faces, ps-ref-italic-faces)
(ps-ref-underlined-faces, font-lock-face-attributes)
(ps-initialize-faces): Vars deleted.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-initialize-faces, ps-header-height)
(ps-hard-lf, ps-soft-lf, ps-get-face, ps-map-font-lock): Fn deleted.
(ps-extend-face-list, ps-extend-face): Doc fix.
(ps-print-face-alist): New var to handle face alist.
(ps-printing-region): New var and fn.
(ps-header-page, ps-set-face-bold, ps-set-face-italic)
(ps-set-face-underline, ps-set-face-attribute, ps-map-face): New fn.
(ps-rmail-mode-hook, ps-rmail-print-message-from-summary)
(ps-print-message-from-summary, ps-vm-print-message-from-summary):
Fns moved.
(ps-background): New argument PAGE-NUMBER.
(ps-begin-file): Bug fix and print proper line number in a region.
(ps-begin-page): Call ps-header-page.
(ps-get-buffer-name): Indicates in the header when printing a region.
(ps-end-page): Delete ps-showpage-count.
(ps-dummy-page): Calls ps-header-page.
(ps-set-color): Programming improvement.
(ps-plot-region): Doc fix.
(ps-face-attributes): Same functionality as deleted ps-get-face.
(ps-build-reference-face-lists): Do the job by calling
ps-set-face-bold and ps-bold-faces, and friends.
1997-09-06 02:52:00 +00:00
|
|
|
|
;; outline - print characters as hollow outlines.
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
;;
|
1997-09-11 23:51:29 +00:00
|
|
|
|
;; See the documentation for `ps-extend-face'.
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
;;
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
;; Let's, for example, remap `font-lock-keyword-face' to another foreground
|
|
|
|
|
;; color and bold attribute:
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
;;
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.1).
(ps-adobe-tag): Replace defvar by defcustom, and doc fix.
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): Add arg REGION-P.
(ps-print-region-with-faces, ps-print-region)
(ps-spool-region, ps-spool-region-with-faces): Fix calls to
the functions above.
(ps-setup): Print value of ps-zebra-stripe, ps-number-of-zebra,
ps-line-number, ps-print-background-image,
and ps-print-background-text.
(ps-print-prologue-1): Bug fix in PostScript programming:
/BeginDSCPage, /BeginPage.
(ps-showpage-count, ps-ref-bold-faces, ps-ref-italic-faces)
(ps-ref-underlined-faces, font-lock-face-attributes)
(ps-initialize-faces): Vars deleted.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-initialize-faces, ps-header-height)
(ps-hard-lf, ps-soft-lf, ps-get-face, ps-map-font-lock): Fn deleted.
(ps-extend-face-list, ps-extend-face): Doc fix.
(ps-print-face-alist): New var to handle face alist.
(ps-printing-region): New var and fn.
(ps-header-page, ps-set-face-bold, ps-set-face-italic)
(ps-set-face-underline, ps-set-face-attribute, ps-map-face): New fn.
(ps-rmail-mode-hook, ps-rmail-print-message-from-summary)
(ps-print-message-from-summary, ps-vm-print-message-from-summary):
Fns moved.
(ps-background): New argument PAGE-NUMBER.
(ps-begin-file): Bug fix and print proper line number in a region.
(ps-begin-page): Call ps-header-page.
(ps-get-buffer-name): Indicates in the header when printing a region.
(ps-end-page): Delete ps-showpage-count.
(ps-dummy-page): Calls ps-header-page.
(ps-set-color): Programming improvement.
(ps-plot-region): Doc fix.
(ps-face-attributes): Same functionality as deleted ps-get-face.
(ps-build-reference-face-lists): Do the job by calling
ps-set-face-bold and ps-bold-faces, and friends.
1997-09-06 02:52:00 +00:00
|
|
|
|
;; (ps-extend-face '(font-lock-keyword-face "RoyalBlue" nil bold) 'MERGE)
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
;;
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; If you want to use a new face, define it first with `defface', and then call
|
|
|
|
|
;; `ps-extend-face' to specify how to print it.
|
1997-08-20 23:15:22 +00:00
|
|
|
|
;;
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
;;
|
|
|
|
|
;; How Ps-Print Has A Text And/Or Image On Background
|
|
|
|
|
;; --------------------------------------------------
|
|
|
|
|
;;
|
User option for multibyte buffer handling and doc fix.
(ps-multibyte-buffer): New user option.
(ps-setup): Print new user option.
(ps-print-quote): New fun.
(ps-color-p, ps-mule-font-info-database-latin): New var.
(ps-default-color, ps-mule-font-info-database)
(ps-mule-font-info-database-ps-bdf): Adjust initialization.
(ps-mule-get-font-spec, ps-mule-begin, ps-begin-file)
(ps-plot-with-face, ps-generate-postscript-with-faces, ps-generate):
Little code improvement.
(ps-mule-initialize): Initialize ps-mule-font-info-database.
(ps-print-prologue-header, ps-font-family, ps-font-size)
(ps-header-font-family, ps-header-font-size, ps-header-title-font-size)
(ps-build-face-reference, ps-mule-font-info-database-bdf)
(ps-mule-external-libraries, ps-mule-init-external-library)
(ps-mule-prepare-font, ps-mule-find-wrappoint, ps-mule-plot-string): doc
fix.
To make it work also on Emacs 20.2 and the earlier
version, check the value of mule-version.
(ps-print-version): New version number (4.1.1) and doc
fix.
(ps-print-prologue-header): New user option.
(ps-color-values, ps-xemacs-face-kind-p, ps-mapper, ps-extent-sorter):
Conditional compilation for GNU Emacs and emacsens.
(ps-generate-postscript-with-faces): Skip invisible text better.
(ps-setup): Print new user option.
(ps-print-preprint): Check if input file name exists and is unwritable.
(ps-begin-file): Adjust PostScript prologue header for duplex printers
and insert user PostScript prologue header comments.
(ps-mule-encode-bit, ps-mule-string-ascii, ps-mule-string-encoding): New
funs.
(dos-ps-printer, lazy-lock-fontify-buffer): Eliminated.
(ps-mule-prologue, ps-mule-cmpchar-prologue, ps-mule-bitmap-prologue):
PostScript programming normalization.
(ps-mule-encode-7bit, ps-mule-encode-8bit, ps-mule-generate-font)
(ps-mule-generate-glyphs, ps-mule-prepare-font, ps-mule-plot-string)
(ps-mule-skip-same-charset, ps-mule-plot-rule-cmpchar)
(ps-mule-plot-cmpchar, ps-mule-prepare-cmpchar-font)
(ps-mule-initialize, ps-mule-begin, ps-face-bold-p, ps-do-despool):
Programming style normalization.
1998-10-26 20:22:17 +00:00
|
|
|
|
;; ps-print can print texts and/or EPS PostScript images on background; it is
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
;; possible to define the following text attributes: font name, font size,
|
|
|
|
|
;; initial position, angle, gray scale and pages to print.
|
|
|
|
|
;;
|
|
|
|
|
;; It has the following EPS PostScript images attributes: file name containing
|
|
|
|
|
;; the image, initial position, X and Y scales, angle and pages to print.
|
|
|
|
|
;;
|
|
|
|
|
;; See documentation for `ps-print-background-text' and
|
|
|
|
|
;; `ps-print-background-image'.
|
|
|
|
|
;;
|
|
|
|
|
;; For example, if we wish to print text "preliminary" on all pages and text
|
|
|
|
|
;; "special" on page 5 and from page 11 to page 17, we could specify:
|
|
|
|
|
;;
|
|
|
|
|
;; (setq ps-print-background-text
|
|
|
|
|
;; '(("preliminary")
|
|
|
|
|
;; ("special"
|
|
|
|
|
;; "LeftMargin" "BottomMargin PrintHeight add" ; X and Y position
|
|
|
|
|
;; ; (upper left corner)
|
|
|
|
|
;; nil nil nil
|
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.
1998-03-07 06:04:46 +00:00
|
|
|
|
;; "PrintHeight neg PrintPageWidth atan" ; angle
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
;; 5 (11 . 17)) ; page list
|
|
|
|
|
;; ))
|
|
|
|
|
;;
|
|
|
|
|
;; Similarly, we could print image "~/images/EPS-image1.ps" on all pages and
|
|
|
|
|
;; image "~/images/EPS-image2.ps" on page 5 and from page 11 to page 17, we
|
|
|
|
|
;; specify:
|
|
|
|
|
;;
|
|
|
|
|
;; (setq ps-print-background-image
|
|
|
|
|
;; '(("~/images/EPS-image1.ps"
|
|
|
|
|
;; "LeftMargin" "BottomMargin") ; X and Y position (lower left corner)
|
|
|
|
|
;; ("~/images/EPS-image2.ps"
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; "LeftMargin" "BottomMargin PrintHeight 2 div add" ; X and Y pos.
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
;; ; (upper left corner)
|
|
|
|
|
;; nil nil nil
|
|
|
|
|
;; 5 (11 . 17)) ; page list
|
|
|
|
|
;; ))
|
|
|
|
|
;;
|
|
|
|
|
;; If it is not possible to read (or does not exist) an image file, that file
|
|
|
|
|
;; is ignored.
|
|
|
|
|
;;
|
|
|
|
|
;; The printing order is:
|
|
|
|
|
;;
|
PostScript programming fix for ghostview, doc fix.
(ps-print-version): New version number (5.1.3).
(ps-begin-file, ps-begin-job, ps-set-color, ps-do-despool, ps-setup)
(ps-insert-file, ps-output-boolean, ps-plot-with-face)
(ps-generate-postscript-with-faces): Code fix.
(ps-color-values): XEmacs compatibility.
(ps-print-background-image, ps-print-background-text, ps-printer-name)
(ps-default-fg, ps-default-bg): Adjust customization.
(ps-zebra-color): Adjust customization, renaming old ps-zebra-gray var.
(ps-color-scale): Renaming old ps-color-value fun.
(ps-print-headers): Replace ps-print-header group to avoid conflict
with ps-print-header variable.
(ps-print-miscellany): New group.
(ps-format-color, ps-rgb-color): New funs.
(ps-default-foreground): New var.
(ps-printer-name-option): New const.
2000-03-30 13:21:45 +00:00
|
|
|
|
;; 1. Print background color
|
|
|
|
|
;; 2. Print zebra stripes
|
|
|
|
|
;; 3. Print background texts that it should be on all pages
|
|
|
|
|
;; 4. Print background images that it should be on all pages
|
|
|
|
|
;; 5. Print background texts only for current page (if any)
|
|
|
|
|
;; 6. Print background images only for current page (if any)
|
|
|
|
|
;; 7. Print header
|
|
|
|
|
;; 8. Print buffer text (with faces, if specified) and line number
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
;;
|
|
|
|
|
;;
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
;; Utilities
|
|
|
|
|
;; ---------
|
|
|
|
|
;;
|
|
|
|
|
;; Some tools are provided to help you customize your font setup.
|
|
|
|
|
;;
|
|
|
|
|
;; `ps-setup' returns (some part of) the current setup.
|
|
|
|
|
;;
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; To avoid wrapping too many lines, you may want to adjust the left and right
|
|
|
|
|
;; margins and the font size. On UN*X systems, do:
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
;; pr -t file | awk '{printf "%3d %s\n", length($0), $0}' | sort -r | head
|
|
|
|
|
;; to determine the longest lines of your file.
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; Then, the command `ps-line-lengths' will give you the correspondence between
|
|
|
|
|
;; a line length (number of characters) and the maximum font size which doesn't
|
|
|
|
|
;; wrap such a line with the current ps-print setup.
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
;;
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; The commands `ps-nb-pages-buffer' and `ps-nb-pages-region' display the
|
|
|
|
|
;; correspondence between a number of pages and the maximum font size which
|
|
|
|
|
;; allow the number of lines of the current buffer or of its current region to
|
|
|
|
|
;; fit in this number of pages.
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.1).
(ps-adobe-tag): Replace defvar by defcustom, and doc fix.
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): Add arg REGION-P.
(ps-print-region-with-faces, ps-print-region)
(ps-spool-region, ps-spool-region-with-faces): Fix calls to
the functions above.
(ps-setup): Print value of ps-zebra-stripe, ps-number-of-zebra,
ps-line-number, ps-print-background-image,
and ps-print-background-text.
(ps-print-prologue-1): Bug fix in PostScript programming:
/BeginDSCPage, /BeginPage.
(ps-showpage-count, ps-ref-bold-faces, ps-ref-italic-faces)
(ps-ref-underlined-faces, font-lock-face-attributes)
(ps-initialize-faces): Vars deleted.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-initialize-faces, ps-header-height)
(ps-hard-lf, ps-soft-lf, ps-get-face, ps-map-font-lock): Fn deleted.
(ps-extend-face-list, ps-extend-face): Doc fix.
(ps-print-face-alist): New var to handle face alist.
(ps-printing-region): New var and fn.
(ps-header-page, ps-set-face-bold, ps-set-face-italic)
(ps-set-face-underline, ps-set-face-attribute, ps-map-face): New fn.
(ps-rmail-mode-hook, ps-rmail-print-message-from-summary)
(ps-print-message-from-summary, ps-vm-print-message-from-summary):
Fns moved.
(ps-background): New argument PAGE-NUMBER.
(ps-begin-file): Bug fix and print proper line number in a region.
(ps-begin-page): Call ps-header-page.
(ps-get-buffer-name): Indicates in the header when printing a region.
(ps-end-page): Delete ps-showpage-count.
(ps-dummy-page): Calls ps-header-page.
(ps-set-color): Programming improvement.
(ps-plot-region): Doc fix.
(ps-face-attributes): Same functionality as deleted ps-get-face.
(ps-build-reference-face-lists): Do the job by calling
ps-set-face-bold and ps-bold-faces, and friends.
1997-09-06 02:52:00 +00:00
|
|
|
|
;;
|
|
|
|
|
;; NOTE: line folding is not taken into account in this process and could
|
|
|
|
|
;; change the results.
|
1995-02-14 05:55:53 +00:00
|
|
|
|
;;
|
2000-01-05 07:17:31 +00:00
|
|
|
|
;; The command `ps-print-customize' activates a customization buffer for
|
|
|
|
|
;; ps-print options.
|
|
|
|
|
;;
|
1995-02-14 05:55:53 +00:00
|
|
|
|
;;
|
|
|
|
|
;; New since version 1.5
|
|
|
|
|
;; ---------------------
|
|
|
|
|
;;
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
;; Color output capability.
|
1995-02-14 05:55:53 +00:00
|
|
|
|
;; Automatic detection of font attributes (bold, italic).
|
|
|
|
|
;; Configurable headers with page numbers.
|
|
|
|
|
;; Slightly faster.
|
|
|
|
|
;; Support for different paper sizes.
|
|
|
|
|
;; Better conformance to PostScript Document Structure Conventions.
|
|
|
|
|
;;
|
1994-05-01 22:09:01 +00:00
|
|
|
|
;;
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
;; New since version 2.8
|
|
|
|
|
;; ---------------------
|
|
|
|
|
;;
|
2003-03-06 01:54:17 +00:00
|
|
|
|
;; [vinicius] Vinicius Jose Latorre <viniciusjl@ig.com.br>
|
2000-01-05 07:17:31 +00:00
|
|
|
|
;;
|
2004-03-02 04:54:04 +00:00
|
|
|
|
;; 20040229
|
|
|
|
|
;; `ps-time-stamp-yyyy-mm-dd', `ps-time-stamp-iso8601'
|
|
|
|
|
;;
|
2001-07-06 09:59:25 +00:00
|
|
|
|
;; 20010619
|
|
|
|
|
;; `ps-time-stamp-locale-default'
|
|
|
|
|
;;
|
|
|
|
|
;; 20010530
|
|
|
|
|
;; Handle before-string and after-string overlay properties.
|
|
|
|
|
;;
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; 20010407
|
|
|
|
|
;; `ps-line-number-color', `ps-print-footer', `ps-footer-offset',
|
|
|
|
|
;; `ps-print-footer-frame', `ps-footer-font-family',
|
|
|
|
|
;; `ps-footer-font-size', `ps-footer-line-pad', `ps-footer-lines',
|
|
|
|
|
;; `ps-left-footer', `ps-right-footer', `ps-footer-frame-alist' and
|
|
|
|
|
;; `ps-header-frame-alist'.
|
|
|
|
|
;;
|
|
|
|
|
;; 20010328
|
|
|
|
|
;; `ps-line-spacing', `ps-paragraph-spacing', `ps-paragraph-regexp',
|
|
|
|
|
;; `ps-begin-cut-regexp' and `ps-end-cut-regexp'.
|
|
|
|
|
;;
|
(ps-end-job): Bind case-fold-search only after
switching to ps-spool-buffer.
Line number font customization. PostScript: Lines and
PageCount are initialized on each page. Doc Fix.
(ps-print-version): New version number (6.3.2).
(ps-lpr-switches, ps-font-info-database, ps-font-size)
(ps-header-font-size, ps-header-title-font-size, ps-left-header)
(ps-right-header): Customization fix.
(ps-setup, ps-select-font, ps-begin-file, ps-header-sheet, ps-end-job):
Fix code.
(ps-end-with-control-d, ps-line-number-font, ps-line-number-font-size):
New vars.
2000-11-30 13:20:49 +00:00
|
|
|
|
;; 20001122
|
|
|
|
|
;; `ps-line-number-font', `ps-line-number-font-size' and
|
|
|
|
|
;; `ps-end-with-control-d'.
|
|
|
|
|
;;
|
2000-08-29 10:51:52 +00:00
|
|
|
|
;; 20000821
|
|
|
|
|
;; `ps-even-or-odd-pages'
|
|
|
|
|
;;
|
Fix bug: if ^L is the very first buffer character,
ps-print crashes. New feature: page selection for printing. Create
raw-text-unix coding system for XEmacs. Doc fix.
(ps-print-version): New version number (5.2.3).
(ps-plot-region): Bug fix.
(ps-setup, ps-init-output-queue, ps-output, ps-begin-job, ps-end-file)
(ps-header-sheet, ps-generate, ps-end-job): Code fix.
(ps-restore-selected-pages, ps-selected-pages, ps-print-page-p): New
funs.
(ps-selected-pages, ps-last-selected-pages, ps-first-page)
(ps-last-page): New vars.
2000-06-22 12:27:49 +00:00
|
|
|
|
;; 20000617
|
|
|
|
|
;; `ps-manual-feed', `ps-warn-paper-type', `ps-print-upside-down',
|
|
|
|
|
;; `ps-selected-pages', `ps-last-selected-pages',
|
|
|
|
|
;; `ps-restore-selected-pages', `ps-switch-header',
|
|
|
|
|
;; `ps-line-number-step', `ps-line-number-start',
|
|
|
|
|
;; `ps-zebra-stripe-follow' and `ps-use-face-background'.
|
2000-01-05 07:17:31 +00:00
|
|
|
|
;;
|
Fix bug: if ^L is the very first buffer character,
ps-print crashes. New feature: page selection for printing. Create
raw-text-unix coding system for XEmacs. Doc fix.
(ps-print-version): New version number (5.2.3).
(ps-plot-region): Bug fix.
(ps-setup, ps-init-output-queue, ps-output, ps-begin-job, ps-end-file)
(ps-header-sheet, ps-generate, ps-end-job): Code fix.
(ps-restore-selected-pages, ps-selected-pages, ps-print-page-p): New
funs.
(ps-selected-pages, ps-last-selected-pages, ps-first-page)
(ps-last-page): New vars.
2000-06-22 12:27:49 +00:00
|
|
|
|
;; 20000310
|
|
|
|
|
;; PostScript error handler.
|
|
|
|
|
;; `ps-user-defined-prologue' and `ps-error-handler-message'.
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
;;
|
2000-07-30 11:49:38 +00:00
|
|
|
|
;; 19991211
|
Fix bug: if ^L is the very first buffer character,
ps-print crashes. New feature: page selection for printing. Create
raw-text-unix coding system for XEmacs. Doc fix.
(ps-print-version): New version number (5.2.3).
(ps-plot-region): Bug fix.
(ps-setup, ps-init-output-queue, ps-output, ps-begin-job, ps-end-file)
(ps-header-sheet, ps-generate, ps-end-job): Code fix.
(ps-restore-selected-pages, ps-selected-pages, ps-print-page-p): New
funs.
(ps-selected-pages, ps-last-selected-pages, ps-first-page)
(ps-last-page): New vars.
2000-06-22 12:27:49 +00:00
|
|
|
|
;; `ps-print-customize'.
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
;;
|
2000-07-30 11:49:38 +00:00
|
|
|
|
;; 19990703
|
Fix bug: if ^L is the very first buffer character,
ps-print crashes. New feature: page selection for printing. Create
raw-text-unix coding system for XEmacs. Doc fix.
(ps-print-version): New version number (5.2.3).
(ps-plot-region): Bug fix.
(ps-setup, ps-init-output-queue, ps-output, ps-begin-job, ps-end-file)
(ps-header-sheet, ps-generate, ps-end-job): Code fix.
(ps-restore-selected-pages, ps-selected-pages, ps-print-page-p): New
funs.
(ps-selected-pages, ps-last-selected-pages, ps-first-page)
(ps-last-page): New vars.
2000-06-22 12:27:49 +00:00
|
|
|
|
;; Better customization.
|
|
|
|
|
;; `ps-banner-page-when-duplexing' and `ps-zebra-color'.
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
;;
|
2000-07-30 11:49:38 +00:00
|
|
|
|
;; 19990513
|
Fix bug: if ^L is the very first buffer character,
ps-print crashes. New feature: page selection for printing. Create
raw-text-unix coding system for XEmacs. Doc fix.
(ps-print-version): New version number (5.2.3).
(ps-plot-region): Bug fix.
(ps-setup, ps-init-output-queue, ps-output, ps-begin-job, ps-end-file)
(ps-header-sheet, ps-generate, ps-end-job): Code fix.
(ps-restore-selected-pages, ps-selected-pages, ps-print-page-p): New
funs.
(ps-selected-pages, ps-last-selected-pages, ps-first-page)
(ps-last-page): New vars.
2000-06-22 12:27:49 +00:00
|
|
|
|
;; N-up printing.
|
|
|
|
|
;; Hook: `ps-print-begin-sheet-hook'.
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
;;
|
2004-06-05 02:39:03 +00:00
|
|
|
|
;; [kenichi] 19990509 Ken'ichi Handa <handa@m17n.org>
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
;;
|
2004-03-02 04:54:04 +00:00
|
|
|
|
;; `ps-print-region-function'
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
;;
|
2003-03-06 01:54:17 +00:00
|
|
|
|
;; [vinicius] Vinicius Jose Latorre <viniciusjl@ig.com.br>
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
;;
|
2000-07-30 11:49:38 +00:00
|
|
|
|
;; 19990301
|
Fix bug: if ^L is the very first buffer character,
ps-print crashes. New feature: page selection for printing. Create
raw-text-unix coding system for XEmacs. Doc fix.
(ps-print-version): New version number (5.2.3).
(ps-plot-region): Bug fix.
(ps-setup, ps-init-output-queue, ps-output, ps-begin-job, ps-end-file)
(ps-header-sheet, ps-generate, ps-end-job): Code fix.
(ps-restore-selected-pages, ps-selected-pages, ps-print-page-p): New
funs.
(ps-selected-pages, ps-last-selected-pages, ps-first-page)
(ps-last-page): New vars.
2000-06-22 12:27:49 +00:00
|
|
|
|
;; PostScript tumble and setpagedevice.
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
;;
|
2000-07-30 11:49:38 +00:00
|
|
|
|
;; 19980922
|
Fix bug: if ^L is the very first buffer character,
ps-print crashes. New feature: page selection for printing. Create
raw-text-unix coding system for XEmacs. Doc fix.
(ps-print-version): New version number (5.2.3).
(ps-plot-region): Bug fix.
(ps-setup, ps-init-output-queue, ps-output, ps-begin-job, ps-end-file)
(ps-header-sheet, ps-generate, ps-end-job): Code fix.
(ps-restore-selected-pages, ps-selected-pages, ps-print-page-p): New
funs.
(ps-selected-pages, ps-last-selected-pages, ps-first-page)
(ps-last-page): New vars.
2000-06-22 12:27:49 +00:00
|
|
|
|
;; PostScript prologue header comment insertion.
|
|
|
|
|
;; Skip invisible text better.
|
User option for multibyte buffer handling and doc fix.
(ps-multibyte-buffer): New user option.
(ps-setup): Print new user option.
(ps-print-quote): New fun.
(ps-color-p, ps-mule-font-info-database-latin): New var.
(ps-default-color, ps-mule-font-info-database)
(ps-mule-font-info-database-ps-bdf): Adjust initialization.
(ps-mule-get-font-spec, ps-mule-begin, ps-begin-file)
(ps-plot-with-face, ps-generate-postscript-with-faces, ps-generate):
Little code improvement.
(ps-mule-initialize): Initialize ps-mule-font-info-database.
(ps-print-prologue-header, ps-font-family, ps-font-size)
(ps-header-font-family, ps-header-font-size, ps-header-title-font-size)
(ps-build-face-reference, ps-mule-font-info-database-bdf)
(ps-mule-external-libraries, ps-mule-init-external-library)
(ps-mule-prepare-font, ps-mule-find-wrappoint, ps-mule-plot-string): doc
fix.
To make it work also on Emacs 20.2 and the earlier
version, check the value of mule-version.
(ps-print-version): New version number (4.1.1) and doc
fix.
(ps-print-prologue-header): New user option.
(ps-color-values, ps-xemacs-face-kind-p, ps-mapper, ps-extent-sorter):
Conditional compilation for GNU Emacs and emacsens.
(ps-generate-postscript-with-faces): Skip invisible text better.
(ps-setup): Print new user option.
(ps-print-preprint): Check if input file name exists and is unwritable.
(ps-begin-file): Adjust PostScript prologue header for duplex printers
and insert user PostScript prologue header comments.
(ps-mule-encode-bit, ps-mule-string-ascii, ps-mule-string-encoding): New
funs.
(dos-ps-printer, lazy-lock-fontify-buffer): Eliminated.
(ps-mule-prologue, ps-mule-cmpchar-prologue, ps-mule-bitmap-prologue):
PostScript programming normalization.
(ps-mule-encode-7bit, ps-mule-encode-8bit, ps-mule-generate-font)
(ps-mule-generate-glyphs, ps-mule-prepare-font, ps-mule-plot-string)
(ps-mule-skip-same-charset, ps-mule-plot-rule-cmpchar)
(ps-mule-plot-cmpchar, ps-mule-prepare-cmpchar-font)
(ps-mule-initialize, ps-mule-begin, ps-face-bold-p, ps-do-despool):
Programming style normalization.
1998-10-26 20:22:17 +00:00
|
|
|
|
;;
|
2004-06-05 02:39:03 +00:00
|
|
|
|
;; [kenichi] 19980819 Ken'ichi Handa <handa@m17n.org>
|
Multi-byte buffer handling.
(ps-print-version): New version number (4.0) and doc fix.
(ps-color-device, ps-face-bold-p, ps-face-italic-p): Conditional
compilation for GNU Emacs and emacsens.
(ps-generate-postscript-with-faces): Force invisible text to be
visible.
(dos-ps-printer): New var to avoid compilation gripes.
(ps-mule-plot-string): Pay attention to the case
that no more characters can't be printed in the current line.
(ps-mule-find-wrappoint): ENDPOS should not be greater than TO.
Add codes to make ps-print.el work also on Emacs
20.2 and the earlier version.
(ps-mule-encode-7bit, ps-mule-encode-8bit): Modified for 20.2.
(ccl-encode-ethio-unicode, ps-mule-encode-ethiopic): Likewise.
(ps-mule-find-wrappoint): Likewise.
(ps-mule-generate-font): Change `X' to `x' in format
control-string.
(ps-generate): Call ps-mule-begin before calling ps-begin-job.
(ps-mule-cmpchar-prologue): Delete unnecessary `gsave' and
`restore' form procedures `BC' and `EC'.
(ps-print-prologue-1): Handle the case that FontBBox
is an executable procedure. Make LineThickness, Xshadow, and
Yshadow relative to FontHeight. Set SpaceWidth in BeginDoc.
(ps-mule-font-info-database, ps-mule-font-info-database-ps,
ps-mule-font-info-database-bdf): New vars.
(ps-mule-encode-7bit, ps-mule-encode-8bit): New funs.
(ccl-encode-ethio-unicode): New CCL program.
(ps-mule-encode-ethiopic): New fun.
(ps-mule-current-charset): New var.
(ps-mule-get-font-spec, ps-mule-font-spec-src,
ps-mule-font-spec-name, ps-mule-font-spec-encoding,
ps-mule-font-spec-bytes, ps-mule-printable-p): New funs.
(ps-mule-external-libraries): New var.
(ps-mule-init-external-library): New fun.
(ps-mule-font-cache): New var.
(ps-mule-generate-font, ps-mule-generate-glyphs): New funs.
(ps-last-font): New var.
(ps-mule-prepare-font): New fun.
(ps-mule-charset-list): New var.
(ps-mule-prologue-generated, ps-mule-prologue): New vars.
(ps-mule-skip-same-charset, ps-mule-find-wrappoint,
ps-mule-plot-string): New funs.
(ps-mule-cmpchar-prologue-generated, ps-mule-cmpchar-prologue):
New vars.
(ps-mule-plot-rule-cmpchar, ps-mule-plot-cmpchar,
ps-mule-prepare-cmpchar-font): New funs.
(ps-mule-bitmap-prologue-generated, ps-mule-bitmap-prologue): New
vars.
(ps-mule-generate-bitmap-prologue, ps-mule-generate-bitmap-font,
ps-mule-generate-bitmap-glyph): New funs.
(ps-mule-initialize, ps-mule-begin): New funs.
(ps-output-string-prim): Insert string as unibyte.
(ps-output-prologue): New fun.
(ps-flush-output): Handle the case of 'prologue.
(ps-begin-file): Call ps-mule-initialize.
(ps-begin-job): Set ps-control-or-escape-regexp differently if
printing multibyte characters.
(ps-begin-page): Set ps-mule-current-charset to 'ascii.
(ps-basic-plot-string): Handle the case of printing ASCII
characters by external libraries (e.g. BDF).
(ps-set-font): Set ps-last-font.
(ps-plot-region): Handle multibyte characters, use
ps-mule-plot-string for them.
(ps-generate): Set the spool buffer unibyte. Call ps-mule-begin.
1998-08-24 10:19:29 +00:00
|
|
|
|
;;
|
2004-03-02 04:54:04 +00:00
|
|
|
|
;; Multi-byte buffer handling.
|
Multi-byte buffer handling.
(ps-print-version): New version number (4.0) and doc fix.
(ps-color-device, ps-face-bold-p, ps-face-italic-p): Conditional
compilation for GNU Emacs and emacsens.
(ps-generate-postscript-with-faces): Force invisible text to be
visible.
(dos-ps-printer): New var to avoid compilation gripes.
(ps-mule-plot-string): Pay attention to the case
that no more characters can't be printed in the current line.
(ps-mule-find-wrappoint): ENDPOS should not be greater than TO.
Add codes to make ps-print.el work also on Emacs
20.2 and the earlier version.
(ps-mule-encode-7bit, ps-mule-encode-8bit): Modified for 20.2.
(ccl-encode-ethio-unicode, ps-mule-encode-ethiopic): Likewise.
(ps-mule-find-wrappoint): Likewise.
(ps-mule-generate-font): Change `X' to `x' in format
control-string.
(ps-generate): Call ps-mule-begin before calling ps-begin-job.
(ps-mule-cmpchar-prologue): Delete unnecessary `gsave' and
`restore' form procedures `BC' and `EC'.
(ps-print-prologue-1): Handle the case that FontBBox
is an executable procedure. Make LineThickness, Xshadow, and
Yshadow relative to FontHeight. Set SpaceWidth in BeginDoc.
(ps-mule-font-info-database, ps-mule-font-info-database-ps,
ps-mule-font-info-database-bdf): New vars.
(ps-mule-encode-7bit, ps-mule-encode-8bit): New funs.
(ccl-encode-ethio-unicode): New CCL program.
(ps-mule-encode-ethiopic): New fun.
(ps-mule-current-charset): New var.
(ps-mule-get-font-spec, ps-mule-font-spec-src,
ps-mule-font-spec-name, ps-mule-font-spec-encoding,
ps-mule-font-spec-bytes, ps-mule-printable-p): New funs.
(ps-mule-external-libraries): New var.
(ps-mule-init-external-library): New fun.
(ps-mule-font-cache): New var.
(ps-mule-generate-font, ps-mule-generate-glyphs): New funs.
(ps-last-font): New var.
(ps-mule-prepare-font): New fun.
(ps-mule-charset-list): New var.
(ps-mule-prologue-generated, ps-mule-prologue): New vars.
(ps-mule-skip-same-charset, ps-mule-find-wrappoint,
ps-mule-plot-string): New funs.
(ps-mule-cmpchar-prologue-generated, ps-mule-cmpchar-prologue):
New vars.
(ps-mule-plot-rule-cmpchar, ps-mule-plot-cmpchar,
ps-mule-prepare-cmpchar-font): New funs.
(ps-mule-bitmap-prologue-generated, ps-mule-bitmap-prologue): New
vars.
(ps-mule-generate-bitmap-prologue, ps-mule-generate-bitmap-font,
ps-mule-generate-bitmap-glyph): New funs.
(ps-mule-initialize, ps-mule-begin): New funs.
(ps-output-string-prim): Insert string as unibyte.
(ps-output-prologue): New fun.
(ps-flush-output): Handle the case of 'prologue.
(ps-begin-file): Call ps-mule-initialize.
(ps-begin-job): Set ps-control-or-escape-regexp differently if
printing multibyte characters.
(ps-begin-page): Set ps-mule-current-charset to 'ascii.
(ps-basic-plot-string): Handle the case of printing ASCII
characters by external libraries (e.g. BDF).
(ps-set-font): Set ps-last-font.
(ps-plot-region): Handle multibyte characters, use
ps-mule-plot-string for them.
(ps-generate): Set the spool buffer unibyte. Call ps-mule-begin.
1998-08-24 10:19:29 +00:00
|
|
|
|
;;
|
2003-03-06 01:54:17 +00:00
|
|
|
|
;; [vinicius] Vinicius Jose Latorre <viniciusjl@ig.com.br>
|
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.
1998-03-07 06:04:46 +00:00
|
|
|
|
;;
|
2000-07-30 11:49:38 +00:00
|
|
|
|
;; 19980306
|
Fix bug: if ^L is the very first buffer character,
ps-print crashes. New feature: page selection for printing. Create
raw-text-unix coding system for XEmacs. Doc fix.
(ps-print-version): New version number (5.2.3).
(ps-plot-region): Bug fix.
(ps-setup, ps-init-output-queue, ps-output, ps-begin-job, ps-end-file)
(ps-header-sheet, ps-generate, ps-end-job): Code fix.
(ps-restore-selected-pages, ps-selected-pages, ps-print-page-p): New
funs.
(ps-selected-pages, ps-last-selected-pages, ps-first-page)
(ps-last-page): New vars.
2000-06-22 12:27:49 +00:00
|
|
|
|
;; Skip invisible text.
|
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.
1998-03-07 06:04:46 +00:00
|
|
|
|
;;
|
2000-07-30 11:49:38 +00:00
|
|
|
|
;; 19971130
|
Fix bug: if ^L is the very first buffer character,
ps-print crashes. New feature: page selection for printing. Create
raw-text-unix coding system for XEmacs. Doc fix.
(ps-print-version): New version number (5.2.3).
(ps-plot-region): Bug fix.
(ps-setup, ps-init-output-queue, ps-output, ps-begin-job, ps-end-file)
(ps-header-sheet, ps-generate, ps-end-job): Code fix.
(ps-restore-selected-pages, ps-selected-pages, ps-print-page-p): New
funs.
(ps-selected-pages, ps-last-selected-pages, ps-first-page)
(ps-last-page): New vars.
2000-06-22 12:27:49 +00:00
|
|
|
|
;; Hooks: `ps-print-hook', `ps-print-begin-page-hook' and
|
|
|
|
|
;; `ps-print-begin-column-hook'.
|
|
|
|
|
;; Put one header per page over the columns.
|
|
|
|
|
;; Better database font management.
|
|
|
|
|
;; Better control characters handling.
|
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.
1998-03-07 06:04:46 +00:00
|
|
|
|
;;
|
2000-07-30 11:49:38 +00:00
|
|
|
|
;; 19971121
|
Fix bug: if ^L is the very first buffer character,
ps-print crashes. New feature: page selection for printing. Create
raw-text-unix coding system for XEmacs. Doc fix.
(ps-print-version): New version number (5.2.3).
(ps-plot-region): Bug fix.
(ps-setup, ps-init-output-queue, ps-output, ps-begin-job, ps-end-file)
(ps-header-sheet, ps-generate, ps-end-job): Code fix.
(ps-restore-selected-pages, ps-selected-pages, ps-print-page-p): New
funs.
(ps-selected-pages, ps-last-selected-pages, ps-first-page)
(ps-last-page): New vars.
2000-06-22 12:27:49 +00:00
|
|
|
|
;; Dynamic evaluation at print time of `ps-lpr-switches'.
|
|
|
|
|
;; Handle control characters.
|
|
|
|
|
;; Face remapping.
|
|
|
|
|
;; New face attributes.
|
|
|
|
|
;; Line number.
|
|
|
|
|
;; Zebra stripes.
|
|
|
|
|
;; Text and/or image on background.
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
;;
|
2000-07-30 11:49:38 +00:00
|
|
|
|
;; [jack] 19960517 Jacques Duthen <duthen@cegelec-red.fr>
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
;;
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.1).
(ps-adobe-tag): Replace defvar by defcustom, and doc fix.
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): Add arg REGION-P.
(ps-print-region-with-faces, ps-print-region)
(ps-spool-region, ps-spool-region-with-faces): Fix calls to
the functions above.
(ps-setup): Print value of ps-zebra-stripe, ps-number-of-zebra,
ps-line-number, ps-print-background-image,
and ps-print-background-text.
(ps-print-prologue-1): Bug fix in PostScript programming:
/BeginDSCPage, /BeginPage.
(ps-showpage-count, ps-ref-bold-faces, ps-ref-italic-faces)
(ps-ref-underlined-faces, font-lock-face-attributes)
(ps-initialize-faces): Vars deleted.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-initialize-faces, ps-header-height)
(ps-hard-lf, ps-soft-lf, ps-get-face, ps-map-font-lock): Fn deleted.
(ps-extend-face-list, ps-extend-face): Doc fix.
(ps-print-face-alist): New var to handle face alist.
(ps-printing-region): New var and fn.
(ps-header-page, ps-set-face-bold, ps-set-face-italic)
(ps-set-face-underline, ps-set-face-attribute, ps-map-face): New fn.
(ps-rmail-mode-hook, ps-rmail-print-message-from-summary)
(ps-print-message-from-summary, ps-vm-print-message-from-summary):
Fns moved.
(ps-background): New argument PAGE-NUMBER.
(ps-begin-file): Bug fix and print proper line number in a region.
(ps-begin-page): Call ps-header-page.
(ps-get-buffer-name): Indicates in the header when printing a region.
(ps-end-page): Delete ps-showpage-count.
(ps-dummy-page): Calls ps-header-page.
(ps-set-color): Programming improvement.
(ps-plot-region): Doc fix.
(ps-face-attributes): Same functionality as deleted ps-get-face.
(ps-build-reference-face-lists): Do the job by calling
ps-set-face-bold and ps-bold-faces, and friends.
1997-09-06 02:52:00 +00:00
|
|
|
|
;; Font family and float size for text and header.
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
;; Landscape mode.
|
|
|
|
|
;; Multiple columns.
|
|
|
|
|
;; Tools for page setup.
|
|
|
|
|
;;
|
|
|
|
|
;;
|
User option for multibyte buffer handling and doc fix.
(ps-multibyte-buffer): New user option.
(ps-setup): Print new user option.
(ps-print-quote): New fun.
(ps-color-p, ps-mule-font-info-database-latin): New var.
(ps-default-color, ps-mule-font-info-database)
(ps-mule-font-info-database-ps-bdf): Adjust initialization.
(ps-mule-get-font-spec, ps-mule-begin, ps-begin-file)
(ps-plot-with-face, ps-generate-postscript-with-faces, ps-generate):
Little code improvement.
(ps-mule-initialize): Initialize ps-mule-font-info-database.
(ps-print-prologue-header, ps-font-family, ps-font-size)
(ps-header-font-family, ps-header-font-size, ps-header-title-font-size)
(ps-build-face-reference, ps-mule-font-info-database-bdf)
(ps-mule-external-libraries, ps-mule-init-external-library)
(ps-mule-prepare-font, ps-mule-find-wrappoint, ps-mule-plot-string): doc
fix.
To make it work also on Emacs 20.2 and the earlier
version, check the value of mule-version.
(ps-print-version): New version number (4.1.1) and doc
fix.
(ps-print-prologue-header): New user option.
(ps-color-values, ps-xemacs-face-kind-p, ps-mapper, ps-extent-sorter):
Conditional compilation for GNU Emacs and emacsens.
(ps-generate-postscript-with-faces): Skip invisible text better.
(ps-setup): Print new user option.
(ps-print-preprint): Check if input file name exists and is unwritable.
(ps-begin-file): Adjust PostScript prologue header for duplex printers
and insert user PostScript prologue header comments.
(ps-mule-encode-bit, ps-mule-string-ascii, ps-mule-string-encoding): New
funs.
(dos-ps-printer, lazy-lock-fontify-buffer): Eliminated.
(ps-mule-prologue, ps-mule-cmpchar-prologue, ps-mule-bitmap-prologue):
PostScript programming normalization.
(ps-mule-encode-7bit, ps-mule-encode-8bit, ps-mule-generate-font)
(ps-mule-generate-glyphs, ps-mule-prepare-font, ps-mule-plot-string)
(ps-mule-skip-same-charset, ps-mule-plot-rule-cmpchar)
(ps-mule-plot-cmpchar, ps-mule-prepare-cmpchar-font)
(ps-mule-initialize, ps-mule-begin, ps-face-bold-p, ps-do-despool):
Programming style normalization.
1998-10-26 20:22:17 +00:00
|
|
|
|
;; Known bugs and limitations of ps-print
|
1994-05-01 22:09:01 +00:00
|
|
|
|
;; --------------------------------------
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
;;
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; Although color printing will work in XEmacs 19.12, it doesn't work well; in
|
|
|
|
|
;; particular, bold or italic fonts don't print in the right background color.
|
1995-05-12 02:18:47 +00:00
|
|
|
|
;;
|
|
|
|
|
;; Invisible properties aren't correctly ignored in XEmacs 19.12.
|
|
|
|
|
;;
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; Automatic font-attribute detection doesn't work well, especially with
|
|
|
|
|
;; hilit19 and older versions of get-create-face. Users having problems with
|
|
|
|
|
;; auto-font detection should use the lists `ps-italic-faces', `ps-bold-faces'
|
|
|
|
|
;; and `ps-underlined-faces' and/or turn off automatic detection by setting
|
|
|
|
|
;; `ps-auto-font-detect' to nil.
|
1995-02-07 22:51:35 +00:00
|
|
|
|
;;
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; Automatic font-attribute detection doesn't work with XEmacs 19.12 in tty
|
|
|
|
|
;; mode; use the lists `ps-italic-faces', `ps-bold-faces' and
|
Some comment, doc and bug fixes.
(ps-print-version): New version number (3.05.3) and doc fix.
(ps-output-string-prim, ps-begin-job, ps-control-character)
(ps-plot-region): Bug fix.
(ps-print-control-characters): New custom var.
(ps-string-escape-codes, ps-string-control-codes): New var.
(ps-color-device, ps-font-lock-face-attributes, ps-eval-switch)
(ps-flatten-list, ps-flatten-list-1): New fn.
(ps-setup): Update current setup.
(ps-begin-file): Adjust PostScript header file.
(ps-plot, ps-face-attribute-list): Little programming improvement.
(ps-print-prologue-1): Replace NumberOfZebra by ZebraHeight.
(ps-print-without-faces, ps-print-with-faces): Little reprogramming.
(ps-plot-with-face): Get color only on color screen device.
(ps-build-reference-face-lists): Handle obsolete
font-lock-face-attributes.
(ps-print-ensure-fontified): Little programming setting.
(ps-generate-postscript-with-faces): Adjust initializations, get color
only on color screen device.
(ps-generate): Replace (if A B) by (and A B).
(ps-do-despool): Dynamic evaluation for ps-lpr-switches,
Replace (if A B) by (and A B).
(color-instance-rgb-components, ps-color-values): Replace
pixel-components by color-instance-rgb-components.
(ps-xemacs-face-kind-p): Replace face-font by face-font-instance,
replace x-font-properties by font-instance-properties.
1997-12-25 18:33:52 +00:00
|
|
|
|
;; `ps-underlined-faces' instead.
|
1995-01-20 06:09:03 +00:00
|
|
|
|
;;
|
1995-02-07 22:51:35 +00:00
|
|
|
|
;; Still too slow; could use some hand-optimization.
|
1994-05-01 22:09:01 +00:00
|
|
|
|
;;
|
1995-01-20 06:09:03 +00:00
|
|
|
|
;; Default background color isn't working.
|
1994-05-01 22:09:01 +00:00
|
|
|
|
;;
|
|
|
|
|
;; Faces are always treated as opaque.
|
|
|
|
|
;;
|
2002-09-29 03:30:41 +00:00
|
|
|
|
;; Epoch, Lucid and Emacs 19 not supported. At all.
|
1994-05-01 22:09:01 +00:00
|
|
|
|
;;
|
1997-09-11 23:51:29 +00:00
|
|
|
|
;; Fixed-pitch fonts work better for line folding, but are not required.
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
;;
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; `ps-nb-pages-buffer' and `ps-nb-pages-region' don't take care of folding
|
|
|
|
|
;; lines.
|
1994-05-01 22:09:01 +00:00
|
|
|
|
;;
|
1995-01-20 06:09:03 +00:00
|
|
|
|
;;
|
User option for multibyte buffer handling and doc fix.
(ps-multibyte-buffer): New user option.
(ps-setup): Print new user option.
(ps-print-quote): New fun.
(ps-color-p, ps-mule-font-info-database-latin): New var.
(ps-default-color, ps-mule-font-info-database)
(ps-mule-font-info-database-ps-bdf): Adjust initialization.
(ps-mule-get-font-spec, ps-mule-begin, ps-begin-file)
(ps-plot-with-face, ps-generate-postscript-with-faces, ps-generate):
Little code improvement.
(ps-mule-initialize): Initialize ps-mule-font-info-database.
(ps-print-prologue-header, ps-font-family, ps-font-size)
(ps-header-font-family, ps-header-font-size, ps-header-title-font-size)
(ps-build-face-reference, ps-mule-font-info-database-bdf)
(ps-mule-external-libraries, ps-mule-init-external-library)
(ps-mule-prepare-font, ps-mule-find-wrappoint, ps-mule-plot-string): doc
fix.
To make it work also on Emacs 20.2 and the earlier
version, check the value of mule-version.
(ps-print-version): New version number (4.1.1) and doc
fix.
(ps-print-prologue-header): New user option.
(ps-color-values, ps-xemacs-face-kind-p, ps-mapper, ps-extent-sorter):
Conditional compilation for GNU Emacs and emacsens.
(ps-generate-postscript-with-faces): Skip invisible text better.
(ps-setup): Print new user option.
(ps-print-preprint): Check if input file name exists and is unwritable.
(ps-begin-file): Adjust PostScript prologue header for duplex printers
and insert user PostScript prologue header comments.
(ps-mule-encode-bit, ps-mule-string-ascii, ps-mule-string-encoding): New
funs.
(dos-ps-printer, lazy-lock-fontify-buffer): Eliminated.
(ps-mule-prologue, ps-mule-cmpchar-prologue, ps-mule-bitmap-prologue):
PostScript programming normalization.
(ps-mule-encode-7bit, ps-mule-encode-8bit, ps-mule-generate-font)
(ps-mule-generate-glyphs, ps-mule-prepare-font, ps-mule-plot-string)
(ps-mule-skip-same-charset, ps-mule-plot-rule-cmpchar)
(ps-mule-plot-cmpchar, ps-mule-prepare-cmpchar-font)
(ps-mule-initialize, ps-mule-begin, ps-face-bold-p, ps-do-despool):
Programming style normalization.
1998-10-26 20:22:17 +00:00
|
|
|
|
;; Things to change
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
;; ----------------
|
1994-05-01 22:09:01 +00:00
|
|
|
|
;;
|
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.
1998-03-07 06:04:46 +00:00
|
|
|
|
;; Avoid page break inside a paragraph.
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
;; Add `ps-non-bold-faces' and `ps-non-italic-faces' (should be easy).
|
|
|
|
|
;; Improve the memory management for big files (hard?).
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; `ps-nb-pages-buffer' and `ps-nb-pages-region' should take care of folding
|
|
|
|
|
;; lines.
|
1994-05-01 22:09:01 +00:00
|
|
|
|
;;
|
|
|
|
|
;;
|
Line and paragraph spacing feature. Region to cut
out when printing. Doc fix.
(ps-print-version): New version number (6.5).
(ps-line-spacing, ps-paragraph-spacing, ps-paragraph-regexp): New
vars. Line and paragraph spacing feature.
(ps-begin-cut-regexp, ps-end-cut-regexp): New vars. Region to cut
out when printing.
(ps-setup, ps-nb-pages, ps-get-page-dimensions, ps-begin-file)
(ps-get-font-size, ps-begin-job, ps-continue-line)
(ps-plot-region): Code fix.
(ps-print-prologue-2): Var eliminated.
(ps-line-spacing-internal, ps-paragraph-spacing-internal): New
internal vars.
(ps-get-size): New fun.
(ps-output-string-prim, ps-init-output-queue, ps-print-page-p)
(ps-next-line): Replace defun by defsubst.
(ps-mule-plot-string): Autoload doc fix.
(ps-mule-generate-font): New arg HEADER-P. If it is
non-nil, generate font for the header strings.
(ps-mule-prepare-font): Likewise.
(ps-mule-generate-glyphs): Likewise.
(ps-mule-string-encoding): Likewise.
(ps-mule-header-charsets): New variable.
(ps-mule-encode-header-string): New function.
(ps-mule-header-string-charsets): New function.
(ps-mule-begin-job): Check charsets in the header strings. If there
are non-ASCII and non-Latin1 charsets, prepare fonts for them.
2001-04-02 10:35:07 +00:00
|
|
|
|
;; Acknowledgments
|
|
|
|
|
;; ---------------
|
|
|
|
|
;;
|
2004-07-23 01:16:06 +00:00
|
|
|
|
;; Thanks to Michael Piotrowski <mxp@dynalabs.de> for improving the DSC
|
|
|
|
|
;; compliance of the generated PostScript.
|
|
|
|
|
;;
|
2001-09-18 09:28:00 +00:00
|
|
|
|
;; Thanks to Adam Doppelt <adoppelt@avogadro.com> for face mapping suggestion
|
|
|
|
|
;; for black/white PostScript printers.
|
|
|
|
|
;;
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; Thanks to Toni Ronkko <tronkko@hytti.uku.fi> for line and paragraph spacing,
|
|
|
|
|
;; region to cut out when printing and footer suggestions.
|
|
|
|
|
;;
|
Line and paragraph spacing feature. Region to cut
out when printing. Doc fix.
(ps-print-version): New version number (6.5).
(ps-line-spacing, ps-paragraph-spacing, ps-paragraph-regexp): New
vars. Line and paragraph spacing feature.
(ps-begin-cut-regexp, ps-end-cut-regexp): New vars. Region to cut
out when printing.
(ps-setup, ps-nb-pages, ps-get-page-dimensions, ps-begin-file)
(ps-get-font-size, ps-begin-job, ps-continue-line)
(ps-plot-region): Code fix.
(ps-print-prologue-2): Var eliminated.
(ps-line-spacing-internal, ps-paragraph-spacing-internal): New
internal vars.
(ps-get-size): New fun.
(ps-output-string-prim, ps-init-output-queue, ps-print-page-p)
(ps-next-line): Replace defun by defsubst.
(ps-mule-plot-string): Autoload doc fix.
(ps-mule-generate-font): New arg HEADER-P. If it is
non-nil, generate font for the header strings.
(ps-mule-prepare-font): Likewise.
(ps-mule-generate-glyphs): Likewise.
(ps-mule-string-encoding): Likewise.
(ps-mule-header-charsets): New variable.
(ps-mule-encode-header-string): New function.
(ps-mule-header-string-charsets): New function.
(ps-mule-begin-job): Check charsets in the header strings. If there
are non-ASCII and non-Latin1 charsets, prepare fonts for them.
2001-04-02 10:35:07 +00:00
|
|
|
|
;; Thanks to Pavel Janik ml <Pavel@Janik.cz> for documentation correction.
|
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.
1998-03-07 06:04:46 +00:00
|
|
|
|
;;
|
(ps-end-job): Bind case-fold-search only after
switching to ps-spool-buffer.
Line number font customization. PostScript: Lines and
PageCount are initialized on each page. Doc Fix.
(ps-print-version): New version number (6.3.2).
(ps-lpr-switches, ps-font-info-database, ps-font-size)
(ps-header-font-size, ps-header-title-font-size, ps-left-header)
(ps-right-header): Customization fix.
(ps-setup, ps-select-font, ps-begin-file, ps-header-sheet, ps-end-job):
Fix code.
(ps-end-with-control-d, ps-line-number-font, ps-line-number-font-size):
New vars.
2000-11-30 13:20:49 +00:00
|
|
|
|
;; Thanks to Corinne Ilvedson <cilvedson@draper.com> for line number font size
|
|
|
|
|
;; suggestion.
|
|
|
|
|
;;
|
2000-08-29 10:51:52 +00:00
|
|
|
|
;; Thanks to Gord Wait <Gord_Wait@spectrumsignal.com> for
|
|
|
|
|
;; `ps-user-defined-prologue' example setting for HP PostScript printer.
|
|
|
|
|
;;
|
2000-05-18 21:50:51 +00:00
|
|
|
|
;; Thanks to Paul Furnanz <pfurnanz@synopsys.com> for XEmacs compatibility
|
|
|
|
|
;; suggestion for `ps-postscript-code-directory' variable.
|
|
|
|
|
;;
|
2000-04-29 19:27:49 +00:00
|
|
|
|
;; Thanks to David X Callaway <dxc@xprt.net> for helping debugging PostScript
|
|
|
|
|
;; level 1 compatibility.
|
|
|
|
|
;;
|
2004-03-02 04:54:04 +00:00
|
|
|
|
;; Thanks to Colin Marquardt <colin.marquardt@usa.alcatel.com> for:
|
|
|
|
|
;; - upside-down, line number step, line number start and zebra stripe
|
|
|
|
|
;; follow suggestions.
|
|
|
|
|
;; - `ps-time-stamp-yyyy-mm-dd' and `ps-time-stamp-iso8601' suggestion.
|
|
|
|
|
;; - and for XEmacs beta-tests.
|
2000-04-29 19:27:49 +00:00
|
|
|
|
;;
|
2000-03-15 13:35:02 +00:00
|
|
|
|
;; Thanks to Klaus Berndl <klaus.berndl@sdm.de> for user defined PostScript
|
2001-02-20 10:41:10 +00:00
|
|
|
|
;; prologue code suggestion, for odd/even printing suggestion and for
|
|
|
|
|
;; `ps-prologue-file' enhancement.
|
2000-03-15 13:35:02 +00:00
|
|
|
|
;;
|
2004-06-05 02:39:03 +00:00
|
|
|
|
;; Thanks to Ken'ichi Handa <handa@m17n.org> for multi-byte buffer handling.
|
1998-08-28 12:33:52 +00:00
|
|
|
|
;;
|
|
|
|
|
;; Thanks to Matthew O Persico <Matthew.Persico@lazard.com> for line number on
|
|
|
|
|
;; empty columns.
|
|
|
|
|
;;
|
|
|
|
|
;; Thanks to Theodore Jump <tjump@cais.com> for adjust PostScript code order on
|
|
|
|
|
;; last page.
|
|
|
|
|
;;
|
1998-05-06 04:06:30 +00:00
|
|
|
|
;; Thanks to Roland Ducournau <ducour@lirmm.fr> for
|
|
|
|
|
;; `ps-print-control-characters' variable documentation.
|
|
|
|
|
;;
|
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.
1998-03-07 06:04:46 +00:00
|
|
|
|
;; Thanks to Marcus G Daniels <marcus@cathcart.sysc.pdx.edu> for a better
|
|
|
|
|
;; database font management.
|
|
|
|
|
;;
|
|
|
|
|
;; Thanks to Martin Boyer <gamin@videotron.ca> for some ideas on putting one
|
1998-05-06 04:06:30 +00:00
|
|
|
|
;; header per page over the columns and correct line numbers when printing a
|
|
|
|
|
;; region.
|
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.
1998-03-07 06:04:46 +00:00
|
|
|
|
;;
|
|
|
|
|
;; Thanks to Steven L Baur <steve@miranova.com> for dynamic evaluation at
|
|
|
|
|
;; print time of `ps-lpr-switches'.
|
|
|
|
|
;;
|
1998-05-06 04:06:30 +00:00
|
|
|
|
;; Thanks to Kevin Rodgers <kevinr@ihs.com> for handling control characters
|
|
|
|
|
;; (his code was severely modified, but the main idea was kept).
|
|
|
|
|
;;
|
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.
1998-03-07 06:04:46 +00:00
|
|
|
|
;; Thanks to some suggestions on:
|
|
|
|
|
;; * Face color map: Marco Melgazzi <marco@techie.com>
|
|
|
|
|
;; * XEmacs compatibility: William J. Henney <will@astrosmo.unam.mx>
|
1998-05-16 03:49:47 +00:00
|
|
|
|
;; * Check `ps-paper-type': Sudhakar Frederick <sfrederi@asc.corp.mot.com>
|
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.
1998-03-07 06:04:46 +00:00
|
|
|
|
;;
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; Thanks to Jacques Duthen <duthen@cegelec-red.fr> (Jack) for version 3.4 I
|
|
|
|
|
;; started from. [vinicius]
|
Some comment, doc and bug fixes.
(ps-print-version): New version number (3.05.3) and doc fix.
(ps-output-string-prim, ps-begin-job, ps-control-character)
(ps-plot-region): Bug fix.
(ps-print-control-characters): New custom var.
(ps-string-escape-codes, ps-string-control-codes): New var.
(ps-color-device, ps-font-lock-face-attributes, ps-eval-switch)
(ps-flatten-list, ps-flatten-list-1): New fn.
(ps-setup): Update current setup.
(ps-begin-file): Adjust PostScript header file.
(ps-plot, ps-face-attribute-list): Little programming improvement.
(ps-print-prologue-1): Replace NumberOfZebra by ZebraHeight.
(ps-print-without-faces, ps-print-with-faces): Little reprogramming.
(ps-plot-with-face): Get color only on color screen device.
(ps-build-reference-face-lists): Handle obsolete
font-lock-face-attributes.
(ps-print-ensure-fontified): Little programming setting.
(ps-generate-postscript-with-faces): Adjust initializations, get color
only on color screen device.
(ps-generate): Replace (if A B) by (and A B).
(ps-do-despool): Dynamic evaluation for ps-lpr-switches,
Replace (if A B) by (and A B).
(color-instance-rgb-components, ps-color-values): Replace
pixel-components by color-instance-rgb-components.
(ps-xemacs-face-kind-p): Replace face-font by face-font-instance,
replace x-font-properties by font-instance-properties.
1997-12-25 18:33:52 +00:00
|
|
|
|
;;
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; Thanks to Jim Thompson <?@?> for the 2.8 version I started from. [jack]
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
;;
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; Thanks to Kevin Rodgers <kevinr@ihs.com> for adding support for color and
|
|
|
|
|
;; the invisible property.
|
1994-05-01 22:09:01 +00:00
|
|
|
|
;;
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; Thanks to Avishai Yacobi, avishaiy@mcil.comm.mot.com, for writing the
|
|
|
|
|
;; initial port to Emacs 19. His code is no longer part of ps-print, but his
|
|
|
|
|
;; work is still appreciated.
|
1994-05-01 22:09:01 +00:00
|
|
|
|
;;
|
2004-07-23 01:16:06 +00:00
|
|
|
|
;; Thanks to Remi Houdaille and Michel Train <michel@metasoft.fdn.org> for
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; adding underline support. Their code also is no longer part of ps-print,
|
|
|
|
|
;; but their efforts are not forgotten.
|
1995-01-20 06:09:03 +00:00
|
|
|
|
;;
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; Thanks also to all of you who mailed code to add features to ps-print;
|
|
|
|
|
;; although I didn't use your code, I still appreciate your sharing it with me.
|
1995-01-20 06:09:03 +00:00
|
|
|
|
;;
|
|
|
|
|
;; Thanks to all who mailed comments, encouragement, and criticism.
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; Thanks also to all who responded to my survey; I had too many responses to
|
|
|
|
|
;; reply to them all, but I greatly appreciate your interest.
|
1995-01-20 06:09:03 +00:00
|
|
|
|
;;
|
|
|
|
|
;; Jim
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
1994-05-01 22:09:01 +00:00
|
|
|
|
|
|
|
|
|
;;; Code:
|
|
|
|
|
|
2001-09-18 09:28:00 +00:00
|
|
|
|
|
2004-11-21 22:30:00 +00:00
|
|
|
|
(require 'lpr)
|
1999-11-24 02:29:08 +00:00
|
|
|
|
|
2004-11-21 22:30:00 +00:00
|
|
|
|
(or (featurep 'lisp-float-type)
|
|
|
|
|
(error "`ps-print' requires floating point support"))
|
1999-11-24 02:29:08 +00:00
|
|
|
|
|
2002-09-29 03:30:41 +00:00
|
|
|
|
|
2004-11-21 22:30:00 +00:00
|
|
|
|
(defvar ps-print-emacs-type
|
|
|
|
|
(let ((case-fold-search t))
|
|
|
|
|
(cond ((string-match "XEmacs" emacs-version) 'xemacs)
|
|
|
|
|
((string-match "Lucid" emacs-version)
|
|
|
|
|
(error "`ps-print' doesn't support Lucid"))
|
|
|
|
|
((string-match "Epoch" emacs-version)
|
|
|
|
|
(error "`ps-print' doesn't support Epoch"))
|
|
|
|
|
(t
|
|
|
|
|
(unless (and (boundp 'emacs-major-version)
|
|
|
|
|
(> emacs-major-version 19))
|
|
|
|
|
(error "`ps-print' only supports Emacs 20 and higher"))
|
|
|
|
|
'emacs))))
|
2002-09-29 03:30:41 +00:00
|
|
|
|
|
1999-11-24 02:29:08 +00:00
|
|
|
|
|
2004-11-21 22:30:00 +00:00
|
|
|
|
;; For Emacs 20.2 and the earlier version.
|
1999-11-24 02:29:08 +00:00
|
|
|
|
|
2004-11-21 22:30:00 +00:00
|
|
|
|
(or (fboundp 'set-buffer-multibyte)
|
|
|
|
|
(defun set-buffer-multibyte (arg)
|
|
|
|
|
(setq enable-multibyte-characters arg)))
|
2000-07-30 11:49:38 +00:00
|
|
|
|
|
2004-11-21 22:30:00 +00:00
|
|
|
|
(or (fboundp 'string-as-unibyte)
|
|
|
|
|
(defun string-as-unibyte (arg) arg))
|
1998-12-15 06:31:48 +00:00
|
|
|
|
|
2004-11-21 22:30:00 +00:00
|
|
|
|
(or (fboundp 'string-as-multibyte)
|
|
|
|
|
(defun string-as-multibyte (arg) arg))
|
2000-01-05 07:17:31 +00:00
|
|
|
|
|
2004-11-21 22:30:00 +00:00
|
|
|
|
(or (fboundp 'char-charset)
|
|
|
|
|
(defun char-charset (arg) 'ascii))
|
2000-04-15 11:39:10 +00:00
|
|
|
|
|
2004-11-21 22:30:00 +00:00
|
|
|
|
(or (fboundp 'charset-after)
|
|
|
|
|
(defun charset-after (&optional arg)
|
|
|
|
|
(char-charset (char-after arg))))
|
2000-04-15 11:39:10 +00:00
|
|
|
|
|
2004-11-21 22:30:00 +00:00
|
|
|
|
|
|
|
|
|
;; GNU Emacs
|
|
|
|
|
(or (fboundp 'line-beginning-position)
|
|
|
|
|
(defun line-beginning-position (&optional n)
|
|
|
|
|
(save-excursion
|
|
|
|
|
(and n (/= n 1) (forward-line (1- n)))
|
|
|
|
|
(beginning-of-line)
|
|
|
|
|
(point))))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;; to avoid compilation gripes
|
|
|
|
|
|
|
|
|
|
;; XEmacs
|
|
|
|
|
(defalias 'ps-x-color-instance-p 'color-instance-p)
|
|
|
|
|
(defalias 'ps-x-color-instance-rgb-components 'color-instance-rgb-components)
|
|
|
|
|
(defalias 'ps-x-color-name 'color-name)
|
|
|
|
|
(defalias 'ps-x-color-specifier-p 'color-specifier-p)
|
|
|
|
|
(defalias 'ps-x-copy-coding-system 'copy-coding-system)
|
|
|
|
|
(defalias 'ps-x-device-class 'device-class)
|
|
|
|
|
(defalias 'ps-x-extent-end-position 'extent-end-position)
|
|
|
|
|
(defalias 'ps-x-extent-face 'extent-face)
|
|
|
|
|
(defalias 'ps-x-extent-priority 'extent-priority)
|
|
|
|
|
(defalias 'ps-x-extent-start-position 'extent-start-position)
|
|
|
|
|
(defalias 'ps-x-face-font-instance 'face-font-instance)
|
|
|
|
|
(defalias 'ps-x-find-coding-system 'find-coding-system)
|
|
|
|
|
(defalias 'ps-x-font-instance-properties 'font-instance-properties)
|
|
|
|
|
(defalias 'ps-x-make-color-instance 'make-color-instance)
|
|
|
|
|
(defalias 'ps-x-map-extents 'map-extents)
|
|
|
|
|
|
|
|
|
|
;; GNU Emacs
|
|
|
|
|
(defalias 'ps-e-face-bold-p 'face-bold-p)
|
|
|
|
|
(defalias 'ps-e-face-italic-p 'face-italic-p)
|
|
|
|
|
(defalias 'ps-e-next-overlay-change 'next-overlay-change)
|
|
|
|
|
(defalias 'ps-e-overlays-at 'overlays-at)
|
|
|
|
|
(defalias 'ps-e-overlay-get 'overlay-get)
|
|
|
|
|
(defalias 'ps-e-overlay-end 'overlay-end)
|
|
|
|
|
(defalias 'ps-e-x-color-values 'x-color-values)
|
|
|
|
|
(defalias 'ps-e-color-values 'color-values)
|
|
|
|
|
(if (fboundp 'find-composition)
|
|
|
|
|
(defalias 'ps-e-find-composition 'find-composition)
|
|
|
|
|
(defalias 'ps-e-find-composition 'ignore))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(defconst ps-windows-system
|
|
|
|
|
(memq system-type '(emx win32 w32 mswindows ms-dos windows-nt)))
|
|
|
|
|
(defconst ps-lp-system
|
|
|
|
|
(memq system-type '(usg-unix-v dgux hpux irix)))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(defun ps-xemacs-color-name (color)
|
|
|
|
|
(if (ps-x-color-specifier-p color)
|
|
|
|
|
(ps-x-color-name color)
|
|
|
|
|
color))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(cond ((featurep 'xemacs) ; xemacs
|
|
|
|
|
(defalias 'ps-mark-active-p 'region-active-p)
|
|
|
|
|
(defun ps-face-foreground-name (face)
|
|
|
|
|
(ps-xemacs-color-name (face-foreground face)))
|
|
|
|
|
(defun ps-face-background-name (face)
|
|
|
|
|
(ps-xemacs-color-name (face-background face)))
|
|
|
|
|
)
|
|
|
|
|
(t ; emacs
|
|
|
|
|
(defvar mark-active nil)
|
|
|
|
|
(defun ps-mark-active-p ()
|
|
|
|
|
mark-active)
|
|
|
|
|
(defalias 'ps-face-foreground-name 'face-foreground)
|
|
|
|
|
(defalias 'ps-face-background-name 'face-background)
|
|
|
|
|
))
|
2000-04-29 19:27:49 +00:00
|
|
|
|
|
|
|
|
|
|
1994-05-01 22:09:01 +00:00
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
1995-01-20 06:09:03 +00:00
|
|
|
|
;; User Variables:
|
|
|
|
|
|
2000-01-05 07:17:31 +00:00
|
|
|
|
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
;;; Interface to the command system
|
|
|
|
|
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
(defgroup postscript nil
|
|
|
|
|
"PostScript Group"
|
|
|
|
|
:tag "PostScript"
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
:group 'emacs)
|
|
|
|
|
|
1997-04-12 01:50:50 +00:00
|
|
|
|
(defgroup ps-print nil
|
2000-10-18 14:31:05 +00:00
|
|
|
|
"PostScript generator for Emacs"
|
|
|
|
|
:link '(emacs-library-link :tag "Source Lisp File" "ps-print.el")
|
1997-04-12 01:50:50 +00:00
|
|
|
|
:prefix "ps-"
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
:group 'wp
|
|
|
|
|
:group 'postscript)
|
1997-04-12 01:50:50 +00:00
|
|
|
|
|
|
|
|
|
(defgroup ps-print-horizontal nil
|
|
|
|
|
"Horizontal page layout"
|
|
|
|
|
:prefix "ps-"
|
|
|
|
|
:tag "Horizontal"
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
1997-04-12 01:50:50 +00:00
|
|
|
|
:group 'ps-print)
|
|
|
|
|
|
|
|
|
|
(defgroup ps-print-vertical nil
|
|
|
|
|
"Vertical page layout"
|
|
|
|
|
:prefix "ps-"
|
|
|
|
|
:tag "Vertical"
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
1997-04-12 01:50:50 +00:00
|
|
|
|
:group 'ps-print)
|
|
|
|
|
|
PostScript programming fix for ghostview, doc fix.
(ps-print-version): New version number (5.1.3).
(ps-begin-file, ps-begin-job, ps-set-color, ps-do-despool, ps-setup)
(ps-insert-file, ps-output-boolean, ps-plot-with-face)
(ps-generate-postscript-with-faces): Code fix.
(ps-color-values): XEmacs compatibility.
(ps-print-background-image, ps-print-background-text, ps-printer-name)
(ps-default-fg, ps-default-bg): Adjust customization.
(ps-zebra-color): Adjust customization, renaming old ps-zebra-gray var.
(ps-color-scale): Renaming old ps-color-value fun.
(ps-print-headers): Replace ps-print-header group to avoid conflict
with ps-print-header variable.
(ps-print-miscellany): New group.
(ps-format-color, ps-rgb-color): New funs.
(ps-default-foreground): New var.
(ps-printer-name-option): New const.
2000-03-30 13:21:45 +00:00
|
|
|
|
(defgroup ps-print-headers nil
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
"Headers & footers layout"
|
1997-04-12 01:50:50 +00:00
|
|
|
|
:prefix "ps-"
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
:tag "Header & Footer"
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
1997-04-12 01:50:50 +00:00
|
|
|
|
:group 'ps-print)
|
|
|
|
|
|
|
|
|
|
(defgroup ps-print-font nil
|
|
|
|
|
"Fonts customization"
|
|
|
|
|
:prefix "ps-"
|
|
|
|
|
:tag "Font"
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
1997-04-12 01:50:50 +00:00
|
|
|
|
:group 'ps-print)
|
|
|
|
|
|
|
|
|
|
(defgroup ps-print-color nil
|
|
|
|
|
"Color customization"
|
|
|
|
|
:prefix "ps-"
|
|
|
|
|
:tag "Color"
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
1997-04-12 01:50:50 +00:00
|
|
|
|
:group 'ps-print)
|
|
|
|
|
|
|
|
|
|
(defgroup ps-print-face nil
|
|
|
|
|
"Faces customization"
|
|
|
|
|
:prefix "ps-"
|
|
|
|
|
:tag "PS Faces"
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
1997-04-12 01:50:50 +00:00
|
|
|
|
:group 'ps-print
|
|
|
|
|
:group 'faces)
|
|
|
|
|
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
(defgroup ps-print-n-up nil
|
|
|
|
|
"N-up customization"
|
|
|
|
|
:prefix "ps-"
|
|
|
|
|
:tag "N-Up"
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
:group 'ps-print)
|
|
|
|
|
|
|
|
|
|
(defgroup ps-print-zebra nil
|
|
|
|
|
"Zebra customization"
|
|
|
|
|
:prefix "ps-"
|
|
|
|
|
:tag "Zebra"
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
:group 'ps-print)
|
|
|
|
|
|
|
|
|
|
(defgroup ps-print-background nil
|
|
|
|
|
"Background customization"
|
|
|
|
|
:prefix "ps-"
|
|
|
|
|
:tag "Background"
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
:group 'ps-print)
|
|
|
|
|
|
2002-02-25 16:29:54 +00:00
|
|
|
|
(defgroup ps-print-printer '((lpr custom-group))
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
"Printer customization"
|
|
|
|
|
:prefix "ps-"
|
|
|
|
|
:tag "Printer"
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
:group 'ps-print)
|
|
|
|
|
|
|
|
|
|
(defgroup ps-print-page nil
|
|
|
|
|
"Page customization"
|
|
|
|
|
:prefix "ps-"
|
|
|
|
|
:tag "Page"
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
:group 'ps-print)
|
|
|
|
|
|
PostScript programming fix for ghostview, doc fix.
(ps-print-version): New version number (5.1.3).
(ps-begin-file, ps-begin-job, ps-set-color, ps-do-despool, ps-setup)
(ps-insert-file, ps-output-boolean, ps-plot-with-face)
(ps-generate-postscript-with-faces): Code fix.
(ps-color-values): XEmacs compatibility.
(ps-print-background-image, ps-print-background-text, ps-printer-name)
(ps-default-fg, ps-default-bg): Adjust customization.
(ps-zebra-color): Adjust customization, renaming old ps-zebra-gray var.
(ps-color-scale): Renaming old ps-color-value fun.
(ps-print-headers): Replace ps-print-header group to avoid conflict
with ps-print-header variable.
(ps-print-miscellany): New group.
(ps-format-color, ps-rgb-color): New funs.
(ps-default-foreground): New var.
(ps-printer-name-option): New const.
2000-03-30 13:21:45 +00:00
|
|
|
|
(defgroup ps-print-miscellany nil
|
|
|
|
|
"Miscellany customization"
|
|
|
|
|
:prefix "ps-"
|
|
|
|
|
:tag "Miscellany"
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
PostScript programming fix for ghostview, doc fix.
(ps-print-version): New version number (5.1.3).
(ps-begin-file, ps-begin-job, ps-set-color, ps-do-despool, ps-setup)
(ps-insert-file, ps-output-boolean, ps-plot-with-face)
(ps-generate-postscript-with-faces): Code fix.
(ps-color-values): XEmacs compatibility.
(ps-print-background-image, ps-print-background-text, ps-printer-name)
(ps-default-fg, ps-default-bg): Adjust customization.
(ps-zebra-color): Adjust customization, renaming old ps-zebra-gray var.
(ps-color-scale): Renaming old ps-color-value fun.
(ps-print-headers): Replace ps-print-header group to avoid conflict
with ps-print-header variable.
(ps-print-miscellany): New group.
(ps-format-color, ps-rgb-color): New funs.
(ps-default-foreground): New var.
(ps-printer-name-option): New const.
2000-03-30 13:21:45 +00:00
|
|
|
|
:group 'ps-print)
|
|
|
|
|
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
|
2000-03-15 13:35:02 +00:00
|
|
|
|
(defcustom ps-error-handler-message 'paper
|
|
|
|
|
"*Specify where the error handler message should be sent.
|
|
|
|
|
|
|
|
|
|
Valid values are:
|
|
|
|
|
|
|
|
|
|
`none' catch the error and *DON'T* send any message.
|
|
|
|
|
|
|
|
|
|
`paper' catch the error and print on paper the error message.
|
|
|
|
|
|
|
|
|
|
`system' catch the error and send back the error message to
|
PostScript programming fix for ghostview, doc fix.
(ps-print-version): New version number (5.1.3).
(ps-begin-file, ps-begin-job, ps-set-color, ps-do-despool, ps-setup)
(ps-insert-file, ps-output-boolean, ps-plot-with-face)
(ps-generate-postscript-with-faces): Code fix.
(ps-color-values): XEmacs compatibility.
(ps-print-background-image, ps-print-background-text, ps-printer-name)
(ps-default-fg, ps-default-bg): Adjust customization.
(ps-zebra-color): Adjust customization, renaming old ps-zebra-gray var.
(ps-color-scale): Renaming old ps-color-value fun.
(ps-print-headers): Replace ps-print-header group to avoid conflict
with ps-print-header variable.
(ps-print-miscellany): New group.
(ps-format-color, ps-rgb-color): New funs.
(ps-default-foreground): New var.
(ps-printer-name-option): New const.
2000-03-30 13:21:45 +00:00
|
|
|
|
printing system. This is useful only if printing system
|
|
|
|
|
send back an email reporting the error, or if there is
|
|
|
|
|
some other alternative way to report back the error from
|
|
|
|
|
the system to you.
|
2000-03-15 13:35:02 +00:00
|
|
|
|
|
|
|
|
|
`paper-and-system' catch the error, print on paper the error message and
|
|
|
|
|
send back the error message to printing system.
|
|
|
|
|
|
|
|
|
|
Any other value is treated as `paper'."
|
XEmacs compatibility. Doc fix. Can select page size
with/without giving an error if PostScript printer doesn't have this
kind of page size. Zebra Stripe continues or restarts on next page.
Manual/automatic paper feeding. Switch or not the header.
(ps-print-version): New version number (5.2.2).
(ps-windows-system): Include emx as a Windows system.
(ps-setup, ps-begin-file, ps-color-values, ps-screen-to-bit-face)
(ps-generate-postscript-with-faces, ps-generate-postscript-with-faces)
(ps-background-text): Code fix.
(ps-error-handler-message, ps-user-defined-prologue)
(ps-print-prologue-header, ps-printer-name)
(ps-print-control-characters, ps-n-up-filling, ps-zebra-color)
(ps-line-number-step, ps-spool-config, ps-default-fg, ps-default-bg)
(ps-use-face-background): Customization fix.
(ps-n-up-database): Data fix.
(ps-warn-paper-type, ps-zebra-stripe-follow, ps-manual-feed)
(ps-switch-header): New vars.
(ps-xemacs-color-name, ps-face-foreground-name)
(ps-face-background-name, ps-boolean-constant): New funs.
2000-06-07 15:34:55 +00:00
|
|
|
|
:type '(choice :menu-tag "Error Handler Message"
|
|
|
|
|
:tag "Error Handler Message"
|
2000-03-15 13:35:02 +00:00
|
|
|
|
(const none) (const paper)
|
|
|
|
|
(const system) (const paper-and-system))
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
PostScript programming fix for ghostview, doc fix.
(ps-print-version): New version number (5.1.3).
(ps-begin-file, ps-begin-job, ps-set-color, ps-do-despool, ps-setup)
(ps-insert-file, ps-output-boolean, ps-plot-with-face)
(ps-generate-postscript-with-faces): Code fix.
(ps-color-values): XEmacs compatibility.
(ps-print-background-image, ps-print-background-text, ps-printer-name)
(ps-default-fg, ps-default-bg): Adjust customization.
(ps-zebra-color): Adjust customization, renaming old ps-zebra-gray var.
(ps-color-scale): Renaming old ps-color-value fun.
(ps-print-headers): Replace ps-print-header group to avoid conflict
with ps-print-header variable.
(ps-print-miscellany): New group.
(ps-format-color, ps-rgb-color): New funs.
(ps-default-foreground): New var.
(ps-printer-name-option): New const.
2000-03-30 13:21:45 +00:00
|
|
|
|
:group 'ps-print-miscellany)
|
2000-03-15 13:35:02 +00:00
|
|
|
|
|
|
|
|
|
(defcustom ps-user-defined-prologue nil
|
|
|
|
|
"*User defined PostScript prologue code inserted before all prologue code.
|
|
|
|
|
|
|
|
|
|
`ps-user-defined-prologue' may be a string or a symbol function which returns a
|
|
|
|
|
string. Note that this string is inserted after `ps-adobe-tag' and PostScript
|
|
|
|
|
prologue comments, and before ps-print PostScript prologue code section. That
|
|
|
|
|
is, this string is inserted after error handler initialization and before
|
|
|
|
|
ps-print settings.
|
|
|
|
|
|
|
|
|
|
It's strongly recommended only insert PostScript code and/or comments specific
|
|
|
|
|
for your printing system particularities. For example, some special
|
|
|
|
|
initialization that only your printing system needs.
|
|
|
|
|
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
Do not insert code for duplex printing, n-up printing or error handler,
|
|
|
|
|
ps-print handles this in a suitable way.
|
2000-03-15 13:35:02 +00:00
|
|
|
|
|
|
|
|
|
For more information about PostScript, see:
|
|
|
|
|
PostScript Language Reference Manual (2nd edition)
|
2000-08-29 10:51:52 +00:00
|
|
|
|
Adobe Systems Incorporated
|
|
|
|
|
|
|
|
|
|
As an example for `ps-user-defined-prologue' setting:
|
|
|
|
|
|
|
|
|
|
;; Setting for HP PostScript printer
|
|
|
|
|
(setq ps-user-defined-prologue
|
|
|
|
|
(concat \"<</DeferredMediaSelection true /PageSize [612 792] \"
|
2002-09-09 19:26:40 +00:00
|
|
|
|
\"/MediaPosition 2 /MediaType (Plain)>> setpagedevice\"))"
|
XEmacs compatibility. Doc fix. Can select page size
with/without giving an error if PostScript printer doesn't have this
kind of page size. Zebra Stripe continues or restarts on next page.
Manual/automatic paper feeding. Switch or not the header.
(ps-print-version): New version number (5.2.2).
(ps-windows-system): Include emx as a Windows system.
(ps-setup, ps-begin-file, ps-color-values, ps-screen-to-bit-face)
(ps-generate-postscript-with-faces, ps-generate-postscript-with-faces)
(ps-background-text): Code fix.
(ps-error-handler-message, ps-user-defined-prologue)
(ps-print-prologue-header, ps-printer-name)
(ps-print-control-characters, ps-n-up-filling, ps-zebra-color)
(ps-line-number-step, ps-spool-config, ps-default-fg, ps-default-bg)
(ps-use-face-background): Customization fix.
(ps-n-up-database): Data fix.
(ps-warn-paper-type, ps-zebra-stripe-follow, ps-manual-feed)
(ps-switch-header): New vars.
(ps-xemacs-color-name, ps-face-foreground-name)
(ps-face-background-name, ps-boolean-constant): New funs.
2000-06-07 15:34:55 +00:00
|
|
|
|
:type '(choice :menu-tag "User Defined Prologue"
|
|
|
|
|
:tag "User Defined Prologue"
|
2000-05-18 21:50:51 +00:00
|
|
|
|
(const :tag "none" nil) string symbol)
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
PostScript programming fix for ghostview, doc fix.
(ps-print-version): New version number (5.1.3).
(ps-begin-file, ps-begin-job, ps-set-color, ps-do-despool, ps-setup)
(ps-insert-file, ps-output-boolean, ps-plot-with-face)
(ps-generate-postscript-with-faces): Code fix.
(ps-color-values): XEmacs compatibility.
(ps-print-background-image, ps-print-background-text, ps-printer-name)
(ps-default-fg, ps-default-bg): Adjust customization.
(ps-zebra-color): Adjust customization, renaming old ps-zebra-gray var.
(ps-color-scale): Renaming old ps-color-value fun.
(ps-print-headers): Replace ps-print-header group to avoid conflict
with ps-print-header variable.
(ps-print-miscellany): New group.
(ps-format-color, ps-rgb-color): New funs.
(ps-default-foreground): New var.
(ps-printer-name-option): New const.
2000-03-30 13:21:45 +00:00
|
|
|
|
:group 'ps-print-miscellany)
|
2000-03-15 13:35:02 +00:00
|
|
|
|
|
User option for multibyte buffer handling and doc fix.
(ps-multibyte-buffer): New user option.
(ps-setup): Print new user option.
(ps-print-quote): New fun.
(ps-color-p, ps-mule-font-info-database-latin): New var.
(ps-default-color, ps-mule-font-info-database)
(ps-mule-font-info-database-ps-bdf): Adjust initialization.
(ps-mule-get-font-spec, ps-mule-begin, ps-begin-file)
(ps-plot-with-face, ps-generate-postscript-with-faces, ps-generate):
Little code improvement.
(ps-mule-initialize): Initialize ps-mule-font-info-database.
(ps-print-prologue-header, ps-font-family, ps-font-size)
(ps-header-font-family, ps-header-font-size, ps-header-title-font-size)
(ps-build-face-reference, ps-mule-font-info-database-bdf)
(ps-mule-external-libraries, ps-mule-init-external-library)
(ps-mule-prepare-font, ps-mule-find-wrappoint, ps-mule-plot-string): doc
fix.
To make it work also on Emacs 20.2 and the earlier
version, check the value of mule-version.
(ps-print-version): New version number (4.1.1) and doc
fix.
(ps-print-prologue-header): New user option.
(ps-color-values, ps-xemacs-face-kind-p, ps-mapper, ps-extent-sorter):
Conditional compilation for GNU Emacs and emacsens.
(ps-generate-postscript-with-faces): Skip invisible text better.
(ps-setup): Print new user option.
(ps-print-preprint): Check if input file name exists and is unwritable.
(ps-begin-file): Adjust PostScript prologue header for duplex printers
and insert user PostScript prologue header comments.
(ps-mule-encode-bit, ps-mule-string-ascii, ps-mule-string-encoding): New
funs.
(dos-ps-printer, lazy-lock-fontify-buffer): Eliminated.
(ps-mule-prologue, ps-mule-cmpchar-prologue, ps-mule-bitmap-prologue):
PostScript programming normalization.
(ps-mule-encode-7bit, ps-mule-encode-8bit, ps-mule-generate-font)
(ps-mule-generate-glyphs, ps-mule-prepare-font, ps-mule-plot-string)
(ps-mule-skip-same-charset, ps-mule-plot-rule-cmpchar)
(ps-mule-plot-cmpchar, ps-mule-prepare-cmpchar-font)
(ps-mule-initialize, ps-mule-begin, ps-face-bold-p, ps-do-despool):
Programming style normalization.
1998-10-26 20:22:17 +00:00
|
|
|
|
(defcustom ps-print-prologue-header nil
|
|
|
|
|
"*PostScript prologue header comments besides that ps-print generates.
|
|
|
|
|
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
`ps-print-prologue-header' may be a string or a symbol function which returns a
|
|
|
|
|
string. Note that this string is inserted on PostScript prologue header
|
|
|
|
|
section which is used to define some document characteristic through PostScript
|
|
|
|
|
special comments, like \"%%Requirements: jog\\n\".
|
User option for multibyte buffer handling and doc fix.
(ps-multibyte-buffer): New user option.
(ps-setup): Print new user option.
(ps-print-quote): New fun.
(ps-color-p, ps-mule-font-info-database-latin): New var.
(ps-default-color, ps-mule-font-info-database)
(ps-mule-font-info-database-ps-bdf): Adjust initialization.
(ps-mule-get-font-spec, ps-mule-begin, ps-begin-file)
(ps-plot-with-face, ps-generate-postscript-with-faces, ps-generate):
Little code improvement.
(ps-mule-initialize): Initialize ps-mule-font-info-database.
(ps-print-prologue-header, ps-font-family, ps-font-size)
(ps-header-font-family, ps-header-font-size, ps-header-title-font-size)
(ps-build-face-reference, ps-mule-font-info-database-bdf)
(ps-mule-external-libraries, ps-mule-init-external-library)
(ps-mule-prepare-font, ps-mule-find-wrappoint, ps-mule-plot-string): doc
fix.
To make it work also on Emacs 20.2 and the earlier
version, check the value of mule-version.
(ps-print-version): New version number (4.1.1) and doc
fix.
(ps-print-prologue-header): New user option.
(ps-color-values, ps-xemacs-face-kind-p, ps-mapper, ps-extent-sorter):
Conditional compilation for GNU Emacs and emacsens.
(ps-generate-postscript-with-faces): Skip invisible text better.
(ps-setup): Print new user option.
(ps-print-preprint): Check if input file name exists and is unwritable.
(ps-begin-file): Adjust PostScript prologue header for duplex printers
and insert user PostScript prologue header comments.
(ps-mule-encode-bit, ps-mule-string-ascii, ps-mule-string-encoding): New
funs.
(dos-ps-printer, lazy-lock-fontify-buffer): Eliminated.
(ps-mule-prologue, ps-mule-cmpchar-prologue, ps-mule-bitmap-prologue):
PostScript programming normalization.
(ps-mule-encode-7bit, ps-mule-encode-8bit, ps-mule-generate-font)
(ps-mule-generate-glyphs, ps-mule-prepare-font, ps-mule-plot-string)
(ps-mule-skip-same-charset, ps-mule-plot-rule-cmpchar)
(ps-mule-plot-cmpchar, ps-mule-prepare-cmpchar-font)
(ps-mule-initialize, ps-mule-begin, ps-face-bold-p, ps-do-despool):
Programming style normalization.
1998-10-26 20:22:17 +00:00
|
|
|
|
|
|
|
|
|
ps-print always inserts the %%Requirements: comment, so if you need to insert
|
|
|
|
|
more requirements put them first in `ps-print-prologue-header' using the
|
|
|
|
|
\"%%+\" comment. For example, if you need to set numcopies to 3 and jog on
|
|
|
|
|
requirements and set %%LanguageLevel: to 2, do:
|
|
|
|
|
|
2002-09-09 19:26:40 +00:00
|
|
|
|
(setq ps-print-prologue-header
|
2003-03-06 01:54:17 +00:00
|
|
|
|
\"%%+ numcopies(3) jog\\n%%LanguageLevel: 2\\n\")
|
User option for multibyte buffer handling and doc fix.
(ps-multibyte-buffer): New user option.
(ps-setup): Print new user option.
(ps-print-quote): New fun.
(ps-color-p, ps-mule-font-info-database-latin): New var.
(ps-default-color, ps-mule-font-info-database)
(ps-mule-font-info-database-ps-bdf): Adjust initialization.
(ps-mule-get-font-spec, ps-mule-begin, ps-begin-file)
(ps-plot-with-face, ps-generate-postscript-with-faces, ps-generate):
Little code improvement.
(ps-mule-initialize): Initialize ps-mule-font-info-database.
(ps-print-prologue-header, ps-font-family, ps-font-size)
(ps-header-font-family, ps-header-font-size, ps-header-title-font-size)
(ps-build-face-reference, ps-mule-font-info-database-bdf)
(ps-mule-external-libraries, ps-mule-init-external-library)
(ps-mule-prepare-font, ps-mule-find-wrappoint, ps-mule-plot-string): doc
fix.
To make it work also on Emacs 20.2 and the earlier
version, check the value of mule-version.
(ps-print-version): New version number (4.1.1) and doc
fix.
(ps-print-prologue-header): New user option.
(ps-color-values, ps-xemacs-face-kind-p, ps-mapper, ps-extent-sorter):
Conditional compilation for GNU Emacs and emacsens.
(ps-generate-postscript-with-faces): Skip invisible text better.
(ps-setup): Print new user option.
(ps-print-preprint): Check if input file name exists and is unwritable.
(ps-begin-file): Adjust PostScript prologue header for duplex printers
and insert user PostScript prologue header comments.
(ps-mule-encode-bit, ps-mule-string-ascii, ps-mule-string-encoding): New
funs.
(dos-ps-printer, lazy-lock-fontify-buffer): Eliminated.
(ps-mule-prologue, ps-mule-cmpchar-prologue, ps-mule-bitmap-prologue):
PostScript programming normalization.
(ps-mule-encode-7bit, ps-mule-encode-8bit, ps-mule-generate-font)
(ps-mule-generate-glyphs, ps-mule-prepare-font, ps-mule-plot-string)
(ps-mule-skip-same-charset, ps-mule-plot-rule-cmpchar)
(ps-mule-plot-cmpchar, ps-mule-prepare-cmpchar-font)
(ps-mule-initialize, ps-mule-begin, ps-face-bold-p, ps-do-despool):
Programming style normalization.
1998-10-26 20:22:17 +00:00
|
|
|
|
|
|
|
|
|
The duplex requirement is inserted by ps-print (see `ps-spool-duplex').
|
|
|
|
|
|
|
|
|
|
Do not forget to terminate the string with \"\\n\".
|
|
|
|
|
|
|
|
|
|
For more information about PostScript document comments, see:
|
|
|
|
|
PostScript Language Reference Manual (2nd edition)
|
|
|
|
|
Adobe Systems Incorporated
|
|
|
|
|
Appendix G: Document Structuring Conventions -- Version 3.0"
|
XEmacs compatibility. Doc fix. Can select page size
with/without giving an error if PostScript printer doesn't have this
kind of page size. Zebra Stripe continues or restarts on next page.
Manual/automatic paper feeding. Switch or not the header.
(ps-print-version): New version number (5.2.2).
(ps-windows-system): Include emx as a Windows system.
(ps-setup, ps-begin-file, ps-color-values, ps-screen-to-bit-face)
(ps-generate-postscript-with-faces, ps-generate-postscript-with-faces)
(ps-background-text): Code fix.
(ps-error-handler-message, ps-user-defined-prologue)
(ps-print-prologue-header, ps-printer-name)
(ps-print-control-characters, ps-n-up-filling, ps-zebra-color)
(ps-line-number-step, ps-spool-config, ps-default-fg, ps-default-bg)
(ps-use-face-background): Customization fix.
(ps-n-up-database): Data fix.
(ps-warn-paper-type, ps-zebra-stripe-follow, ps-manual-feed)
(ps-switch-header): New vars.
(ps-xemacs-color-name, ps-face-foreground-name)
(ps-face-background-name, ps-boolean-constant): New funs.
2000-06-07 15:34:55 +00:00
|
|
|
|
:type '(choice :menu-tag "Prologue Header"
|
|
|
|
|
:tag "Prologue Header"
|
2000-05-18 21:50:51 +00:00
|
|
|
|
(const :tag "none" nil) string symbol)
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
PostScript programming fix for ghostview, doc fix.
(ps-print-version): New version number (5.1.3).
(ps-begin-file, ps-begin-job, ps-set-color, ps-do-despool, ps-setup)
(ps-insert-file, ps-output-boolean, ps-plot-with-face)
(ps-generate-postscript-with-faces): Code fix.
(ps-color-values): XEmacs compatibility.
(ps-print-background-image, ps-print-background-text, ps-printer-name)
(ps-default-fg, ps-default-bg): Adjust customization.
(ps-zebra-color): Adjust customization, renaming old ps-zebra-gray var.
(ps-color-scale): Renaming old ps-color-value fun.
(ps-print-headers): Replace ps-print-header group to avoid conflict
with ps-print-header variable.
(ps-print-miscellany): New group.
(ps-format-color, ps-rgb-color): New funs.
(ps-default-foreground): New var.
(ps-printer-name-option): New const.
2000-03-30 13:21:45 +00:00
|
|
|
|
:group 'ps-print-miscellany)
|
User option for multibyte buffer handling and doc fix.
(ps-multibyte-buffer): New user option.
(ps-setup): Print new user option.
(ps-print-quote): New fun.
(ps-color-p, ps-mule-font-info-database-latin): New var.
(ps-default-color, ps-mule-font-info-database)
(ps-mule-font-info-database-ps-bdf): Adjust initialization.
(ps-mule-get-font-spec, ps-mule-begin, ps-begin-file)
(ps-plot-with-face, ps-generate-postscript-with-faces, ps-generate):
Little code improvement.
(ps-mule-initialize): Initialize ps-mule-font-info-database.
(ps-print-prologue-header, ps-font-family, ps-font-size)
(ps-header-font-family, ps-header-font-size, ps-header-title-font-size)
(ps-build-face-reference, ps-mule-font-info-database-bdf)
(ps-mule-external-libraries, ps-mule-init-external-library)
(ps-mule-prepare-font, ps-mule-find-wrappoint, ps-mule-plot-string): doc
fix.
To make it work also on Emacs 20.2 and the earlier
version, check the value of mule-version.
(ps-print-version): New version number (4.1.1) and doc
fix.
(ps-print-prologue-header): New user option.
(ps-color-values, ps-xemacs-face-kind-p, ps-mapper, ps-extent-sorter):
Conditional compilation for GNU Emacs and emacsens.
(ps-generate-postscript-with-faces): Skip invisible text better.
(ps-setup): Print new user option.
(ps-print-preprint): Check if input file name exists and is unwritable.
(ps-begin-file): Adjust PostScript prologue header for duplex printers
and insert user PostScript prologue header comments.
(ps-mule-encode-bit, ps-mule-string-ascii, ps-mule-string-encoding): New
funs.
(dos-ps-printer, lazy-lock-fontify-buffer): Eliminated.
(ps-mule-prologue, ps-mule-cmpchar-prologue, ps-mule-bitmap-prologue):
PostScript programming normalization.
(ps-mule-encode-7bit, ps-mule-encode-8bit, ps-mule-generate-font)
(ps-mule-generate-glyphs, ps-mule-prepare-font, ps-mule-plot-string)
(ps-mule-skip-same-charset, ps-mule-plot-rule-cmpchar)
(ps-mule-plot-cmpchar, ps-mule-prepare-cmpchar-font)
(ps-mule-initialize, ps-mule-begin, ps-face-bold-p, ps-do-despool):
Programming style normalization.
1998-10-26 20:22:17 +00:00
|
|
|
|
|
1998-12-15 06:31:48 +00:00
|
|
|
|
(defcustom ps-printer-name (and (boundp 'printer-name)
|
2001-02-20 10:41:10 +00:00
|
|
|
|
(symbol-value 'printer-name))
|
1998-07-03 19:54:30 +00:00
|
|
|
|
"*The name of a local printer for printing PostScript files.
|
|
|
|
|
|
2000-10-18 14:31:05 +00:00
|
|
|
|
On Unix-like systems, a string value should be a name understood by lpr's -P
|
|
|
|
|
option; a value of nil means use the value of `printer-name' instead.
|
|
|
|
|
|
|
|
|
|
On MS-DOS and MS-Windows systems, a string value is taken as the name of the
|
|
|
|
|
printer device or port to which PostScript files are written, provided
|
|
|
|
|
`ps-lpr-command' is \"\". By default it is the same as `printer-name'; typical
|
|
|
|
|
non-default settings would be \"LPT1\" to \"LPT3\" for parallel printers, or
|
2000-11-09 12:05:55 +00:00
|
|
|
|
\"COM1\" to \"COM4\" or \"AUX\" for serial printers, or \"\\\\hostname\\printer\"
|
2000-10-18 14:31:05 +00:00
|
|
|
|
for a shared network printer. You can also set it to a name of a file, in
|
|
|
|
|
which case the output gets appended to that file. \(Note that `ps-print'
|
|
|
|
|
package already has facilities for printing to a file, so you might as well use
|
|
|
|
|
them instead of changing the setting of this variable.\) If you want to
|
|
|
|
|
silently discard the printed output, set this to \"NUL\".
|
|
|
|
|
|
|
|
|
|
Set to t, if the utility given by `ps-lpr-command' needs an empty printer name.
|
|
|
|
|
|
|
|
|
|
Any other value is treated as t, that is, an empty printer name.
|
|
|
|
|
|
|
|
|
|
See also `ps-printer-name-option' for documentation."
|
XEmacs compatibility. Doc fix. Can select page size
with/without giving an error if PostScript printer doesn't have this
kind of page size. Zebra Stripe continues or restarts on next page.
Manual/automatic paper feeding. Switch or not the header.
(ps-print-version): New version number (5.2.2).
(ps-windows-system): Include emx as a Windows system.
(ps-setup, ps-begin-file, ps-color-values, ps-screen-to-bit-face)
(ps-generate-postscript-with-faces, ps-generate-postscript-with-faces)
(ps-background-text): Code fix.
(ps-error-handler-message, ps-user-defined-prologue)
(ps-print-prologue-header, ps-printer-name)
(ps-print-control-characters, ps-n-up-filling, ps-zebra-color)
(ps-line-number-step, ps-spool-config, ps-default-fg, ps-default-bg)
(ps-use-face-background): Customization fix.
(ps-n-up-database): Data fix.
(ps-warn-paper-type, ps-zebra-stripe-follow, ps-manual-feed)
(ps-switch-header): New vars.
(ps-xemacs-color-name, ps-face-foreground-name)
(ps-face-background-name, ps-boolean-constant): New funs.
2000-06-07 15:34:55 +00:00
|
|
|
|
:type '(choice :menu-tag "Printer Name"
|
|
|
|
|
:tag "Printer Name"
|
|
|
|
|
(const :tag "Same as printer-name" nil)
|
2000-10-18 14:31:05 +00:00
|
|
|
|
(const :tag "No Printer Name" t)
|
PostScript programming fix for ghostview, doc fix.
(ps-print-version): New version number (5.1.3).
(ps-begin-file, ps-begin-job, ps-set-color, ps-do-despool, ps-setup)
(ps-insert-file, ps-output-boolean, ps-plot-with-face)
(ps-generate-postscript-with-faces): Code fix.
(ps-color-values): XEmacs compatibility.
(ps-print-background-image, ps-print-background-text, ps-printer-name)
(ps-default-fg, ps-default-bg): Adjust customization.
(ps-zebra-color): Adjust customization, renaming old ps-zebra-gray var.
(ps-color-scale): Renaming old ps-color-value fun.
(ps-print-headers): Replace ps-print-header group to avoid conflict
with ps-print-header variable.
(ps-print-miscellany): New group.
(ps-format-color, ps-rgb-color): New funs.
(ps-default-foreground): New var.
(ps-printer-name-option): New const.
2000-03-30 13:21:45 +00:00
|
|
|
|
(file :tag "Print to file")
|
XEmacs compatibility. Doc fix. Can select page size
with/without giving an error if PostScript printer doesn't have this
kind of page size. Zebra Stripe continues or restarts on next page.
Manual/automatic paper feeding. Switch or not the header.
(ps-print-version): New version number (5.2.2).
(ps-windows-system): Include emx as a Windows system.
(ps-setup, ps-begin-file, ps-color-values, ps-screen-to-bit-face)
(ps-generate-postscript-with-faces, ps-generate-postscript-with-faces)
(ps-background-text): Code fix.
(ps-error-handler-message, ps-user-defined-prologue)
(ps-print-prologue-header, ps-printer-name)
(ps-print-control-characters, ps-n-up-filling, ps-zebra-color)
(ps-line-number-step, ps-spool-config, ps-default-fg, ps-default-bg)
(ps-use-face-background): Customization fix.
(ps-n-up-database): Data fix.
(ps-warn-paper-type, ps-zebra-stripe-follow, ps-manual-feed)
(ps-switch-header): New vars.
(ps-xemacs-color-name, ps-face-foreground-name)
(ps-face-background-name, ps-boolean-constant): New funs.
2000-06-07 15:34:55 +00:00
|
|
|
|
(string :tag "Pipe to ps-lpr-command"))
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
:group 'ps-print-printer)
|
1998-07-03 19:54:30 +00:00
|
|
|
|
|
2000-10-18 14:31:05 +00:00
|
|
|
|
(defcustom ps-printer-name-option
|
|
|
|
|
(cond (ps-windows-system
|
|
|
|
|
"/D:")
|
|
|
|
|
(ps-lp-system
|
|
|
|
|
"-d")
|
|
|
|
|
(t
|
|
|
|
|
"-P" ))
|
|
|
|
|
"*Option for `ps-printer-name' variable (see it).
|
|
|
|
|
|
2002-09-09 19:26:40 +00:00
|
|
|
|
On Unix-like systems, if `lpr' is in use, this should be the string
|
|
|
|
|
\"-P\"; if `lp' is in use, this should be the string \"-d\".
|
2000-10-18 14:31:05 +00:00
|
|
|
|
|
2002-09-09 19:26:40 +00:00
|
|
|
|
On MS-DOS and MS-Windows systems, if `print' is in use, this should be
|
2000-10-18 14:31:05 +00:00
|
|
|
|
the string \"/D:\".
|
|
|
|
|
|
2002-09-09 19:26:40 +00:00
|
|
|
|
For any other printing utility, see its documentation.
|
2000-10-18 14:31:05 +00:00
|
|
|
|
|
2002-09-10 16:49:47 +00:00
|
|
|
|
Set this to \"\" or nil, if the utility given by `ps-lpr-command'
|
|
|
|
|
needs an empty printer name option--that is, pass the printer name
|
|
|
|
|
with no special option preceding it.
|
2000-10-18 14:31:05 +00:00
|
|
|
|
|
2002-09-10 16:49:47 +00:00
|
|
|
|
Any value that is not a string is treated as nil.
|
2000-10-18 14:31:05 +00:00
|
|
|
|
|
|
|
|
|
This variable is used only when `ps-printer-name' is a non-empty string."
|
|
|
|
|
:type '(choice :menu-tag "Printer Name Option"
|
|
|
|
|
:tag "Printer Name Option"
|
|
|
|
|
(const :tag "None" nil)
|
|
|
|
|
(string :tag "Option"))
|
Line and paragraph spacing feature. Region to cut
out when printing. Doc fix.
(ps-print-version): New version number (6.5).
(ps-line-spacing, ps-paragraph-spacing, ps-paragraph-regexp): New
vars. Line and paragraph spacing feature.
(ps-begin-cut-regexp, ps-end-cut-regexp): New vars. Region to cut
out when printing.
(ps-setup, ps-nb-pages, ps-get-page-dimensions, ps-begin-file)
(ps-get-font-size, ps-begin-job, ps-continue-line)
(ps-plot-region): Code fix.
(ps-print-prologue-2): Var eliminated.
(ps-line-spacing-internal, ps-paragraph-spacing-internal): New
internal vars.
(ps-get-size): New fun.
(ps-output-string-prim, ps-init-output-queue, ps-print-page-p)
(ps-next-line): Replace defun by defsubst.
(ps-mule-plot-string): Autoload doc fix.
(ps-mule-generate-font): New arg HEADER-P. If it is
non-nil, generate font for the header strings.
(ps-mule-prepare-font): Likewise.
(ps-mule-generate-glyphs): Likewise.
(ps-mule-string-encoding): Likewise.
(ps-mule-header-charsets): New variable.
(ps-mule-encode-header-string): New function.
(ps-mule-header-string-charsets): New function.
(ps-mule-begin-job): Check charsets in the header strings. If there
are non-ASCII and non-Latin1 charsets, prepare fonts for them.
2001-04-02 10:35:07 +00:00
|
|
|
|
:version "21.1"
|
2000-10-18 14:31:05 +00:00
|
|
|
|
:group 'ps-print-printer)
|
|
|
|
|
|
1997-04-12 01:50:50 +00:00
|
|
|
|
(defcustom ps-lpr-command lpr-command
|
1999-01-17 18:57:20 +00:00
|
|
|
|
"*Name of program for printing a PostScript file.
|
|
|
|
|
|
2000-10-18 14:31:05 +00:00
|
|
|
|
On MS-DOS and MS-Windows systems, if the value is an empty string then Emacs
|
|
|
|
|
will write directly to the printer port named by `ps-printer-name'. The
|
|
|
|
|
programs `print' and `nprint' (the standard print programs on Windows NT and
|
|
|
|
|
Novell Netware respectively) are handled specially, using `ps-printer-name' as
|
|
|
|
|
the destination for output; any other program is treated like `lpr' except that
|
|
|
|
|
an explicit filename is given as the last argument."
|
1997-04-12 01:50:50 +00:00
|
|
|
|
:type 'string
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
:group 'ps-print-printer)
|
1997-04-12 01:50:50 +00:00
|
|
|
|
|
|
|
|
|
(defcustom ps-lpr-switches lpr-switches
|
|
|
|
|
"*A list of extra switches to pass to `ps-lpr-command'."
|
2000-04-13 19:15:23 +00:00
|
|
|
|
:type '(repeat :tag "PostScript lpr Switches"
|
(ps-end-job): Bind case-fold-search only after
switching to ps-spool-buffer.
Line number font customization. PostScript: Lines and
PageCount are initialized on each page. Doc Fix.
(ps-print-version): New version number (6.3.2).
(ps-lpr-switches, ps-font-info-database, ps-font-size)
(ps-header-font-size, ps-header-title-font-size, ps-left-header)
(ps-right-header): Customization fix.
(ps-setup, ps-select-font, ps-begin-file, ps-header-sheet, ps-end-job):
Fix code.
(ps-end-with-control-d, ps-line-number-font, ps-line-number-font-size):
New vars.
2000-11-30 13:20:49 +00:00
|
|
|
|
(choice :menu-tag "PostScript lpr Switch"
|
|
|
|
|
:tag "PostScript lpr Switch"
|
|
|
|
|
string symbol (repeat sexp)))
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
:group 'ps-print-printer)
|
1995-01-20 06:09:03 +00:00
|
|
|
|
|
1999-01-17 18:57:20 +00:00
|
|
|
|
(defcustom ps-print-region-function nil
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
"*Specify a function to print the region on a PostScript printer.
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
See definition of `call-process-region' for calling conventions. The fourth
|
|
|
|
|
and the sixth arguments are both nil."
|
2001-02-07 23:43:05 +00:00
|
|
|
|
:type '(choice (const nil) function)
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
:group 'ps-print-printer)
|
1999-01-17 18:57:20 +00:00
|
|
|
|
|
XEmacs compatibility. Doc fix. Can select page size
with/without giving an error if PostScript printer doesn't have this
kind of page size. Zebra Stripe continues or restarts on next page.
Manual/automatic paper feeding. Switch or not the header.
(ps-print-version): New version number (5.2.2).
(ps-windows-system): Include emx as a Windows system.
(ps-setup, ps-begin-file, ps-color-values, ps-screen-to-bit-face)
(ps-generate-postscript-with-faces, ps-generate-postscript-with-faces)
(ps-background-text): Code fix.
(ps-error-handler-message, ps-user-defined-prologue)
(ps-print-prologue-header, ps-printer-name)
(ps-print-control-characters, ps-n-up-filling, ps-zebra-color)
(ps-line-number-step, ps-spool-config, ps-default-fg, ps-default-bg)
(ps-use-face-background): Customization fix.
(ps-n-up-database): Data fix.
(ps-warn-paper-type, ps-zebra-stripe-follow, ps-manual-feed)
(ps-switch-header): New vars.
(ps-xemacs-color-name, ps-face-foreground-name)
(ps-face-background-name, ps-boolean-constant): New funs.
2000-06-07 15:34:55 +00:00
|
|
|
|
(defcustom ps-manual-feed nil
|
|
|
|
|
"*Non-nil means the printer will manually feed paper.
|
|
|
|
|
|
|
|
|
|
If it's nil, automatic feeding takes place."
|
|
|
|
|
:type 'boolean
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
XEmacs compatibility. Doc fix. Can select page size
with/without giving an error if PostScript printer doesn't have this
kind of page size. Zebra Stripe continues or restarts on next page.
Manual/automatic paper feeding. Switch or not the header.
(ps-print-version): New version number (5.2.2).
(ps-windows-system): Include emx as a Windows system.
(ps-setup, ps-begin-file, ps-color-values, ps-screen-to-bit-face)
(ps-generate-postscript-with-faces, ps-generate-postscript-with-faces)
(ps-background-text): Code fix.
(ps-error-handler-message, ps-user-defined-prologue)
(ps-print-prologue-header, ps-printer-name)
(ps-print-control-characters, ps-n-up-filling, ps-zebra-color)
(ps-line-number-step, ps-spool-config, ps-default-fg, ps-default-bg)
(ps-use-face-background): Customization fix.
(ps-n-up-database): Data fix.
(ps-warn-paper-type, ps-zebra-stripe-follow, ps-manual-feed)
(ps-switch-header): New vars.
(ps-xemacs-color-name, ps-face-foreground-name)
(ps-face-background-name, ps-boolean-constant): New funs.
2000-06-07 15:34:55 +00:00
|
|
|
|
:group 'ps-print-printer)
|
|
|
|
|
|
2000-12-29 11:48:50 +00:00
|
|
|
|
(defcustom ps-end-with-control-d (and ps-windows-system t)
|
(ps-end-job): Bind case-fold-search only after
switching to ps-spool-buffer.
Line number font customization. PostScript: Lines and
PageCount are initialized on each page. Doc Fix.
(ps-print-version): New version number (6.3.2).
(ps-lpr-switches, ps-font-info-database, ps-font-size)
(ps-header-font-size, ps-header-title-font-size, ps-left-header)
(ps-right-header): Customization fix.
(ps-setup, ps-select-font, ps-begin-file, ps-header-sheet, ps-end-job):
Fix code.
(ps-end-with-control-d, ps-line-number-font, ps-line-number-font-size):
New vars.
2000-11-30 13:20:49 +00:00
|
|
|
|
"*Non-nil means insert C-d at end of PostScript file generated."
|
Line and paragraph spacing feature. Region to cut
out when printing. Doc fix.
(ps-print-version): New version number (6.5).
(ps-line-spacing, ps-paragraph-spacing, ps-paragraph-regexp): New
vars. Line and paragraph spacing feature.
(ps-begin-cut-regexp, ps-end-cut-regexp): New vars. Region to cut
out when printing.
(ps-setup, ps-nb-pages, ps-get-page-dimensions, ps-begin-file)
(ps-get-font-size, ps-begin-job, ps-continue-line)
(ps-plot-region): Code fix.
(ps-print-prologue-2): Var eliminated.
(ps-line-spacing-internal, ps-paragraph-spacing-internal): New
internal vars.
(ps-get-size): New fun.
(ps-output-string-prim, ps-init-output-queue, ps-print-page-p)
(ps-next-line): Replace defun by defsubst.
(ps-mule-plot-string): Autoload doc fix.
(ps-mule-generate-font): New arg HEADER-P. If it is
non-nil, generate font for the header strings.
(ps-mule-prepare-font): Likewise.
(ps-mule-generate-glyphs): Likewise.
(ps-mule-string-encoding): Likewise.
(ps-mule-header-charsets): New variable.
(ps-mule-encode-header-string): New function.
(ps-mule-header-string-charsets): New function.
(ps-mule-begin-job): Check charsets in the header strings. If there
are non-ASCII and non-Latin1 charsets, prepare fonts for them.
2001-04-02 10:35:07 +00:00
|
|
|
|
:version "21.1"
|
(ps-end-job): Bind case-fold-search only after
switching to ps-spool-buffer.
Line number font customization. PostScript: Lines and
PageCount are initialized on each page. Doc Fix.
(ps-print-version): New version number (6.3.2).
(ps-lpr-switches, ps-font-info-database, ps-font-size)
(ps-header-font-size, ps-header-title-font-size, ps-left-header)
(ps-right-header): Customization fix.
(ps-setup, ps-select-font, ps-begin-file, ps-header-sheet, ps-end-job):
Fix code.
(ps-end-with-control-d, ps-line-number-font, ps-line-number-font-size):
New vars.
2000-11-30 13:20:49 +00:00
|
|
|
|
:type 'boolean
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
(ps-end-job): Bind case-fold-search only after
switching to ps-spool-buffer.
Line number font customization. PostScript: Lines and
PageCount are initialized on each page. Doc Fix.
(ps-print-version): New version number (6.3.2).
(ps-lpr-switches, ps-font-info-database, ps-font-size)
(ps-header-font-size, ps-header-title-font-size, ps-left-header)
(ps-right-header): Customization fix.
(ps-setup, ps-select-font, ps-begin-file, ps-header-sheet, ps-end-job):
Fix code.
(ps-end-with-control-d, ps-line-number-font, ps-line-number-font-size):
New vars.
2000-11-30 13:20:49 +00:00
|
|
|
|
:group 'ps-print-printer)
|
|
|
|
|
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
;;; Page layout
|
1995-01-20 06:09:03 +00:00
|
|
|
|
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
;; All page dimensions are in PostScript points.
|
|
|
|
|
;; 1 inch == 2.54 cm == 72 points
|
|
|
|
|
;; 1 cm == (/ 1 2.54) inch == (/ 72 2.54) points
|
|
|
|
|
|
|
|
|
|
;; Letter 8.5 inch x 11.0 inch
|
|
|
|
|
;; Legal 8.5 inch x 14.0 inch
|
|
|
|
|
;; A4 8.26 inch x 11.69 inch = 21.0 cm x 29.7 cm
|
|
|
|
|
|
|
|
|
|
;; LetterSmall 7.68 inch x 10.16 inch
|
|
|
|
|
;; Tabloid 11.0 inch x 17.0 inch
|
|
|
|
|
;; Ledger 17.0 inch x 11.0 inch
|
|
|
|
|
;; Statement 5.5 inch x 8.5 inch
|
|
|
|
|
;; Executive 7.5 inch x 10.0 inch
|
|
|
|
|
;; A3 11.69 inch x 16.5 inch = 29.7 cm x 42.0 cm
|
|
|
|
|
;; A4Small 7.47 inch x 10.85 inch
|
|
|
|
|
;; B4 10.125 inch x 14.33 inch
|
|
|
|
|
;; B5 7.16 inch x 10.125 inch
|
|
|
|
|
|
2002-09-10 16:49:47 +00:00
|
|
|
|
;;;###autoload
|
1997-04-12 01:50:50 +00:00
|
|
|
|
(defcustom ps-page-dimensions-database
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
(list (list 'a4 (/ (* 72 21.0) 2.54) (/ (* 72 29.7) 2.54) "A4")
|
|
|
|
|
(list 'a3 (/ (* 72 29.7) 2.54) (/ (* 72 42.0) 2.54) "A3")
|
|
|
|
|
(list 'letter (* 72 8.5) (* 72 11.0) "Letter")
|
|
|
|
|
(list 'legal (* 72 8.5) (* 72 14.0) "Legal")
|
|
|
|
|
(list 'letter-small (* 72 7.68) (* 72 10.16) "LetterSmall")
|
|
|
|
|
(list 'tabloid (* 72 11.0) (* 72 17.0) "Tabloid")
|
|
|
|
|
(list 'ledger (* 72 17.0) (* 72 11.0) "Ledger")
|
|
|
|
|
(list 'statement (* 72 5.5) (* 72 8.5) "Statement")
|
|
|
|
|
(list 'executive (* 72 7.5) (* 72 10.0) "Executive")
|
|
|
|
|
(list 'a4small (* 72 7.47) (* 72 10.85) "A4Small")
|
|
|
|
|
(list 'b4 (* 72 10.125) (* 72 14.33) "B4")
|
|
|
|
|
(list 'b5 (* 72 7.16) (* 72 10.125) "B5"))
|
|
|
|
|
"*List associating a symbolic paper type to its width, height and doc media.
|
|
|
|
|
See `ps-paper-type'."
|
1997-04-12 01:50:50 +00:00
|
|
|
|
:type '(repeat (list :tag "Paper Type"
|
|
|
|
|
(symbol :tag "Name")
|
|
|
|
|
(number :tag "Width")
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
(number :tag "Height")
|
|
|
|
|
(string :tag "Media")))
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
:group 'ps-print-page)
|
1997-04-12 01:50:50 +00:00
|
|
|
|
|
Some comment, doc and bug fixes.
(ps-print-version): New version number (3.05.3) and doc fix.
(ps-output-string-prim, ps-begin-job, ps-control-character)
(ps-plot-region): Bug fix.
(ps-print-control-characters): New custom var.
(ps-string-escape-codes, ps-string-control-codes): New var.
(ps-color-device, ps-font-lock-face-attributes, ps-eval-switch)
(ps-flatten-list, ps-flatten-list-1): New fn.
(ps-setup): Update current setup.
(ps-begin-file): Adjust PostScript header file.
(ps-plot, ps-face-attribute-list): Little programming improvement.
(ps-print-prologue-1): Replace NumberOfZebra by ZebraHeight.
(ps-print-without-faces, ps-print-with-faces): Little reprogramming.
(ps-plot-with-face): Get color only on color screen device.
(ps-build-reference-face-lists): Handle obsolete
font-lock-face-attributes.
(ps-print-ensure-fontified): Little programming setting.
(ps-generate-postscript-with-faces): Adjust initializations, get color
only on color screen device.
(ps-generate): Replace (if A B) by (and A B).
(ps-do-despool): Dynamic evaluation for ps-lpr-switches,
Replace (if A B) by (and A B).
(color-instance-rgb-components, ps-color-values): Replace
pixel-components by color-instance-rgb-components.
(ps-xemacs-face-kind-p): Replace face-font by face-font-instance,
replace x-font-properties by font-instance-properties.
1997-12-25 18:33:52 +00:00
|
|
|
|
;;;###autoload
|
1997-04-12 01:50:50 +00:00
|
|
|
|
(defcustom ps-paper-type 'letter
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
"*Specify the size of paper to format for.
|
1997-01-16 05:09:21 +00:00
|
|
|
|
Should be one of the paper types defined in `ps-page-dimensions-database', for
|
1997-04-12 01:50:50 +00:00
|
|
|
|
example `letter', `legal' or `a4'."
|
|
|
|
|
:type '(symbol :validate (lambda (wid)
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
(if (assq (widget-value wid)
|
|
|
|
|
ps-page-dimensions-database)
|
1997-04-12 01:50:50 +00:00
|
|
|
|
nil
|
|
|
|
|
(widget-put wid :error "Unknown paper size")
|
|
|
|
|
wid)))
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
:group 'ps-print-page)
|
1997-04-12 01:50:50 +00:00
|
|
|
|
|
XEmacs compatibility. Doc fix. Can select page size
with/without giving an error if PostScript printer doesn't have this
kind of page size. Zebra Stripe continues or restarts on next page.
Manual/automatic paper feeding. Switch or not the header.
(ps-print-version): New version number (5.2.2).
(ps-windows-system): Include emx as a Windows system.
(ps-setup, ps-begin-file, ps-color-values, ps-screen-to-bit-face)
(ps-generate-postscript-with-faces, ps-generate-postscript-with-faces)
(ps-background-text): Code fix.
(ps-error-handler-message, ps-user-defined-prologue)
(ps-print-prologue-header, ps-printer-name)
(ps-print-control-characters, ps-n-up-filling, ps-zebra-color)
(ps-line-number-step, ps-spool-config, ps-default-fg, ps-default-bg)
(ps-use-face-background): Customization fix.
(ps-n-up-database): Data fix.
(ps-warn-paper-type, ps-zebra-stripe-follow, ps-manual-feed)
(ps-switch-header): New vars.
(ps-xemacs-color-name, ps-face-foreground-name)
(ps-face-background-name, ps-boolean-constant): New funs.
2000-06-07 15:34:55 +00:00
|
|
|
|
(defcustom ps-warn-paper-type t
|
|
|
|
|
"*Non-nil means give an error if paper size is not equal to `ps-paper-type'.
|
|
|
|
|
|
|
|
|
|
It's used when `ps-spool-config' is set to `setpagedevice'."
|
|
|
|
|
:type 'boolean
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
XEmacs compatibility. Doc fix. Can select page size
with/without giving an error if PostScript printer doesn't have this
kind of page size. Zebra Stripe continues or restarts on next page.
Manual/automatic paper feeding. Switch or not the header.
(ps-print-version): New version number (5.2.2).
(ps-windows-system): Include emx as a Windows system.
(ps-setup, ps-begin-file, ps-color-values, ps-screen-to-bit-face)
(ps-generate-postscript-with-faces, ps-generate-postscript-with-faces)
(ps-background-text): Code fix.
(ps-error-handler-message, ps-user-defined-prologue)
(ps-print-prologue-header, ps-printer-name)
(ps-print-control-characters, ps-n-up-filling, ps-zebra-color)
(ps-line-number-step, ps-spool-config, ps-default-fg, ps-default-bg)
(ps-use-face-background): Customization fix.
(ps-n-up-database): Data fix.
(ps-warn-paper-type, ps-zebra-stripe-follow, ps-manual-feed)
(ps-switch-header): New vars.
(ps-xemacs-color-name, ps-face-foreground-name)
(ps-face-background-name, ps-boolean-constant): New funs.
2000-06-07 15:34:55 +00:00
|
|
|
|
:group 'ps-print-page)
|
|
|
|
|
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
(defcustom ps-landscape-mode nil
|
1997-04-12 01:50:50 +00:00
|
|
|
|
"*Non-nil means print in landscape mode."
|
|
|
|
|
:type 'boolean
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
:group 'ps-print-page)
|
1997-04-12 01:50:50 +00:00
|
|
|
|
|
2000-04-29 19:27:49 +00:00
|
|
|
|
(defcustom ps-print-upside-down nil
|
2002-09-09 19:26:40 +00:00
|
|
|
|
"*Non-nil means print upside-down (that is, rotated by 180 degrees)."
|
2000-04-29 19:27:49 +00:00
|
|
|
|
:type 'boolean
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
:version "21.1"
|
2000-04-29 19:27:49 +00:00
|
|
|
|
:group 'ps-print-page)
|
|
|
|
|
|
Fix bug: if ^L is the very first buffer character,
ps-print crashes. New feature: page selection for printing. Create
raw-text-unix coding system for XEmacs. Doc fix.
(ps-print-version): New version number (5.2.3).
(ps-plot-region): Bug fix.
(ps-setup, ps-init-output-queue, ps-output, ps-begin-job, ps-end-file)
(ps-header-sheet, ps-generate, ps-end-job): Code fix.
(ps-restore-selected-pages, ps-selected-pages, ps-print-page-p): New
funs.
(ps-selected-pages, ps-last-selected-pages, ps-first-page)
(ps-last-page): New vars.
2000-06-22 12:27:49 +00:00
|
|
|
|
(defcustom ps-selected-pages nil
|
|
|
|
|
"*Specify which pages to print.
|
|
|
|
|
|
2002-09-09 19:26:40 +00:00
|
|
|
|
If nil, print all pages.
|
Fix bug: if ^L is the very first buffer character,
ps-print crashes. New feature: page selection for printing. Create
raw-text-unix coding system for XEmacs. Doc fix.
(ps-print-version): New version number (5.2.3).
(ps-plot-region): Bug fix.
(ps-setup, ps-init-output-queue, ps-output, ps-begin-job, ps-end-file)
(ps-header-sheet, ps-generate, ps-end-job): Code fix.
(ps-restore-selected-pages, ps-selected-pages, ps-print-page-p): New
funs.
(ps-selected-pages, ps-last-selected-pages, ps-first-page)
(ps-last-page): New vars.
2000-06-22 12:27:49 +00:00
|
|
|
|
|
2002-09-09 19:26:40 +00:00
|
|
|
|
If a list, the lists element may be an integer or a cons cell (FROM . TO)
|
Fix bug: if ^L is the very first buffer character,
ps-print crashes. New feature: page selection for printing. Create
raw-text-unix coding system for XEmacs. Doc fix.
(ps-print-version): New version number (5.2.3).
(ps-plot-region): Bug fix.
(ps-setup, ps-init-output-queue, ps-output, ps-begin-job, ps-end-file)
(ps-header-sheet, ps-generate, ps-end-job): Code fix.
(ps-restore-selected-pages, ps-selected-pages, ps-print-page-p): New
funs.
(ps-selected-pages, ps-last-selected-pages, ps-first-page)
(ps-last-page): New vars.
2000-06-22 12:27:49 +00:00
|
|
|
|
designating FROM page to TO page; any invalid element is ignored, that is, an
|
2003-03-06 01:54:17 +00:00
|
|
|
|
integer lesser than one or if FROM is greater than TO.
|
Fix bug: if ^L is the very first buffer character,
ps-print crashes. New feature: page selection for printing. Create
raw-text-unix coding system for XEmacs. Doc fix.
(ps-print-version): New version number (5.2.3).
(ps-plot-region): Bug fix.
(ps-setup, ps-init-output-queue, ps-output, ps-begin-job, ps-end-file)
(ps-header-sheet, ps-generate, ps-end-job): Code fix.
(ps-restore-selected-pages, ps-selected-pages, ps-print-page-p): New
funs.
(ps-selected-pages, ps-last-selected-pages, ps-first-page)
(ps-last-page): New vars.
2000-06-22 12:27:49 +00:00
|
|
|
|
|
|
|
|
|
Otherwise, it's treated as nil.
|
|
|
|
|
|
2002-09-09 19:26:40 +00:00
|
|
|
|
After ps-print processing `ps-selected-pages' is set to nil. But the
|
|
|
|
|
latest `ps-selected-pages' is saved in `ps-last-selected-pages' (which
|
|
|
|
|
see). So you can restore the latest selected pages by using
|
|
|
|
|
`ps-last-selected-pages' or with the `ps-restore-selected-pages'
|
|
|
|
|
command (which see).
|
2000-10-31 11:54:38 +00:00
|
|
|
|
|
|
|
|
|
See also `ps-even-or-odd-pages'."
|
Fix bug: if ^L is the very first buffer character,
ps-print crashes. New feature: page selection for printing. Create
raw-text-unix coding system for XEmacs. Doc fix.
(ps-print-version): New version number (5.2.3).
(ps-plot-region): Bug fix.
(ps-setup, ps-init-output-queue, ps-output, ps-begin-job, ps-end-file)
(ps-header-sheet, ps-generate, ps-end-job): Code fix.
(ps-restore-selected-pages, ps-selected-pages, ps-print-page-p): New
funs.
(ps-selected-pages, ps-last-selected-pages, ps-first-page)
(ps-last-page): New vars.
2000-06-22 12:27:49 +00:00
|
|
|
|
:type '(repeat :tag "Selected Pages"
|
|
|
|
|
(radio :tag "Page"
|
|
|
|
|
(integer :tag "Number")
|
|
|
|
|
(cons :tag "Range"
|
|
|
|
|
(integer :tag "From")
|
|
|
|
|
(integer :tag "To"))))
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
Fix bug: if ^L is the very first buffer character,
ps-print crashes. New feature: page selection for printing. Create
raw-text-unix coding system for XEmacs. Doc fix.
(ps-print-version): New version number (5.2.3).
(ps-plot-region): Bug fix.
(ps-setup, ps-init-output-queue, ps-output, ps-begin-job, ps-end-file)
(ps-header-sheet, ps-generate, ps-end-job): Code fix.
(ps-restore-selected-pages, ps-selected-pages, ps-print-page-p): New
funs.
(ps-selected-pages, ps-last-selected-pages, ps-first-page)
(ps-last-page): New vars.
2000-06-22 12:27:49 +00:00
|
|
|
|
:group 'ps-print-page)
|
|
|
|
|
|
2000-08-29 10:51:52 +00:00
|
|
|
|
(defcustom ps-even-or-odd-pages nil
|
|
|
|
|
"*Specify if it prints even/odd pages.
|
|
|
|
|
|
|
|
|
|
Valid values are:
|
|
|
|
|
|
|
|
|
|
nil print all pages.
|
|
|
|
|
|
2000-11-02 12:04:59 +00:00
|
|
|
|
`even-page' print only even pages.
|
|
|
|
|
|
|
|
|
|
`odd-page' print only odd pages.
|
|
|
|
|
|
|
|
|
|
`even-sheet' print only even sheets.
|
2000-12-29 11:48:50 +00:00
|
|
|
|
That is, if `ps-n-up-printing' is 1, it behaves as `even-page';
|
|
|
|
|
but for values greater than 1, it'll print only the even sheet
|
|
|
|
|
of paper.
|
2000-08-29 10:51:52 +00:00
|
|
|
|
|
2000-11-02 12:04:59 +00:00
|
|
|
|
`odd-sheet' print only odd sheets.
|
2000-12-29 11:48:50 +00:00
|
|
|
|
That is, if `ps-n-up-printing' is 1, it behaves as `odd-page';
|
|
|
|
|
but for values greater than 1, it'll print only the odd sheet
|
|
|
|
|
of paper.
|
2000-08-29 10:51:52 +00:00
|
|
|
|
|
2000-10-31 11:54:38 +00:00
|
|
|
|
Any other value is treated as nil.
|
|
|
|
|
|
|
|
|
|
If you set `ps-selected-pages' (see it for documentation), first the pages are
|
|
|
|
|
filtered by `ps-selected-pages' and then by `ps-even-or-odd-pages'. For
|
|
|
|
|
example, if we have:
|
|
|
|
|
|
2000-11-02 12:04:59 +00:00
|
|
|
|
(setq ps-selected-pages '(1 4 (6 . 10) (12 . 16) 20))
|
2000-10-31 11:54:38 +00:00
|
|
|
|
|
2000-11-02 12:04:59 +00:00
|
|
|
|
Combining with `ps-even-or-odd-pages' and `ps-n-up-printing', we have:
|
2000-10-31 11:54:38 +00:00
|
|
|
|
|
2000-11-02 12:04:59 +00:00
|
|
|
|
`ps-n-up-printing' = 1:
|
2000-10-31 11:54:38 +00:00
|
|
|
|
`ps-even-or-odd-pages' PAGES PRINTED
|
2000-11-02 12:04:59 +00:00
|
|
|
|
nil 1, 4, 6, 7, 8, 9, 10, 12, 13, 14, 15, 16, 20
|
|
|
|
|
even-page 4, 6, 8, 10, 12, 14, 16, 20
|
|
|
|
|
odd-page 1, 7, 9, 13, 15
|
|
|
|
|
even-sheet 4, 6, 8, 10, 12, 14, 16, 20
|
|
|
|
|
odd-sheet 1, 7, 9, 13, 15
|
|
|
|
|
|
|
|
|
|
`ps-n-up-printing' = 2:
|
|
|
|
|
`ps-even-or-odd-pages' PAGES PRINTED
|
|
|
|
|
nil 1/4, 6/7, 8/9, 10/12, 13/14, 15/16, 20
|
|
|
|
|
even-page 4/6, 8/10, 12/14, 16/20
|
|
|
|
|
odd-page 1/7, 9/13, 15
|
|
|
|
|
even-sheet 6/7, 10/12, 15/16
|
|
|
|
|
odd-sheet 1/4, 8/9, 13/14, 20
|
|
|
|
|
|
|
|
|
|
So even-page/odd-page are about page parity and even-sheet/odd-sheet are about
|
|
|
|
|
sheet parity."
|
2000-08-29 10:51:52 +00:00
|
|
|
|
:type '(choice :menu-tag "Print Even/Odd Pages"
|
|
|
|
|
:tag "Print Even/Odd Pages"
|
|
|
|
|
(const :tag "All Pages" nil)
|
2000-11-02 12:04:59 +00:00
|
|
|
|
(const :tag "Only Even Pages" even-page)
|
|
|
|
|
(const :tag "Only Odd Pages" odd-page)
|
|
|
|
|
(const :tag "Only Even Sheets" even-sheet)
|
|
|
|
|
(const :tag "Only Odd Sheets" odd-sheet))
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
2000-08-29 10:51:52 +00:00
|
|
|
|
:group 'ps-print-page)
|
|
|
|
|
|
Some comment, doc and bug fixes.
(ps-print-version): New version number (3.05.3) and doc fix.
(ps-output-string-prim, ps-begin-job, ps-control-character)
(ps-plot-region): Bug fix.
(ps-print-control-characters): New custom var.
(ps-string-escape-codes, ps-string-control-codes): New var.
(ps-color-device, ps-font-lock-face-attributes, ps-eval-switch)
(ps-flatten-list, ps-flatten-list-1): New fn.
(ps-setup): Update current setup.
(ps-begin-file): Adjust PostScript header file.
(ps-plot, ps-face-attribute-list): Little programming improvement.
(ps-print-prologue-1): Replace NumberOfZebra by ZebraHeight.
(ps-print-without-faces, ps-print-with-faces): Little reprogramming.
(ps-plot-with-face): Get color only on color screen device.
(ps-build-reference-face-lists): Handle obsolete
font-lock-face-attributes.
(ps-print-ensure-fontified): Little programming setting.
(ps-generate-postscript-with-faces): Adjust initializations, get color
only on color screen device.
(ps-generate): Replace (if A B) by (and A B).
(ps-do-despool): Dynamic evaluation for ps-lpr-switches,
Replace (if A B) by (and A B).
(color-instance-rgb-components, ps-color-values): Replace
pixel-components by color-instance-rgb-components.
(ps-xemacs-face-kind-p): Replace face-font by face-font-instance,
replace x-font-properties by font-instance-properties.
1997-12-25 18:33:52 +00:00
|
|
|
|
(defcustom ps-print-control-characters 'control-8-bit
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
"*Specify the printable form for control and 8-bit characters.
|
|
|
|
|
That is, instead of sending, for example, a ^D (\\004) to printer,
|
1998-08-28 12:33:52 +00:00
|
|
|
|
it is sent the string \"^D\".
|
1998-05-06 04:06:30 +00:00
|
|
|
|
|
Some comment, doc and bug fixes.
(ps-print-version): New version number (3.05.3) and doc fix.
(ps-output-string-prim, ps-begin-job, ps-control-character)
(ps-plot-region): Bug fix.
(ps-print-control-characters): New custom var.
(ps-string-escape-codes, ps-string-control-codes): New var.
(ps-color-device, ps-font-lock-face-attributes, ps-eval-switch)
(ps-flatten-list, ps-flatten-list-1): New fn.
(ps-setup): Update current setup.
(ps-begin-file): Adjust PostScript header file.
(ps-plot, ps-face-attribute-list): Little programming improvement.
(ps-print-prologue-1): Replace NumberOfZebra by ZebraHeight.
(ps-print-without-faces, ps-print-with-faces): Little reprogramming.
(ps-plot-with-face): Get color only on color screen device.
(ps-build-reference-face-lists): Handle obsolete
font-lock-face-attributes.
(ps-print-ensure-fontified): Little programming setting.
(ps-generate-postscript-with-faces): Adjust initializations, get color
only on color screen device.
(ps-generate): Replace (if A B) by (and A B).
(ps-do-despool): Dynamic evaluation for ps-lpr-switches,
Replace (if A B) by (and A B).
(color-instance-rgb-components, ps-color-values): Replace
pixel-components by color-instance-rgb-components.
(ps-xemacs-face-kind-p): Replace face-font by face-font-instance,
replace x-font-properties by font-instance-properties.
1997-12-25 18:33:52 +00:00
|
|
|
|
Valid values are:
|
1998-05-06 04:06:30 +00:00
|
|
|
|
|
1998-05-16 03:49:47 +00:00
|
|
|
|
`8-bit' This is the value to use when you want an ASCII encoding of
|
User option for multibyte buffer handling and doc fix.
(ps-multibyte-buffer): New user option.
(ps-setup): Print new user option.
(ps-print-quote): New fun.
(ps-color-p, ps-mule-font-info-database-latin): New var.
(ps-default-color, ps-mule-font-info-database)
(ps-mule-font-info-database-ps-bdf): Adjust initialization.
(ps-mule-get-font-spec, ps-mule-begin, ps-begin-file)
(ps-plot-with-face, ps-generate-postscript-with-faces, ps-generate):
Little code improvement.
(ps-mule-initialize): Initialize ps-mule-font-info-database.
(ps-print-prologue-header, ps-font-family, ps-font-size)
(ps-header-font-family, ps-header-font-size, ps-header-title-font-size)
(ps-build-face-reference, ps-mule-font-info-database-bdf)
(ps-mule-external-libraries, ps-mule-init-external-library)
(ps-mule-prepare-font, ps-mule-find-wrappoint, ps-mule-plot-string): doc
fix.
To make it work also on Emacs 20.2 and the earlier
version, check the value of mule-version.
(ps-print-version): New version number (4.1.1) and doc
fix.
(ps-print-prologue-header): New user option.
(ps-color-values, ps-xemacs-face-kind-p, ps-mapper, ps-extent-sorter):
Conditional compilation for GNU Emacs and emacsens.
(ps-generate-postscript-with-faces): Skip invisible text better.
(ps-setup): Print new user option.
(ps-print-preprint): Check if input file name exists and is unwritable.
(ps-begin-file): Adjust PostScript prologue header for duplex printers
and insert user PostScript prologue header comments.
(ps-mule-encode-bit, ps-mule-string-ascii, ps-mule-string-encoding): New
funs.
(dos-ps-printer, lazy-lock-fontify-buffer): Eliminated.
(ps-mule-prologue, ps-mule-cmpchar-prologue, ps-mule-bitmap-prologue):
PostScript programming normalization.
(ps-mule-encode-7bit, ps-mule-encode-8bit, ps-mule-generate-font)
(ps-mule-generate-glyphs, ps-mule-prepare-font, ps-mule-plot-string)
(ps-mule-skip-same-charset, ps-mule-plot-rule-cmpchar)
(ps-mule-plot-cmpchar, ps-mule-prepare-cmpchar-font)
(ps-mule-initialize, ps-mule-begin, ps-face-bold-p, ps-do-despool):
Programming style normalization.
1998-10-26 20:22:17 +00:00
|
|
|
|
any control or non-ASCII character. Control characters are
|
|
|
|
|
encoded as \"^D\", and non-ASCII characters have an
|
|
|
|
|
octal encoding.
|
1998-05-06 04:06:30 +00:00
|
|
|
|
|
1998-05-16 03:49:47 +00:00
|
|
|
|
`control-8-bit' This is the value to use when you want an ASCII encoding of
|
User option for multibyte buffer handling and doc fix.
(ps-multibyte-buffer): New user option.
(ps-setup): Print new user option.
(ps-print-quote): New fun.
(ps-color-p, ps-mule-font-info-database-latin): New var.
(ps-default-color, ps-mule-font-info-database)
(ps-mule-font-info-database-ps-bdf): Adjust initialization.
(ps-mule-get-font-spec, ps-mule-begin, ps-begin-file)
(ps-plot-with-face, ps-generate-postscript-with-faces, ps-generate):
Little code improvement.
(ps-mule-initialize): Initialize ps-mule-font-info-database.
(ps-print-prologue-header, ps-font-family, ps-font-size)
(ps-header-font-family, ps-header-font-size, ps-header-title-font-size)
(ps-build-face-reference, ps-mule-font-info-database-bdf)
(ps-mule-external-libraries, ps-mule-init-external-library)
(ps-mule-prepare-font, ps-mule-find-wrappoint, ps-mule-plot-string): doc
fix.
To make it work also on Emacs 20.2 and the earlier
version, check the value of mule-version.
(ps-print-version): New version number (4.1.1) and doc
fix.
(ps-print-prologue-header): New user option.
(ps-color-values, ps-xemacs-face-kind-p, ps-mapper, ps-extent-sorter):
Conditional compilation for GNU Emacs and emacsens.
(ps-generate-postscript-with-faces): Skip invisible text better.
(ps-setup): Print new user option.
(ps-print-preprint): Check if input file name exists and is unwritable.
(ps-begin-file): Adjust PostScript prologue header for duplex printers
and insert user PostScript prologue header comments.
(ps-mule-encode-bit, ps-mule-string-ascii, ps-mule-string-encoding): New
funs.
(dos-ps-printer, lazy-lock-fontify-buffer): Eliminated.
(ps-mule-prologue, ps-mule-cmpchar-prologue, ps-mule-bitmap-prologue):
PostScript programming normalization.
(ps-mule-encode-7bit, ps-mule-encode-8bit, ps-mule-generate-font)
(ps-mule-generate-glyphs, ps-mule-prepare-font, ps-mule-plot-string)
(ps-mule-skip-same-charset, ps-mule-plot-rule-cmpchar)
(ps-mule-plot-cmpchar, ps-mule-prepare-cmpchar-font)
(ps-mule-initialize, ps-mule-begin, ps-face-bold-p, ps-do-despool):
Programming style normalization.
1998-10-26 20:22:17 +00:00
|
|
|
|
any control character, whether it is 7 or 8-bit.
|
|
|
|
|
European 8-bits accented characters are printed according
|
|
|
|
|
the current font.
|
1998-05-06 04:06:30 +00:00
|
|
|
|
|
1998-09-23 22:11:56 +00:00
|
|
|
|
`control' Only ASCII control characters have an ASCII encoding.
|
User option for multibyte buffer handling and doc fix.
(ps-multibyte-buffer): New user option.
(ps-setup): Print new user option.
(ps-print-quote): New fun.
(ps-color-p, ps-mule-font-info-database-latin): New var.
(ps-default-color, ps-mule-font-info-database)
(ps-mule-font-info-database-ps-bdf): Adjust initialization.
(ps-mule-get-font-spec, ps-mule-begin, ps-begin-file)
(ps-plot-with-face, ps-generate-postscript-with-faces, ps-generate):
Little code improvement.
(ps-mule-initialize): Initialize ps-mule-font-info-database.
(ps-print-prologue-header, ps-font-family, ps-font-size)
(ps-header-font-family, ps-header-font-size, ps-header-title-font-size)
(ps-build-face-reference, ps-mule-font-info-database-bdf)
(ps-mule-external-libraries, ps-mule-init-external-library)
(ps-mule-prepare-font, ps-mule-find-wrappoint, ps-mule-plot-string): doc
fix.
To make it work also on Emacs 20.2 and the earlier
version, check the value of mule-version.
(ps-print-version): New version number (4.1.1) and doc
fix.
(ps-print-prologue-header): New user option.
(ps-color-values, ps-xemacs-face-kind-p, ps-mapper, ps-extent-sorter):
Conditional compilation for GNU Emacs and emacsens.
(ps-generate-postscript-with-faces): Skip invisible text better.
(ps-setup): Print new user option.
(ps-print-preprint): Check if input file name exists and is unwritable.
(ps-begin-file): Adjust PostScript prologue header for duplex printers
and insert user PostScript prologue header comments.
(ps-mule-encode-bit, ps-mule-string-ascii, ps-mule-string-encoding): New
funs.
(dos-ps-printer, lazy-lock-fontify-buffer): Eliminated.
(ps-mule-prologue, ps-mule-cmpchar-prologue, ps-mule-bitmap-prologue):
PostScript programming normalization.
(ps-mule-encode-7bit, ps-mule-encode-8bit, ps-mule-generate-font)
(ps-mule-generate-glyphs, ps-mule-prepare-font, ps-mule-plot-string)
(ps-mule-skip-same-charset, ps-mule-plot-rule-cmpchar)
(ps-mule-plot-cmpchar, ps-mule-prepare-cmpchar-font)
(ps-mule-initialize, ps-mule-begin, ps-face-bold-p, ps-do-despool):
Programming style normalization.
1998-10-26 20:22:17 +00:00
|
|
|
|
European 8-bits accented characters are printed according
|
|
|
|
|
the current font.
|
1998-05-06 04:06:30 +00:00
|
|
|
|
|
1998-05-16 03:49:47 +00:00
|
|
|
|
nil No ASCII encoding. Any character is printed according the
|
User option for multibyte buffer handling and doc fix.
(ps-multibyte-buffer): New user option.
(ps-setup): Print new user option.
(ps-print-quote): New fun.
(ps-color-p, ps-mule-font-info-database-latin): New var.
(ps-default-color, ps-mule-font-info-database)
(ps-mule-font-info-database-ps-bdf): Adjust initialization.
(ps-mule-get-font-spec, ps-mule-begin, ps-begin-file)
(ps-plot-with-face, ps-generate-postscript-with-faces, ps-generate):
Little code improvement.
(ps-mule-initialize): Initialize ps-mule-font-info-database.
(ps-print-prologue-header, ps-font-family, ps-font-size)
(ps-header-font-family, ps-header-font-size, ps-header-title-font-size)
(ps-build-face-reference, ps-mule-font-info-database-bdf)
(ps-mule-external-libraries, ps-mule-init-external-library)
(ps-mule-prepare-font, ps-mule-find-wrappoint, ps-mule-plot-string): doc
fix.
To make it work also on Emacs 20.2 and the earlier
version, check the value of mule-version.
(ps-print-version): New version number (4.1.1) and doc
fix.
(ps-print-prologue-header): New user option.
(ps-color-values, ps-xemacs-face-kind-p, ps-mapper, ps-extent-sorter):
Conditional compilation for GNU Emacs and emacsens.
(ps-generate-postscript-with-faces): Skip invisible text better.
(ps-setup): Print new user option.
(ps-print-preprint): Check if input file name exists and is unwritable.
(ps-begin-file): Adjust PostScript prologue header for duplex printers
and insert user PostScript prologue header comments.
(ps-mule-encode-bit, ps-mule-string-ascii, ps-mule-string-encoding): New
funs.
(dos-ps-printer, lazy-lock-fontify-buffer): Eliminated.
(ps-mule-prologue, ps-mule-cmpchar-prologue, ps-mule-bitmap-prologue):
PostScript programming normalization.
(ps-mule-encode-7bit, ps-mule-encode-8bit, ps-mule-generate-font)
(ps-mule-generate-glyphs, ps-mule-prepare-font, ps-mule-plot-string)
(ps-mule-skip-same-charset, ps-mule-plot-rule-cmpchar)
(ps-mule-plot-cmpchar, ps-mule-prepare-cmpchar-font)
(ps-mule-initialize, ps-mule-begin, ps-face-bold-p, ps-do-despool):
Programming style normalization.
1998-10-26 20:22:17 +00:00
|
|
|
|
current font.
|
1998-05-06 04:06:30 +00:00
|
|
|
|
|
Some comment, doc and bug fixes.
(ps-print-version): New version number (3.05.3) and doc fix.
(ps-output-string-prim, ps-begin-job, ps-control-character)
(ps-plot-region): Bug fix.
(ps-print-control-characters): New custom var.
(ps-string-escape-codes, ps-string-control-codes): New var.
(ps-color-device, ps-font-lock-face-attributes, ps-eval-switch)
(ps-flatten-list, ps-flatten-list-1): New fn.
(ps-setup): Update current setup.
(ps-begin-file): Adjust PostScript header file.
(ps-plot, ps-face-attribute-list): Little programming improvement.
(ps-print-prologue-1): Replace NumberOfZebra by ZebraHeight.
(ps-print-without-faces, ps-print-with-faces): Little reprogramming.
(ps-plot-with-face): Get color only on color screen device.
(ps-build-reference-face-lists): Handle obsolete
font-lock-face-attributes.
(ps-print-ensure-fontified): Little programming setting.
(ps-generate-postscript-with-faces): Adjust initializations, get color
only on color screen device.
(ps-generate): Replace (if A B) by (and A B).
(ps-do-despool): Dynamic evaluation for ps-lpr-switches,
Replace (if A B) by (and A B).
(color-instance-rgb-components, ps-color-values): Replace
pixel-components by color-instance-rgb-components.
(ps-xemacs-face-kind-p): Replace face-font by face-font-instance,
replace x-font-properties by font-instance-properties.
1997-12-25 18:33:52 +00:00
|
|
|
|
Any other value is treated as nil."
|
XEmacs compatibility. Doc fix. Can select page size
with/without giving an error if PostScript printer doesn't have this
kind of page size. Zebra Stripe continues or restarts on next page.
Manual/automatic paper feeding. Switch or not the header.
(ps-print-version): New version number (5.2.2).
(ps-windows-system): Include emx as a Windows system.
(ps-setup, ps-begin-file, ps-color-values, ps-screen-to-bit-face)
(ps-generate-postscript-with-faces, ps-generate-postscript-with-faces)
(ps-background-text): Code fix.
(ps-error-handler-message, ps-user-defined-prologue)
(ps-print-prologue-header, ps-printer-name)
(ps-print-control-characters, ps-n-up-filling, ps-zebra-color)
(ps-line-number-step, ps-spool-config, ps-default-fg, ps-default-bg)
(ps-use-face-background): Customization fix.
(ps-n-up-database): Data fix.
(ps-warn-paper-type, ps-zebra-stripe-follow, ps-manual-feed)
(ps-switch-header): New vars.
(ps-xemacs-color-name, ps-face-foreground-name)
(ps-face-background-name, ps-boolean-constant): New funs.
2000-06-07 15:34:55 +00:00
|
|
|
|
:type '(choice :menu-tag "Control Char"
|
|
|
|
|
:tag "Control Char"
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
(const 8-bit) (const control-8-bit)
|
2000-04-13 19:15:23 +00:00
|
|
|
|
(const control) (const :tag "nil" nil))
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
PostScript programming fix for ghostview, doc fix.
(ps-print-version): New version number (5.1.3).
(ps-begin-file, ps-begin-job, ps-set-color, ps-do-despool, ps-setup)
(ps-insert-file, ps-output-boolean, ps-plot-with-face)
(ps-generate-postscript-with-faces): Code fix.
(ps-color-values): XEmacs compatibility.
(ps-print-background-image, ps-print-background-text, ps-printer-name)
(ps-default-fg, ps-default-bg): Adjust customization.
(ps-zebra-color): Adjust customization, renaming old ps-zebra-gray var.
(ps-color-scale): Renaming old ps-color-value fun.
(ps-print-headers): Replace ps-print-header group to avoid conflict
with ps-print-header variable.
(ps-print-miscellany): New group.
(ps-format-color, ps-rgb-color): New funs.
(ps-default-foreground): New var.
(ps-printer-name-option): New const.
2000-03-30 13:21:45 +00:00
|
|
|
|
:group 'ps-print-miscellany)
|
Some comment, doc and bug fixes.
(ps-print-version): New version number (3.05.3) and doc fix.
(ps-output-string-prim, ps-begin-job, ps-control-character)
(ps-plot-region): Bug fix.
(ps-print-control-characters): New custom var.
(ps-string-escape-codes, ps-string-control-codes): New var.
(ps-color-device, ps-font-lock-face-attributes, ps-eval-switch)
(ps-flatten-list, ps-flatten-list-1): New fn.
(ps-setup): Update current setup.
(ps-begin-file): Adjust PostScript header file.
(ps-plot, ps-face-attribute-list): Little programming improvement.
(ps-print-prologue-1): Replace NumberOfZebra by ZebraHeight.
(ps-print-without-faces, ps-print-with-faces): Little reprogramming.
(ps-plot-with-face): Get color only on color screen device.
(ps-build-reference-face-lists): Handle obsolete
font-lock-face-attributes.
(ps-print-ensure-fontified): Little programming setting.
(ps-generate-postscript-with-faces): Adjust initializations, get color
only on color screen device.
(ps-generate): Replace (if A B) by (and A B).
(ps-do-despool): Dynamic evaluation for ps-lpr-switches,
Replace (if A B) by (and A B).
(color-instance-rgb-components, ps-color-values): Replace
pixel-components by color-instance-rgb-components.
(ps-xemacs-face-kind-p): Replace face-font by face-font-instance,
replace x-font-properties by font-instance-properties.
1997-12-25 18:33:52 +00:00
|
|
|
|
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
(defcustom ps-n-up-printing 1
|
|
|
|
|
"*Specify the number of pages per sheet paper."
|
|
|
|
|
:type '(integer
|
|
|
|
|
:tag "N Up Printing"
|
|
|
|
|
:validate
|
|
|
|
|
(lambda (wid)
|
|
|
|
|
(if (and (< 0 (widget-value wid))
|
|
|
|
|
(<= (widget-value wid) 100))
|
|
|
|
|
nil
|
|
|
|
|
(widget-put
|
|
|
|
|
wid :error
|
|
|
|
|
"Number of pages per sheet paper must be between 1 and 100.")
|
|
|
|
|
wid)))
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
:group 'ps-print-n-up)
|
|
|
|
|
|
|
|
|
|
(defcustom ps-n-up-margin (/ (* 72 1.0) 2.54) ; 1 cm
|
|
|
|
|
"*Specify the margin in points between the sheet border and n-up printing."
|
|
|
|
|
:type 'number
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
:group 'ps-print-n-up)
|
|
|
|
|
|
|
|
|
|
(defcustom ps-n-up-border-p t
|
|
|
|
|
"*Non-nil means a border is drawn around each page."
|
|
|
|
|
:type 'boolean
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
:group 'ps-print-n-up)
|
|
|
|
|
|
|
|
|
|
(defcustom ps-n-up-filling 'left-top
|
|
|
|
|
"*Specify how page matrix is filled on each sheet of paper.
|
|
|
|
|
|
|
|
|
|
Following are the valid values for `ps-n-up-filling' with a filling example
|
|
|
|
|
using a 3x4 page matrix:
|
|
|
|
|
|
|
|
|
|
`left-top' 1 2 3 4 `left-bottom' 9 10 11 12
|
|
|
|
|
5 6 7 8 5 6 7 8
|
|
|
|
|
9 10 11 12 1 2 3 4
|
|
|
|
|
|
|
|
|
|
`right-top' 4 3 2 1 `right-bottom' 12 11 10 9
|
|
|
|
|
8 7 6 5 8 7 6 5
|
|
|
|
|
12 11 10 9 4 3 2 1
|
|
|
|
|
|
|
|
|
|
`top-left' 1 4 7 10 `bottom-left' 3 6 9 12
|
|
|
|
|
2 5 8 11 2 5 8 11
|
|
|
|
|
3 6 9 12 1 4 7 10
|
|
|
|
|
|
|
|
|
|
`top-right' 10 7 4 1 `bottom-right' 12 9 6 3
|
|
|
|
|
11 8 5 2 11 8 5 2
|
|
|
|
|
12 9 6 3 10 7 4 1
|
|
|
|
|
|
|
|
|
|
Any other value is treated as `left-top'."
|
XEmacs compatibility. Doc fix. Can select page size
with/without giving an error if PostScript printer doesn't have this
kind of page size. Zebra Stripe continues or restarts on next page.
Manual/automatic paper feeding. Switch or not the header.
(ps-print-version): New version number (5.2.2).
(ps-windows-system): Include emx as a Windows system.
(ps-setup, ps-begin-file, ps-color-values, ps-screen-to-bit-face)
(ps-generate-postscript-with-faces, ps-generate-postscript-with-faces)
(ps-background-text): Code fix.
(ps-error-handler-message, ps-user-defined-prologue)
(ps-print-prologue-header, ps-printer-name)
(ps-print-control-characters, ps-n-up-filling, ps-zebra-color)
(ps-line-number-step, ps-spool-config, ps-default-fg, ps-default-bg)
(ps-use-face-background): Customization fix.
(ps-n-up-database): Data fix.
(ps-warn-paper-type, ps-zebra-stripe-follow, ps-manual-feed)
(ps-switch-header): New vars.
(ps-xemacs-color-name, ps-face-foreground-name)
(ps-face-background-name, ps-boolean-constant): New funs.
2000-06-07 15:34:55 +00:00
|
|
|
|
:type '(choice :menu-tag "N-Up Filling"
|
|
|
|
|
:tag "N-Up Filling"
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
(const left-top) (const left-bottom)
|
|
|
|
|
(const right-top) (const right-bottom)
|
|
|
|
|
(const top-left) (const bottom-left)
|
|
|
|
|
(const top-right) (const bottom-right))
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
:group 'ps-print-n-up)
|
|
|
|
|
|
1997-04-12 01:50:50 +00:00
|
|
|
|
(defcustom ps-number-of-columns (if ps-landscape-mode 2 1)
|
2002-09-09 19:26:40 +00:00
|
|
|
|
"*Specify the number of columns."
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
:type 'number
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
PostScript programming fix for ghostview, doc fix.
(ps-print-version): New version number (5.1.3).
(ps-begin-file, ps-begin-job, ps-set-color, ps-do-despool, ps-setup)
(ps-insert-file, ps-output-boolean, ps-plot-with-face)
(ps-generate-postscript-with-faces): Code fix.
(ps-color-values): XEmacs compatibility.
(ps-print-background-image, ps-print-background-text, ps-printer-name)
(ps-default-fg, ps-default-bg): Adjust customization.
(ps-zebra-color): Adjust customization, renaming old ps-zebra-gray var.
(ps-color-scale): Renaming old ps-color-value fun.
(ps-print-headers): Replace ps-print-header group to avoid conflict
with ps-print-header variable.
(ps-print-miscellany): New group.
(ps-format-color, ps-rgb-color): New funs.
(ps-default-foreground): New var.
(ps-printer-name-option): New const.
2000-03-30 13:21:45 +00:00
|
|
|
|
:group 'ps-print-miscellany)
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
|
1997-08-23 06:51:42 +00:00
|
|
|
|
(defcustom ps-zebra-stripes nil
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
"*Non-nil means print zebra stripes.
|
PostScript programming fix for ghostview, doc fix.
(ps-print-version): New version number (5.1.3).
(ps-begin-file, ps-begin-job, ps-set-color, ps-do-despool, ps-setup)
(ps-insert-file, ps-output-boolean, ps-plot-with-face)
(ps-generate-postscript-with-faces): Code fix.
(ps-color-values): XEmacs compatibility.
(ps-print-background-image, ps-print-background-text, ps-printer-name)
(ps-default-fg, ps-default-bg): Adjust customization.
(ps-zebra-color): Adjust customization, renaming old ps-zebra-gray var.
(ps-color-scale): Renaming old ps-color-value fun.
(ps-print-headers): Replace ps-print-header group to avoid conflict
with ps-print-header variable.
(ps-print-miscellany): New group.
(ps-format-color, ps-rgb-color): New funs.
(ps-default-foreground): New var.
(ps-printer-name-option): New const.
2000-03-30 13:21:45 +00:00
|
|
|
|
See also documentation for `ps-zebra-stripe-height' and `ps-zebra-color'."
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
:type 'boolean
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
:group 'ps-print-zebra)
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
|
1997-08-23 06:51:42 +00:00
|
|
|
|
(defcustom ps-zebra-stripe-height 3
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
"*Number of zebra stripe lines.
|
PostScript programming fix for ghostview, doc fix.
(ps-print-version): New version number (5.1.3).
(ps-begin-file, ps-begin-job, ps-set-color, ps-do-despool, ps-setup)
(ps-insert-file, ps-output-boolean, ps-plot-with-face)
(ps-generate-postscript-with-faces): Code fix.
(ps-color-values): XEmacs compatibility.
(ps-print-background-image, ps-print-background-text, ps-printer-name)
(ps-default-fg, ps-default-bg): Adjust customization.
(ps-zebra-color): Adjust customization, renaming old ps-zebra-gray var.
(ps-color-scale): Renaming old ps-color-value fun.
(ps-print-headers): Replace ps-print-header group to avoid conflict
with ps-print-header variable.
(ps-print-miscellany): New group.
(ps-format-color, ps-rgb-color): New funs.
(ps-default-foreground): New var.
(ps-printer-name-option): New const.
2000-03-30 13:21:45 +00:00
|
|
|
|
See also documentation for `ps-zebra-stripes' and `ps-zebra-color'."
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
:type 'number
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
:group 'ps-print-zebra)
|
|
|
|
|
|
PostScript programming fix for ghostview, doc fix.
(ps-print-version): New version number (5.1.3).
(ps-begin-file, ps-begin-job, ps-set-color, ps-do-despool, ps-setup)
(ps-insert-file, ps-output-boolean, ps-plot-with-face)
(ps-generate-postscript-with-faces): Code fix.
(ps-color-values): XEmacs compatibility.
(ps-print-background-image, ps-print-background-text, ps-printer-name)
(ps-default-fg, ps-default-bg): Adjust customization.
(ps-zebra-color): Adjust customization, renaming old ps-zebra-gray var.
(ps-color-scale): Renaming old ps-color-value fun.
(ps-print-headers): Replace ps-print-header group to avoid conflict
with ps-print-header variable.
(ps-print-miscellany): New group.
(ps-format-color, ps-rgb-color): New funs.
(ps-default-foreground): New var.
(ps-printer-name-option): New const.
2000-03-30 13:21:45 +00:00
|
|
|
|
(defcustom ps-zebra-color 0.95
|
|
|
|
|
"*Zebra stripe gray scale or RGB color.
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
See also documentation for `ps-zebra-stripes' and `ps-zebra-stripe-height'."
|
XEmacs compatibility. Doc fix. Can select page size
with/without giving an error if PostScript printer doesn't have this
kind of page size. Zebra Stripe continues or restarts on next page.
Manual/automatic paper feeding. Switch or not the header.
(ps-print-version): New version number (5.2.2).
(ps-windows-system): Include emx as a Windows system.
(ps-setup, ps-begin-file, ps-color-values, ps-screen-to-bit-face)
(ps-generate-postscript-with-faces, ps-generate-postscript-with-faces)
(ps-background-text): Code fix.
(ps-error-handler-message, ps-user-defined-prologue)
(ps-print-prologue-header, ps-printer-name)
(ps-print-control-characters, ps-n-up-filling, ps-zebra-color)
(ps-line-number-step, ps-spool-config, ps-default-fg, ps-default-bg)
(ps-use-face-background): Customization fix.
(ps-n-up-database): Data fix.
(ps-warn-paper-type, ps-zebra-stripe-follow, ps-manual-feed)
(ps-switch-header): New vars.
(ps-xemacs-color-name, ps-face-foreground-name)
(ps-face-background-name, ps-boolean-constant): New funs.
2000-06-07 15:34:55 +00:00
|
|
|
|
:type '(choice :menu-tag "Zebra Gray/Color"
|
|
|
|
|
:tag "Zebra Gray/Color"
|
PostScript programming fix for ghostview, doc fix.
(ps-print-version): New version number (5.1.3).
(ps-begin-file, ps-begin-job, ps-set-color, ps-do-despool, ps-setup)
(ps-insert-file, ps-output-boolean, ps-plot-with-face)
(ps-generate-postscript-with-faces): Code fix.
(ps-color-values): XEmacs compatibility.
(ps-print-background-image, ps-print-background-text, ps-printer-name)
(ps-default-fg, ps-default-bg): Adjust customization.
(ps-zebra-color): Adjust customization, renaming old ps-zebra-gray var.
(ps-color-scale): Renaming old ps-color-value fun.
(ps-print-headers): Replace ps-print-header group to avoid conflict
with ps-print-header variable.
(ps-print-miscellany): New group.
(ps-format-color, ps-rgb-color): New funs.
(ps-default-foreground): New var.
(ps-printer-name-option): New const.
2000-03-30 13:21:45 +00:00
|
|
|
|
(number :tag "Gray Scale" :value 0.95)
|
|
|
|
|
(string :tag "Color Name" :value "gray95")
|
|
|
|
|
(list :tag "RGB Color" :value (0.95 0.95 0.95)
|
|
|
|
|
(number :tag "Red")
|
|
|
|
|
(number :tag "Green")
|
|
|
|
|
(number :tag "Blue")))
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
:group 'ps-print-zebra)
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
|
XEmacs compatibility. Doc fix. Can select page size
with/without giving an error if PostScript printer doesn't have this
kind of page size. Zebra Stripe continues or restarts on next page.
Manual/automatic paper feeding. Switch or not the header.
(ps-print-version): New version number (5.2.2).
(ps-windows-system): Include emx as a Windows system.
(ps-setup, ps-begin-file, ps-color-values, ps-screen-to-bit-face)
(ps-generate-postscript-with-faces, ps-generate-postscript-with-faces)
(ps-background-text): Code fix.
(ps-error-handler-message, ps-user-defined-prologue)
(ps-print-prologue-header, ps-printer-name)
(ps-print-control-characters, ps-n-up-filling, ps-zebra-color)
(ps-line-number-step, ps-spool-config, ps-default-fg, ps-default-bg)
(ps-use-face-background): Customization fix.
(ps-n-up-database): Data fix.
(ps-warn-paper-type, ps-zebra-stripe-follow, ps-manual-feed)
(ps-switch-header): New vars.
(ps-xemacs-color-name, ps-face-foreground-name)
(ps-face-background-name, ps-boolean-constant): New funs.
2000-06-07 15:34:55 +00:00
|
|
|
|
(defcustom ps-zebra-stripe-follow nil
|
2001-02-20 10:41:10 +00:00
|
|
|
|
"*Specify how zebra stripes continue on next page.
|
|
|
|
|
|
|
|
|
|
Visually, valid values are (the character `+' at right of each column indicates
|
|
|
|
|
that a line is printed):
|
|
|
|
|
|
|
|
|
|
`nil' `follow' `full' `full-follow'
|
|
|
|
|
Current Page -------- ----------- --------- ----------------
|
|
|
|
|
1 XXXXX + 1 XXXXXXXX + 1 XXXXXX + 1 XXXXXXXXXXXXX +
|
|
|
|
|
2 XXXXX + 2 XXXXXXXX + 2 XXXXXX + 2 XXXXXXXXXXXXX +
|
|
|
|
|
3 XXXXX + 3 XXXXXXXX + 3 XXXXXX + 3 XXXXXXXXXXXXX +
|
|
|
|
|
4 + 4 + 4 + 4 +
|
|
|
|
|
5 + 5 + 5 + 5 +
|
|
|
|
|
6 + 6 + 6 + 6 +
|
|
|
|
|
7 XXXXX + 7 XXXXXXXX + 7 XXXXXX + 7 XXXXXXXXXXXXX +
|
|
|
|
|
8 XXXXX + 8 XXXXXXXX + 8 XXXXXX + 8 XXXXXXXXXXXXX +
|
|
|
|
|
9 XXXXX + 9 XXXXXXXX + 9 XXXXXX + 9 XXXXXXXXXXXXX +
|
|
|
|
|
10 + 10 +
|
|
|
|
|
11 + 11 +
|
|
|
|
|
-------- ----------- --------- ----------------
|
|
|
|
|
Next Page -------- ----------- --------- ----------------
|
|
|
|
|
12 XXXXX + 12 + 10 XXXXXX + 10 +
|
|
|
|
|
13 XXXXX + 13 XXXXXXXX + 11 XXXXXX + 11 +
|
|
|
|
|
14 XXXXX + 14 XXXXXXXX + 12 XXXXXX + 12 +
|
|
|
|
|
15 + 15 XXXXXXXX + 13 + 13 XXXXXXXXXXXXX +
|
|
|
|
|
16 + 16 + 14 + 14 XXXXXXXXXXXXX +
|
|
|
|
|
17 + 17 + 15 + 15 XXXXXXXXXXXXX +
|
|
|
|
|
18 XXXXX + 18 + 16 XXXXXX + 16 +
|
|
|
|
|
19 XXXXX + 19 XXXXXXXX + 17 XXXXXX + 17 +
|
|
|
|
|
20 XXXXX + 20 XXXXXXXX + 18 XXXXXX + 18 +
|
|
|
|
|
21 + 21 XXXXXXXX +
|
|
|
|
|
22 + 22 +
|
|
|
|
|
-------- ----------- --------- ----------------
|
|
|
|
|
|
2003-05-06 17:53:37 +00:00
|
|
|
|
Any other value is treated as nil."
|
2001-02-20 10:41:10 +00:00
|
|
|
|
:type '(choice :menu-tag "Zebra Stripe Follow"
|
|
|
|
|
:tag "Zebra Stripe Follow"
|
|
|
|
|
(const :tag "Always Restart" nil)
|
|
|
|
|
(const :tag "Continue on Next Page" follow)
|
|
|
|
|
(const :tag "Print Only Full Stripe" full)
|
|
|
|
|
(const :tag "Continue on Full Stripe" full-follow))
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
XEmacs compatibility. Doc fix. Can select page size
with/without giving an error if PostScript printer doesn't have this
kind of page size. Zebra Stripe continues or restarts on next page.
Manual/automatic paper feeding. Switch or not the header.
(ps-print-version): New version number (5.2.2).
(ps-windows-system): Include emx as a Windows system.
(ps-setup, ps-begin-file, ps-color-values, ps-screen-to-bit-face)
(ps-generate-postscript-with-faces, ps-generate-postscript-with-faces)
(ps-background-text): Code fix.
(ps-error-handler-message, ps-user-defined-prologue)
(ps-print-prologue-header, ps-printer-name)
(ps-print-control-characters, ps-n-up-filling, ps-zebra-color)
(ps-line-number-step, ps-spool-config, ps-default-fg, ps-default-bg)
(ps-use-face-background): Customization fix.
(ps-n-up-database): Data fix.
(ps-warn-paper-type, ps-zebra-stripe-follow, ps-manual-feed)
(ps-switch-header): New vars.
(ps-xemacs-color-name, ps-face-foreground-name)
(ps-face-background-name, ps-boolean-constant): New funs.
2000-06-07 15:34:55 +00:00
|
|
|
|
:group 'ps-print-zebra)
|
|
|
|
|
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
(defcustom ps-line-number nil
|
|
|
|
|
"*Non-nil means print line number."
|
|
|
|
|
:type 'boolean
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
PostScript programming fix for ghostview, doc fix.
(ps-print-version): New version number (5.1.3).
(ps-begin-file, ps-begin-job, ps-set-color, ps-do-despool, ps-setup)
(ps-insert-file, ps-output-boolean, ps-plot-with-face)
(ps-generate-postscript-with-faces): Code fix.
(ps-color-values): XEmacs compatibility.
(ps-print-background-image, ps-print-background-text, ps-printer-name)
(ps-default-fg, ps-default-bg): Adjust customization.
(ps-zebra-color): Adjust customization, renaming old ps-zebra-gray var.
(ps-color-scale): Renaming old ps-color-value fun.
(ps-print-headers): Replace ps-print-header group to avoid conflict
with ps-print-header variable.
(ps-print-miscellany): New group.
(ps-format-color, ps-rgb-color): New funs.
(ps-default-foreground): New var.
(ps-printer-name-option): New const.
2000-03-30 13:21:45 +00:00
|
|
|
|
:group 'ps-print-miscellany)
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
|
2000-04-29 19:27:49 +00:00
|
|
|
|
(defcustom ps-line-number-step 1
|
|
|
|
|
"*Specify the interval that line number is printed.
|
|
|
|
|
|
|
|
|
|
For example, `ps-line-number-step' is set to 2, the printing will look like:
|
|
|
|
|
|
|
|
|
|
1 one line
|
|
|
|
|
one line
|
|
|
|
|
3 one line
|
|
|
|
|
one line
|
2000-05-18 21:50:51 +00:00
|
|
|
|
5 one line
|
2000-04-29 19:27:49 +00:00
|
|
|
|
one line
|
|
|
|
|
...
|
|
|
|
|
|
|
|
|
|
Valid values are:
|
|
|
|
|
|
|
|
|
|
integer an integer that specifies the interval that line number is
|
|
|
|
|
printed. If it's lesser than or equal to zero, it's used the
|
|
|
|
|
value 1.
|
|
|
|
|
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
`zebra' specifies that only the line number of the first line in a
|
|
|
|
|
zebra stripe is to be printed.
|
2000-04-29 19:27:49 +00:00
|
|
|
|
|
|
|
|
|
Any other value is treated as `zebra'."
|
XEmacs compatibility. Doc fix. Can select page size
with/without giving an error if PostScript printer doesn't have this
kind of page size. Zebra Stripe continues or restarts on next page.
Manual/automatic paper feeding. Switch or not the header.
(ps-print-version): New version number (5.2.2).
(ps-windows-system): Include emx as a Windows system.
(ps-setup, ps-begin-file, ps-color-values, ps-screen-to-bit-face)
(ps-generate-postscript-with-faces, ps-generate-postscript-with-faces)
(ps-background-text): Code fix.
(ps-error-handler-message, ps-user-defined-prologue)
(ps-print-prologue-header, ps-printer-name)
(ps-print-control-characters, ps-n-up-filling, ps-zebra-color)
(ps-line-number-step, ps-spool-config, ps-default-fg, ps-default-bg)
(ps-use-face-background): Customization fix.
(ps-n-up-database): Data fix.
(ps-warn-paper-type, ps-zebra-stripe-follow, ps-manual-feed)
(ps-switch-header): New vars.
(ps-xemacs-color-name, ps-face-foreground-name)
(ps-face-background-name, ps-boolean-constant): New funs.
2000-06-07 15:34:55 +00:00
|
|
|
|
:type '(choice :menu-tag "Line Number Step"
|
|
|
|
|
:tag "Line Number Step"
|
2000-04-29 19:27:49 +00:00
|
|
|
|
(integer :tag "Step Interval")
|
|
|
|
|
(const :tag "Synchronize Zebra" zebra))
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
2000-04-29 19:27:49 +00:00
|
|
|
|
:group 'ps-print-miscellany)
|
|
|
|
|
|
2000-05-18 21:50:51 +00:00
|
|
|
|
(defcustom ps-line-number-start 1
|
|
|
|
|
"*Specify the starting point in the interval given by `ps-line-number-step'.
|
|
|
|
|
|
2000-10-18 14:31:05 +00:00
|
|
|
|
For example, if `ps-line-number-step' is set to 3 and `ps-line-number-start' is
|
|
|
|
|
set to 3, the printing will look like:
|
2000-05-18 21:50:51 +00:00
|
|
|
|
|
|
|
|
|
one line
|
|
|
|
|
one line
|
|
|
|
|
3 one line
|
|
|
|
|
one line
|
|
|
|
|
one line
|
|
|
|
|
6 one line
|
|
|
|
|
one line
|
|
|
|
|
one line
|
|
|
|
|
9 one line
|
|
|
|
|
one line
|
|
|
|
|
...
|
|
|
|
|
|
|
|
|
|
The values for `ps-line-number-start':
|
|
|
|
|
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
* If `ps-line-number-step' is an integer, must be between 1 and the value of
|
|
|
|
|
`ps-line-number-step' inclusive.
|
2000-05-18 21:50:51 +00:00
|
|
|
|
|
|
|
|
|
* If `ps-line-number-step' is set to `zebra', must be between 1 and the
|
|
|
|
|
value of `ps-zebra-strip-height' inclusive. Use this combination if you
|
|
|
|
|
wish that line number be relative to zebra stripes."
|
|
|
|
|
:type '(integer :tag "Start Step Interval")
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
2000-05-18 21:50:51 +00:00
|
|
|
|
:group 'ps-print-miscellany)
|
|
|
|
|
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
(defcustom ps-print-background-image nil
|
|
|
|
|
"*EPS image list to be printed on background.
|
|
|
|
|
|
|
|
|
|
The elements are:
|
|
|
|
|
|
|
|
|
|
(FILENAME X Y XSCALE YSCALE ROTATION PAGES...)
|
|
|
|
|
|
|
|
|
|
FILENAME is a file name which contains an EPS image or some PostScript
|
|
|
|
|
programming like EPS.
|
|
|
|
|
FILENAME is ignored, if it doesn't exist or is read protected.
|
|
|
|
|
|
|
|
|
|
X and Y are relative positions on paper to put the image.
|
|
|
|
|
If X and Y are nil, the image is centralized on paper.
|
|
|
|
|
|
|
|
|
|
XSCALE and YSCALE are scale factor to be applied to image before printing.
|
|
|
|
|
If XSCALE and YSCALE are nil, the original size is used.
|
|
|
|
|
|
|
|
|
|
ROTATION is the image rotation angle; if nil, the default is 0.
|
|
|
|
|
|
|
|
|
|
PAGES designates the page to print background image.
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
PAGES may be a number or a cons cell (FROM . TO) designating FROM page to TO
|
|
|
|
|
page.
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
If PAGES is nil, print background image on all pages.
|
|
|
|
|
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
X, Y, XSCALE, YSCALE and ROTATION may be a floating point number, an integer
|
2002-09-09 19:26:40 +00:00
|
|
|
|
number or a string. If it is a string, the string should contain PostScript
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
programming that returns a float or integer value.
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
|
|
|
|
|
For example, if you wish to print an EPS image on all pages do:
|
|
|
|
|
|
|
|
|
|
'((\"~/images/EPS-image.ps\"))"
|
2000-05-18 21:50:51 +00:00
|
|
|
|
:type '(repeat
|
|
|
|
|
(list
|
|
|
|
|
(file :tag "EPS File")
|
|
|
|
|
(choice :tag "X" (const :tag "default" nil) number string)
|
|
|
|
|
(choice :tag "Y" (const :tag "default" nil) number string)
|
|
|
|
|
(choice :tag "X Scale" (const :tag "default" nil) number string)
|
|
|
|
|
(choice :tag "Y Scale" (const :tag "default" nil) number string)
|
|
|
|
|
(choice :tag "Rotation" (const :tag "default" nil) number string)
|
|
|
|
|
(repeat :tag "Pages" :inline t
|
|
|
|
|
(radio (integer :tag "Page")
|
|
|
|
|
(cons :tag "Range"
|
|
|
|
|
(integer :tag "From")
|
|
|
|
|
(integer :tag "To"))))))
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
:group 'ps-print-background)
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
|
|
|
|
|
(defcustom ps-print-background-text nil
|
|
|
|
|
"*Text list to be printed on background.
|
|
|
|
|
|
|
|
|
|
The elements are:
|
|
|
|
|
|
|
|
|
|
(STRING X Y FONT FONTSIZE GRAY ROTATION PAGES...)
|
|
|
|
|
|
|
|
|
|
STRING is the text to be printed on background.
|
|
|
|
|
|
|
|
|
|
X and Y are positions on paper to put the text.
|
|
|
|
|
If X and Y are nil, the text is positioned at lower left corner.
|
|
|
|
|
|
|
|
|
|
FONT is a font name to be used on printing the text.
|
|
|
|
|
If nil, \"Times-Roman\" is used.
|
|
|
|
|
|
|
|
|
|
FONTSIZE is font size to be used, if nil, 200 is used.
|
|
|
|
|
|
|
|
|
|
GRAY is the text gray factor (should be very light like 0.8).
|
|
|
|
|
If nil, the default is 0.85.
|
|
|
|
|
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
ROTATION is the text rotation angle; if nil, the angle is given by the diagonal
|
|
|
|
|
from lower left corner to upper right corner.
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
|
|
|
|
|
PAGES designates the page to print background text.
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
PAGES may be a number or a cons cell (FROM . TO) designating FROM page to TO
|
|
|
|
|
page.
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
If PAGES is nil, print background text on all pages.
|
|
|
|
|
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
X, Y, FONTSIZE, GRAY and ROTATION may be a floating point number, an integer
|
2002-09-09 19:26:40 +00:00
|
|
|
|
number or a string. If it is a string, the string should contain PostScript
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
programming that returns a float or integer value.
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
|
|
|
|
|
For example, if you wish to print text \"Preliminary\" on all pages do:
|
|
|
|
|
|
|
|
|
|
'((\"Preliminary\"))"
|
2000-05-18 21:50:51 +00:00
|
|
|
|
:type '(repeat
|
|
|
|
|
(list
|
|
|
|
|
(string :tag "Text")
|
|
|
|
|
(choice :tag "X" (const :tag "default" nil) number string)
|
|
|
|
|
(choice :tag "Y" (const :tag "default" nil) number string)
|
|
|
|
|
(choice :tag "Font" (const :tag "default" nil) string)
|
|
|
|
|
(choice :tag "Fontsize" (const :tag "default" nil) number string)
|
|
|
|
|
(choice :tag "Gray" (const :tag "default" nil) number string)
|
|
|
|
|
(choice :tag "Rotation" (const :tag "default" nil) number string)
|
|
|
|
|
(repeat :tag "Pages" :inline t
|
|
|
|
|
(radio (integer :tag "Page")
|
|
|
|
|
(cons :tag "Range"
|
|
|
|
|
(integer :tag "From")
|
|
|
|
|
(integer :tag "To"))))))
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
:group 'ps-print-background)
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
|
|
|
|
|
;;; Horizontal layout
|
|
|
|
|
|
|
|
|
|
;; ------------------------------------------
|
|
|
|
|
;; | | | | | | | |
|
|
|
|
|
;; | lm | text | ic | text | ic | text | rm |
|
|
|
|
|
;; | | | | | | | |
|
|
|
|
|
;; ------------------------------------------
|
|
|
|
|
|
1997-04-12 01:50:50 +00:00
|
|
|
|
(defcustom ps-left-margin (/ (* 72 2.0) 2.54) ; 2 cm
|
|
|
|
|
"*Left margin in points (1/72 inch)."
|
|
|
|
|
:type 'number
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
1997-04-12 01:50:50 +00:00
|
|
|
|
:group 'ps-print-horizontal)
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
|
1997-04-12 01:50:50 +00:00
|
|
|
|
(defcustom ps-right-margin (/ (* 72 2.0) 2.54) ; 2 cm
|
|
|
|
|
"*Right margin in points (1/72 inch)."
|
|
|
|
|
:type 'number
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
1997-04-12 01:50:50 +00:00
|
|
|
|
:group 'ps-print-horizontal)
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
|
1997-04-12 01:50:50 +00:00
|
|
|
|
(defcustom ps-inter-column (/ (* 72 2.0) 2.54) ; 2 cm
|
|
|
|
|
"*Horizontal space between columns in points (1/72 inch)."
|
|
|
|
|
:type 'number
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
1997-04-12 01:50:50 +00:00
|
|
|
|
:group 'ps-print-horizontal)
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
|
|
|
|
|
;;; Vertical layout
|
|
|
|
|
|
|
|
|
|
;; |--------|
|
|
|
|
|
;; | tm |
|
|
|
|
|
;; |--------|
|
|
|
|
|
;; | header |
|
|
|
|
|
;; |--------|
|
|
|
|
|
;; | ho |
|
|
|
|
|
;; |--------|
|
|
|
|
|
;; | text |
|
|
|
|
|
;; |--------|
|
|
|
|
|
;; | bm |
|
|
|
|
|
;; |--------|
|
|
|
|
|
|
1997-04-12 01:50:50 +00:00
|
|
|
|
(defcustom ps-bottom-margin (/ (* 72 1.5) 2.54) ; 1.5 cm
|
|
|
|
|
"*Bottom margin in points (1/72 inch)."
|
|
|
|
|
:type 'number
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
1997-04-12 01:50:50 +00:00
|
|
|
|
:group 'ps-print-vertical)
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
|
1997-04-12 01:50:50 +00:00
|
|
|
|
(defcustom ps-top-margin (/ (* 72 1.5) 2.54) ; 1.5 cm
|
|
|
|
|
"*Top margin in points (1/72 inch)."
|
|
|
|
|
:type 'number
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
1997-04-12 01:50:50 +00:00
|
|
|
|
:group 'ps-print-vertical)
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
|
1997-04-12 01:50:50 +00:00
|
|
|
|
(defcustom ps-header-offset (/ (* 72 1.0) 2.54) ; 1.0 cm
|
|
|
|
|
"*Vertical space in points (1/72 inch) between the main text and the header."
|
|
|
|
|
:type 'number
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
1997-04-12 01:50:50 +00:00
|
|
|
|
:group 'ps-print-vertical)
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
|
1997-04-12 01:50:50 +00:00
|
|
|
|
(defcustom ps-header-line-pad 0.15
|
2002-09-09 19:26:40 +00:00
|
|
|
|
"*Portion of a header title line height to insert.
|
|
|
|
|
The insertion is done between the header frame and the text it contains,
|
|
|
|
|
both in the vertical and horizontal directions."
|
1997-04-12 01:50:50 +00:00
|
|
|
|
:type 'number
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
1997-04-12 01:50:50 +00:00
|
|
|
|
:group 'ps-print-vertical)
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
(defcustom ps-footer-offset (/ (* 72 1.0) 2.54) ; 1.0 cm
|
|
|
|
|
"*Vertical space in points (1/72 inch) between the main text and the footer."
|
|
|
|
|
:type 'number
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
:group 'ps-print-vertical)
|
|
|
|
|
|
|
|
|
|
(defcustom ps-footer-line-pad 0.15
|
2002-09-09 19:26:40 +00:00
|
|
|
|
"*Portion of a footer title line height to insert.
|
|
|
|
|
The insertion is done between the footer frame and the text it contains,
|
|
|
|
|
both in the vertical and horizontal directions."
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
:type 'number
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
:group 'ps-print-vertical)
|
|
|
|
|
|
|
|
|
|
;;; Header/Footer setup
|
1995-01-20 06:09:03 +00:00
|
|
|
|
|
1997-04-12 01:50:50 +00:00
|
|
|
|
(defcustom ps-print-header t
|
1995-01-20 06:20:32 +00:00
|
|
|
|
"*Non-nil means print a header at the top of each page.
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
By default, the header displays the buffer name, page number, and, if the
|
|
|
|
|
buffer is visiting a file, the file's directory. Headers are customizable by
|
|
|
|
|
changing variables `ps-left-header' and `ps-right-header'."
|
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.
1998-03-07 06:04:46 +00:00
|
|
|
|
:type 'boolean
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
PostScript programming fix for ghostview, doc fix.
(ps-print-version): New version number (5.1.3).
(ps-begin-file, ps-begin-job, ps-set-color, ps-do-despool, ps-setup)
(ps-insert-file, ps-output-boolean, ps-plot-with-face)
(ps-generate-postscript-with-faces): Code fix.
(ps-color-values): XEmacs compatibility.
(ps-print-background-image, ps-print-background-text, ps-printer-name)
(ps-default-fg, ps-default-bg): Adjust customization.
(ps-zebra-color): Adjust customization, renaming old ps-zebra-gray var.
(ps-color-scale): Renaming old ps-color-value fun.
(ps-print-headers): Replace ps-print-header group to avoid conflict
with ps-print-header variable.
(ps-print-miscellany): New group.
(ps-format-color, ps-rgb-color): New funs.
(ps-default-foreground): New var.
(ps-printer-name-option): New const.
2000-03-30 13:21:45 +00:00
|
|
|
|
:group 'ps-print-headers)
|
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.
1998-03-07 06:04:46 +00:00
|
|
|
|
|
1997-04-12 01:50:50 +00:00
|
|
|
|
(defcustom ps-print-header-frame t
|
|
|
|
|
"*Non-nil means draw a gaudy frame around the header."
|
|
|
|
|
:type 'boolean
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
PostScript programming fix for ghostview, doc fix.
(ps-print-version): New version number (5.1.3).
(ps-begin-file, ps-begin-job, ps-set-color, ps-do-despool, ps-setup)
(ps-insert-file, ps-output-boolean, ps-plot-with-face)
(ps-generate-postscript-with-faces): Code fix.
(ps-color-values): XEmacs compatibility.
(ps-print-background-image, ps-print-background-text, ps-printer-name)
(ps-default-fg, ps-default-bg): Adjust customization.
(ps-zebra-color): Adjust customization, renaming old ps-zebra-gray var.
(ps-color-scale): Renaming old ps-color-value fun.
(ps-print-headers): Replace ps-print-header group to avoid conflict
with ps-print-header variable.
(ps-print-miscellany): New group.
(ps-format-color, ps-rgb-color): New funs.
(ps-default-foreground): New var.
(ps-printer-name-option): New const.
2000-03-30 13:21:45 +00:00
|
|
|
|
:group 'ps-print-headers)
|
1997-04-12 01:50:50 +00:00
|
|
|
|
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
(defcustom ps-header-frame-alist
|
2001-04-26 09:30:00 +00:00
|
|
|
|
'((fore-color . 0.0)
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
(back-color . 0.9)
|
|
|
|
|
(border-width . 0.4)
|
2001-04-26 09:30:00 +00:00
|
|
|
|
(border-color . 0.0)
|
|
|
|
|
(shadow-color . 0.0))
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
"*Specify header frame properties alist.
|
|
|
|
|
|
|
|
|
|
Valid frame properties are:
|
|
|
|
|
|
|
|
|
|
`fore-color' Specify the foreground frame color.
|
|
|
|
|
It should be a float number between 0.0 (black color)
|
|
|
|
|
and 1.0 (white color), a string which is a color name,
|
|
|
|
|
or a list of 3 float numbers which corresponds to the
|
|
|
|
|
Red Green Blue color scale, each float number between
|
|
|
|
|
0.0 (dark color) and 1.0 (bright color).
|
|
|
|
|
|
|
|
|
|
`back-color' Specify the background frame color (similar to
|
|
|
|
|
`fore-color').
|
|
|
|
|
|
|
|
|
|
`shadow-color' Specify the shadow color (similar to `fore-color').
|
|
|
|
|
|
|
|
|
|
`border-color' Specify the border color (similar to `fore-color').
|
|
|
|
|
|
|
|
|
|
`border-width' Specify the border width.
|
|
|
|
|
|
|
|
|
|
Any other property is ignored.
|
|
|
|
|
|
|
|
|
|
Don't change this alist directly, instead use customization, or `ps-value',
|
|
|
|
|
`ps-get', `ps-put' and `ps-del' functions (see them for documentation)."
|
|
|
|
|
:version "21.1"
|
|
|
|
|
:type '(repeat
|
|
|
|
|
(choice :menu-tag "Header Frame Element"
|
|
|
|
|
:tag ""
|
|
|
|
|
(cons :tag "Foreground Color" :format "%v"
|
|
|
|
|
(const :format "" fore-color)
|
|
|
|
|
(choice :menu-tag "Foreground Color"
|
|
|
|
|
:tag "Foreground Color"
|
2001-04-26 09:30:00 +00:00
|
|
|
|
(number :tag "Gray Scale" :value 0.0)
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
(string :tag "Color Name" :value "black")
|
2001-04-26 09:30:00 +00:00
|
|
|
|
(list :tag "RGB Color" :value (0.0 0.0 0.0)
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
(number :tag "Red")
|
|
|
|
|
(number :tag "Green")
|
|
|
|
|
(number :tag "Blue"))))
|
|
|
|
|
(cons :tag "Background Color" :format "%v"
|
|
|
|
|
(const :format "" back-color)
|
|
|
|
|
(choice :menu-tag "Background Color"
|
|
|
|
|
:tag "Background Color"
|
|
|
|
|
(number :tag "Gray Scale" :value 0.9)
|
|
|
|
|
(string :tag "Color Name" :value "gray90")
|
|
|
|
|
(list :tag "RGB Color" :value (0.9 0.9 0.9)
|
|
|
|
|
(number :tag "Red")
|
|
|
|
|
(number :tag "Green")
|
|
|
|
|
(number :tag "Blue"))))
|
|
|
|
|
(cons :tag "Border Width" :format "%v"
|
|
|
|
|
(const :format "" border-width)
|
|
|
|
|
(number :tag "Border Width" :value 0.4))
|
|
|
|
|
(cons :tag "Border Color" :format "%v"
|
|
|
|
|
(const :format "" border-color)
|
|
|
|
|
(choice :menu-tag "Border Color"
|
|
|
|
|
:tag "Border Color"
|
2001-04-26 09:30:00 +00:00
|
|
|
|
(number :tag "Gray Scale" :value 0.0)
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
(string :tag "Color Name" :value "black")
|
2001-04-26 09:30:00 +00:00
|
|
|
|
(list :tag "RGB Color" :value (0.0 0.0 0.0)
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
(number :tag "Red")
|
|
|
|
|
(number :tag "Green")
|
|
|
|
|
(number :tag "Blue"))))
|
|
|
|
|
(cons :tag "Shadow Color" :format "%v"
|
|
|
|
|
(const :format "" shadow-color)
|
|
|
|
|
(choice :menu-tag "Shadow Color"
|
|
|
|
|
:tag "Shadow Color"
|
2001-04-26 09:30:00 +00:00
|
|
|
|
(number :tag "Gray Scale" :value 0.0)
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
(string :tag "Color Name" :value "black")
|
2001-04-26 09:30:00 +00:00
|
|
|
|
(list :tag "RGB Color" :value (0.0 0.0 0.0)
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
(number :tag "Red")
|
|
|
|
|
(number :tag "Green")
|
|
|
|
|
(number :tag "Blue"))))))
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
:group 'ps-print-headers)
|
|
|
|
|
|
1997-04-12 01:50:50 +00:00
|
|
|
|
(defcustom ps-header-lines 2
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.2) and doc fix.
(ps-print, ps-header-lines, ps-show-n-of-n, ps-font-info-database)
(ps-font-family, ps-font-size, ps-header-font-family)
(ps-header-font-size, ps-header-title-font-size, ps-bold-faces)
(ps-italic-faces, ps-underlined-faces, ps-left-header, ps-right-header)
(ps-font, ps-font-bold, ps-font-italic, ps-font-bold-italic)
(ps-avg-char-width, ps-space-width, ps-line-height): Doc fix.
(ps-error-scale-font): New fn.
(ps-soft-lf, ps-hard-lf): Fn deleted.
(ps-get-page-dimensions, ps-set-bg, ps-face-bold-p, ps-face-italic-p)
(ps-set-color): Reindentation.
(ps-output-string-prim, ps-xemacs-face-kind-p): Internal blank lines
deleted.
(ps-set-font): Little programming improvement.
(ps-line-lengths-internal, ps-nb-pages, ps-select-font)
(ps-select-header-font): Simplify some expressions.
(ps-plot-region): Replace (- X 1) by (1- X).
(ps-generate-header): Replace (+ X 1) by (1+ X).
(ps-print-preprint, ps-plot-with-face, ps-print-ensure-fontified)
(ps-kill-emacs-check): Replace (if (and A B) C) by (and A B C).
(ps-init-output-queue, ps-gnus-article-prepare-hook, ps-jts-ps-setup):
Replace (setq a b)(setq c d) by (setq a b c d).
(ps-begin-file, ps-end-file): Replace (ps-output A)(ps-output B)
by (ps-output A B).
(ps-begin-page): Replace (ps-output A)(ps-output B) by (ps-output A B),
replace (setq a b)(setq c d) by (setq a b c d).
(ps-next-line, ps-continue-line): Replace (setq a b)(setq c d)
by (setq a b c d), and incorporates ps-soft-lf and ps-hard-lf,
respectively.
(ps-plot): Replace (setq a b)(setq c d) by (setq a b c d),
and programming improvement.
(ps-generate-postscript-with-faces): Initialization fix,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if (and A B) C) by (and A B C).
(ps-generate): Doc fix, reprogramming to set the page count,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if A nil B) by (or A B),
replace (if (and A B) C) by (and A B C).
(ps-info-mode-hook): Replace (list 'A 'B) by '(A B).
(ps-jack-setup): Replace (list) by nil.
1997-11-23 02:26:50 +00:00
|
|
|
|
"*Number of lines to display in page header, when generating PostScript."
|
1997-04-12 01:50:50 +00:00
|
|
|
|
:type 'integer
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
PostScript programming fix for ghostview, doc fix.
(ps-print-version): New version number (5.1.3).
(ps-begin-file, ps-begin-job, ps-set-color, ps-do-despool, ps-setup)
(ps-insert-file, ps-output-boolean, ps-plot-with-face)
(ps-generate-postscript-with-faces): Code fix.
(ps-color-values): XEmacs compatibility.
(ps-print-background-image, ps-print-background-text, ps-printer-name)
(ps-default-fg, ps-default-bg): Adjust customization.
(ps-zebra-color): Adjust customization, renaming old ps-zebra-gray var.
(ps-color-scale): Renaming old ps-color-value fun.
(ps-print-headers): Replace ps-print-header group to avoid conflict
with ps-print-header variable.
(ps-print-miscellany): New group.
(ps-format-color, ps-rgb-color): New funs.
(ps-default-foreground): New var.
(ps-printer-name-option): New const.
2000-03-30 13:21:45 +00:00
|
|
|
|
:group 'ps-print-headers)
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
(defcustom ps-print-footer nil
|
|
|
|
|
"*Non-nil means print a footer at the bottom of each page.
|
|
|
|
|
By default, the footer displays page number.
|
|
|
|
|
Footers are customizable by changing variables `ps-left-footer' and
|
|
|
|
|
`ps-right-footer'."
|
|
|
|
|
:type 'boolean
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "21.1"
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
:group 'ps-print-headers)
|
|
|
|
|
|
|
|
|
|
(defcustom ps-print-footer-frame t
|
|
|
|
|
"*Non-nil means draw a gaudy frame around the footer."
|
|
|
|
|
:type 'boolean
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "21.1"
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
:group 'ps-print-headers)
|
|
|
|
|
|
|
|
|
|
(defcustom ps-footer-frame-alist
|
2001-04-26 09:30:00 +00:00
|
|
|
|
'((fore-color . 0.0)
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
(back-color . 0.9)
|
|
|
|
|
(border-width . 0.4)
|
2001-04-26 09:30:00 +00:00
|
|
|
|
(border-color . 0.0)
|
|
|
|
|
(shadow-color . 0.0))
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
"*Specify footer frame properties alist.
|
|
|
|
|
|
|
|
|
|
Don't change this alist directly, instead use customization, or `ps-value',
|
|
|
|
|
`ps-get', `ps-put' and `ps-del' functions (see them for documentation).
|
|
|
|
|
|
|
|
|
|
See also `ps-header-frame-alist' for documentation."
|
|
|
|
|
:type '(repeat
|
|
|
|
|
(choice :menu-tag "Header Frame Element"
|
|
|
|
|
:tag ""
|
|
|
|
|
(cons :tag "Foreground Color" :format "%v"
|
|
|
|
|
(const :format "" fore-color)
|
|
|
|
|
(choice :menu-tag "Foreground Color"
|
|
|
|
|
:tag "Foreground Color"
|
2001-04-26 09:30:00 +00:00
|
|
|
|
(number :tag "Gray Scale" :value 0.0)
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
(string :tag "Color Name" :value "black")
|
2001-04-26 09:30:00 +00:00
|
|
|
|
(list :tag "RGB Color" :value (0.0 0.0 0.0)
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
(number :tag "Red")
|
|
|
|
|
(number :tag "Green")
|
|
|
|
|
(number :tag "Blue"))))
|
|
|
|
|
(cons :tag "Background Color" :format "%v"
|
|
|
|
|
(const :format "" back-color)
|
|
|
|
|
(choice :menu-tag "Background Color"
|
|
|
|
|
:tag "Background Color"
|
|
|
|
|
(number :tag "Gray Scale" :value 0.9)
|
|
|
|
|
(string :tag "Color Name" :value "gray90")
|
|
|
|
|
(list :tag "RGB Color" :value (0.9 0.9 0.9)
|
|
|
|
|
(number :tag "Red")
|
|
|
|
|
(number :tag "Green")
|
|
|
|
|
(number :tag "Blue"))))
|
|
|
|
|
(cons :tag "Border Width" :format "%v"
|
|
|
|
|
(const :format "" border-width)
|
|
|
|
|
(number :tag "Border Width" :value 0.4))
|
|
|
|
|
(cons :tag "Border Color" :format "%v"
|
|
|
|
|
(const :format "" border-color)
|
|
|
|
|
(choice :menu-tag "Border Color"
|
|
|
|
|
:tag "Border Color"
|
2001-04-26 09:30:00 +00:00
|
|
|
|
(number :tag "Gray Scale" :value 0.0)
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
(string :tag "Color Name" :value "black")
|
2001-04-26 09:30:00 +00:00
|
|
|
|
(list :tag "RGB Color" :value (0.0 0.0 0.0)
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
(number :tag "Red")
|
|
|
|
|
(number :tag "Green")
|
|
|
|
|
(number :tag "Blue"))))
|
|
|
|
|
(cons :tag "Shadow Color" :format "%v"
|
|
|
|
|
(const :format "" shadow-color)
|
|
|
|
|
(choice :menu-tag "Shadow Color"
|
|
|
|
|
:tag "Shadow Color"
|
2001-04-26 09:30:00 +00:00
|
|
|
|
(number :tag "Gray Scale" :value 0.0)
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
(string :tag "Color Name" :value "black")
|
2001-04-26 09:30:00 +00:00
|
|
|
|
(list :tag "RGB Color" :value (0.0 0.0 0.0)
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
(number :tag "Red")
|
|
|
|
|
(number :tag "Green")
|
|
|
|
|
(number :tag "Blue"))))))
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "21.1"
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
:group 'ps-print-headers)
|
|
|
|
|
|
|
|
|
|
(defcustom ps-footer-lines 2
|
|
|
|
|
"*Number of lines to display in page footer, when generating PostScript."
|
|
|
|
|
:type 'integer
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "21.1"
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
:group 'ps-print-headers)
|
|
|
|
|
|
|
|
|
|
(defcustom ps-print-only-one-header nil
|
|
|
|
|
"*Non-nil means print only one header/footer at the top/bottom of each page.
|
|
|
|
|
This is useful when printing more than one column, so it is possible to have
|
|
|
|
|
only one header/footer over all columns or one header/footer per column.
|
|
|
|
|
See also `ps-print-header' and `ps-print-footer'."
|
|
|
|
|
:type 'boolean
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
:group 'ps-print-headers)
|
|
|
|
|
|
XEmacs compatibility. Doc fix. Can select page size
with/without giving an error if PostScript printer doesn't have this
kind of page size. Zebra Stripe continues or restarts on next page.
Manual/automatic paper feeding. Switch or not the header.
(ps-print-version): New version number (5.2.2).
(ps-windows-system): Include emx as a Windows system.
(ps-setup, ps-begin-file, ps-color-values, ps-screen-to-bit-face)
(ps-generate-postscript-with-faces, ps-generate-postscript-with-faces)
(ps-background-text): Code fix.
(ps-error-handler-message, ps-user-defined-prologue)
(ps-print-prologue-header, ps-printer-name)
(ps-print-control-characters, ps-n-up-filling, ps-zebra-color)
(ps-line-number-step, ps-spool-config, ps-default-fg, ps-default-bg)
(ps-use-face-background): Customization fix.
(ps-n-up-database): Data fix.
(ps-warn-paper-type, ps-zebra-stripe-follow, ps-manual-feed)
(ps-switch-header): New vars.
(ps-xemacs-color-name, ps-face-foreground-name)
(ps-face-background-name, ps-boolean-constant): New funs.
2000-06-07 15:34:55 +00:00
|
|
|
|
(defcustom ps-switch-header 'duplex
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
"*Specify if headers/footers are switched or not.
|
XEmacs compatibility. Doc fix. Can select page size
with/without giving an error if PostScript printer doesn't have this
kind of page size. Zebra Stripe continues or restarts on next page.
Manual/automatic paper feeding. Switch or not the header.
(ps-print-version): New version number (5.2.2).
(ps-windows-system): Include emx as a Windows system.
(ps-setup, ps-begin-file, ps-color-values, ps-screen-to-bit-face)
(ps-generate-postscript-with-faces, ps-generate-postscript-with-faces)
(ps-background-text): Code fix.
(ps-error-handler-message, ps-user-defined-prologue)
(ps-print-prologue-header, ps-printer-name)
(ps-print-control-characters, ps-n-up-filling, ps-zebra-color)
(ps-line-number-step, ps-spool-config, ps-default-fg, ps-default-bg)
(ps-use-face-background): Customization fix.
(ps-n-up-database): Data fix.
(ps-warn-paper-type, ps-zebra-stripe-follow, ps-manual-feed)
(ps-switch-header): New vars.
(ps-xemacs-color-name, ps-face-foreground-name)
(ps-face-background-name, ps-boolean-constant): New funs.
2000-06-07 15:34:55 +00:00
|
|
|
|
|
|
|
|
|
Valid values are:
|
|
|
|
|
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
nil Never switch headers/footers.
|
XEmacs compatibility. Doc fix. Can select page size
with/without giving an error if PostScript printer doesn't have this
kind of page size. Zebra Stripe continues or restarts on next page.
Manual/automatic paper feeding. Switch or not the header.
(ps-print-version): New version number (5.2.2).
(ps-windows-system): Include emx as a Windows system.
(ps-setup, ps-begin-file, ps-color-values, ps-screen-to-bit-face)
(ps-generate-postscript-with-faces, ps-generate-postscript-with-faces)
(ps-background-text): Code fix.
(ps-error-handler-message, ps-user-defined-prologue)
(ps-print-prologue-header, ps-printer-name)
(ps-print-control-characters, ps-n-up-filling, ps-zebra-color)
(ps-line-number-step, ps-spool-config, ps-default-fg, ps-default-bg)
(ps-use-face-background): Customization fix.
(ps-n-up-database): Data fix.
(ps-warn-paper-type, ps-zebra-stripe-follow, ps-manual-feed)
(ps-switch-header): New vars.
(ps-xemacs-color-name, ps-face-foreground-name)
(ps-face-background-name, ps-boolean-constant): New funs.
2000-06-07 15:34:55 +00:00
|
|
|
|
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
t Always switch headers/footers.
|
XEmacs compatibility. Doc fix. Can select page size
with/without giving an error if PostScript printer doesn't have this
kind of page size. Zebra Stripe continues or restarts on next page.
Manual/automatic paper feeding. Switch or not the header.
(ps-print-version): New version number (5.2.2).
(ps-windows-system): Include emx as a Windows system.
(ps-setup, ps-begin-file, ps-color-values, ps-screen-to-bit-face)
(ps-generate-postscript-with-faces, ps-generate-postscript-with-faces)
(ps-background-text): Code fix.
(ps-error-handler-message, ps-user-defined-prologue)
(ps-print-prologue-header, ps-printer-name)
(ps-print-control-characters, ps-n-up-filling, ps-zebra-color)
(ps-line-number-step, ps-spool-config, ps-default-fg, ps-default-bg)
(ps-use-face-background): Customization fix.
(ps-n-up-database): Data fix.
(ps-warn-paper-type, ps-zebra-stripe-follow, ps-manual-feed)
(ps-switch-header): New vars.
(ps-xemacs-color-name, ps-face-foreground-name)
(ps-face-background-name, ps-boolean-constant): New funs.
2000-06-07 15:34:55 +00:00
|
|
|
|
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
duplex Switch headers/footers only when duplexing is on, that is, when
|
XEmacs compatibility. Doc fix. Can select page size
with/without giving an error if PostScript printer doesn't have this
kind of page size. Zebra Stripe continues or restarts on next page.
Manual/automatic paper feeding. Switch or not the header.
(ps-print-version): New version number (5.2.2).
(ps-windows-system): Include emx as a Windows system.
(ps-setup, ps-begin-file, ps-color-values, ps-screen-to-bit-face)
(ps-generate-postscript-with-faces, ps-generate-postscript-with-faces)
(ps-background-text): Code fix.
(ps-error-handler-message, ps-user-defined-prologue)
(ps-print-prologue-header, ps-printer-name)
(ps-print-control-characters, ps-n-up-filling, ps-zebra-color)
(ps-line-number-step, ps-spool-config, ps-default-fg, ps-default-bg)
(ps-use-face-background): Customization fix.
(ps-n-up-database): Data fix.
(ps-warn-paper-type, ps-zebra-stripe-follow, ps-manual-feed)
(ps-switch-header): New vars.
(ps-xemacs-color-name, ps-face-foreground-name)
(ps-face-background-name, ps-boolean-constant): New funs.
2000-06-07 15:34:55 +00:00
|
|
|
|
`ps-spool-duplex' is non-nil.
|
|
|
|
|
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
Any other value is treated as t.
|
|
|
|
|
|
|
|
|
|
See also `ps-print-header' and `ps-print-footer'."
|
|
|
|
|
:type '(choice :menu-tag "Switch Header/Footer"
|
|
|
|
|
:tag "Switch Header/Footer"
|
XEmacs compatibility. Doc fix. Can select page size
with/without giving an error if PostScript printer doesn't have this
kind of page size. Zebra Stripe continues or restarts on next page.
Manual/automatic paper feeding. Switch or not the header.
(ps-print-version): New version number (5.2.2).
(ps-windows-system): Include emx as a Windows system.
(ps-setup, ps-begin-file, ps-color-values, ps-screen-to-bit-face)
(ps-generate-postscript-with-faces, ps-generate-postscript-with-faces)
(ps-background-text): Code fix.
(ps-error-handler-message, ps-user-defined-prologue)
(ps-print-prologue-header, ps-printer-name)
(ps-print-control-characters, ps-n-up-filling, ps-zebra-color)
(ps-line-number-step, ps-spool-config, ps-default-fg, ps-default-bg)
(ps-use-face-background): Customization fix.
(ps-n-up-database): Data fix.
(ps-warn-paper-type, ps-zebra-stripe-follow, ps-manual-feed)
(ps-switch-header): New vars.
(ps-xemacs-color-name, ps-face-foreground-name)
(ps-face-background-name, ps-boolean-constant): New funs.
2000-06-07 15:34:55 +00:00
|
|
|
|
(const :tag "Never Switch" nil)
|
|
|
|
|
(const :tag "Always Switch" t)
|
|
|
|
|
(const :tag "Switch When Duplexing" duplex))
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
XEmacs compatibility. Doc fix. Can select page size
with/without giving an error if PostScript printer doesn't have this
kind of page size. Zebra Stripe continues or restarts on next page.
Manual/automatic paper feeding. Switch or not the header.
(ps-print-version): New version number (5.2.2).
(ps-windows-system): Include emx as a Windows system.
(ps-setup, ps-begin-file, ps-color-values, ps-screen-to-bit-face)
(ps-generate-postscript-with-faces, ps-generate-postscript-with-faces)
(ps-background-text): Code fix.
(ps-error-handler-message, ps-user-defined-prologue)
(ps-print-prologue-header, ps-printer-name)
(ps-print-control-characters, ps-n-up-filling, ps-zebra-color)
(ps-line-number-step, ps-spool-config, ps-default-fg, ps-default-bg)
(ps-use-face-background): Customization fix.
(ps-n-up-database): Data fix.
(ps-warn-paper-type, ps-zebra-stripe-follow, ps-manual-feed)
(ps-switch-header): New vars.
(ps-xemacs-color-name, ps-face-foreground-name)
(ps-face-background-name, ps-boolean-constant): New funs.
2000-06-07 15:34:55 +00:00
|
|
|
|
:group 'ps-print-headers)
|
|
|
|
|
|
1997-04-12 01:50:50 +00:00
|
|
|
|
(defcustom ps-show-n-of-n t
|
1995-02-07 22:51:35 +00:00
|
|
|
|
"*Non-nil means show page numbers as N/M, meaning page N of M.
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.2) and doc fix.
(ps-print, ps-header-lines, ps-show-n-of-n, ps-font-info-database)
(ps-font-family, ps-font-size, ps-header-font-family)
(ps-header-font-size, ps-header-title-font-size, ps-bold-faces)
(ps-italic-faces, ps-underlined-faces, ps-left-header, ps-right-header)
(ps-font, ps-font-bold, ps-font-italic, ps-font-bold-italic)
(ps-avg-char-width, ps-space-width, ps-line-height): Doc fix.
(ps-error-scale-font): New fn.
(ps-soft-lf, ps-hard-lf): Fn deleted.
(ps-get-page-dimensions, ps-set-bg, ps-face-bold-p, ps-face-italic-p)
(ps-set-color): Reindentation.
(ps-output-string-prim, ps-xemacs-face-kind-p): Internal blank lines
deleted.
(ps-set-font): Little programming improvement.
(ps-line-lengths-internal, ps-nb-pages, ps-select-font)
(ps-select-header-font): Simplify some expressions.
(ps-plot-region): Replace (- X 1) by (1- X).
(ps-generate-header): Replace (+ X 1) by (1+ X).
(ps-print-preprint, ps-plot-with-face, ps-print-ensure-fontified)
(ps-kill-emacs-check): Replace (if (and A B) C) by (and A B C).
(ps-init-output-queue, ps-gnus-article-prepare-hook, ps-jts-ps-setup):
Replace (setq a b)(setq c d) by (setq a b c d).
(ps-begin-file, ps-end-file): Replace (ps-output A)(ps-output B)
by (ps-output A B).
(ps-begin-page): Replace (ps-output A)(ps-output B) by (ps-output A B),
replace (setq a b)(setq c d) by (setq a b c d).
(ps-next-line, ps-continue-line): Replace (setq a b)(setq c d)
by (setq a b c d), and incorporates ps-soft-lf and ps-hard-lf,
respectively.
(ps-plot): Replace (setq a b)(setq c d) by (setq a b c d),
and programming improvement.
(ps-generate-postscript-with-faces): Initialization fix,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if (and A B) C) by (and A B C).
(ps-generate): Doc fix, reprogramming to set the page count,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if A nil B) by (or A B),
replace (if (and A B) C) by (and A B C).
(ps-info-mode-hook): Replace (list 'A 'B) by '(A B).
(ps-jack-setup): Replace (list) by nil.
1997-11-23 02:26:50 +00:00
|
|
|
|
NOTE: page numbers are displayed as part of headers,
|
PostScript programming fix for ghostview, doc fix.
(ps-print-version): New version number (5.1.3).
(ps-begin-file, ps-begin-job, ps-set-color, ps-do-despool, ps-setup)
(ps-insert-file, ps-output-boolean, ps-plot-with-face)
(ps-generate-postscript-with-faces): Code fix.
(ps-color-values): XEmacs compatibility.
(ps-print-background-image, ps-print-background-text, ps-printer-name)
(ps-default-fg, ps-default-bg): Adjust customization.
(ps-zebra-color): Adjust customization, renaming old ps-zebra-gray var.
(ps-color-scale): Renaming old ps-color-value fun.
(ps-print-headers): Replace ps-print-header group to avoid conflict
with ps-print-header variable.
(ps-print-miscellany): New group.
(ps-format-color, ps-rgb-color): New funs.
(ps-default-foreground): New var.
(ps-printer-name-option): New const.
2000-03-30 13:21:45 +00:00
|
|
|
|
see variable `ps-print-header'."
|
1997-04-12 01:50:50 +00:00
|
|
|
|
:type 'boolean
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
PostScript programming fix for ghostview, doc fix.
(ps-print-version): New version number (5.1.3).
(ps-begin-file, ps-begin-job, ps-set-color, ps-do-despool, ps-setup)
(ps-insert-file, ps-output-boolean, ps-plot-with-face)
(ps-generate-postscript-with-faces): Code fix.
(ps-color-values): XEmacs compatibility.
(ps-print-background-image, ps-print-background-text, ps-printer-name)
(ps-default-fg, ps-default-bg): Adjust customization.
(ps-zebra-color): Adjust customization, renaming old ps-zebra-gray var.
(ps-color-scale): Renaming old ps-color-value fun.
(ps-print-headers): Replace ps-print-header group to avoid conflict
with ps-print-header variable.
(ps-print-miscellany): New group.
(ps-format-color, ps-rgb-color): New funs.
(ps-default-foreground): New var.
(ps-printer-name-option): New const.
2000-03-30 13:21:45 +00:00
|
|
|
|
:group 'ps-print-headers)
|
1995-01-20 06:09:03 +00:00
|
|
|
|
|
2000-04-13 19:15:23 +00:00
|
|
|
|
(defcustom ps-spool-config
|
2000-04-29 19:27:49 +00:00
|
|
|
|
(if ps-windows-system
|
2000-04-13 19:15:23 +00:00
|
|
|
|
nil
|
|
|
|
|
'lpr-switches)
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
"*Specify who is responsible for setting duplex and page size.
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
|
|
|
|
|
Valid values are:
|
|
|
|
|
|
|
|
|
|
`lpr-switches' duplex and page size are configured by `ps-lpr-switches'.
|
|
|
|
|
Don't forget to set `ps-lpr-switches' to select duplex
|
|
|
|
|
printing for your printer.
|
|
|
|
|
|
|
|
|
|
`setpagedevice' duplex and page size are configured by ps-print using the
|
|
|
|
|
setpagedevice PostScript operator.
|
|
|
|
|
|
|
|
|
|
nil duplex and page size are configured by ps-print *not* using
|
|
|
|
|
the setpagedevice PostScript operator.
|
|
|
|
|
|
|
|
|
|
Any other value is treated as nil.
|
|
|
|
|
|
|
|
|
|
WARNING: The setpagedevice PostScript operator affects ghostview utility when
|
|
|
|
|
viewing file generated using landscape. Also on some printers,
|
|
|
|
|
setpagedevice affects zebra stripes; on other printers, setpagedevice
|
|
|
|
|
affects the left margin.
|
|
|
|
|
Besides all that, if your printer does not have the paper size
|
|
|
|
|
specified by setpagedevice, your printing will be aborted.
|
|
|
|
|
So, if you need to use setpagedevice, set `ps-spool-config' to
|
|
|
|
|
`setpagedevice', generate a test file and send it to your printer; if
|
2002-09-09 19:26:40 +00:00
|
|
|
|
the printed file isn't OK, set `ps-spool-config' to nil."
|
XEmacs compatibility. Doc fix. Can select page size
with/without giving an error if PostScript printer doesn't have this
kind of page size. Zebra Stripe continues or restarts on next page.
Manual/automatic paper feeding. Switch or not the header.
(ps-print-version): New version number (5.2.2).
(ps-windows-system): Include emx as a Windows system.
(ps-setup, ps-begin-file, ps-color-values, ps-screen-to-bit-face)
(ps-generate-postscript-with-faces, ps-generate-postscript-with-faces)
(ps-background-text): Code fix.
(ps-error-handler-message, ps-user-defined-prologue)
(ps-print-prologue-header, ps-printer-name)
(ps-print-control-characters, ps-n-up-filling, ps-zebra-color)
(ps-line-number-step, ps-spool-config, ps-default-fg, ps-default-bg)
(ps-use-face-background): Customization fix.
(ps-n-up-database): Data fix.
(ps-warn-paper-type, ps-zebra-stripe-follow, ps-manual-feed)
(ps-switch-header): New vars.
(ps-xemacs-color-name, ps-face-foreground-name)
(ps-face-background-name, ps-boolean-constant): New funs.
2000-06-07 15:34:55 +00:00
|
|
|
|
:type '(choice :menu-tag "Spool Config"
|
|
|
|
|
:tag "Spool Config"
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
(const lpr-switches) (const setpagedevice)
|
2000-04-13 19:15:23 +00:00
|
|
|
|
(const :tag "nil" nil))
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
PostScript programming fix for ghostview, doc fix.
(ps-print-version): New version number (5.1.3).
(ps-begin-file, ps-begin-job, ps-set-color, ps-do-despool, ps-setup)
(ps-insert-file, ps-output-boolean, ps-plot-with-face)
(ps-generate-postscript-with-faces): Code fix.
(ps-color-values): XEmacs compatibility.
(ps-print-background-image, ps-print-background-text, ps-printer-name)
(ps-default-fg, ps-default-bg): Adjust customization.
(ps-zebra-color): Adjust customization, renaming old ps-zebra-gray var.
(ps-color-scale): Renaming old ps-color-value fun.
(ps-print-headers): Replace ps-print-header group to avoid conflict
with ps-print-header variable.
(ps-print-miscellany): New group.
(ps-format-color, ps-rgb-color): New funs.
(ps-default-foreground): New var.
(ps-printer-name-option): New const.
2000-03-30 13:21:45 +00:00
|
|
|
|
:group 'ps-print-headers)
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
|
|
|
|
|
(defcustom ps-spool-duplex nil ; Not many people have duplex printers,
|
|
|
|
|
; so default to nil.
|
|
|
|
|
"*Non-nil generates PostScript for a two-sided printer.
|
|
|
|
|
For a duplex printer, the `ps-spool-*' and `ps-print-*' commands will insert
|
|
|
|
|
blank pages as needed between print jobs so that the next buffer printed will
|
|
|
|
|
start on the right page. Also, if headers are turned on, the headers will be
|
|
|
|
|
reversed on duplex printers so that the page numbers fall to the left on
|
2000-01-05 07:17:31 +00:00
|
|
|
|
even-numbered pages.
|
|
|
|
|
|
|
|
|
|
See also `ps-spool-tumble'."
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
:type 'boolean
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
PostScript programming fix for ghostview, doc fix.
(ps-print-version): New version number (5.1.3).
(ps-begin-file, ps-begin-job, ps-set-color, ps-do-despool, ps-setup)
(ps-insert-file, ps-output-boolean, ps-plot-with-face)
(ps-generate-postscript-with-faces): Code fix.
(ps-color-values): XEmacs compatibility.
(ps-print-background-image, ps-print-background-text, ps-printer-name)
(ps-default-fg, ps-default-bg): Adjust customization.
(ps-zebra-color): Adjust customization, renaming old ps-zebra-gray var.
(ps-color-scale): Renaming old ps-color-value fun.
(ps-print-headers): Replace ps-print-header group to avoid conflict
with ps-print-header variable.
(ps-print-miscellany): New group.
(ps-format-color, ps-rgb-color): New funs.
(ps-default-foreground): New var.
(ps-printer-name-option): New const.
2000-03-30 13:21:45 +00:00
|
|
|
|
:group 'ps-print-headers)
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
|
|
|
|
|
(defcustom ps-spool-tumble nil
|
|
|
|
|
"*Specify how the page images on opposite sides of a sheet are oriented.
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
If `ps-spool-tumble' is nil, produces output suitable for binding on the left
|
|
|
|
|
or right. If `ps-spool-tumble' is non-nil, produces output suitable for
|
|
|
|
|
binding at the top or bottom.
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
|
|
|
|
|
It has effect only when `ps-spool-duplex' is non-nil."
|
1997-04-12 01:50:50 +00:00
|
|
|
|
:type 'boolean
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
PostScript programming fix for ghostview, doc fix.
(ps-print-version): New version number (5.1.3).
(ps-begin-file, ps-begin-job, ps-set-color, ps-do-despool, ps-setup)
(ps-insert-file, ps-output-boolean, ps-plot-with-face)
(ps-generate-postscript-with-faces): Code fix.
(ps-color-values): XEmacs compatibility.
(ps-print-background-image, ps-print-background-text, ps-printer-name)
(ps-default-fg, ps-default-bg): Adjust customization.
(ps-zebra-color): Adjust customization, renaming old ps-zebra-gray var.
(ps-color-scale): Renaming old ps-color-value fun.
(ps-print-headers): Replace ps-print-header group to avoid conflict
with ps-print-header variable.
(ps-print-miscellany): New group.
(ps-format-color, ps-rgb-color): New funs.
(ps-default-foreground): New var.
(ps-printer-name-option): New const.
2000-03-30 13:21:45 +00:00
|
|
|
|
:group 'ps-print-headers)
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
|
|
|
|
|
;;; Fonts
|
|
|
|
|
|
1997-04-12 01:50:50 +00:00
|
|
|
|
(defcustom ps-font-info-database
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
'((Courier ; the family key
|
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.
1998-03-07 06:04:46 +00:00
|
|
|
|
(fonts (normal . "Courier")
|
|
|
|
|
(bold . "Courier-Bold")
|
|
|
|
|
(italic . "Courier-Oblique")
|
|
|
|
|
(bold-italic . "Courier-BoldOblique"))
|
|
|
|
|
(size . 10.0)
|
|
|
|
|
(line-height . 10.55)
|
|
|
|
|
(space-width . 6.0)
|
|
|
|
|
(avg-char-width . 6.0))
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
(Helvetica ; the family key
|
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.
1998-03-07 06:04:46 +00:00
|
|
|
|
(fonts (normal . "Helvetica")
|
|
|
|
|
(bold . "Helvetica-Bold")
|
|
|
|
|
(italic . "Helvetica-Oblique")
|
|
|
|
|
(bold-italic . "Helvetica-BoldOblique"))
|
|
|
|
|
(size . 10.0)
|
|
|
|
|
(line-height . 11.56)
|
|
|
|
|
(space-width . 2.78)
|
|
|
|
|
(avg-char-width . 5.09243))
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
(Times
|
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.
1998-03-07 06:04:46 +00:00
|
|
|
|
(fonts (normal . "Times-Roman")
|
|
|
|
|
(bold . "Times-Bold")
|
|
|
|
|
(italic . "Times-Italic")
|
|
|
|
|
(bold-italic . "Times-BoldItalic"))
|
|
|
|
|
(size . 10.0)
|
|
|
|
|
(line-height . 11.0)
|
|
|
|
|
(space-width . 2.5)
|
1998-09-18 09:19:47 +00:00
|
|
|
|
(avg-char-width . 4.71432))
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
(Palatino
|
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.
1998-03-07 06:04:46 +00:00
|
|
|
|
(fonts (normal . "Palatino-Roman")
|
|
|
|
|
(bold . "Palatino-Bold")
|
|
|
|
|
(italic . "Palatino-Italic")
|
|
|
|
|
(bold-italic . "Palatino-BoldItalic"))
|
|
|
|
|
(size . 10.0)
|
|
|
|
|
(line-height . 12.1)
|
|
|
|
|
(space-width . 2.5)
|
|
|
|
|
(avg-char-width . 5.08676))
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
(Helvetica-Narrow
|
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.
1998-03-07 06:04:46 +00:00
|
|
|
|
(fonts (normal . "Helvetica-Narrow")
|
|
|
|
|
(bold . "Helvetica-Narrow-Bold")
|
|
|
|
|
(italic . "Helvetica-Narrow-Oblique")
|
|
|
|
|
(bold-italic . "Helvetica-Narrow-BoldOblique"))
|
|
|
|
|
(size . 10.0)
|
|
|
|
|
(line-height . 11.56)
|
|
|
|
|
(space-width . 2.2796)
|
|
|
|
|
(avg-char-width . 4.17579))
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
(NewCenturySchlbk
|
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.
1998-03-07 06:04:46 +00:00
|
|
|
|
(fonts (normal . "NewCenturySchlbk-Roman")
|
|
|
|
|
(bold . "NewCenturySchlbk-Bold")
|
|
|
|
|
(italic . "NewCenturySchlbk-Italic")
|
|
|
|
|
(bold-italic . "NewCenturySchlbk-BoldItalic"))
|
|
|
|
|
(size . 10.0)
|
1998-09-18 09:19:47 +00:00
|
|
|
|
(line-height . 12.15)
|
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.
1998-03-07 06:04:46 +00:00
|
|
|
|
(space-width . 2.78)
|
|
|
|
|
(avg-char-width . 5.31162))
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
;; got no bold for the next ones
|
|
|
|
|
(AvantGarde-Book
|
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.
1998-03-07 06:04:46 +00:00
|
|
|
|
(fonts (normal . "AvantGarde-Book")
|
|
|
|
|
(italic . "AvantGarde-BookOblique"))
|
|
|
|
|
(size . 10.0)
|
|
|
|
|
(line-height . 11.77)
|
|
|
|
|
(space-width . 2.77)
|
|
|
|
|
(avg-char-width . 5.45189))
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
(AvantGarde-Demi
|
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.
1998-03-07 06:04:46 +00:00
|
|
|
|
(fonts (normal . "AvantGarde-Demi")
|
|
|
|
|
(italic . "AvantGarde-DemiOblique"))
|
|
|
|
|
(size . 10.0)
|
|
|
|
|
(line-height . 12.72)
|
|
|
|
|
(space-width . 2.8)
|
|
|
|
|
(avg-char-width . 5.51351))
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
(Bookman-Demi
|
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.
1998-03-07 06:04:46 +00:00
|
|
|
|
(fonts (normal . "Bookman-Demi")
|
|
|
|
|
(italic . "Bookman-DemiItalic"))
|
|
|
|
|
(size . 10.0)
|
|
|
|
|
(line-height . 11.77)
|
|
|
|
|
(space-width . 3.4)
|
|
|
|
|
(avg-char-width . 6.05946))
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
(Bookman-Light
|
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.
1998-03-07 06:04:46 +00:00
|
|
|
|
(fonts (normal . "Bookman-Light")
|
|
|
|
|
(italic . "Bookman-LightItalic"))
|
|
|
|
|
(size . 10.0)
|
|
|
|
|
(line-height . 11.79)
|
|
|
|
|
(space-width . 3.2)
|
|
|
|
|
(avg-char-width . 5.67027))
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
;; got no bold and no italic for the next ones
|
|
|
|
|
(Symbol
|
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.
1998-03-07 06:04:46 +00:00
|
|
|
|
(fonts (normal . "Symbol"))
|
|
|
|
|
(size . 10.0)
|
|
|
|
|
(line-height . 13.03)
|
|
|
|
|
(space-width . 2.5)
|
|
|
|
|
(avg-char-width . 3.24324))
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
(Zapf-Dingbats
|
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.
1998-03-07 06:04:46 +00:00
|
|
|
|
(fonts (normal . "Zapf-Dingbats"))
|
|
|
|
|
(size . 10.0)
|
|
|
|
|
(line-height . 9.63)
|
|
|
|
|
(space-width . 2.78)
|
|
|
|
|
(avg-char-width . 2.78))
|
2005-02-18 00:44:44 +00:00
|
|
|
|
(ZapfChancery-MediumItalic
|
|
|
|
|
(fonts (normal . "ZapfChancery-MediumItalic"))
|
|
|
|
|
(size . 10.0)
|
|
|
|
|
(line-height . 11.45)
|
|
|
|
|
(space-width . 2.2)
|
|
|
|
|
(avg-char-width . 4.10811))
|
|
|
|
|
;; We keep this wrong entry name (but with correct font name) for
|
|
|
|
|
;; backward compatibility.
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
(Zapf-Chancery-MediumItalic
|
2005-02-18 00:44:44 +00:00
|
|
|
|
(fonts (normal . "ZapfChancery-MediumItalic"))
|
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.
1998-03-07 06:04:46 +00:00
|
|
|
|
(size . 10.0)
|
|
|
|
|
(line-height . 11.45)
|
|
|
|
|
(space-width . 2.2)
|
|
|
|
|
(avg-char-width . 4.10811))
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
)
|
2002-09-09 19:26:40 +00:00
|
|
|
|
"*Font info database.
|
|
|
|
|
Each element comprises: font family (the key), name, bold, italic, bold-italic,
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
reference size, line height, space width, average character width.
|
|
|
|
|
To get the info for another specific font (say Helvetica), do the following:
|
|
|
|
|
- create a new buffer
|
|
|
|
|
- generate the PostScript image to a file (C-u M-x ps-print-buffer)
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
- open this file and delete the leading `%' (which is the PostScript comment
|
|
|
|
|
character) from the line
|
Fix bug: if ^L is the very first buffer character,
ps-print crashes. New feature: page selection for printing. Create
raw-text-unix coding system for XEmacs. Doc fix.
(ps-print-version): New version number (5.2.3).
(ps-plot-region): Bug fix.
(ps-setup, ps-init-output-queue, ps-output, ps-begin-job, ps-end-file)
(ps-header-sheet, ps-generate, ps-end-job): Code fix.
(ps-restore-selected-pages, ps-selected-pages, ps-print-page-p): New
funs.
(ps-selected-pages, ps-last-selected-pages, ps-first-page)
(ps-last-page): New vars.
2000-06-22 12:27:49 +00:00
|
|
|
|
`% 3 cm 20 cm moveto 10/Courier ReportFontInfo showpage'
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
to get the line
|
Fix bug: if ^L is the very first buffer character,
ps-print crashes. New feature: page selection for printing. Create
raw-text-unix coding system for XEmacs. Doc fix.
(ps-print-version): New version number (5.2.3).
(ps-plot-region): Bug fix.
(ps-setup, ps-init-output-queue, ps-output, ps-begin-job, ps-end-file)
(ps-header-sheet, ps-generate, ps-end-job): Code fix.
(ps-restore-selected-pages, ps-selected-pages, ps-print-page-p): New
funs.
(ps-selected-pages, ps-last-selected-pages, ps-first-page)
(ps-last-page): New vars.
2000-06-22 12:27:49 +00:00
|
|
|
|
`3 cm 20 cm moveto 10/Helvetica ReportFontInfo showpage'
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
- add the values to `ps-font-info-database'.
|
2000-08-29 10:51:52 +00:00
|
|
|
|
You can get all the fonts of YOUR printer using `ReportAllFontInfo'.
|
|
|
|
|
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
Note also that ps-print DOESN'T download any font to your printer, instead it
|
|
|
|
|
uses the fonts resident in your printer."
|
(ps-end-job): Bind case-fold-search only after
switching to ps-spool-buffer.
Line number font customization. PostScript: Lines and
PageCount are initialized on each page. Doc Fix.
(ps-print-version): New version number (6.3.2).
(ps-lpr-switches, ps-font-info-database, ps-font-size)
(ps-header-font-size, ps-header-title-font-size, ps-left-header)
(ps-right-header): Customization fix.
(ps-setup, ps-select-font, ps-begin-file, ps-header-sheet, ps-end-job):
Fix code.
(ps-end-with-control-d, ps-line-number-font, ps-line-number-font-size):
New vars.
2000-11-30 13:20:49 +00:00
|
|
|
|
:type '(repeat
|
|
|
|
|
(list :tag "Font Definition"
|
|
|
|
|
(symbol :tag "Font Family")
|
|
|
|
|
(cons :format "%v"
|
|
|
|
|
(const :format "" fonts)
|
|
|
|
|
(repeat :tag "Faces"
|
|
|
|
|
(cons (choice :menu-tag "Font Weight/Slant"
|
|
|
|
|
:tag "Font Weight/Slant"
|
|
|
|
|
(const normal)
|
|
|
|
|
(const bold)
|
|
|
|
|
(const italic)
|
|
|
|
|
(const bold-italic)
|
|
|
|
|
(symbol :tag "Face"))
|
|
|
|
|
(string :tag "Font Name"))))
|
|
|
|
|
(cons :format "%v"
|
|
|
|
|
(const :format "" size)
|
|
|
|
|
(number :tag "Reference Size"))
|
|
|
|
|
(cons :format "%v"
|
|
|
|
|
(const :format "" line-height)
|
|
|
|
|
(number :tag "Line Height"))
|
|
|
|
|
(cons :format "%v"
|
|
|
|
|
(const :format "" space-width)
|
|
|
|
|
(number :tag "Space Width"))
|
|
|
|
|
(cons :format "%v"
|
|
|
|
|
(const :format "" avg-char-width)
|
|
|
|
|
(number :tag "Average Character Width"))))
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
1997-04-12 01:50:50 +00:00
|
|
|
|
:group 'ps-print-font)
|
|
|
|
|
|
|
|
|
|
(defcustom ps-font-family 'Courier
|
User option for multibyte buffer handling and doc fix.
(ps-multibyte-buffer): New user option.
(ps-setup): Print new user option.
(ps-print-quote): New fun.
(ps-color-p, ps-mule-font-info-database-latin): New var.
(ps-default-color, ps-mule-font-info-database)
(ps-mule-font-info-database-ps-bdf): Adjust initialization.
(ps-mule-get-font-spec, ps-mule-begin, ps-begin-file)
(ps-plot-with-face, ps-generate-postscript-with-faces, ps-generate):
Little code improvement.
(ps-mule-initialize): Initialize ps-mule-font-info-database.
(ps-print-prologue-header, ps-font-family, ps-font-size)
(ps-header-font-family, ps-header-font-size, ps-header-title-font-size)
(ps-build-face-reference, ps-mule-font-info-database-bdf)
(ps-mule-external-libraries, ps-mule-init-external-library)
(ps-mule-prepare-font, ps-mule-find-wrappoint, ps-mule-plot-string): doc
fix.
To make it work also on Emacs 20.2 and the earlier
version, check the value of mule-version.
(ps-print-version): New version number (4.1.1) and doc
fix.
(ps-print-prologue-header): New user option.
(ps-color-values, ps-xemacs-face-kind-p, ps-mapper, ps-extent-sorter):
Conditional compilation for GNU Emacs and emacsens.
(ps-generate-postscript-with-faces): Skip invisible text better.
(ps-setup): Print new user option.
(ps-print-preprint): Check if input file name exists and is unwritable.
(ps-begin-file): Adjust PostScript prologue header for duplex printers
and insert user PostScript prologue header comments.
(ps-mule-encode-bit, ps-mule-string-ascii, ps-mule-string-encoding): New
funs.
(dos-ps-printer, lazy-lock-fontify-buffer): Eliminated.
(ps-mule-prologue, ps-mule-cmpchar-prologue, ps-mule-bitmap-prologue):
PostScript programming normalization.
(ps-mule-encode-7bit, ps-mule-encode-8bit, ps-mule-generate-font)
(ps-mule-generate-glyphs, ps-mule-prepare-font, ps-mule-plot-string)
(ps-mule-skip-same-charset, ps-mule-plot-rule-cmpchar)
(ps-mule-plot-cmpchar, ps-mule-prepare-cmpchar-font)
(ps-mule-initialize, ps-mule-begin, ps-face-bold-p, ps-do-despool):
Programming style normalization.
1998-10-26 20:22:17 +00:00
|
|
|
|
"*Font family name for ordinary text, when generating PostScript."
|
1997-04-12 01:50:50 +00:00
|
|
|
|
:type 'symbol
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
1997-04-12 01:50:50 +00:00
|
|
|
|
:group 'ps-print-font)
|
|
|
|
|
|
Doc fix, font size specifies landscape and portrait sizes.
(ps-print-version): New version number (4.1.4).
(ps-font-size, ps-header-font-size, ps-header-title-font-size):
Specifies landscape and portrait sizes.
(ps-setup, ps-print-quote, ps-line-lengths-internal, ps-nb-pages)
(ps-get-page-dimensions, ps-begin-file, ps-begin-job, ps-generate): Fun
fix.
(ps-get-font-size): New fun.
(ps-font-size-internal, ps-header-font-size-internal)
(ps-header-title-font-size-internal): New vars.
PostScript programming fix.
(ps-print-prologue-1): Fix BeginDoc PostScript procedure (do'nt use
setpagedevice operator).
1999-02-27 01:37:15 +00:00
|
|
|
|
(defcustom ps-font-size '(7 . 8.5)
|
User option for multibyte buffer handling and doc fix.
(ps-multibyte-buffer): New user option.
(ps-setup): Print new user option.
(ps-print-quote): New fun.
(ps-color-p, ps-mule-font-info-database-latin): New var.
(ps-default-color, ps-mule-font-info-database)
(ps-mule-font-info-database-ps-bdf): Adjust initialization.
(ps-mule-get-font-spec, ps-mule-begin, ps-begin-file)
(ps-plot-with-face, ps-generate-postscript-with-faces, ps-generate):
Little code improvement.
(ps-mule-initialize): Initialize ps-mule-font-info-database.
(ps-print-prologue-header, ps-font-family, ps-font-size)
(ps-header-font-family, ps-header-font-size, ps-header-title-font-size)
(ps-build-face-reference, ps-mule-font-info-database-bdf)
(ps-mule-external-libraries, ps-mule-init-external-library)
(ps-mule-prepare-font, ps-mule-find-wrappoint, ps-mule-plot-string): doc
fix.
To make it work also on Emacs 20.2 and the earlier
version, check the value of mule-version.
(ps-print-version): New version number (4.1.1) and doc
fix.
(ps-print-prologue-header): New user option.
(ps-color-values, ps-xemacs-face-kind-p, ps-mapper, ps-extent-sorter):
Conditional compilation for GNU Emacs and emacsens.
(ps-generate-postscript-with-faces): Skip invisible text better.
(ps-setup): Print new user option.
(ps-print-preprint): Check if input file name exists and is unwritable.
(ps-begin-file): Adjust PostScript prologue header for duplex printers
and insert user PostScript prologue header comments.
(ps-mule-encode-bit, ps-mule-string-ascii, ps-mule-string-encoding): New
funs.
(dos-ps-printer, lazy-lock-fontify-buffer): Eliminated.
(ps-mule-prologue, ps-mule-cmpchar-prologue, ps-mule-bitmap-prologue):
PostScript programming normalization.
(ps-mule-encode-7bit, ps-mule-encode-8bit, ps-mule-generate-font)
(ps-mule-generate-glyphs, ps-mule-prepare-font, ps-mule-plot-string)
(ps-mule-skip-same-charset, ps-mule-plot-rule-cmpchar)
(ps-mule-plot-cmpchar, ps-mule-prepare-cmpchar-font)
(ps-mule-initialize, ps-mule-begin, ps-face-bold-p, ps-do-despool):
Programming style normalization.
1998-10-26 20:22:17 +00:00
|
|
|
|
"*Font size, in points, for ordinary text, when generating PostScript."
|
(ps-end-job): Bind case-fold-search only after
switching to ps-spool-buffer.
Line number font customization. PostScript: Lines and
PageCount are initialized on each page. Doc Fix.
(ps-print-version): New version number (6.3.2).
(ps-lpr-switches, ps-font-info-database, ps-font-size)
(ps-header-font-size, ps-header-title-font-size, ps-left-header)
(ps-right-header): Customization fix.
(ps-setup, ps-select-font, ps-begin-file, ps-header-sheet, ps-end-job):
Fix code.
(ps-end-with-control-d, ps-line-number-font, ps-line-number-font-size):
New vars.
2000-11-30 13:20:49 +00:00
|
|
|
|
:type '(choice :menu-tag "Ordinary Text Font Size"
|
|
|
|
|
:tag "Ordinary Text Font Size"
|
|
|
|
|
(number :tag "Text Size")
|
Doc fix, font size specifies landscape and portrait sizes.
(ps-print-version): New version number (4.1.4).
(ps-font-size, ps-header-font-size, ps-header-title-font-size):
Specifies landscape and portrait sizes.
(ps-setup, ps-print-quote, ps-line-lengths-internal, ps-nb-pages)
(ps-get-page-dimensions, ps-begin-file, ps-begin-job, ps-generate): Fun
fix.
(ps-get-font-size): New fun.
(ps-font-size-internal, ps-header-font-size-internal)
(ps-header-title-font-size-internal): New vars.
PostScript programming fix.
(ps-print-prologue-1): Fix BeginDoc PostScript procedure (do'nt use
setpagedevice operator).
1999-02-27 01:37:15 +00:00
|
|
|
|
(cons :tag "Landscape/Portrait"
|
|
|
|
|
(number :tag "Landscape Text Size")
|
|
|
|
|
(number :tag "Portrait Text Size")))
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
1997-04-12 01:50:50 +00:00
|
|
|
|
:group 'ps-print-font)
|
|
|
|
|
|
|
|
|
|
(defcustom ps-header-font-family 'Helvetica
|
User option for multibyte buffer handling and doc fix.
(ps-multibyte-buffer): New user option.
(ps-setup): Print new user option.
(ps-print-quote): New fun.
(ps-color-p, ps-mule-font-info-database-latin): New var.
(ps-default-color, ps-mule-font-info-database)
(ps-mule-font-info-database-ps-bdf): Adjust initialization.
(ps-mule-get-font-spec, ps-mule-begin, ps-begin-file)
(ps-plot-with-face, ps-generate-postscript-with-faces, ps-generate):
Little code improvement.
(ps-mule-initialize): Initialize ps-mule-font-info-database.
(ps-print-prologue-header, ps-font-family, ps-font-size)
(ps-header-font-family, ps-header-font-size, ps-header-title-font-size)
(ps-build-face-reference, ps-mule-font-info-database-bdf)
(ps-mule-external-libraries, ps-mule-init-external-library)
(ps-mule-prepare-font, ps-mule-find-wrappoint, ps-mule-plot-string): doc
fix.
To make it work also on Emacs 20.2 and the earlier
version, check the value of mule-version.
(ps-print-version): New version number (4.1.1) and doc
fix.
(ps-print-prologue-header): New user option.
(ps-color-values, ps-xemacs-face-kind-p, ps-mapper, ps-extent-sorter):
Conditional compilation for GNU Emacs and emacsens.
(ps-generate-postscript-with-faces): Skip invisible text better.
(ps-setup): Print new user option.
(ps-print-preprint): Check if input file name exists and is unwritable.
(ps-begin-file): Adjust PostScript prologue header for duplex printers
and insert user PostScript prologue header comments.
(ps-mule-encode-bit, ps-mule-string-ascii, ps-mule-string-encoding): New
funs.
(dos-ps-printer, lazy-lock-fontify-buffer): Eliminated.
(ps-mule-prologue, ps-mule-cmpchar-prologue, ps-mule-bitmap-prologue):
PostScript programming normalization.
(ps-mule-encode-7bit, ps-mule-encode-8bit, ps-mule-generate-font)
(ps-mule-generate-glyphs, ps-mule-prepare-font, ps-mule-plot-string)
(ps-mule-skip-same-charset, ps-mule-plot-rule-cmpchar)
(ps-mule-plot-cmpchar, ps-mule-prepare-cmpchar-font)
(ps-mule-initialize, ps-mule-begin, ps-face-bold-p, ps-do-despool):
Programming style normalization.
1998-10-26 20:22:17 +00:00
|
|
|
|
"*Font family name for text in the header, when generating PostScript."
|
1997-04-12 01:50:50 +00:00
|
|
|
|
:type 'symbol
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
1997-04-12 01:50:50 +00:00
|
|
|
|
:group 'ps-print-font)
|
|
|
|
|
|
Doc fix, font size specifies landscape and portrait sizes.
(ps-print-version): New version number (4.1.4).
(ps-font-size, ps-header-font-size, ps-header-title-font-size):
Specifies landscape and portrait sizes.
(ps-setup, ps-print-quote, ps-line-lengths-internal, ps-nb-pages)
(ps-get-page-dimensions, ps-begin-file, ps-begin-job, ps-generate): Fun
fix.
(ps-get-font-size): New fun.
(ps-font-size-internal, ps-header-font-size-internal)
(ps-header-title-font-size-internal): New vars.
PostScript programming fix.
(ps-print-prologue-1): Fix BeginDoc PostScript procedure (do'nt use
setpagedevice operator).
1999-02-27 01:37:15 +00:00
|
|
|
|
(defcustom ps-header-font-size '(10 . 12)
|
User option for multibyte buffer handling and doc fix.
(ps-multibyte-buffer): New user option.
(ps-setup): Print new user option.
(ps-print-quote): New fun.
(ps-color-p, ps-mule-font-info-database-latin): New var.
(ps-default-color, ps-mule-font-info-database)
(ps-mule-font-info-database-ps-bdf): Adjust initialization.
(ps-mule-get-font-spec, ps-mule-begin, ps-begin-file)
(ps-plot-with-face, ps-generate-postscript-with-faces, ps-generate):
Little code improvement.
(ps-mule-initialize): Initialize ps-mule-font-info-database.
(ps-print-prologue-header, ps-font-family, ps-font-size)
(ps-header-font-family, ps-header-font-size, ps-header-title-font-size)
(ps-build-face-reference, ps-mule-font-info-database-bdf)
(ps-mule-external-libraries, ps-mule-init-external-library)
(ps-mule-prepare-font, ps-mule-find-wrappoint, ps-mule-plot-string): doc
fix.
To make it work also on Emacs 20.2 and the earlier
version, check the value of mule-version.
(ps-print-version): New version number (4.1.1) and doc
fix.
(ps-print-prologue-header): New user option.
(ps-color-values, ps-xemacs-face-kind-p, ps-mapper, ps-extent-sorter):
Conditional compilation for GNU Emacs and emacsens.
(ps-generate-postscript-with-faces): Skip invisible text better.
(ps-setup): Print new user option.
(ps-print-preprint): Check if input file name exists and is unwritable.
(ps-begin-file): Adjust PostScript prologue header for duplex printers
and insert user PostScript prologue header comments.
(ps-mule-encode-bit, ps-mule-string-ascii, ps-mule-string-encoding): New
funs.
(dos-ps-printer, lazy-lock-fontify-buffer): Eliminated.
(ps-mule-prologue, ps-mule-cmpchar-prologue, ps-mule-bitmap-prologue):
PostScript programming normalization.
(ps-mule-encode-7bit, ps-mule-encode-8bit, ps-mule-generate-font)
(ps-mule-generate-glyphs, ps-mule-prepare-font, ps-mule-plot-string)
(ps-mule-skip-same-charset, ps-mule-plot-rule-cmpchar)
(ps-mule-plot-cmpchar, ps-mule-prepare-cmpchar-font)
(ps-mule-initialize, ps-mule-begin, ps-face-bold-p, ps-do-despool):
Programming style normalization.
1998-10-26 20:22:17 +00:00
|
|
|
|
"*Font size, in points, for text in the header, when generating PostScript."
|
(ps-end-job): Bind case-fold-search only after
switching to ps-spool-buffer.
Line number font customization. PostScript: Lines and
PageCount are initialized on each page. Doc Fix.
(ps-print-version): New version number (6.3.2).
(ps-lpr-switches, ps-font-info-database, ps-font-size)
(ps-header-font-size, ps-header-title-font-size, ps-left-header)
(ps-right-header): Customization fix.
(ps-setup, ps-select-font, ps-begin-file, ps-header-sheet, ps-end-job):
Fix code.
(ps-end-with-control-d, ps-line-number-font, ps-line-number-font-size):
New vars.
2000-11-30 13:20:49 +00:00
|
|
|
|
:type '(choice :menu-tag "Header Font Size"
|
|
|
|
|
:tag "Header Font Size"
|
|
|
|
|
(number :tag "Header Size")
|
Doc fix, font size specifies landscape and portrait sizes.
(ps-print-version): New version number (4.1.4).
(ps-font-size, ps-header-font-size, ps-header-title-font-size):
Specifies landscape and portrait sizes.
(ps-setup, ps-print-quote, ps-line-lengths-internal, ps-nb-pages)
(ps-get-page-dimensions, ps-begin-file, ps-begin-job, ps-generate): Fun
fix.
(ps-get-font-size): New fun.
(ps-font-size-internal, ps-header-font-size-internal)
(ps-header-title-font-size-internal): New vars.
PostScript programming fix.
(ps-print-prologue-1): Fix BeginDoc PostScript procedure (do'nt use
setpagedevice operator).
1999-02-27 01:37:15 +00:00
|
|
|
|
(cons :tag "Landscape/Portrait"
|
|
|
|
|
(number :tag "Landscape Header Size")
|
|
|
|
|
(number :tag "Portrait Header Size")))
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
1997-04-12 01:50:50 +00:00
|
|
|
|
:group 'ps-print-font)
|
|
|
|
|
|
Doc fix, font size specifies landscape and portrait sizes.
(ps-print-version): New version number (4.1.4).
(ps-font-size, ps-header-font-size, ps-header-title-font-size):
Specifies landscape and portrait sizes.
(ps-setup, ps-print-quote, ps-line-lengths-internal, ps-nb-pages)
(ps-get-page-dimensions, ps-begin-file, ps-begin-job, ps-generate): Fun
fix.
(ps-get-font-size): New fun.
(ps-font-size-internal, ps-header-font-size-internal)
(ps-header-title-font-size-internal): New vars.
PostScript programming fix.
(ps-print-prologue-1): Fix BeginDoc PostScript procedure (do'nt use
setpagedevice operator).
1999-02-27 01:37:15 +00:00
|
|
|
|
(defcustom ps-header-title-font-size '(12 . 14)
|
User option for multibyte buffer handling and doc fix.
(ps-multibyte-buffer): New user option.
(ps-setup): Print new user option.
(ps-print-quote): New fun.
(ps-color-p, ps-mule-font-info-database-latin): New var.
(ps-default-color, ps-mule-font-info-database)
(ps-mule-font-info-database-ps-bdf): Adjust initialization.
(ps-mule-get-font-spec, ps-mule-begin, ps-begin-file)
(ps-plot-with-face, ps-generate-postscript-with-faces, ps-generate):
Little code improvement.
(ps-mule-initialize): Initialize ps-mule-font-info-database.
(ps-print-prologue-header, ps-font-family, ps-font-size)
(ps-header-font-family, ps-header-font-size, ps-header-title-font-size)
(ps-build-face-reference, ps-mule-font-info-database-bdf)
(ps-mule-external-libraries, ps-mule-init-external-library)
(ps-mule-prepare-font, ps-mule-find-wrappoint, ps-mule-plot-string): doc
fix.
To make it work also on Emacs 20.2 and the earlier
version, check the value of mule-version.
(ps-print-version): New version number (4.1.1) and doc
fix.
(ps-print-prologue-header): New user option.
(ps-color-values, ps-xemacs-face-kind-p, ps-mapper, ps-extent-sorter):
Conditional compilation for GNU Emacs and emacsens.
(ps-generate-postscript-with-faces): Skip invisible text better.
(ps-setup): Print new user option.
(ps-print-preprint): Check if input file name exists and is unwritable.
(ps-begin-file): Adjust PostScript prologue header for duplex printers
and insert user PostScript prologue header comments.
(ps-mule-encode-bit, ps-mule-string-ascii, ps-mule-string-encoding): New
funs.
(dos-ps-printer, lazy-lock-fontify-buffer): Eliminated.
(ps-mule-prologue, ps-mule-cmpchar-prologue, ps-mule-bitmap-prologue):
PostScript programming normalization.
(ps-mule-encode-7bit, ps-mule-encode-8bit, ps-mule-generate-font)
(ps-mule-generate-glyphs, ps-mule-prepare-font, ps-mule-plot-string)
(ps-mule-skip-same-charset, ps-mule-plot-rule-cmpchar)
(ps-mule-plot-cmpchar, ps-mule-prepare-cmpchar-font)
(ps-mule-initialize, ps-mule-begin, ps-face-bold-p, ps-do-despool):
Programming style normalization.
1998-10-26 20:22:17 +00:00
|
|
|
|
"*Font size, in points, for the top line of text in header, in PostScript."
|
(ps-end-job): Bind case-fold-search only after
switching to ps-spool-buffer.
Line number font customization. PostScript: Lines and
PageCount are initialized on each page. Doc Fix.
(ps-print-version): New version number (6.3.2).
(ps-lpr-switches, ps-font-info-database, ps-font-size)
(ps-header-font-size, ps-header-title-font-size, ps-left-header)
(ps-right-header): Customization fix.
(ps-setup, ps-select-font, ps-begin-file, ps-header-sheet, ps-end-job):
Fix code.
(ps-end-with-control-d, ps-line-number-font, ps-line-number-font-size):
New vars.
2000-11-30 13:20:49 +00:00
|
|
|
|
:type '(choice :menu-tag "Header Title Font Size"
|
|
|
|
|
:tag "Header Title Font Size"
|
|
|
|
|
(number :tag "Header Title Size")
|
Doc fix, font size specifies landscape and portrait sizes.
(ps-print-version): New version number (4.1.4).
(ps-font-size, ps-header-font-size, ps-header-title-font-size):
Specifies landscape and portrait sizes.
(ps-setup, ps-print-quote, ps-line-lengths-internal, ps-nb-pages)
(ps-get-page-dimensions, ps-begin-file, ps-begin-job, ps-generate): Fun
fix.
(ps-get-font-size): New fun.
(ps-font-size-internal, ps-header-font-size-internal)
(ps-header-title-font-size-internal): New vars.
PostScript programming fix.
(ps-print-prologue-1): Fix BeginDoc PostScript procedure (do'nt use
setpagedevice operator).
1999-02-27 01:37:15 +00:00
|
|
|
|
(cons :tag "Landscape/Portrait"
|
|
|
|
|
(number :tag "Landscape Header Title Size")
|
|
|
|
|
(number :tag "Portrait Header Title Size")))
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
1997-04-12 01:50:50 +00:00
|
|
|
|
:group 'ps-print-font)
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
(defcustom ps-footer-font-family 'Helvetica
|
|
|
|
|
"*Font family name for text in the footer, when generating PostScript."
|
|
|
|
|
:type 'symbol
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "21.1"
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
:group 'ps-print-font)
|
|
|
|
|
|
|
|
|
|
(defcustom ps-footer-font-size '(10 . 12)
|
|
|
|
|
"*Font size, in points, for text in the footer, when generating PostScript."
|
|
|
|
|
:type '(choice :menu-tag "Footer Font Size"
|
|
|
|
|
:tag "Footer Font Size"
|
|
|
|
|
(number :tag "Footer Size")
|
|
|
|
|
(cons :tag "Landscape/Portrait"
|
|
|
|
|
(number :tag "Landscape Footer Size")
|
|
|
|
|
(number :tag "Portrait Footer Size")))
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "21.1"
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
:group 'ps-print-font)
|
|
|
|
|
|
|
|
|
|
(defcustom ps-line-number-color "black"
|
|
|
|
|
"*Specify color for line-number, when generating PostScript."
|
|
|
|
|
:type '(choice :menu-tag "Line Number Color"
|
|
|
|
|
:tag "Line Number Color"
|
|
|
|
|
(number :tag "Gray Scale" :value 0)
|
|
|
|
|
(string :tag "Color Name" :value "black")
|
|
|
|
|
(list :tag "RGB Color" :value (0 0 0)
|
|
|
|
|
(number :tag "Red")
|
|
|
|
|
(number :tag "Green")
|
|
|
|
|
(number :tag "Blue")))
|
|
|
|
|
:version "21.1"
|
|
|
|
|
:group 'ps-print-font
|
|
|
|
|
:group 'ps-print-miscellany)
|
|
|
|
|
|
(ps-end-job): Bind case-fold-search only after
switching to ps-spool-buffer.
Line number font customization. PostScript: Lines and
PageCount are initialized on each page. Doc Fix.
(ps-print-version): New version number (6.3.2).
(ps-lpr-switches, ps-font-info-database, ps-font-size)
(ps-header-font-size, ps-header-title-font-size, ps-left-header)
(ps-right-header): Customization fix.
(ps-setup, ps-select-font, ps-begin-file, ps-header-sheet, ps-end-job):
Fix code.
(ps-end-with-control-d, ps-line-number-font, ps-line-number-font-size):
New vars.
2000-11-30 13:20:49 +00:00
|
|
|
|
(defcustom ps-line-number-font "Times-Italic"
|
|
|
|
|
"*Font for line-number, when generating PostScript."
|
|
|
|
|
:type 'string
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
(ps-end-job): Bind case-fold-search only after
switching to ps-spool-buffer.
Line number font customization. PostScript: Lines and
PageCount are initialized on each page. Doc Fix.
(ps-print-version): New version number (6.3.2).
(ps-lpr-switches, ps-font-info-database, ps-font-size)
(ps-header-font-size, ps-header-title-font-size, ps-left-header)
(ps-right-header): Customization fix.
(ps-setup, ps-select-font, ps-begin-file, ps-header-sheet, ps-end-job):
Fix code.
(ps-end-with-control-d, ps-line-number-font, ps-line-number-font-size):
New vars.
2000-11-30 13:20:49 +00:00
|
|
|
|
:group 'ps-print-font
|
|
|
|
|
:group 'ps-print-miscellany)
|
|
|
|
|
|
|
|
|
|
(defcustom ps-line-number-font-size 6
|
|
|
|
|
"*Font size, in points, for line number, when generating PostScript."
|
|
|
|
|
:type '(choice :menu-tag "Line Number Font Size"
|
|
|
|
|
:tag "Line Number Font Size"
|
|
|
|
|
(number :tag "Font Size")
|
|
|
|
|
(cons :tag "Landscape/Portrait"
|
|
|
|
|
(number :tag "Landscape Font Size")
|
|
|
|
|
(number :tag "Portrait Font Size")))
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
(ps-end-job): Bind case-fold-search only after
switching to ps-spool-buffer.
Line number font customization. PostScript: Lines and
PageCount are initialized on each page. Doc Fix.
(ps-print-version): New version number (6.3.2).
(ps-lpr-switches, ps-font-info-database, ps-font-size)
(ps-header-font-size, ps-header-title-font-size, ps-left-header)
(ps-right-header): Customization fix.
(ps-setup, ps-select-font, ps-begin-file, ps-header-sheet, ps-end-job):
Fix code.
(ps-end-with-control-d, ps-line-number-font, ps-line-number-font-size):
New vars.
2000-11-30 13:20:49 +00:00
|
|
|
|
:group 'ps-print-font
|
|
|
|
|
:group 'ps-print-miscellany)
|
|
|
|
|
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
;;; Colors
|
|
|
|
|
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
;; Printing color requires x-color-values.
|
2002-09-10 16:49:47 +00:00
|
|
|
|
;; XEmacs change: Need autoload for the "Options->Printing->Color Printing"
|
|
|
|
|
;; widget to work.
|
|
|
|
|
;;;###autoload
|
2000-10-31 11:54:38 +00:00
|
|
|
|
(defcustom ps-print-color-p
|
2002-09-12 03:21:57 +00:00
|
|
|
|
(or (fboundp 'x-color-values) ; Emacs
|
2000-10-31 11:54:38 +00:00
|
|
|
|
(fboundp 'color-instance-rgb-components))
|
Some comment, doc and bug fixes.
(ps-print-version): New version number (3.05.3) and doc fix.
(ps-output-string-prim, ps-begin-job, ps-control-character)
(ps-plot-region): Bug fix.
(ps-print-control-characters): New custom var.
(ps-string-escape-codes, ps-string-control-codes): New var.
(ps-color-device, ps-font-lock-face-attributes, ps-eval-switch)
(ps-flatten-list, ps-flatten-list-1): New fn.
(ps-setup): Update current setup.
(ps-begin-file): Adjust PostScript header file.
(ps-plot, ps-face-attribute-list): Little programming improvement.
(ps-print-prologue-1): Replace NumberOfZebra by ZebraHeight.
(ps-print-without-faces, ps-print-with-faces): Little reprogramming.
(ps-plot-with-face): Get color only on color screen device.
(ps-build-reference-face-lists): Handle obsolete
font-lock-face-attributes.
(ps-print-ensure-fontified): Little programming setting.
(ps-generate-postscript-with-faces): Adjust initializations, get color
only on color screen device.
(ps-generate): Replace (if A B) by (and A B).
(ps-do-despool): Dynamic evaluation for ps-lpr-switches,
Replace (if A B) by (and A B).
(color-instance-rgb-components, ps-color-values): Replace
pixel-components by color-instance-rgb-components.
(ps-xemacs-face-kind-p): Replace face-font by face-font-instance,
replace x-font-properties by font-instance-properties.
1997-12-25 18:33:52 +00:00
|
|
|
|
; XEmacs
|
2001-09-18 09:28:00 +00:00
|
|
|
|
"*Specify how buffer's text color is printed.
|
|
|
|
|
|
|
|
|
|
Valid values are:
|
|
|
|
|
|
|
|
|
|
nil Do not print colors.
|
|
|
|
|
|
|
|
|
|
t Print colors.
|
|
|
|
|
|
|
|
|
|
black-white Print colors on black/white printer.
|
|
|
|
|
See also `ps-black-white-faces'.
|
|
|
|
|
|
|
|
|
|
Any other value is treated as t."
|
|
|
|
|
:type '(choice :menu-tag "Print Color"
|
|
|
|
|
:tag "Print Color"
|
|
|
|
|
(const :tag "Do NOT Print Color" nil)
|
|
|
|
|
(const :tag "Print Always Color" t)
|
|
|
|
|
(const :tag "Print Black/White Color" black-white))
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
1997-04-12 01:50:50 +00:00
|
|
|
|
:group 'ps-print-color)
|
1995-01-20 06:09:03 +00:00
|
|
|
|
|
2003-02-13 11:57:42 +00:00
|
|
|
|
(defcustom ps-default-fg '(0.0 0.0 0.0) ; black
|
2003-03-06 01:54:17 +00:00
|
|
|
|
"*RGB values of the default foreground color. Defaults to black.
|
|
|
|
|
|
|
|
|
|
The `ps-default-fg' variable contains the default foreground color used by
|
|
|
|
|
ps-print, that is, if there is a face in a text that doesn't have a foreground
|
|
|
|
|
color, the `ps-default-fg' color should be used.
|
|
|
|
|
|
|
|
|
|
Valid values are:
|
|
|
|
|
|
|
|
|
|
t The foreground color of Emacs session will be used.
|
|
|
|
|
|
|
|
|
|
NUMBER It's a real value between 0.0 (black) and 1.0 (white) that
|
|
|
|
|
indicate the gray color.
|
|
|
|
|
|
2005-06-06 15:17:32 +00:00
|
|
|
|
COLOR-NAME It's a string which contains the color name. For example:
|
2003-03-06 01:54:17 +00:00
|
|
|
|
\"yellow\".
|
|
|
|
|
|
|
|
|
|
LIST It's a list of RGB values, that is a list of three real values
|
|
|
|
|
of the form:
|
|
|
|
|
|
|
|
|
|
(RED, GREEN, BLUE)
|
|
|
|
|
|
|
|
|
|
Where RED, GREEN and BLUE are reals between 0.0 (no color) and
|
|
|
|
|
1.0 (full color).
|
|
|
|
|
|
|
|
|
|
Any other value is ignored and it's used the black color.
|
|
|
|
|
|
|
|
|
|
It's used only when `ps-print-color-p' is non-nil."
|
XEmacs compatibility. Doc fix. Can select page size
with/without giving an error if PostScript printer doesn't have this
kind of page size. Zebra Stripe continues or restarts on next page.
Manual/automatic paper feeding. Switch or not the header.
(ps-print-version): New version number (5.2.2).
(ps-windows-system): Include emx as a Windows system.
(ps-setup, ps-begin-file, ps-color-values, ps-screen-to-bit-face)
(ps-generate-postscript-with-faces, ps-generate-postscript-with-faces)
(ps-background-text): Code fix.
(ps-error-handler-message, ps-user-defined-prologue)
(ps-print-prologue-header, ps-printer-name)
(ps-print-control-characters, ps-n-up-filling, ps-zebra-color)
(ps-line-number-step, ps-spool-config, ps-default-fg, ps-default-bg)
(ps-use-face-background): Customization fix.
(ps-n-up-database): Data fix.
(ps-warn-paper-type, ps-zebra-stripe-follow, ps-manual-feed)
(ps-switch-header): New vars.
(ps-xemacs-color-name, ps-face-foreground-name)
(ps-face-background-name, ps-boolean-constant): New funs.
2000-06-07 15:34:55 +00:00
|
|
|
|
:type '(choice :menu-tag "Default Foreground Gray/Color"
|
|
|
|
|
:tag "Default Foreground Gray/Color"
|
2003-02-13 11:57:42 +00:00
|
|
|
|
(const :tag "Session Foreground" t)
|
PostScript programming fix for ghostview, doc fix.
(ps-print-version): New version number (5.1.3).
(ps-begin-file, ps-begin-job, ps-set-color, ps-do-despool, ps-setup)
(ps-insert-file, ps-output-boolean, ps-plot-with-face)
(ps-generate-postscript-with-faces): Code fix.
(ps-color-values): XEmacs compatibility.
(ps-print-background-image, ps-print-background-text, ps-printer-name)
(ps-default-fg, ps-default-bg): Adjust customization.
(ps-zebra-color): Adjust customization, renaming old ps-zebra-gray var.
(ps-color-scale): Renaming old ps-color-value fun.
(ps-print-headers): Replace ps-print-header group to avoid conflict
with ps-print-header variable.
(ps-print-miscellany): New group.
(ps-format-color, ps-rgb-color): New funs.
(ps-default-foreground): New var.
(ps-printer-name-option): New const.
2000-03-30 13:21:45 +00:00
|
|
|
|
(number :tag "Gray Scale" :value 0.0)
|
|
|
|
|
(string :tag "Color Name" :value "black")
|
|
|
|
|
(list :tag "RGB Color" :value (0.0 0.0 0.0)
|
|
|
|
|
(number :tag "Red")
|
|
|
|
|
(number :tag "Green")
|
|
|
|
|
(number :tag "Blue")))
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
1997-04-12 01:50:50 +00:00
|
|
|
|
:group 'ps-print-color)
|
1995-01-20 06:09:03 +00:00
|
|
|
|
|
2003-02-13 11:57:42 +00:00
|
|
|
|
(defcustom ps-default-bg '(1.0 1.0 1.0) ; white
|
2003-03-06 01:54:17 +00:00
|
|
|
|
"*RGB values of the default background color. Defaults to white.
|
|
|
|
|
|
|
|
|
|
The `ps-default-bg' variable contains the default background color used by
|
|
|
|
|
ps-print, that is, if there is a face in a text that doesn't have a background
|
|
|
|
|
color, the `ps-default-bg' color should be used.
|
|
|
|
|
|
|
|
|
|
Valid values are:
|
|
|
|
|
|
|
|
|
|
t The background color of Emacs session will be used.
|
|
|
|
|
|
|
|
|
|
NUMBER It's a real value between 0.0 (black) and 1.0 (white) that
|
|
|
|
|
indicate the gray color.
|
|
|
|
|
|
2005-06-06 15:17:32 +00:00
|
|
|
|
COLOR-NAME It's a string which contains the color name. For example:
|
2003-03-06 01:54:17 +00:00
|
|
|
|
\"yellow\".
|
|
|
|
|
|
|
|
|
|
LIST It's a list of RGB values, that is a list of three real values
|
|
|
|
|
of the form:
|
|
|
|
|
|
|
|
|
|
(RED, GREEN, BLUE)
|
|
|
|
|
|
|
|
|
|
Where RED, GREEN and BLUE are reals between 0.0 (no color) and
|
|
|
|
|
1.0 (full color).
|
|
|
|
|
|
|
|
|
|
Any other value is ignored and it's used the white color.
|
|
|
|
|
|
|
|
|
|
It's used only when `ps-print-color-p' is non-nil.
|
|
|
|
|
|
|
|
|
|
See also `ps-use-face-background'."
|
XEmacs compatibility. Doc fix. Can select page size
with/without giving an error if PostScript printer doesn't have this
kind of page size. Zebra Stripe continues or restarts on next page.
Manual/automatic paper feeding. Switch or not the header.
(ps-print-version): New version number (5.2.2).
(ps-windows-system): Include emx as a Windows system.
(ps-setup, ps-begin-file, ps-color-values, ps-screen-to-bit-face)
(ps-generate-postscript-with-faces, ps-generate-postscript-with-faces)
(ps-background-text): Code fix.
(ps-error-handler-message, ps-user-defined-prologue)
(ps-print-prologue-header, ps-printer-name)
(ps-print-control-characters, ps-n-up-filling, ps-zebra-color)
(ps-line-number-step, ps-spool-config, ps-default-fg, ps-default-bg)
(ps-use-face-background): Customization fix.
(ps-n-up-database): Data fix.
(ps-warn-paper-type, ps-zebra-stripe-follow, ps-manual-feed)
(ps-switch-header): New vars.
(ps-xemacs-color-name, ps-face-foreground-name)
(ps-face-background-name, ps-boolean-constant): New funs.
2000-06-07 15:34:55 +00:00
|
|
|
|
:type '(choice :menu-tag "Default Background Gray/Color"
|
|
|
|
|
:tag "Default Background Gray/Color"
|
2003-02-13 11:57:42 +00:00
|
|
|
|
(const :tag "Session Background" t)
|
PostScript programming fix for ghostview, doc fix.
(ps-print-version): New version number (5.1.3).
(ps-begin-file, ps-begin-job, ps-set-color, ps-do-despool, ps-setup)
(ps-insert-file, ps-output-boolean, ps-plot-with-face)
(ps-generate-postscript-with-faces): Code fix.
(ps-color-values): XEmacs compatibility.
(ps-print-background-image, ps-print-background-text, ps-printer-name)
(ps-default-fg, ps-default-bg): Adjust customization.
(ps-zebra-color): Adjust customization, renaming old ps-zebra-gray var.
(ps-color-scale): Renaming old ps-color-value fun.
(ps-print-headers): Replace ps-print-header group to avoid conflict
with ps-print-header variable.
(ps-print-miscellany): New group.
(ps-format-color, ps-rgb-color): New funs.
(ps-default-foreground): New var.
(ps-printer-name-option): New const.
2000-03-30 13:21:45 +00:00
|
|
|
|
(number :tag "Gray Scale" :value 1.0)
|
|
|
|
|
(string :tag "Color Name" :value "white")
|
|
|
|
|
(list :tag "RGB Color" :value (1.0 1.0 1.0)
|
|
|
|
|
(number :tag "Red")
|
|
|
|
|
(number :tag "Green")
|
|
|
|
|
(number :tag "Blue")))
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
1997-04-12 01:50:50 +00:00
|
|
|
|
:group 'ps-print-color)
|
1995-01-20 06:09:03 +00:00
|
|
|
|
|
1997-04-12 01:50:50 +00:00
|
|
|
|
(defcustom ps-auto-font-detect t
|
2000-07-30 11:49:38 +00:00
|
|
|
|
"*Non-nil means automatically detect bold/italic/underline face attributes.
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
If nil, we rely solely on the lists `ps-bold-faces', `ps-italic-faces', and
|
|
|
|
|
`ps-underlined-faces'."
|
1997-04-12 01:50:50 +00:00
|
|
|
|
:type 'boolean
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
1997-04-12 01:50:50 +00:00
|
|
|
|
:group 'ps-print-font)
|
1995-01-20 06:09:03 +00:00
|
|
|
|
|
2001-09-18 09:28:00 +00:00
|
|
|
|
(defcustom ps-black-white-faces
|
|
|
|
|
'((font-lock-builtin-face "black" nil bold )
|
|
|
|
|
(font-lock-comment-face "gray20" nil italic)
|
|
|
|
|
(font-lock-constant-face "black" nil bold )
|
|
|
|
|
(font-lock-function-name-face "black" nil bold )
|
|
|
|
|
(font-lock-keyword-face "black" nil bold )
|
|
|
|
|
(font-lock-string-face "black" nil italic)
|
|
|
|
|
(font-lock-type-face "black" nil italic)
|
|
|
|
|
(font-lock-variable-name-face "black" nil bold italic)
|
|
|
|
|
(font-lock-warning-face "black" nil bold italic))
|
|
|
|
|
"*Specify list of face attributes to print colors on black/white printers.
|
|
|
|
|
|
|
|
|
|
The list elements are the same as defined on `ps-extend-face' (which see).
|
|
|
|
|
|
|
|
|
|
This variable is used only when `ps-print-color-p' is set to `black-white'."
|
|
|
|
|
:version "21.1"
|
|
|
|
|
:type '(repeat
|
|
|
|
|
(list :tag "Face Specification"
|
|
|
|
|
(face :tag "Face Symbol")
|
|
|
|
|
(choice :menu-tag "Foreground Color"
|
|
|
|
|
:tag "Foreground Color"
|
|
|
|
|
(const :tag "Black" nil)
|
|
|
|
|
(string :tag "Color Name"))
|
|
|
|
|
(choice :menu-tag "Background Color"
|
|
|
|
|
:tag "Background Color"
|
|
|
|
|
(const :tag "None" nil)
|
|
|
|
|
(string :tag "Color Name"))
|
|
|
|
|
(repeat :inline t
|
|
|
|
|
(choice :menu-tag "Attribute"
|
|
|
|
|
(const bold)
|
|
|
|
|
(const italic)
|
|
|
|
|
(const underline)
|
|
|
|
|
(const strikeout)
|
|
|
|
|
(const overline)
|
|
|
|
|
(const shadow)
|
|
|
|
|
(const box)
|
|
|
|
|
(const outline)))))
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
2001-09-18 09:28:00 +00:00
|
|
|
|
:group 'ps-print-face)
|
|
|
|
|
|
1997-04-12 01:50:50 +00:00
|
|
|
|
(defcustom ps-bold-faces
|
1997-01-16 05:09:21 +00:00
|
|
|
|
(unless ps-print-color-p
|
|
|
|
|
'(font-lock-function-name-face
|
|
|
|
|
font-lock-builtin-face
|
|
|
|
|
font-lock-variable-name-face
|
|
|
|
|
font-lock-keyword-face
|
|
|
|
|
font-lock-warning-face))
|
1995-01-20 06:20:32 +00:00
|
|
|
|
"*A list of the \(non-bold\) faces that should be printed in bold font.
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.2) and doc fix.
(ps-print, ps-header-lines, ps-show-n-of-n, ps-font-info-database)
(ps-font-family, ps-font-size, ps-header-font-family)
(ps-header-font-size, ps-header-title-font-size, ps-bold-faces)
(ps-italic-faces, ps-underlined-faces, ps-left-header, ps-right-header)
(ps-font, ps-font-bold, ps-font-italic, ps-font-bold-italic)
(ps-avg-char-width, ps-space-width, ps-line-height): Doc fix.
(ps-error-scale-font): New fn.
(ps-soft-lf, ps-hard-lf): Fn deleted.
(ps-get-page-dimensions, ps-set-bg, ps-face-bold-p, ps-face-italic-p)
(ps-set-color): Reindentation.
(ps-output-string-prim, ps-xemacs-face-kind-p): Internal blank lines
deleted.
(ps-set-font): Little programming improvement.
(ps-line-lengths-internal, ps-nb-pages, ps-select-font)
(ps-select-header-font): Simplify some expressions.
(ps-plot-region): Replace (- X 1) by (1- X).
(ps-generate-header): Replace (+ X 1) by (1+ X).
(ps-print-preprint, ps-plot-with-face, ps-print-ensure-fontified)
(ps-kill-emacs-check): Replace (if (and A B) C) by (and A B C).
(ps-init-output-queue, ps-gnus-article-prepare-hook, ps-jts-ps-setup):
Replace (setq a b)(setq c d) by (setq a b c d).
(ps-begin-file, ps-end-file): Replace (ps-output A)(ps-output B)
by (ps-output A B).
(ps-begin-page): Replace (ps-output A)(ps-output B) by (ps-output A B),
replace (setq a b)(setq c d) by (setq a b c d).
(ps-next-line, ps-continue-line): Replace (setq a b)(setq c d)
by (setq a b c d), and incorporates ps-soft-lf and ps-hard-lf,
respectively.
(ps-plot): Replace (setq a b)(setq c d) by (setq a b c d),
and programming improvement.
(ps-generate-postscript-with-faces): Initialization fix,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if (and A B) C) by (and A B C).
(ps-generate): Doc fix, reprogramming to set the page count,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if A nil B) by (or A B),
replace (if (and A B) C) by (and A B C).
(ps-info-mode-hook): Replace (list 'A 'B) by '(A B).
(ps-jack-setup): Replace (list) by nil.
1997-11-23 02:26:50 +00:00
|
|
|
|
This applies to generating PostScript."
|
1997-04-12 01:50:50 +00:00
|
|
|
|
:type '(repeat face)
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
1997-04-12 01:50:50 +00:00
|
|
|
|
:group 'ps-print-face)
|
1995-01-20 06:09:03 +00:00
|
|
|
|
|
1997-04-12 01:50:50 +00:00
|
|
|
|
(defcustom ps-italic-faces
|
1997-01-16 05:09:21 +00:00
|
|
|
|
(unless ps-print-color-p
|
|
|
|
|
'(font-lock-variable-name-face
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.2) and doc fix.
(ps-print, ps-header-lines, ps-show-n-of-n, ps-font-info-database)
(ps-font-family, ps-font-size, ps-header-font-family)
(ps-header-font-size, ps-header-title-font-size, ps-bold-faces)
(ps-italic-faces, ps-underlined-faces, ps-left-header, ps-right-header)
(ps-font, ps-font-bold, ps-font-italic, ps-font-bold-italic)
(ps-avg-char-width, ps-space-width, ps-line-height): Doc fix.
(ps-error-scale-font): New fn.
(ps-soft-lf, ps-hard-lf): Fn deleted.
(ps-get-page-dimensions, ps-set-bg, ps-face-bold-p, ps-face-italic-p)
(ps-set-color): Reindentation.
(ps-output-string-prim, ps-xemacs-face-kind-p): Internal blank lines
deleted.
(ps-set-font): Little programming improvement.
(ps-line-lengths-internal, ps-nb-pages, ps-select-font)
(ps-select-header-font): Simplify some expressions.
(ps-plot-region): Replace (- X 1) by (1- X).
(ps-generate-header): Replace (+ X 1) by (1+ X).
(ps-print-preprint, ps-plot-with-face, ps-print-ensure-fontified)
(ps-kill-emacs-check): Replace (if (and A B) C) by (and A B C).
(ps-init-output-queue, ps-gnus-article-prepare-hook, ps-jts-ps-setup):
Replace (setq a b)(setq c d) by (setq a b c d).
(ps-begin-file, ps-end-file): Replace (ps-output A)(ps-output B)
by (ps-output A B).
(ps-begin-page): Replace (ps-output A)(ps-output B) by (ps-output A B),
replace (setq a b)(setq c d) by (setq a b c d).
(ps-next-line, ps-continue-line): Replace (setq a b)(setq c d)
by (setq a b c d), and incorporates ps-soft-lf and ps-hard-lf,
respectively.
(ps-plot): Replace (setq a b)(setq c d) by (setq a b c d),
and programming improvement.
(ps-generate-postscript-with-faces): Initialization fix,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if (and A B) C) by (and A B C).
(ps-generate): Doc fix, reprogramming to set the page count,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if A nil B) by (or A B),
replace (if (and A B) C) by (and A B C).
(ps-info-mode-hook): Replace (list 'A 'B) by '(A B).
(ps-jack-setup): Replace (list) by nil.
1997-11-23 02:26:50 +00:00
|
|
|
|
font-lock-type-face
|
1997-01-16 05:09:21 +00:00
|
|
|
|
font-lock-string-face
|
|
|
|
|
font-lock-comment-face
|
|
|
|
|
font-lock-warning-face))
|
1995-01-20 06:20:32 +00:00
|
|
|
|
"*A list of the \(non-italic\) faces that should be printed in italic font.
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.2) and doc fix.
(ps-print, ps-header-lines, ps-show-n-of-n, ps-font-info-database)
(ps-font-family, ps-font-size, ps-header-font-family)
(ps-header-font-size, ps-header-title-font-size, ps-bold-faces)
(ps-italic-faces, ps-underlined-faces, ps-left-header, ps-right-header)
(ps-font, ps-font-bold, ps-font-italic, ps-font-bold-italic)
(ps-avg-char-width, ps-space-width, ps-line-height): Doc fix.
(ps-error-scale-font): New fn.
(ps-soft-lf, ps-hard-lf): Fn deleted.
(ps-get-page-dimensions, ps-set-bg, ps-face-bold-p, ps-face-italic-p)
(ps-set-color): Reindentation.
(ps-output-string-prim, ps-xemacs-face-kind-p): Internal blank lines
deleted.
(ps-set-font): Little programming improvement.
(ps-line-lengths-internal, ps-nb-pages, ps-select-font)
(ps-select-header-font): Simplify some expressions.
(ps-plot-region): Replace (- X 1) by (1- X).
(ps-generate-header): Replace (+ X 1) by (1+ X).
(ps-print-preprint, ps-plot-with-face, ps-print-ensure-fontified)
(ps-kill-emacs-check): Replace (if (and A B) C) by (and A B C).
(ps-init-output-queue, ps-gnus-article-prepare-hook, ps-jts-ps-setup):
Replace (setq a b)(setq c d) by (setq a b c d).
(ps-begin-file, ps-end-file): Replace (ps-output A)(ps-output B)
by (ps-output A B).
(ps-begin-page): Replace (ps-output A)(ps-output B) by (ps-output A B),
replace (setq a b)(setq c d) by (setq a b c d).
(ps-next-line, ps-continue-line): Replace (setq a b)(setq c d)
by (setq a b c d), and incorporates ps-soft-lf and ps-hard-lf,
respectively.
(ps-plot): Replace (setq a b)(setq c d) by (setq a b c d),
and programming improvement.
(ps-generate-postscript-with-faces): Initialization fix,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if (and A B) C) by (and A B C).
(ps-generate): Doc fix, reprogramming to set the page count,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if A nil B) by (or A B),
replace (if (and A B) C) by (and A B C).
(ps-info-mode-hook): Replace (list 'A 'B) by '(A B).
(ps-jack-setup): Replace (list) by nil.
1997-11-23 02:26:50 +00:00
|
|
|
|
This applies to generating PostScript."
|
1997-04-12 01:50:50 +00:00
|
|
|
|
:type '(repeat face)
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
1997-04-12 01:50:50 +00:00
|
|
|
|
:group 'ps-print-face)
|
1995-01-20 06:09:03 +00:00
|
|
|
|
|
1997-04-12 01:50:50 +00:00
|
|
|
|
(defcustom ps-underlined-faces
|
1997-01-16 05:09:21 +00:00
|
|
|
|
(unless ps-print-color-p
|
|
|
|
|
'(font-lock-function-name-face
|
1998-02-20 14:58:27 +00:00
|
|
|
|
font-lock-constant-face
|
1997-01-16 05:09:21 +00:00
|
|
|
|
font-lock-warning-face))
|
1995-01-20 06:20:32 +00:00
|
|
|
|
"*A list of the \(non-underlined\) faces that should be printed underlined.
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.2) and doc fix.
(ps-print, ps-header-lines, ps-show-n-of-n, ps-font-info-database)
(ps-font-family, ps-font-size, ps-header-font-family)
(ps-header-font-size, ps-header-title-font-size, ps-bold-faces)
(ps-italic-faces, ps-underlined-faces, ps-left-header, ps-right-header)
(ps-font, ps-font-bold, ps-font-italic, ps-font-bold-italic)
(ps-avg-char-width, ps-space-width, ps-line-height): Doc fix.
(ps-error-scale-font): New fn.
(ps-soft-lf, ps-hard-lf): Fn deleted.
(ps-get-page-dimensions, ps-set-bg, ps-face-bold-p, ps-face-italic-p)
(ps-set-color): Reindentation.
(ps-output-string-prim, ps-xemacs-face-kind-p): Internal blank lines
deleted.
(ps-set-font): Little programming improvement.
(ps-line-lengths-internal, ps-nb-pages, ps-select-font)
(ps-select-header-font): Simplify some expressions.
(ps-plot-region): Replace (- X 1) by (1- X).
(ps-generate-header): Replace (+ X 1) by (1+ X).
(ps-print-preprint, ps-plot-with-face, ps-print-ensure-fontified)
(ps-kill-emacs-check): Replace (if (and A B) C) by (and A B C).
(ps-init-output-queue, ps-gnus-article-prepare-hook, ps-jts-ps-setup):
Replace (setq a b)(setq c d) by (setq a b c d).
(ps-begin-file, ps-end-file): Replace (ps-output A)(ps-output B)
by (ps-output A B).
(ps-begin-page): Replace (ps-output A)(ps-output B) by (ps-output A B),
replace (setq a b)(setq c d) by (setq a b c d).
(ps-next-line, ps-continue-line): Replace (setq a b)(setq c d)
by (setq a b c d), and incorporates ps-soft-lf and ps-hard-lf,
respectively.
(ps-plot): Replace (setq a b)(setq c d) by (setq a b c d),
and programming improvement.
(ps-generate-postscript-with-faces): Initialization fix,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if (and A B) C) by (and A B C).
(ps-generate): Doc fix, reprogramming to set the page count,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if A nil B) by (or A B),
replace (if (and A B) C) by (and A B C).
(ps-info-mode-hook): Replace (list 'A 'B) by '(A B).
(ps-jack-setup): Replace (list) by nil.
1997-11-23 02:26:50 +00:00
|
|
|
|
This applies to generating PostScript."
|
1997-04-12 01:50:50 +00:00
|
|
|
|
:type '(repeat face)
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
1997-04-12 01:50:50 +00:00
|
|
|
|
:group 'ps-print-face)
|
1995-01-20 06:09:03 +00:00
|
|
|
|
|
2000-04-29 19:27:49 +00:00
|
|
|
|
(defcustom ps-use-face-background nil
|
|
|
|
|
"*Specify if face background should be used.
|
|
|
|
|
|
|
|
|
|
Valid values are:
|
|
|
|
|
|
|
|
|
|
t always use face background color.
|
|
|
|
|
nil never use face background color.
|
|
|
|
|
(face...) list of faces whose background color will be used.
|
|
|
|
|
|
|
|
|
|
Any other value will be treated as t."
|
XEmacs compatibility. Doc fix. Can select page size
with/without giving an error if PostScript printer doesn't have this
kind of page size. Zebra Stripe continues or restarts on next page.
Manual/automatic paper feeding. Switch or not the header.
(ps-print-version): New version number (5.2.2).
(ps-windows-system): Include emx as a Windows system.
(ps-setup, ps-begin-file, ps-color-values, ps-screen-to-bit-face)
(ps-generate-postscript-with-faces, ps-generate-postscript-with-faces)
(ps-background-text): Code fix.
(ps-error-handler-message, ps-user-defined-prologue)
(ps-print-prologue-header, ps-printer-name)
(ps-print-control-characters, ps-n-up-filling, ps-zebra-color)
(ps-line-number-step, ps-spool-config, ps-default-fg, ps-default-bg)
(ps-use-face-background): Customization fix.
(ps-n-up-database): Data fix.
(ps-warn-paper-type, ps-zebra-stripe-follow, ps-manual-feed)
(ps-switch-header): New vars.
(ps-xemacs-color-name, ps-face-foreground-name)
(ps-face-background-name, ps-boolean-constant): New funs.
2000-06-07 15:34:55 +00:00
|
|
|
|
:type '(choice :menu-tag "Use Face Background"
|
|
|
|
|
:tag "Use Face Background"
|
2000-04-29 19:27:49 +00:00
|
|
|
|
(const :tag "Always Use Face Background" t)
|
|
|
|
|
(const :tag "Never Use Face Background" nil)
|
|
|
|
|
(repeat :menu-tag "Face Background List"
|
|
|
|
|
:tag "Face Background List"
|
|
|
|
|
face))
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
2000-04-29 19:27:49 +00:00
|
|
|
|
:group 'ps-print-face)
|
|
|
|
|
|
1997-04-12 01:50:50 +00:00
|
|
|
|
(defcustom ps-left-header
|
1995-01-20 06:09:03 +00:00
|
|
|
|
(list 'ps-get-buffer-name 'ps-header-dirpart)
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
"*The items to display (each on a line) on the left part of the page header.
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.2) and doc fix.
(ps-print, ps-header-lines, ps-show-n-of-n, ps-font-info-database)
(ps-font-family, ps-font-size, ps-header-font-family)
(ps-header-font-size, ps-header-title-font-size, ps-bold-faces)
(ps-italic-faces, ps-underlined-faces, ps-left-header, ps-right-header)
(ps-font, ps-font-bold, ps-font-italic, ps-font-bold-italic)
(ps-avg-char-width, ps-space-width, ps-line-height): Doc fix.
(ps-error-scale-font): New fn.
(ps-soft-lf, ps-hard-lf): Fn deleted.
(ps-get-page-dimensions, ps-set-bg, ps-face-bold-p, ps-face-italic-p)
(ps-set-color): Reindentation.
(ps-output-string-prim, ps-xemacs-face-kind-p): Internal blank lines
deleted.
(ps-set-font): Little programming improvement.
(ps-line-lengths-internal, ps-nb-pages, ps-select-font)
(ps-select-header-font): Simplify some expressions.
(ps-plot-region): Replace (- X 1) by (1- X).
(ps-generate-header): Replace (+ X 1) by (1+ X).
(ps-print-preprint, ps-plot-with-face, ps-print-ensure-fontified)
(ps-kill-emacs-check): Replace (if (and A B) C) by (and A B C).
(ps-init-output-queue, ps-gnus-article-prepare-hook, ps-jts-ps-setup):
Replace (setq a b)(setq c d) by (setq a b c d).
(ps-begin-file, ps-end-file): Replace (ps-output A)(ps-output B)
by (ps-output A B).
(ps-begin-page): Replace (ps-output A)(ps-output B) by (ps-output A B),
replace (setq a b)(setq c d) by (setq a b c d).
(ps-next-line, ps-continue-line): Replace (setq a b)(setq c d)
by (setq a b c d), and incorporates ps-soft-lf and ps-hard-lf,
respectively.
(ps-plot): Replace (setq a b)(setq c d) by (setq a b c d),
and programming improvement.
(ps-generate-postscript-with-faces): Initialization fix,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if (and A B) C) by (and A B C).
(ps-generate): Doc fix, reprogramming to set the page count,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if A nil B) by (or A B),
replace (if (and A B) C) by (and A B C).
(ps-info-mode-hook): Replace (list 'A 'B) by '(A B).
(ps-jack-setup): Replace (list) by nil.
1997-11-23 02:26:50 +00:00
|
|
|
|
This applies to generating PostScript.
|
1995-01-20 06:09:03 +00:00
|
|
|
|
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
The value should be a list of strings and symbols, each representing an entry
|
|
|
|
|
in the PostScript array HeaderLinesLeft.
|
1995-01-20 06:09:03 +00:00
|
|
|
|
|
|
|
|
|
Strings are inserted unchanged into the array; those representing
|
|
|
|
|
PostScript string literals should be delimited with PostScript string
|
|
|
|
|
delimiters '(' and ')'.
|
|
|
|
|
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
For symbols with bound functions, the function is called and should return a
|
|
|
|
|
string to be inserted into the array. For symbols with bound values, the value
|
|
|
|
|
should be a string to be inserted into the array. In either case, function or
|
2004-03-02 04:54:04 +00:00
|
|
|
|
variable, the string value has PostScript string delimiters added to it.
|
|
|
|
|
|
|
|
|
|
If symbols are unbounded, they are silently ignored."
|
(ps-end-job): Bind case-fold-search only after
switching to ps-spool-buffer.
Line number font customization. PostScript: Lines and
PageCount are initialized on each page. Doc Fix.
(ps-print-version): New version number (6.3.2).
(ps-lpr-switches, ps-font-info-database, ps-font-size)
(ps-header-font-size, ps-header-title-font-size, ps-left-header)
(ps-right-header): Customization fix.
(ps-setup, ps-select-font, ps-begin-file, ps-header-sheet, ps-end-job):
Fix code.
(ps-end-with-control-d, ps-line-number-font, ps-line-number-font-size):
New vars.
2000-11-30 13:20:49 +00:00
|
|
|
|
:type '(repeat (choice :menu-tag "Left Header"
|
|
|
|
|
:tag "Left Header"
|
|
|
|
|
string symbol))
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
PostScript programming fix for ghostview, doc fix.
(ps-print-version): New version number (5.1.3).
(ps-begin-file, ps-begin-job, ps-set-color, ps-do-despool, ps-setup)
(ps-insert-file, ps-output-boolean, ps-plot-with-face)
(ps-generate-postscript-with-faces): Code fix.
(ps-color-values): XEmacs compatibility.
(ps-print-background-image, ps-print-background-text, ps-printer-name)
(ps-default-fg, ps-default-bg): Adjust customization.
(ps-zebra-color): Adjust customization, renaming old ps-zebra-gray var.
(ps-color-scale): Renaming old ps-color-value fun.
(ps-print-headers): Replace ps-print-header group to avoid conflict
with ps-print-header variable.
(ps-print-miscellany): New group.
(ps-format-color, ps-rgb-color): New funs.
(ps-default-foreground): New var.
(ps-printer-name-option): New const.
2000-03-30 13:21:45 +00:00
|
|
|
|
:group 'ps-print-headers)
|
1995-01-20 06:09:03 +00:00
|
|
|
|
|
1997-04-12 01:50:50 +00:00
|
|
|
|
(defcustom ps-right-header
|
2001-02-20 10:41:10 +00:00
|
|
|
|
(list "/pagenumberstring load"
|
2001-07-06 09:59:25 +00:00
|
|
|
|
'ps-time-stamp-locale-default 'ps-time-stamp-hh:mm:ss)
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
"*The items to display (each on a line) on the right part of the page header.
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.2) and doc fix.
(ps-print, ps-header-lines, ps-show-n-of-n, ps-font-info-database)
(ps-font-family, ps-font-size, ps-header-font-family)
(ps-header-font-size, ps-header-title-font-size, ps-bold-faces)
(ps-italic-faces, ps-underlined-faces, ps-left-header, ps-right-header)
(ps-font, ps-font-bold, ps-font-italic, ps-font-bold-italic)
(ps-avg-char-width, ps-space-width, ps-line-height): Doc fix.
(ps-error-scale-font): New fn.
(ps-soft-lf, ps-hard-lf): Fn deleted.
(ps-get-page-dimensions, ps-set-bg, ps-face-bold-p, ps-face-italic-p)
(ps-set-color): Reindentation.
(ps-output-string-prim, ps-xemacs-face-kind-p): Internal blank lines
deleted.
(ps-set-font): Little programming improvement.
(ps-line-lengths-internal, ps-nb-pages, ps-select-font)
(ps-select-header-font): Simplify some expressions.
(ps-plot-region): Replace (- X 1) by (1- X).
(ps-generate-header): Replace (+ X 1) by (1+ X).
(ps-print-preprint, ps-plot-with-face, ps-print-ensure-fontified)
(ps-kill-emacs-check): Replace (if (and A B) C) by (and A B C).
(ps-init-output-queue, ps-gnus-article-prepare-hook, ps-jts-ps-setup):
Replace (setq a b)(setq c d) by (setq a b c d).
(ps-begin-file, ps-end-file): Replace (ps-output A)(ps-output B)
by (ps-output A B).
(ps-begin-page): Replace (ps-output A)(ps-output B) by (ps-output A B),
replace (setq a b)(setq c d) by (setq a b c d).
(ps-next-line, ps-continue-line): Replace (setq a b)(setq c d)
by (setq a b c d), and incorporates ps-soft-lf and ps-hard-lf,
respectively.
(ps-plot): Replace (setq a b)(setq c d) by (setq a b c d),
and programming improvement.
(ps-generate-postscript-with-faces): Initialization fix,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if (and A B) C) by (and A B C).
(ps-generate): Doc fix, reprogramming to set the page count,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if A nil B) by (or A B),
replace (if (and A B) C) by (and A B C).
(ps-info-mode-hook): Replace (list 'A 'B) by '(A B).
(ps-jack-setup): Replace (list) by nil.
1997-11-23 02:26:50 +00:00
|
|
|
|
This applies to generating PostScript.
|
1995-01-20 06:09:03 +00:00
|
|
|
|
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
See the variable `ps-left-header' for a description of the format of this
|
2001-07-06 09:59:25 +00:00
|
|
|
|
variable.
|
|
|
|
|
|
|
|
|
|
There are the following basic functions implemented:
|
|
|
|
|
|
|
|
|
|
`ps-time-stamp-locale-default' Return the locale's \"preferred\" date
|
|
|
|
|
as, for example, \"06/18/01\".
|
|
|
|
|
|
|
|
|
|
`ps-time-stamp-hh:mm:ss' Return time as \"17:28:31\".
|
|
|
|
|
|
|
|
|
|
`ps-time-stamp-mon-dd-yyyy' Return date as \"Jun 18 2001\".
|
|
|
|
|
|
2004-03-02 04:54:04 +00:00
|
|
|
|
`ps-time-stamp-yyyy-mm-dd' Return date as \"2001-06-18\" (ISO
|
|
|
|
|
date).
|
|
|
|
|
|
|
|
|
|
`ps-time-stamp-iso8601' Alias for `ps-time-stamp-yyyy-mm-dd'.
|
|
|
|
|
|
2001-07-06 09:59:25 +00:00
|
|
|
|
You can also create your own time stamp function by using `format-time-string'
|
2002-09-09 19:26:40 +00:00
|
|
|
|
\(which see)."
|
(ps-end-job): Bind case-fold-search only after
switching to ps-spool-buffer.
Line number font customization. PostScript: Lines and
PageCount are initialized on each page. Doc Fix.
(ps-print-version): New version number (6.3.2).
(ps-lpr-switches, ps-font-info-database, ps-font-size)
(ps-header-font-size, ps-header-title-font-size, ps-left-header)
(ps-right-header): Customization fix.
(ps-setup, ps-select-font, ps-begin-file, ps-header-sheet, ps-end-job):
Fix code.
(ps-end-with-control-d, ps-line-number-font, ps-line-number-font-size):
New vars.
2000-11-30 13:20:49 +00:00
|
|
|
|
:type '(repeat (choice :menu-tag "Right Header"
|
|
|
|
|
:tag "Right Header"
|
|
|
|
|
string symbol))
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
PostScript programming fix for ghostview, doc fix.
(ps-print-version): New version number (5.1.3).
(ps-begin-file, ps-begin-job, ps-set-color, ps-do-despool, ps-setup)
(ps-insert-file, ps-output-boolean, ps-plot-with-face)
(ps-generate-postscript-with-faces): Code fix.
(ps-color-values): XEmacs compatibility.
(ps-print-background-image, ps-print-background-text, ps-printer-name)
(ps-default-fg, ps-default-bg): Adjust customization.
(ps-zebra-color): Adjust customization, renaming old ps-zebra-gray var.
(ps-color-scale): Renaming old ps-color-value fun.
(ps-print-headers): Replace ps-print-header group to avoid conflict
with ps-print-header variable.
(ps-print-miscellany): New group.
(ps-format-color, ps-rgb-color): New funs.
(ps-default-foreground): New var.
(ps-printer-name-option): New const.
2000-03-30 13:21:45 +00:00
|
|
|
|
:group 'ps-print-headers)
|
1994-05-01 22:09:01 +00:00
|
|
|
|
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
(defcustom ps-left-footer
|
|
|
|
|
(list 'ps-get-buffer-name 'ps-header-dirpart)
|
|
|
|
|
"*The items to display (each on a line) on the left part of the page footer.
|
|
|
|
|
This applies to generating PostScript.
|
|
|
|
|
|
|
|
|
|
The value should be a list of strings and symbols, each representing an entry
|
|
|
|
|
in the PostScript array FooterLinesLeft.
|
|
|
|
|
|
|
|
|
|
Strings are inserted unchanged into the array; those representing PostScript
|
|
|
|
|
string literals should be delimited with PostScript string delimiters '(' and
|
|
|
|
|
')'.
|
|
|
|
|
|
|
|
|
|
For symbols with bound functions, the function is called and should return a
|
|
|
|
|
string to be inserted into the array. For symbols with bound values, the value
|
|
|
|
|
should be a string to be inserted into the array. In either case, function or
|
2004-03-02 04:54:04 +00:00
|
|
|
|
variable, the string value has PostScript string delimiters added to it.
|
|
|
|
|
|
|
|
|
|
If symbols are unbounded, they are silently ignored."
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
:type '(repeat (choice :menu-tag "Left Footer"
|
|
|
|
|
:tag "Left Footer"
|
|
|
|
|
string symbol))
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "21.1"
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
:group 'ps-print-headers)
|
|
|
|
|
|
|
|
|
|
(defcustom ps-right-footer
|
|
|
|
|
(list "/pagenumberstring load"
|
2001-07-06 09:59:25 +00:00
|
|
|
|
'ps-time-stamp-locale-default 'ps-time-stamp-hh:mm:ss)
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
"*The items to display (each on a line) on the right part of the page footer.
|
|
|
|
|
This applies to generating PostScript.
|
|
|
|
|
|
|
|
|
|
See the variable `ps-left-footer' for a description of the format of this
|
2001-07-06 09:59:25 +00:00
|
|
|
|
variable.
|
|
|
|
|
|
|
|
|
|
There are the following basic functions implemented:
|
|
|
|
|
|
|
|
|
|
`ps-time-stamp-locale-default' Return the locale's \"preferred\" date
|
|
|
|
|
as, for example, \"06/18/01\".
|
|
|
|
|
|
|
|
|
|
`ps-time-stamp-hh:mm:ss' Return time as \"17:28:31\".
|
|
|
|
|
|
|
|
|
|
`ps-time-stamp-mon-dd-yyyy' Return date as \"Jun 18 2001\".
|
|
|
|
|
|
2004-03-02 04:54:04 +00:00
|
|
|
|
`ps-time-stamp-yyyy-mm-dd' Return date as \"2001-06-18\" (ISO
|
|
|
|
|
date).
|
|
|
|
|
|
|
|
|
|
`ps-time-stamp-iso8601' Alias for `ps-time-stamp-yyyy-mm-dd'.
|
|
|
|
|
|
2001-07-06 09:59:25 +00:00
|
|
|
|
You can also create your own time stamp function by using `format-time-string'
|
2002-09-09 19:26:40 +00:00
|
|
|
|
\(which see)."
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
:type '(repeat (choice :menu-tag "Right Footer"
|
|
|
|
|
:tag "Right Footer"
|
|
|
|
|
string symbol))
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "21.1"
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
:group 'ps-print-headers)
|
|
|
|
|
|
1997-04-12 01:50:50 +00:00
|
|
|
|
(defcustom ps-razzle-dazzle t
|
|
|
|
|
"*Non-nil means report progress while formatting buffer."
|
|
|
|
|
:type 'boolean
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
PostScript programming fix for ghostview, doc fix.
(ps-print-version): New version number (5.1.3).
(ps-begin-file, ps-begin-job, ps-set-color, ps-do-despool, ps-setup)
(ps-insert-file, ps-output-boolean, ps-plot-with-face)
(ps-generate-postscript-with-faces): Code fix.
(ps-color-values): XEmacs compatibility.
(ps-print-background-image, ps-print-background-text, ps-printer-name)
(ps-default-fg, ps-default-bg): Adjust customization.
(ps-zebra-color): Adjust customization, renaming old ps-zebra-gray var.
(ps-color-scale): Renaming old ps-color-value fun.
(ps-print-headers): Replace ps-print-header group to avoid conflict
with ps-print-header variable.
(ps-print-miscellany): New group.
(ps-format-color, ps-rgb-color): New funs.
(ps-default-foreground): New var.
(ps-printer-name-option): New const.
2000-03-30 13:21:45 +00:00
|
|
|
|
:group 'ps-print-miscellany)
|
1995-01-20 06:09:03 +00:00
|
|
|
|
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.1).
(ps-adobe-tag): Replace defvar by defcustom, and doc fix.
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): Add arg REGION-P.
(ps-print-region-with-faces, ps-print-region)
(ps-spool-region, ps-spool-region-with-faces): Fix calls to
the functions above.
(ps-setup): Print value of ps-zebra-stripe, ps-number-of-zebra,
ps-line-number, ps-print-background-image,
and ps-print-background-text.
(ps-print-prologue-1): Bug fix in PostScript programming:
/BeginDSCPage, /BeginPage.
(ps-showpage-count, ps-ref-bold-faces, ps-ref-italic-faces)
(ps-ref-underlined-faces, font-lock-face-attributes)
(ps-initialize-faces): Vars deleted.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-initialize-faces, ps-header-height)
(ps-hard-lf, ps-soft-lf, ps-get-face, ps-map-font-lock): Fn deleted.
(ps-extend-face-list, ps-extend-face): Doc fix.
(ps-print-face-alist): New var to handle face alist.
(ps-printing-region): New var and fn.
(ps-header-page, ps-set-face-bold, ps-set-face-italic)
(ps-set-face-underline, ps-set-face-attribute, ps-map-face): New fn.
(ps-rmail-mode-hook, ps-rmail-print-message-from-summary)
(ps-print-message-from-summary, ps-vm-print-message-from-summary):
Fns moved.
(ps-background): New argument PAGE-NUMBER.
(ps-begin-file): Bug fix and print proper line number in a region.
(ps-begin-page): Call ps-header-page.
(ps-get-buffer-name): Indicates in the header when printing a region.
(ps-end-page): Delete ps-showpage-count.
(ps-dummy-page): Calls ps-header-page.
(ps-set-color): Programming improvement.
(ps-plot-region): Doc fix.
(ps-face-attributes): Same functionality as deleted ps-get-face.
(ps-build-reference-face-lists): Do the job by calling
ps-set-face-bold and ps-bold-faces, and friends.
1997-09-06 02:52:00 +00:00
|
|
|
|
(defcustom ps-adobe-tag "%!PS-Adobe-3.0\n"
|
1995-01-20 06:09:03 +00:00
|
|
|
|
"*Contains the header line identifying the output as PostScript.
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
By default, `ps-adobe-tag' contains the standard identifier. Some printers
|
|
|
|
|
require slightly different versions of this line."
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.1).
(ps-adobe-tag): Replace defvar by defcustom, and doc fix.
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): Add arg REGION-P.
(ps-print-region-with-faces, ps-print-region)
(ps-spool-region, ps-spool-region-with-faces): Fix calls to
the functions above.
(ps-setup): Print value of ps-zebra-stripe, ps-number-of-zebra,
ps-line-number, ps-print-background-image,
and ps-print-background-text.
(ps-print-prologue-1): Bug fix in PostScript programming:
/BeginDSCPage, /BeginPage.
(ps-showpage-count, ps-ref-bold-faces, ps-ref-italic-faces)
(ps-ref-underlined-faces, font-lock-face-attributes)
(ps-initialize-faces): Vars deleted.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-initialize-faces, ps-header-height)
(ps-hard-lf, ps-soft-lf, ps-get-face, ps-map-font-lock): Fn deleted.
(ps-extend-face-list, ps-extend-face): Doc fix.
(ps-print-face-alist): New var to handle face alist.
(ps-printing-region): New var and fn.
(ps-header-page, ps-set-face-bold, ps-set-face-italic)
(ps-set-face-underline, ps-set-face-attribute, ps-map-face): New fn.
(ps-rmail-mode-hook, ps-rmail-print-message-from-summary)
(ps-print-message-from-summary, ps-vm-print-message-from-summary):
Fns moved.
(ps-background): New argument PAGE-NUMBER.
(ps-begin-file): Bug fix and print proper line number in a region.
(ps-begin-page): Call ps-header-page.
(ps-get-buffer-name): Indicates in the header when printing a region.
(ps-end-page): Delete ps-showpage-count.
(ps-dummy-page): Calls ps-header-page.
(ps-set-color): Programming improvement.
(ps-plot-region): Doc fix.
(ps-face-attributes): Same functionality as deleted ps-get-face.
(ps-build-reference-face-lists): Do the job by calling
ps-set-face-bold and ps-bold-faces, and friends.
1997-09-06 02:52:00 +00:00
|
|
|
|
:type 'string
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
PostScript programming fix for ghostview, doc fix.
(ps-print-version): New version number (5.1.3).
(ps-begin-file, ps-begin-job, ps-set-color, ps-do-despool, ps-setup)
(ps-insert-file, ps-output-boolean, ps-plot-with-face)
(ps-generate-postscript-with-faces): Code fix.
(ps-color-values): XEmacs compatibility.
(ps-print-background-image, ps-print-background-text, ps-printer-name)
(ps-default-fg, ps-default-bg): Adjust customization.
(ps-zebra-color): Adjust customization, renaming old ps-zebra-gray var.
(ps-color-scale): Renaming old ps-color-value fun.
(ps-print-headers): Replace ps-print-header group to avoid conflict
with ps-print-header variable.
(ps-print-miscellany): New group.
(ps-format-color, ps-rgb-color): New funs.
(ps-default-foreground): New var.
(ps-printer-name-option): New const.
2000-03-30 13:21:45 +00:00
|
|
|
|
:group 'ps-print-miscellany)
|
1995-01-20 06:09:03 +00:00
|
|
|
|
|
1997-04-12 01:50:50 +00:00
|
|
|
|
(defcustom ps-build-face-reference t
|
1995-01-20 06:09:03 +00:00
|
|
|
|
"*Non-nil means build the reference face lists.
|
|
|
|
|
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
ps-print sets this value to nil after it builds its internal reference lists of
|
|
|
|
|
bold and italic faces. By settings its value back to t, you can force ps-print
|
|
|
|
|
to rebuild the lists the next time you invoke one of the ...-with-faces
|
|
|
|
|
commands.
|
1995-01-20 06:09:03 +00:00
|
|
|
|
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
You should set this value back to t after you change the attributes of any
|
|
|
|
|
face, or create new faces. Most users shouldn't have to worry about its
|
|
|
|
|
setting, though."
|
1997-04-12 01:50:50 +00:00
|
|
|
|
:type 'boolean
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
1997-04-12 01:50:50 +00:00
|
|
|
|
:group 'ps-print-face)
|
1995-01-20 06:09:03 +00:00
|
|
|
|
|
1997-04-12 01:50:50 +00:00
|
|
|
|
(defcustom ps-always-build-face-reference nil
|
1995-01-20 06:09:03 +00:00
|
|
|
|
"*Non-nil means always rebuild the reference face lists.
|
|
|
|
|
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
If this variable is non-nil, ps-print will rebuild its internal reference lists
|
|
|
|
|
of bold and italic faces *every* time one of the ...-with-faces commands is
|
|
|
|
|
called. Most users shouldn't need to set this variable."
|
1997-04-12 01:50:50 +00:00
|
|
|
|
:type 'boolean
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
1997-04-12 01:50:50 +00:00
|
|
|
|
:group 'ps-print-face)
|
1994-05-01 22:09:01 +00:00
|
|
|
|
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
(defcustom ps-banner-page-when-duplexing nil
|
|
|
|
|
"*Non-nil means the very first page is skipped.
|
|
|
|
|
It's like the very first character of buffer (or region) is ^L (\\014)."
|
|
|
|
|
:type 'boolean
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
PostScript programming fix for ghostview, doc fix.
(ps-print-version): New version number (5.1.3).
(ps-begin-file, ps-begin-job, ps-set-color, ps-do-despool, ps-setup)
(ps-insert-file, ps-output-boolean, ps-plot-with-face)
(ps-generate-postscript-with-faces): Code fix.
(ps-color-values): XEmacs compatibility.
(ps-print-background-image, ps-print-background-text, ps-printer-name)
(ps-default-fg, ps-default-bg): Adjust customization.
(ps-zebra-color): Adjust customization, renaming old ps-zebra-gray var.
(ps-color-scale): Renaming old ps-color-value fun.
(ps-print-headers): Replace ps-print-header group to avoid conflict
with ps-print-header variable.
(ps-print-miscellany): New group.
(ps-format-color, ps-rgb-color): New funs.
(ps-default-foreground): New var.
(ps-printer-name-option): New const.
2000-03-30 13:21:45 +00:00
|
|
|
|
:group 'ps-print-headers)
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
|
2000-05-18 21:50:51 +00:00
|
|
|
|
(defcustom ps-postscript-code-directory
|
2004-11-21 22:30:00 +00:00
|
|
|
|
(or (if (featurep 'xemacs)
|
|
|
|
|
(cond ((fboundp 'locate-data-directory) ; xemacs
|
|
|
|
|
(locate-data-directory "ps-print"))
|
|
|
|
|
((boundp 'data-directory) ; xemacs
|
|
|
|
|
data-directory)
|
|
|
|
|
(t ; don't know what to do
|
|
|
|
|
nil))
|
|
|
|
|
data-directory) ; emacs
|
2002-09-29 03:30:41 +00:00
|
|
|
|
(error "`ps-postscript-code-directory' isn't set properly"))
|
2000-01-05 08:11:30 +00:00
|
|
|
|
"*Directory where it's located the PostScript prologue file used by ps-print.
|
|
|
|
|
By default, this directory is the same as in the variable `data-directory'."
|
|
|
|
|
:type 'directory
|
2004-11-21 22:30:00 +00:00
|
|
|
|
:version "20"
|
PostScript programming fix for ghostview, doc fix.
(ps-print-version): New version number (5.1.3).
(ps-begin-file, ps-begin-job, ps-set-color, ps-do-despool, ps-setup)
(ps-insert-file, ps-output-boolean, ps-plot-with-face)
(ps-generate-postscript-with-faces): Code fix.
(ps-color-values): XEmacs compatibility.
(ps-print-background-image, ps-print-background-text, ps-printer-name)
(ps-default-fg, ps-default-bg): Adjust customization.
(ps-zebra-color): Adjust customization, renaming old ps-zebra-gray var.
(ps-color-scale): Renaming old ps-color-value fun.
(ps-print-headers): Replace ps-print-header group to avoid conflict
with ps-print-header variable.
(ps-print-miscellany): New group.
(ps-format-color, ps-rgb-color): New funs.
(ps-default-foreground): New var.
(ps-printer-name-option): New const.
2000-03-30 13:21:45 +00:00
|
|
|
|
:group 'ps-print-miscellany)
|
2000-01-05 08:11:30 +00:00
|
|
|
|
|
Line and paragraph spacing feature. Region to cut
out when printing. Doc fix.
(ps-print-version): New version number (6.5).
(ps-line-spacing, ps-paragraph-spacing, ps-paragraph-regexp): New
vars. Line and paragraph spacing feature.
(ps-begin-cut-regexp, ps-end-cut-regexp): New vars. Region to cut
out when printing.
(ps-setup, ps-nb-pages, ps-get-page-dimensions, ps-begin-file)
(ps-get-font-size, ps-begin-job, ps-continue-line)
(ps-plot-region): Code fix.
(ps-print-prologue-2): Var eliminated.
(ps-line-spacing-internal, ps-paragraph-spacing-internal): New
internal vars.
(ps-get-size): New fun.
(ps-output-string-prim, ps-init-output-queue, ps-print-page-p)
(ps-next-line): Replace defun by defsubst.
(ps-mule-plot-string): Autoload doc fix.
(ps-mule-generate-font): New arg HEADER-P. If it is
non-nil, generate font for the header strings.
(ps-mule-prepare-font): Likewise.
(ps-mule-generate-glyphs): Likewise.
(ps-mule-string-encoding): Likewise.
(ps-mule-header-charsets): New variable.
(ps-mule-encode-header-string): New function.
(ps-mule-header-string-charsets): New function.
(ps-mule-begin-job): Check charsets in the header strings. If there
are non-ASCII and non-Latin1 charsets, prepare fonts for them.
2001-04-02 10:35:07 +00:00
|
|
|
|
(defcustom ps-line-spacing 0
|
|
|
|
|
"*Specify line spacing, in points, for ordinary text.
|
|
|
|
|
|
|
|
|
|
See also `ps-paragraph-spacing' and `ps-paragraph-regexp'.
|
|
|
|
|
|
|
|
|
|
To get all lines with some spacing set both `ps-line-spacing' and
|
|
|
|
|
`ps-paragraph-spacing' variables."
|
|
|
|
|
:type '(choice :menu-tag "Line Spacing For Ordinary Text"
|
|
|
|
|
:tag "Line Spacing For Ordinary Text"
|
|
|
|
|
(number :tag "Line Spacing")
|
|
|
|
|
(cons :tag "Landscape/Portrait"
|
|
|
|
|
(number :tag "Landscape Line Spacing")
|
|
|
|
|
(number :tag "Portrait Line Spacing")))
|
|
|
|
|
:version "21.1"
|
|
|
|
|
:group 'ps-print-miscellany)
|
|
|
|
|
|
|
|
|
|
(defcustom ps-paragraph-spacing 0
|
|
|
|
|
"*Specify paragraph spacing, in points, for ordinary text.
|
|
|
|
|
|
|
|
|
|
See also `ps-line-spacing' and `ps-paragraph-regexp'.
|
|
|
|
|
|
|
|
|
|
To get all lines with some spacing set both `ps-line-spacing' and
|
|
|
|
|
`ps-paragraph-spacing' variables."
|
|
|
|
|
:type '(choice :menu-tag "Paragraph Spacing For Ordinary Text"
|
|
|
|
|
:tag "Paragraph Spacing For Ordinary Text"
|
|
|
|
|
(number :tag "Paragraph Spacing")
|
|
|
|
|
(cons :tag "Landscape/Portrait"
|
|
|
|
|
(number :tag "Landscape Paragraph Spacing")
|
|
|
|
|
(number :tag "Portrait Paragraph Spacing")))
|
|
|
|
|
:version "21.1"
|
|
|
|
|
:group 'ps-print-miscellany)
|
|
|
|
|
|
|
|
|
|
(defcustom ps-paragraph-regexp "[ \t]*$"
|
|
|
|
|
"*Specify paragraph delimiter.
|
|
|
|
|
|
|
|
|
|
It should be a regexp or nil.
|
|
|
|
|
|
|
|
|
|
See also `ps-paragraph-spacing'."
|
|
|
|
|
:type '(choice :menu-tag "Paragraph Delimiter"
|
|
|
|
|
(const :tag "No Delimiter" nil)
|
|
|
|
|
(regexp :tag "Delimiter Regexp"))
|
|
|
|
|
:version "21.1"
|
|
|
|
|
:group 'ps-print-miscellany)
|
|
|
|
|
|
|
|
|
|
(defcustom ps-begin-cut-regexp nil
|
|
|
|
|
"*Specify regexp which is start of a region to cut out when printing.
|
|
|
|
|
|
|
|
|
|
As an example, variables `ps-begin-cut-regexp' and `ps-end-cut-regexp' may be
|
|
|
|
|
set to \"^Local Variables:\" and \"^End:\", respectively, in order to leave out
|
|
|
|
|
some special printing instructions from the actual print. Special printing
|
|
|
|
|
instructions may be appended to the end of the file just like any other
|
|
|
|
|
buffer-local variables. See section \"Local Variables in Files\" on Emacs
|
|
|
|
|
manual for more information.
|
|
|
|
|
|
|
|
|
|
Variables `ps-begin-cut-regexp' and `ps-end-cut-regexp' control together what
|
|
|
|
|
actually gets printed. Both variables may be set to nil in which case no
|
|
|
|
|
cutting occurs."
|
2002-07-27 19:50:34 +00:00
|
|
|
|
:type '(choice (const :tag "No Delimiter" nil)
|
|
|
|
|
(regexp :tag "Delimiter Regexp"))
|
Line and paragraph spacing feature. Region to cut
out when printing. Doc fix.
(ps-print-version): New version number (6.5).
(ps-line-spacing, ps-paragraph-spacing, ps-paragraph-regexp): New
vars. Line and paragraph spacing feature.
(ps-begin-cut-regexp, ps-end-cut-regexp): New vars. Region to cut
out when printing.
(ps-setup, ps-nb-pages, ps-get-page-dimensions, ps-begin-file)
(ps-get-font-size, ps-begin-job, ps-continue-line)
(ps-plot-region): Code fix.
(ps-print-prologue-2): Var eliminated.
(ps-line-spacing-internal, ps-paragraph-spacing-internal): New
internal vars.
(ps-get-size): New fun.
(ps-output-string-prim, ps-init-output-queue, ps-print-page-p)
(ps-next-line): Replace defun by defsubst.
(ps-mule-plot-string): Autoload doc fix.
(ps-mule-generate-font): New arg HEADER-P. If it is
non-nil, generate font for the header strings.
(ps-mule-prepare-font): Likewise.
(ps-mule-generate-glyphs): Likewise.
(ps-mule-string-encoding): Likewise.
(ps-mule-header-charsets): New variable.
(ps-mule-encode-header-string): New function.
(ps-mule-header-string-charsets): New function.
(ps-mule-begin-job): Check charsets in the header strings. If there
are non-ASCII and non-Latin1 charsets, prepare fonts for them.
2001-04-02 10:35:07 +00:00
|
|
|
|
:version "21.1"
|
|
|
|
|
:group 'ps-print-miscellany)
|
|
|
|
|
|
|
|
|
|
(defcustom ps-end-cut-regexp nil
|
|
|
|
|
"*Specify regexp which is end of the region to cut out when printing.
|
|
|
|
|
|
|
|
|
|
See `ps-begin-cut-regexp' for more information."
|
2002-07-27 19:50:34 +00:00
|
|
|
|
:type '(choice (const :tag "No Delimiter" nil)
|
|
|
|
|
(regexp :tag "Delimiter Regexp"))
|
Line and paragraph spacing feature. Region to cut
out when printing. Doc fix.
(ps-print-version): New version number (6.5).
(ps-line-spacing, ps-paragraph-spacing, ps-paragraph-regexp): New
vars. Line and paragraph spacing feature.
(ps-begin-cut-regexp, ps-end-cut-regexp): New vars. Region to cut
out when printing.
(ps-setup, ps-nb-pages, ps-get-page-dimensions, ps-begin-file)
(ps-get-font-size, ps-begin-job, ps-continue-line)
(ps-plot-region): Code fix.
(ps-print-prologue-2): Var eliminated.
(ps-line-spacing-internal, ps-paragraph-spacing-internal): New
internal vars.
(ps-get-size): New fun.
(ps-output-string-prim, ps-init-output-queue, ps-print-page-p)
(ps-next-line): Replace defun by defsubst.
(ps-mule-plot-string): Autoload doc fix.
(ps-mule-generate-font): New arg HEADER-P. If it is
non-nil, generate font for the header strings.
(ps-mule-prepare-font): Likewise.
(ps-mule-generate-glyphs): Likewise.
(ps-mule-string-encoding): Likewise.
(ps-mule-header-charsets): New variable.
(ps-mule-encode-header-string): New function.
(ps-mule-header-string-charsets): New function.
(ps-mule-begin-job): Check charsets in the header strings. If there
are non-ASCII and non-Latin1 charsets, prepare fonts for them.
2001-04-02 10:35:07 +00:00
|
|
|
|
:version "21.1"
|
|
|
|
|
:group 'ps-print-miscellany)
|
|
|
|
|
|
2000-01-05 07:17:31 +00:00
|
|
|
|
|
Fix bug: if ^L is the very first buffer character,
ps-print crashes. New feature: page selection for printing. Create
raw-text-unix coding system for XEmacs. Doc fix.
(ps-print-version): New version number (5.2.3).
(ps-plot-region): Bug fix.
(ps-setup, ps-init-output-queue, ps-output, ps-begin-job, ps-end-file)
(ps-header-sheet, ps-generate, ps-end-job): Code fix.
(ps-restore-selected-pages, ps-selected-pages, ps-print-page-p): New
funs.
(ps-selected-pages, ps-last-selected-pages, ps-first-page)
(ps-last-page): New vars.
2000-06-22 12:27:49 +00:00
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
|
;; Selected Pages
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(defvar ps-last-selected-pages nil
|
|
|
|
|
"Latest `ps-selected-pages' value.")
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(defun ps-restore-selected-pages ()
|
|
|
|
|
"Restore latest `ps-selected-pages' value."
|
|
|
|
|
(interactive)
|
|
|
|
|
(setq ps-selected-pages ps-last-selected-pages))
|
|
|
|
|
|
|
|
|
|
|
2000-01-05 07:17:31 +00:00
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
|
;; Customization
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;;;###autoload
|
|
|
|
|
(defun ps-print-customize ()
|
|
|
|
|
"Customization of ps-print group."
|
|
|
|
|
(interactive)
|
|
|
|
|
(customize-group 'ps-print))
|
|
|
|
|
|
|
|
|
|
|
1994-05-01 22:09:01 +00:00
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
1995-01-20 06:09:03 +00:00
|
|
|
|
;; User commands
|
1994-05-01 22:09:01 +00:00
|
|
|
|
|
2000-01-05 07:17:31 +00:00
|
|
|
|
|
1995-02-07 22:51:35 +00:00
|
|
|
|
;;;###autoload
|
1994-05-01 22:09:01 +00:00
|
|
|
|
(defun ps-print-buffer (&optional filename)
|
1995-01-20 06:09:03 +00:00
|
|
|
|
"Generate and print a PostScript image of the buffer.
|
1994-05-01 22:09:01 +00:00
|
|
|
|
|
2002-09-09 19:26:40 +00:00
|
|
|
|
Interactively, when you use a prefix argument (\\[universal-argument]), the command prompts the
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
user for a file name, and saves the PostScript image in that file instead of
|
|
|
|
|
sending it to the printer.
|
1994-05-01 22:09:01 +00:00
|
|
|
|
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
Noninteractively, the argument FILENAME is treated as follows: if it is nil,
|
|
|
|
|
send the image to the printer. If FILENAME is a string, save the PostScript
|
|
|
|
|
image in a file with that name."
|
1995-02-07 22:51:35 +00:00
|
|
|
|
(interactive (list (ps-print-preprint current-prefix-arg)))
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
(ps-print-without-faces (point-min) (point-max) filename))
|
1994-05-01 22:09:01 +00:00
|
|
|
|
|
|
|
|
|
|
1995-02-07 22:51:35 +00:00
|
|
|
|
;;;###autoload
|
1994-05-01 22:09:01 +00:00
|
|
|
|
(defun ps-print-buffer-with-faces (&optional filename)
|
1995-01-20 06:09:03 +00:00
|
|
|
|
"Generate and print a PostScript image of the buffer.
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
Like `ps-print-buffer', but includes font, color, and underline information in
|
|
|
|
|
the generated image. This command works only if you are using a window system,
|
|
|
|
|
so it has a way to determine color values."
|
1995-02-07 22:51:35 +00:00
|
|
|
|
(interactive (list (ps-print-preprint current-prefix-arg)))
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
(ps-print-with-faces (point-min) (point-max) filename))
|
1994-05-01 22:09:01 +00:00
|
|
|
|
|
|
|
|
|
|
1995-02-07 22:51:35 +00:00
|
|
|
|
;;;###autoload
|
1994-05-01 22:09:01 +00:00
|
|
|
|
(defun ps-print-region (from to &optional filename)
|
1995-01-20 06:09:03 +00:00
|
|
|
|
"Generate and print a PostScript image of the region.
|
|
|
|
|
Like `ps-print-buffer', but prints just the current region."
|
2001-09-18 09:28:00 +00:00
|
|
|
|
(interactive (ps-print-preprint-region current-prefix-arg))
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.1).
(ps-adobe-tag): Replace defvar by defcustom, and doc fix.
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): Add arg REGION-P.
(ps-print-region-with-faces, ps-print-region)
(ps-spool-region, ps-spool-region-with-faces): Fix calls to
the functions above.
(ps-setup): Print value of ps-zebra-stripe, ps-number-of-zebra,
ps-line-number, ps-print-background-image,
and ps-print-background-text.
(ps-print-prologue-1): Bug fix in PostScript programming:
/BeginDSCPage, /BeginPage.
(ps-showpage-count, ps-ref-bold-faces, ps-ref-italic-faces)
(ps-ref-underlined-faces, font-lock-face-attributes)
(ps-initialize-faces): Vars deleted.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-initialize-faces, ps-header-height)
(ps-hard-lf, ps-soft-lf, ps-get-face, ps-map-font-lock): Fn deleted.
(ps-extend-face-list, ps-extend-face): Doc fix.
(ps-print-face-alist): New var to handle face alist.
(ps-printing-region): New var and fn.
(ps-header-page, ps-set-face-bold, ps-set-face-italic)
(ps-set-face-underline, ps-set-face-attribute, ps-map-face): New fn.
(ps-rmail-mode-hook, ps-rmail-print-message-from-summary)
(ps-print-message-from-summary, ps-vm-print-message-from-summary):
Fns moved.
(ps-background): New argument PAGE-NUMBER.
(ps-begin-file): Bug fix and print proper line number in a region.
(ps-begin-page): Call ps-header-page.
(ps-get-buffer-name): Indicates in the header when printing a region.
(ps-end-page): Delete ps-showpage-count.
(ps-dummy-page): Calls ps-header-page.
(ps-set-color): Programming improvement.
(ps-plot-region): Doc fix.
(ps-face-attributes): Same functionality as deleted ps-get-face.
(ps-build-reference-face-lists): Do the job by calling
ps-set-face-bold and ps-bold-faces, and friends.
1997-09-06 02:52:00 +00:00
|
|
|
|
(ps-print-without-faces from to filename t))
|
1994-05-01 22:09:01 +00:00
|
|
|
|
|
|
|
|
|
|
1995-02-07 22:51:35 +00:00
|
|
|
|
;;;###autoload
|
1994-05-01 22:09:01 +00:00
|
|
|
|
(defun ps-print-region-with-faces (from to &optional filename)
|
1995-01-20 06:09:03 +00:00
|
|
|
|
"Generate and print a PostScript image of the region.
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
Like `ps-print-region', but includes font, color, and underline information in
|
|
|
|
|
the generated image. This command works only if you are using a window system,
|
|
|
|
|
so it has a way to determine color values."
|
2001-09-18 09:28:00 +00:00
|
|
|
|
(interactive (ps-print-preprint-region current-prefix-arg))
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.1).
(ps-adobe-tag): Replace defvar by defcustom, and doc fix.
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): Add arg REGION-P.
(ps-print-region-with-faces, ps-print-region)
(ps-spool-region, ps-spool-region-with-faces): Fix calls to
the functions above.
(ps-setup): Print value of ps-zebra-stripe, ps-number-of-zebra,
ps-line-number, ps-print-background-image,
and ps-print-background-text.
(ps-print-prologue-1): Bug fix in PostScript programming:
/BeginDSCPage, /BeginPage.
(ps-showpage-count, ps-ref-bold-faces, ps-ref-italic-faces)
(ps-ref-underlined-faces, font-lock-face-attributes)
(ps-initialize-faces): Vars deleted.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-initialize-faces, ps-header-height)
(ps-hard-lf, ps-soft-lf, ps-get-face, ps-map-font-lock): Fn deleted.
(ps-extend-face-list, ps-extend-face): Doc fix.
(ps-print-face-alist): New var to handle face alist.
(ps-printing-region): New var and fn.
(ps-header-page, ps-set-face-bold, ps-set-face-italic)
(ps-set-face-underline, ps-set-face-attribute, ps-map-face): New fn.
(ps-rmail-mode-hook, ps-rmail-print-message-from-summary)
(ps-print-message-from-summary, ps-vm-print-message-from-summary):
Fns moved.
(ps-background): New argument PAGE-NUMBER.
(ps-begin-file): Bug fix and print proper line number in a region.
(ps-begin-page): Call ps-header-page.
(ps-get-buffer-name): Indicates in the header when printing a region.
(ps-end-page): Delete ps-showpage-count.
(ps-dummy-page): Calls ps-header-page.
(ps-set-color): Programming improvement.
(ps-plot-region): Doc fix.
(ps-face-attributes): Same functionality as deleted ps-get-face.
(ps-build-reference-face-lists): Do the job by calling
ps-set-face-bold and ps-bold-faces, and friends.
1997-09-06 02:52:00 +00:00
|
|
|
|
(ps-print-with-faces from to filename t))
|
1994-05-01 22:09:01 +00:00
|
|
|
|
|
|
|
|
|
|
1995-02-07 22:51:35 +00:00
|
|
|
|
;;;###autoload
|
1994-05-01 22:09:01 +00:00
|
|
|
|
(defun ps-spool-buffer ()
|
1995-01-20 06:09:03 +00:00
|
|
|
|
"Generate and spool a PostScript image of the buffer.
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
Like `ps-print-buffer' except that the PostScript image is saved in a local
|
|
|
|
|
buffer to be sent to the printer later.
|
1994-05-01 22:09:01 +00:00
|
|
|
|
|
1995-01-20 06:09:03 +00:00
|
|
|
|
Use the command `ps-despool' to send the spooled images to the printer."
|
1994-05-01 22:09:01 +00:00
|
|
|
|
(interactive)
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
(ps-spool-without-faces (point-min) (point-max)))
|
1994-05-01 22:09:01 +00:00
|
|
|
|
|
|
|
|
|
|
1995-02-07 22:51:35 +00:00
|
|
|
|
;;;###autoload
|
1994-05-01 22:09:01 +00:00
|
|
|
|
(defun ps-spool-buffer-with-faces ()
|
1995-01-20 06:09:03 +00:00
|
|
|
|
"Generate and spool a PostScript image of the buffer.
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
Like `ps-spool-buffer', but includes font, color, and underline information in
|
|
|
|
|
the generated image. This command works only if you are using a window system,
|
|
|
|
|
so it has a way to determine color values.
|
1994-05-01 22:09:01 +00:00
|
|
|
|
|
1995-01-20 06:09:03 +00:00
|
|
|
|
Use the command `ps-despool' to send the spooled images to the printer."
|
1994-05-01 22:09:01 +00:00
|
|
|
|
(interactive)
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
(ps-spool-with-faces (point-min) (point-max)))
|
1994-05-01 22:09:01 +00:00
|
|
|
|
|
|
|
|
|
|
1995-02-07 22:51:35 +00:00
|
|
|
|
;;;###autoload
|
1994-05-01 22:09:01 +00:00
|
|
|
|
(defun ps-spool-region (from to)
|
1995-01-20 06:09:03 +00:00
|
|
|
|
"Generate a PostScript image of the region and spool locally.
|
|
|
|
|
Like `ps-spool-buffer', but spools just the current region.
|
1994-05-01 22:09:01 +00:00
|
|
|
|
|
1995-01-20 06:09:03 +00:00
|
|
|
|
Use the command `ps-despool' to send the spooled images to the printer."
|
1994-05-01 22:09:01 +00:00
|
|
|
|
(interactive "r")
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.1).
(ps-adobe-tag): Replace defvar by defcustom, and doc fix.
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): Add arg REGION-P.
(ps-print-region-with-faces, ps-print-region)
(ps-spool-region, ps-spool-region-with-faces): Fix calls to
the functions above.
(ps-setup): Print value of ps-zebra-stripe, ps-number-of-zebra,
ps-line-number, ps-print-background-image,
and ps-print-background-text.
(ps-print-prologue-1): Bug fix in PostScript programming:
/BeginDSCPage, /BeginPage.
(ps-showpage-count, ps-ref-bold-faces, ps-ref-italic-faces)
(ps-ref-underlined-faces, font-lock-face-attributes)
(ps-initialize-faces): Vars deleted.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-initialize-faces, ps-header-height)
(ps-hard-lf, ps-soft-lf, ps-get-face, ps-map-font-lock): Fn deleted.
(ps-extend-face-list, ps-extend-face): Doc fix.
(ps-print-face-alist): New var to handle face alist.
(ps-printing-region): New var and fn.
(ps-header-page, ps-set-face-bold, ps-set-face-italic)
(ps-set-face-underline, ps-set-face-attribute, ps-map-face): New fn.
(ps-rmail-mode-hook, ps-rmail-print-message-from-summary)
(ps-print-message-from-summary, ps-vm-print-message-from-summary):
Fns moved.
(ps-background): New argument PAGE-NUMBER.
(ps-begin-file): Bug fix and print proper line number in a region.
(ps-begin-page): Call ps-header-page.
(ps-get-buffer-name): Indicates in the header when printing a region.
(ps-end-page): Delete ps-showpage-count.
(ps-dummy-page): Calls ps-header-page.
(ps-set-color): Programming improvement.
(ps-plot-region): Doc fix.
(ps-face-attributes): Same functionality as deleted ps-get-face.
(ps-build-reference-face-lists): Do the job by calling
ps-set-face-bold and ps-bold-faces, and friends.
1997-09-06 02:52:00 +00:00
|
|
|
|
(ps-spool-without-faces from to t))
|
1994-05-01 22:09:01 +00:00
|
|
|
|
|
|
|
|
|
|
1995-02-07 22:51:35 +00:00
|
|
|
|
;;;###autoload
|
1994-05-01 22:09:01 +00:00
|
|
|
|
(defun ps-spool-region-with-faces (from to)
|
1995-01-20 06:09:03 +00:00
|
|
|
|
"Generate a PostScript image of the region and spool locally.
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
Like `ps-spool-region', but includes font, color, and underline information in
|
|
|
|
|
the generated image. This command works only if you are using a window system,
|
|
|
|
|
so it has a way to determine color values.
|
1994-05-01 22:09:01 +00:00
|
|
|
|
|
1995-01-20 06:09:03 +00:00
|
|
|
|
Use the command `ps-despool' to send the spooled images to the printer."
|
1994-05-01 22:09:01 +00:00
|
|
|
|
(interactive "r")
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.1).
(ps-adobe-tag): Replace defvar by defcustom, and doc fix.
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): Add arg REGION-P.
(ps-print-region-with-faces, ps-print-region)
(ps-spool-region, ps-spool-region-with-faces): Fix calls to
the functions above.
(ps-setup): Print value of ps-zebra-stripe, ps-number-of-zebra,
ps-line-number, ps-print-background-image,
and ps-print-background-text.
(ps-print-prologue-1): Bug fix in PostScript programming:
/BeginDSCPage, /BeginPage.
(ps-showpage-count, ps-ref-bold-faces, ps-ref-italic-faces)
(ps-ref-underlined-faces, font-lock-face-attributes)
(ps-initialize-faces): Vars deleted.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-initialize-faces, ps-header-height)
(ps-hard-lf, ps-soft-lf, ps-get-face, ps-map-font-lock): Fn deleted.
(ps-extend-face-list, ps-extend-face): Doc fix.
(ps-print-face-alist): New var to handle face alist.
(ps-printing-region): New var and fn.
(ps-header-page, ps-set-face-bold, ps-set-face-italic)
(ps-set-face-underline, ps-set-face-attribute, ps-map-face): New fn.
(ps-rmail-mode-hook, ps-rmail-print-message-from-summary)
(ps-print-message-from-summary, ps-vm-print-message-from-summary):
Fns moved.
(ps-background): New argument PAGE-NUMBER.
(ps-begin-file): Bug fix and print proper line number in a region.
(ps-begin-page): Call ps-header-page.
(ps-get-buffer-name): Indicates in the header when printing a region.
(ps-end-page): Delete ps-showpage-count.
(ps-dummy-page): Calls ps-header-page.
(ps-set-color): Programming improvement.
(ps-plot-region): Doc fix.
(ps-face-attributes): Same functionality as deleted ps-get-face.
(ps-build-reference-face-lists): Do the job by calling
ps-set-face-bold and ps-bold-faces, and friends.
1997-09-06 02:52:00 +00:00
|
|
|
|
(ps-spool-with-faces from to t))
|
1994-05-01 22:09:01 +00:00
|
|
|
|
|
1995-02-07 22:51:35 +00:00
|
|
|
|
;;;###autoload
|
1994-05-01 22:09:01 +00:00
|
|
|
|
(defun ps-despool (&optional filename)
|
|
|
|
|
"Send the spooled PostScript to the printer.
|
|
|
|
|
|
2002-09-09 19:26:40 +00:00
|
|
|
|
Interactively, when you use a prefix argument (\\[universal-argument]), the command prompts the
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
user for a file name, and saves the spooled PostScript image in that file
|
|
|
|
|
instead of sending it to the printer.
|
1994-05-01 22:09:01 +00:00
|
|
|
|
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
Noninteractively, the argument FILENAME is treated as follows: if it is nil,
|
|
|
|
|
send the image to the printer. If FILENAME is a string, save the PostScript
|
|
|
|
|
image in a file with that name."
|
1995-02-07 22:51:35 +00:00
|
|
|
|
(interactive (list (ps-print-preprint current-prefix-arg)))
|
|
|
|
|
(ps-do-despool filename))
|
1995-01-20 06:09:03 +00:00
|
|
|
|
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
;;;###autoload
|
|
|
|
|
(defun ps-line-lengths ()
|
2002-09-09 19:26:40 +00:00
|
|
|
|
"Display the correspondence between a line length and a font size.
|
|
|
|
|
Done using the current ps-print setup.
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
Try: pr -t file | awk '{printf \"%3d %s\n\", length($0), $0}' | sort -r | head"
|
|
|
|
|
(interactive)
|
|
|
|
|
(ps-line-lengths-internal))
|
|
|
|
|
|
|
|
|
|
;;;###autoload
|
|
|
|
|
(defun ps-nb-pages-buffer (nb-lines)
|
1997-09-11 23:51:29 +00:00
|
|
|
|
"Display number of pages to print this buffer, for various font heights.
|
|
|
|
|
The table depends on the current ps-print setup."
|
2001-09-18 09:28:00 +00:00
|
|
|
|
(interactive (ps-count-lines-preprint (point-min) (point-max)))
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
(ps-nb-pages nb-lines))
|
|
|
|
|
|
|
|
|
|
;;;###autoload
|
|
|
|
|
(defun ps-nb-pages-region (nb-lines)
|
1997-09-11 23:51:29 +00:00
|
|
|
|
"Display number of pages to print the region, for various font heights.
|
|
|
|
|
The table depends on the current ps-print setup."
|
2001-09-18 09:28:00 +00:00
|
|
|
|
(interactive (ps-count-lines-preprint (mark) (point)))
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
(ps-nb-pages nb-lines))
|
|
|
|
|
|
2001-06-01 09:22:20 +00:00
|
|
|
|
(defvar ps-prefix-quote nil
|
|
|
|
|
"Used for `ps-print-quote' (which see).")
|
2001-04-26 09:30:00 +00:00
|
|
|
|
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
;;;###autoload
|
|
|
|
|
(defun ps-setup ()
|
1998-05-06 04:15:25 +00:00
|
|
|
|
"Return the current PostScript-generation setup."
|
2001-04-26 09:30:00 +00:00
|
|
|
|
(let (ps-prefix-quote)
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
(mapconcat
|
2001-04-26 09:30:00 +00:00
|
|
|
|
#'ps-print-quote
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
(list
|
|
|
|
|
(concat "\n;;; ps-print version " ps-print-version "\n")
|
2004-05-06 04:29:32 +00:00
|
|
|
|
";; internal vars"
|
2004-11-21 22:52:46 +00:00
|
|
|
|
(ps-comment-string "emacs-version " emacs-version)
|
2004-05-06 03:47:19 +00:00
|
|
|
|
(ps-comment-string "ps-print-emacs-type" ps-print-emacs-type)
|
2004-05-06 04:29:32 +00:00
|
|
|
|
(ps-comment-string "ps-windows-system " ps-windows-system)
|
|
|
|
|
(ps-comment-string "ps-lp-system " ps-lp-system)
|
|
|
|
|
nil
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
'(25 . ps-print-color-p)
|
|
|
|
|
'(25 . ps-lpr-command)
|
|
|
|
|
'(25 . ps-lpr-switches)
|
|
|
|
|
'(25 . ps-printer-name)
|
|
|
|
|
'(25 . ps-printer-name-option)
|
|
|
|
|
'(25 . ps-print-region-function)
|
|
|
|
|
'(25 . ps-manual-feed)
|
|
|
|
|
'(25 . ps-end-with-control-d)
|
|
|
|
|
nil
|
|
|
|
|
'(23 . ps-paper-type)
|
|
|
|
|
'(23 . ps-warn-paper-type)
|
|
|
|
|
'(23 . ps-landscape-mode)
|
|
|
|
|
'(23 . ps-print-upside-down)
|
|
|
|
|
'(23 . ps-number-of-columns)
|
|
|
|
|
nil
|
|
|
|
|
'(23 . ps-zebra-stripes)
|
|
|
|
|
'(23 . ps-zebra-stripe-height)
|
|
|
|
|
'(23 . ps-zebra-stripe-follow)
|
|
|
|
|
'(23 . ps-zebra-color)
|
|
|
|
|
'(23 . ps-line-number)
|
|
|
|
|
'(23 . ps-line-number-step)
|
|
|
|
|
'(23 . ps-line-number-start)
|
|
|
|
|
nil
|
|
|
|
|
'(17 . ps-default-fg)
|
|
|
|
|
'(17 . ps-default-bg)
|
|
|
|
|
'(17 . ps-razzle-dazzle)
|
|
|
|
|
nil
|
|
|
|
|
'(23 . ps-use-face-background)
|
|
|
|
|
nil
|
|
|
|
|
'(28 . ps-print-control-characters)
|
|
|
|
|
nil
|
|
|
|
|
'(26 . ps-print-background-image)
|
|
|
|
|
nil
|
|
|
|
|
'(25 . ps-print-background-text)
|
|
|
|
|
nil
|
|
|
|
|
'(29 . ps-error-handler-message)
|
|
|
|
|
'(29 . ps-user-defined-prologue)
|
|
|
|
|
'(29 . ps-print-prologue-header)
|
|
|
|
|
'(29 . ps-postscript-code-directory)
|
|
|
|
|
'(29 . ps-adobe-tag)
|
|
|
|
|
nil
|
|
|
|
|
'(30 . ps-left-margin)
|
|
|
|
|
'(30 . ps-right-margin)
|
|
|
|
|
'(30 . ps-inter-column)
|
|
|
|
|
'(30 . ps-bottom-margin)
|
|
|
|
|
'(30 . ps-top-margin)
|
|
|
|
|
'(30 . ps-print-only-one-header)
|
|
|
|
|
'(30 . ps-switch-header)
|
|
|
|
|
'(30 . ps-print-header)
|
|
|
|
|
'(30 . ps-header-lines)
|
|
|
|
|
'(30 . ps-header-offset)
|
|
|
|
|
'(30 . ps-header-line-pad)
|
|
|
|
|
'(30 . ps-print-header-frame)
|
|
|
|
|
'(30 . ps-header-frame-alist)
|
|
|
|
|
'(30 . ps-print-footer)
|
|
|
|
|
'(30 . ps-footer-lines)
|
|
|
|
|
'(30 . ps-footer-offset)
|
|
|
|
|
'(30 . ps-footer-line-pad)
|
|
|
|
|
'(30 . ps-print-footer-frame)
|
|
|
|
|
'(30 . ps-footer-frame-alist)
|
|
|
|
|
'(30 . ps-show-n-of-n)
|
|
|
|
|
'(30 . ps-spool-config)
|
|
|
|
|
'(30 . ps-spool-duplex)
|
|
|
|
|
'(30 . ps-spool-tumble)
|
|
|
|
|
'(30 . ps-banner-page-when-duplexing)
|
|
|
|
|
'(30 . ps-left-header)
|
|
|
|
|
'(30 . ps-right-header)
|
|
|
|
|
'(30 . ps-left-footer)
|
|
|
|
|
'(30 . ps-right-footer)
|
|
|
|
|
nil
|
|
|
|
|
'(23 . ps-n-up-printing)
|
|
|
|
|
'(23 . ps-n-up-margin)
|
|
|
|
|
'(23 . ps-n-up-border-p)
|
|
|
|
|
'(23 . ps-n-up-filling)
|
|
|
|
|
nil
|
|
|
|
|
'(26 . ps-multibyte-buffer)
|
|
|
|
|
'(26 . ps-font-family)
|
|
|
|
|
'(26 . ps-font-size)
|
|
|
|
|
'(26 . ps-header-font-family)
|
|
|
|
|
'(26 . ps-header-font-size)
|
|
|
|
|
'(26 . ps-header-title-font-size)
|
|
|
|
|
'(26 . ps-footer-font-family)
|
|
|
|
|
'(26 . ps-footer-font-size)
|
|
|
|
|
'(26 . ps-line-number-color)
|
|
|
|
|
'(26 . ps-line-number-font)
|
|
|
|
|
'(26 . ps-line-number-font-size)
|
|
|
|
|
'(26 . ps-line-spacing)
|
|
|
|
|
'(26 . ps-paragraph-spacing)
|
|
|
|
|
'(26 . ps-paragraph-regexp)
|
|
|
|
|
'(26 . ps-begin-cut-regexp)
|
|
|
|
|
'(26 . ps-end-cut-regexp)
|
|
|
|
|
nil
|
|
|
|
|
'(23 . ps-even-or-odd-pages)
|
|
|
|
|
'(23 . ps-selected-pages)
|
|
|
|
|
'(23 . ps-last-selected-pages)
|
|
|
|
|
nil
|
|
|
|
|
'(31 . ps-build-face-reference)
|
|
|
|
|
'(31 . ps-always-build-face-reference)
|
|
|
|
|
nil
|
|
|
|
|
'(20 . ps-auto-font-detect)
|
|
|
|
|
'(20 . ps-bold-faces)
|
|
|
|
|
'(20 . ps-italic-faces)
|
|
|
|
|
'(20 . ps-underlined-faces)
|
2001-09-18 09:28:00 +00:00
|
|
|
|
'(20 . ps-black-white-faces)
|
2001-06-01 09:22:20 +00:00
|
|
|
|
" )\n
|
2000-12-29 11:48:50 +00:00
|
|
|
|
;; The following customized variables have long lists and are seldom modified:
|
|
|
|
|
;; ps-page-dimensions-database
|
|
|
|
|
;; ps-font-info-database
|
Fix bug: if ^L is the very first buffer character,
ps-print crashes. New feature: page selection for printing. Create
raw-text-unix coding system for XEmacs. Doc fix.
(ps-print-version): New version number (5.2.3).
(ps-plot-region): Bug fix.
(ps-setup, ps-init-output-queue, ps-output, ps-begin-job, ps-end-file)
(ps-header-sheet, ps-generate, ps-end-job): Code fix.
(ps-restore-selected-pages, ps-selected-pages, ps-print-page-p): New
funs.
(ps-selected-pages, ps-last-selected-pages, ps-first-page)
(ps-last-page): New vars.
2000-06-22 12:27:49 +00:00
|
|
|
|
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;;; ps-print - end of settings\n")
|
|
|
|
|
"\n")))
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
|
2000-01-05 07:17:31 +00:00
|
|
|
|
|
1995-01-20 06:09:03 +00:00
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
|
;; Utility functions and variables:
|
|
|
|
|
|
2000-01-05 07:17:31 +00:00
|
|
|
|
|
2001-04-26 09:30:00 +00:00
|
|
|
|
(defun ps-print-quote (elt)
|
2001-06-01 09:22:20 +00:00
|
|
|
|
"Quote ELT for printing (used for showing settings).
|
|
|
|
|
|
|
|
|
|
If ELT is nil, return an empty string.
|
|
|
|
|
If ELT is string, return it.
|
|
|
|
|
Otherwise, ELT should be a cons (LEN . SYM) where SYM is a variable symbol and
|
|
|
|
|
LEN is the field length where SYM name will be inserted. The variable
|
|
|
|
|
`ps-prefix-quote' is used to form the string, if `ps-prefix-quote' is nil, it's
|
|
|
|
|
used \"(setq \" as prefix; otherwise, it's used \" \". So, the string
|
|
|
|
|
generated is:
|
|
|
|
|
|
|
|
|
|
* If `ps-prefix-quote' is nil:
|
|
|
|
|
\"(setq SYM-NAME SYM-VALUE\"
|
|
|
|
|
|<------->|
|
|
|
|
|
LEN
|
|
|
|
|
|
|
|
|
|
* If `ps-prefix-quote' is non-nil:
|
|
|
|
|
\" SYM-NAME SYM-VALUE\"
|
|
|
|
|
|<------->|
|
|
|
|
|
LEN
|
|
|
|
|
|
|
|
|
|
If `ps-prefix-quote' is nil, it's set to t after generating string."
|
2001-04-26 09:30:00 +00:00
|
|
|
|
(cond
|
|
|
|
|
((stringp elt) elt)
|
2002-09-10 16:49:47 +00:00
|
|
|
|
((and (consp elt) (integerp (car elt))
|
|
|
|
|
(symbolp (cdr elt)) (boundp (cdr elt)))
|
2001-04-26 09:30:00 +00:00
|
|
|
|
(let* ((col (car elt))
|
|
|
|
|
(sym (cdr elt))
|
|
|
|
|
(key (symbol-name sym))
|
|
|
|
|
(len (length key))
|
|
|
|
|
(val (symbol-value sym)))
|
|
|
|
|
(concat (if ps-prefix-quote
|
2001-06-01 09:22:20 +00:00
|
|
|
|
" "
|
|
|
|
|
(setq ps-prefix-quote t)
|
2001-04-26 09:30:00 +00:00
|
|
|
|
"(setq ")
|
|
|
|
|
key
|
|
|
|
|
(if (> col len)
|
|
|
|
|
(make-string (- col len) ?\ )
|
|
|
|
|
" ")
|
2004-05-06 03:21:04 +00:00
|
|
|
|
(ps-value-string val))))
|
2002-09-10 16:49:47 +00:00
|
|
|
|
(t "")
|
2001-04-26 09:30:00 +00:00
|
|
|
|
))
|
|
|
|
|
|
|
|
|
|
|
2004-05-06 03:21:04 +00:00
|
|
|
|
(defun ps-value-string (val)
|
|
|
|
|
"Return a string representation of VAL. Used by `ps-print-quote'."
|
|
|
|
|
(cond ((null val)
|
|
|
|
|
"nil")
|
|
|
|
|
((eq val t)
|
|
|
|
|
"t")
|
|
|
|
|
((or (symbolp val) (listp val))
|
|
|
|
|
(format "'%S" val))
|
|
|
|
|
(t
|
|
|
|
|
(format "%S" val))))
|
|
|
|
|
|
|
|
|
|
|
2004-05-06 03:47:19 +00:00
|
|
|
|
(defun ps-comment-string (str value)
|
2004-05-06 04:34:38 +00:00
|
|
|
|
"Return a comment string like \";; STR = VALUE\"."
|
|
|
|
|
(format ";; %s = %s" str (ps-value-string value)))
|
2004-05-06 03:47:19 +00:00
|
|
|
|
|
|
|
|
|
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
(defun ps-value (alist-sym key)
|
|
|
|
|
"Return value from association list ALIST-SYM which car is `eq' to KEY."
|
|
|
|
|
(cdr (assq key (symbol-value alist-sym))))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(defun ps-get (alist-sym key)
|
|
|
|
|
"Return element from association list ALIST-SYM which car is `eq' to KEY."
|
|
|
|
|
(assq key (symbol-value alist-sym)))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(defun ps-put (alist-sym key value)
|
|
|
|
|
"Store element (KEY . VALUE) into association list ALIST-SYM.
|
|
|
|
|
If KEY already exists in ALIST-SYM, modify cdr to VALUE.
|
|
|
|
|
It can be retrieved with `(ps-get ALIST-SYM KEY)'."
|
|
|
|
|
(let ((elt: (assq key (symbol-value alist-sym)))) ; to avoid name conflict
|
|
|
|
|
(if elt:
|
|
|
|
|
(setcdr elt: value)
|
|
|
|
|
(setq elt: (cons key value))
|
|
|
|
|
(set alist-sym (cons elt: (symbol-value alist-sym))))
|
|
|
|
|
elt:))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(defun ps-del (alist-sym key)
|
|
|
|
|
"Delete by side effect element KEY from association list ALIST-SYM."
|
|
|
|
|
(let ((a:list: (symbol-value alist-sym)) ; to avoid name conflict
|
|
|
|
|
old)
|
|
|
|
|
(while a:list:
|
|
|
|
|
(if (eq key (car (car a:list:)))
|
|
|
|
|
(progn
|
|
|
|
|
(if old
|
|
|
|
|
(setcdr old (cdr a:list:))
|
|
|
|
|
(set alist-sym (cdr a:list:)))
|
|
|
|
|
(setq a:list: nil))
|
|
|
|
|
(setq old a:list:
|
|
|
|
|
a:list: (cdr a:list:)))))
|
|
|
|
|
(symbol-value alist-sym))
|
|
|
|
|
|
|
|
|
|
|
2001-07-06 09:59:25 +00:00
|
|
|
|
(defun ps-time-stamp-locale-default ()
|
|
|
|
|
"Return the locale's \"preferred\" date as, for example, \"06/18/01\"."
|
|
|
|
|
(format-time-string "%x"))
|
|
|
|
|
|
|
|
|
|
|
2001-02-20 10:41:10 +00:00
|
|
|
|
(defun ps-time-stamp-mon-dd-yyyy ()
|
2001-07-06 09:59:25 +00:00
|
|
|
|
"Return date as \"Jun 18 2001\"."
|
2001-02-20 10:41:10 +00:00
|
|
|
|
(format-time-string "%b %d %Y"))
|
|
|
|
|
|
|
|
|
|
|
2004-03-02 04:54:04 +00:00
|
|
|
|
(defun ps-time-stamp-yyyy-mm-dd ()
|
|
|
|
|
"Return date as \"2001-06-18\" (ISO date)."
|
|
|
|
|
(format-time-string "%Y-%m-%d"))
|
|
|
|
|
|
|
|
|
|
|
2004-06-16 00:03:26 +00:00
|
|
|
|
;; Alias for `ps-time-stamp-yyyy-mm-dd' (which see).
|
|
|
|
|
(defalias 'ps-time-stamp-iso8601 'ps-time-stamp-yyyy-mm-dd)
|
2004-03-02 04:54:04 +00:00
|
|
|
|
|
|
|
|
|
|
2001-02-20 10:41:10 +00:00
|
|
|
|
(defun ps-time-stamp-hh:mm:ss ()
|
2001-07-06 09:59:25 +00:00
|
|
|
|
"Return time as \"17:28:31\"."
|
2001-02-20 10:41:10 +00:00
|
|
|
|
(format-time-string "%T"))
|
|
|
|
|
|
|
|
|
|
|
2004-11-21 22:30:00 +00:00
|
|
|
|
(and (featurep 'xemacs)
|
|
|
|
|
;; XEmacs change: Need to check for emacs-major-version too.
|
|
|
|
|
(or (< emacs-major-version 19)
|
|
|
|
|
(and (= emacs-major-version 19) (< emacs-minor-version 12)))
|
|
|
|
|
(setq ps-print-color-p nil))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;; Return t if the device (which can be changed during an emacs session)
|
|
|
|
|
;; can handle colors.
|
|
|
|
|
;; This function is not yet implemented for GNU emacs.
|
|
|
|
|
(cond ((and (featurep 'xemacs)
|
|
|
|
|
;; XEmacs change: Need to check for emacs-major-version too.
|
|
|
|
|
(or (> emacs-major-version 19)
|
|
|
|
|
(and (= emacs-major-version 19)
|
|
|
|
|
(>= emacs-minor-version 12)))) ; xemacs >= 19.12
|
|
|
|
|
(defun ps-color-device ()
|
|
|
|
|
(eq (ps-x-device-class) 'color)))
|
|
|
|
|
|
|
|
|
|
(t ; emacs
|
|
|
|
|
(defun ps-color-device ()
|
|
|
|
|
(if (fboundp 'color-values)
|
|
|
|
|
(ps-e-color-values "Green")
|
|
|
|
|
t))))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(defun ps-mapper (extent list)
|
|
|
|
|
(nconc list
|
|
|
|
|
(list (list (ps-x-extent-start-position extent) 'push extent)
|
|
|
|
|
(list (ps-x-extent-end-position extent) 'pull extent)))
|
|
|
|
|
nil)
|
|
|
|
|
|
|
|
|
|
(defun ps-extent-sorter (a b)
|
|
|
|
|
(< (ps-x-extent-priority a) (ps-x-extent-priority b)))
|
|
|
|
|
|
|
|
|
|
(defun ps-xemacs-face-kind-p (face kind kind-regex)
|
|
|
|
|
(let* ((frame-font (or (ps-x-face-font-instance face)
|
|
|
|
|
(ps-x-face-font-instance 'default)))
|
|
|
|
|
(kind-cons
|
|
|
|
|
(and frame-font
|
|
|
|
|
(assq kind
|
|
|
|
|
(ps-x-font-instance-properties frame-font))))
|
|
|
|
|
(kind-spec (cdr-safe kind-cons))
|
|
|
|
|
(case-fold-search t))
|
|
|
|
|
(and kind-spec (string-match kind-regex kind-spec))))
|
|
|
|
|
|
|
|
|
|
(cond ((featurep 'xemacs) ; xemacs
|
|
|
|
|
|
|
|
|
|
;; to avoid XEmacs compilation gripes
|
|
|
|
|
(defvar coding-system-for-write nil)
|
|
|
|
|
(defvar coding-system-for-read nil)
|
|
|
|
|
(defvar buffer-file-coding-system nil)
|
|
|
|
|
|
|
|
|
|
(and (fboundp 'find-coding-system)
|
|
|
|
|
(or (ps-x-find-coding-system 'raw-text-unix)
|
|
|
|
|
(ps-x-copy-coding-system 'no-conversion-unix 'raw-text-unix)))
|
|
|
|
|
|
|
|
|
|
(defun ps-color-values (x-color)
|
|
|
|
|
(let ((color (ps-xemacs-color-name x-color)))
|
2000-10-31 11:54:38 +00:00
|
|
|
|
(cond
|
|
|
|
|
((fboundp 'x-color-values)
|
2004-11-21 22:30:00 +00:00
|
|
|
|
(ps-e-x-color-values color))
|
|
|
|
|
((and (fboundp 'color-instance-rgb-components)
|
|
|
|
|
(ps-color-device))
|
|
|
|
|
(ps-x-color-instance-rgb-components
|
|
|
|
|
(if (ps-x-color-instance-p x-color)
|
|
|
|
|
x-color
|
|
|
|
|
(ps-x-make-color-instance color))))
|
2000-10-31 11:54:38 +00:00
|
|
|
|
(t
|
2004-11-21 22:30:00 +00:00
|
|
|
|
(error "No available function to determine X color values")))))
|
|
|
|
|
|
|
|
|
|
(defun ps-face-bold-p (face)
|
|
|
|
|
(or (ps-xemacs-face-kind-p face 'WEIGHT_NAME "bold\\|demibold")
|
|
|
|
|
(memq face ps-bold-faces))) ; Kludge-compatible
|
|
|
|
|
|
|
|
|
|
(defun ps-face-italic-p (face)
|
|
|
|
|
(or (ps-xemacs-face-kind-p face 'ANGLE_NAME "i\\|o")
|
|
|
|
|
(ps-xemacs-face-kind-p face 'SLANT "i\\|o")
|
|
|
|
|
(memq face ps-italic-faces))) ; Kludge-compatible
|
|
|
|
|
)
|
|
|
|
|
|
|
|
|
|
(t ; emacs
|
|
|
|
|
|
|
|
|
|
(defun ps-color-values (x-color)
|
|
|
|
|
(cond
|
|
|
|
|
((fboundp 'color-values)
|
|
|
|
|
(ps-e-color-values x-color))
|
|
|
|
|
((fboundp 'x-color-values)
|
|
|
|
|
(ps-e-x-color-values x-color))
|
|
|
|
|
(t
|
|
|
|
|
(error "No available function to determine X color values"))))
|
Even/odd pages fix. Fix little bug on XEmacs. Avoid
compilation gripes. Doc fix.
(ps-print-version): New version number (6.2).
(ps-x-color-instance-p, ps-x-color-instance-rgb-components)
(ps-x-color-name, ps-x-color-specifier-p, ps-x-copy-coding-system)
(ps-x-device-class, ps-x-extent-end-position, ps-x-extent-face)
(ps-x-extent-priority, ps-x-extent-start-position)
(ps-x-face-font-instance, ps-x-find-coding-system)
(ps-x-font-instance-properties, ps-x-make-color-instance)
(ps-x-map-extents): Alias for functions without the prefix `ps-x-', to
avoid compilation gripes without defining functions.
(ps-e-find-composition): Alias for function find-composition, to have a
suitable function depending on Emacs version.
(ps-color-device, ps-color-values, ps-face-foreground-name)
(ps-face-background-name, ps-face-bold-p, ps-face-italic-p, ps-mapper)
(ps-extent-sorter, ps-xemacs-face-kind-p, ps-xemacs-color-name)
(ps-print-ensure-fontified): Function definitions surrounded by
`eval-and-compile' to avoid compilation gripes.
(ps-font-lock-face-attributes): `font-lock-face-attributes' evaluated
by symbol-value to avoid compilation gripes.
(ps-end-file, ps-header-sheet, ps-plot-region): Even/odd pages fix.
(ps-generate-postscript-with-faces): Fix little bug on XEmacs.
2000-10-19 10:46:51 +00:00
|
|
|
|
|
2004-11-21 22:30:00 +00:00
|
|
|
|
(defun ps-face-bold-p (face)
|
|
|
|
|
(or (ps-e-face-bold-p face)
|
|
|
|
|
(memq face ps-bold-faces)))
|
2002-09-12 03:21:57 +00:00
|
|
|
|
|
2004-11-21 22:30:00 +00:00
|
|
|
|
(defun ps-face-italic-p (face)
|
|
|
|
|
(or (ps-e-face-italic-p face)
|
|
|
|
|
(memq face ps-italic-faces)))
|
|
|
|
|
))
|
Even/odd pages fix. Fix little bug on XEmacs. Avoid
compilation gripes. Doc fix.
(ps-print-version): New version number (6.2).
(ps-x-color-instance-p, ps-x-color-instance-rgb-components)
(ps-x-color-name, ps-x-color-specifier-p, ps-x-copy-coding-system)
(ps-x-device-class, ps-x-extent-end-position, ps-x-extent-face)
(ps-x-extent-priority, ps-x-extent-start-position)
(ps-x-face-font-instance, ps-x-find-coding-system)
(ps-x-font-instance-properties, ps-x-make-color-instance)
(ps-x-map-extents): Alias for functions without the prefix `ps-x-', to
avoid compilation gripes without defining functions.
(ps-e-find-composition): Alias for function find-composition, to have a
suitable function depending on Emacs version.
(ps-color-device, ps-color-values, ps-face-foreground-name)
(ps-face-background-name, ps-face-bold-p, ps-face-italic-p, ps-mapper)
(ps-extent-sorter, ps-xemacs-face-kind-p, ps-xemacs-color-name)
(ps-print-ensure-fontified): Function definitions surrounded by
`eval-and-compile' to avoid compilation gripes.
(ps-font-lock-face-attributes): `font-lock-face-attributes' evaluated
by symbol-value to avoid compilation gripes.
(ps-end-file, ps-header-sheet, ps-plot-region): Even/odd pages fix.
(ps-generate-postscript-with-faces): Fix little bug on XEmacs.
2000-10-19 10:46:51 +00:00
|
|
|
|
|
|
|
|
|
|
2000-10-31 11:54:38 +00:00
|
|
|
|
(defvar ps-print-color-scale 1.0)
|
2000-10-26 14:15:15 +00:00
|
|
|
|
|
Even/odd pages fix. Fix little bug on XEmacs. Avoid
compilation gripes. Doc fix.
(ps-print-version): New version number (6.2).
(ps-x-color-instance-p, ps-x-color-instance-rgb-components)
(ps-x-color-name, ps-x-color-specifier-p, ps-x-copy-coding-system)
(ps-x-device-class, ps-x-extent-end-position, ps-x-extent-face)
(ps-x-extent-priority, ps-x-extent-start-position)
(ps-x-face-font-instance, ps-x-find-coding-system)
(ps-x-font-instance-properties, ps-x-make-color-instance)
(ps-x-map-extents): Alias for functions without the prefix `ps-x-', to
avoid compilation gripes without defining functions.
(ps-e-find-composition): Alias for function find-composition, to have a
suitable function depending on Emacs version.
(ps-color-device, ps-color-values, ps-face-foreground-name)
(ps-face-background-name, ps-face-bold-p, ps-face-italic-p, ps-mapper)
(ps-extent-sorter, ps-xemacs-face-kind-p, ps-xemacs-color-name)
(ps-print-ensure-fontified): Function definitions surrounded by
`eval-and-compile' to avoid compilation gripes.
(ps-font-lock-face-attributes): `font-lock-face-attributes' evaluated
by symbol-value to avoid compilation gripes.
(ps-end-file, ps-header-sheet, ps-plot-region): Even/odd pages fix.
(ps-generate-postscript-with-faces): Fix little bug on XEmacs.
2000-10-19 10:46:51 +00:00
|
|
|
|
(defun ps-color-scale (color)
|
|
|
|
|
;; Scale 16-bit X-COLOR-VALUE to PostScript color value in [0, 1] interval.
|
|
|
|
|
(mapcar #'(lambda (value) (/ value ps-print-color-scale))
|
|
|
|
|
(ps-color-values color)))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(defun ps-face-underlined-p (face)
|
|
|
|
|
(or (face-underline-p face)
|
|
|
|
|
(memq face ps-underlined-faces)))
|
Multi-byte buffer handling.
(ps-print-version): New version number (4.0) and doc fix.
(ps-color-device, ps-face-bold-p, ps-face-italic-p): Conditional
compilation for GNU Emacs and emacsens.
(ps-generate-postscript-with-faces): Force invisible text to be
visible.
(dos-ps-printer): New var to avoid compilation gripes.
(ps-mule-plot-string): Pay attention to the case
that no more characters can't be printed in the current line.
(ps-mule-find-wrappoint): ENDPOS should not be greater than TO.
Add codes to make ps-print.el work also on Emacs
20.2 and the earlier version.
(ps-mule-encode-7bit, ps-mule-encode-8bit): Modified for 20.2.
(ccl-encode-ethio-unicode, ps-mule-encode-ethiopic): Likewise.
(ps-mule-find-wrappoint): Likewise.
(ps-mule-generate-font): Change `X' to `x' in format
control-string.
(ps-generate): Call ps-mule-begin before calling ps-begin-job.
(ps-mule-cmpchar-prologue): Delete unnecessary `gsave' and
`restore' form procedures `BC' and `EC'.
(ps-print-prologue-1): Handle the case that FontBBox
is an executable procedure. Make LineThickness, Xshadow, and
Yshadow relative to FontHeight. Set SpaceWidth in BeginDoc.
(ps-mule-font-info-database, ps-mule-font-info-database-ps,
ps-mule-font-info-database-bdf): New vars.
(ps-mule-encode-7bit, ps-mule-encode-8bit): New funs.
(ccl-encode-ethio-unicode): New CCL program.
(ps-mule-encode-ethiopic): New fun.
(ps-mule-current-charset): New var.
(ps-mule-get-font-spec, ps-mule-font-spec-src,
ps-mule-font-spec-name, ps-mule-font-spec-encoding,
ps-mule-font-spec-bytes, ps-mule-printable-p): New funs.
(ps-mule-external-libraries): New var.
(ps-mule-init-external-library): New fun.
(ps-mule-font-cache): New var.
(ps-mule-generate-font, ps-mule-generate-glyphs): New funs.
(ps-last-font): New var.
(ps-mule-prepare-font): New fun.
(ps-mule-charset-list): New var.
(ps-mule-prologue-generated, ps-mule-prologue): New vars.
(ps-mule-skip-same-charset, ps-mule-find-wrappoint,
ps-mule-plot-string): New funs.
(ps-mule-cmpchar-prologue-generated, ps-mule-cmpchar-prologue):
New vars.
(ps-mule-plot-rule-cmpchar, ps-mule-plot-cmpchar,
ps-mule-prepare-cmpchar-font): New funs.
(ps-mule-bitmap-prologue-generated, ps-mule-bitmap-prologue): New
vars.
(ps-mule-generate-bitmap-prologue, ps-mule-generate-bitmap-font,
ps-mule-generate-bitmap-glyph): New funs.
(ps-mule-initialize, ps-mule-begin): New funs.
(ps-output-string-prim): Insert string as unibyte.
(ps-output-prologue): New fun.
(ps-flush-output): Handle the case of 'prologue.
(ps-begin-file): Call ps-mule-initialize.
(ps-begin-job): Set ps-control-or-escape-regexp differently if
printing multibyte characters.
(ps-begin-page): Set ps-mule-current-charset to 'ascii.
(ps-basic-plot-string): Handle the case of printing ASCII
characters by external libraries (e.g. BDF).
(ps-set-font): Set ps-last-font.
(ps-plot-region): Handle multibyte characters, use
ps-mule-plot-string for them.
(ps-generate): Set the spool buffer unibyte. Call ps-mule-begin.
1998-08-24 10:19:29 +00:00
|
|
|
|
|
Some comment, doc and bug fixes.
(ps-print-version): New version number (3.05.3) and doc fix.
(ps-output-string-prim, ps-begin-job, ps-control-character)
(ps-plot-region): Bug fix.
(ps-print-control-characters): New custom var.
(ps-string-escape-codes, ps-string-control-codes): New var.
(ps-color-device, ps-font-lock-face-attributes, ps-eval-switch)
(ps-flatten-list, ps-flatten-list-1): New fn.
(ps-setup): Update current setup.
(ps-begin-file): Adjust PostScript header file.
(ps-plot, ps-face-attribute-list): Little programming improvement.
(ps-print-prologue-1): Replace NumberOfZebra by ZebraHeight.
(ps-print-without-faces, ps-print-with-faces): Little reprogramming.
(ps-plot-with-face): Get color only on color screen device.
(ps-build-reference-face-lists): Handle obsolete
font-lock-face-attributes.
(ps-print-ensure-fontified): Little programming setting.
(ps-generate-postscript-with-faces): Adjust initializations, get color
only on color screen device.
(ps-generate): Replace (if A B) by (and A B).
(ps-do-despool): Dynamic evaluation for ps-lpr-switches,
Replace (if A B) by (and A B).
(color-instance-rgb-components, ps-color-values): Replace
pixel-components by color-instance-rgb-components.
(ps-xemacs-face-kind-p): Replace face-font by face-font-instance,
replace x-font-properties by font-instance-properties.
1997-12-25 18:33:52 +00:00
|
|
|
|
|
2000-01-05 08:11:30 +00:00
|
|
|
|
(defun ps-prologue-file (filenumber)
|
2002-09-09 19:26:40 +00:00
|
|
|
|
"If prologue FILENUMBER exists and is readable, return contents as string.
|
2001-02-20 10:41:10 +00:00
|
|
|
|
|
|
|
|
|
Note: No major/minor-mode is activated and no local variables are evaluated for
|
|
|
|
|
FILENUMBER, but proper EOL-conversion and character interpretation is
|
|
|
|
|
done!"
|
|
|
|
|
(let ((filename (convert-standard-filename
|
|
|
|
|
(expand-file-name (format "ps-prin%d.ps" filenumber)
|
|
|
|
|
ps-postscript-code-directory))))
|
|
|
|
|
(if (and (file-exists-p filename)
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
(file-readable-p filename))
|
|
|
|
|
(with-temp-buffer
|
|
|
|
|
(insert-file-contents filename)
|
|
|
|
|
(buffer-string))
|
2001-07-16 12:23:00 +00:00
|
|
|
|
(error "ps-print PostScript prologue `%s' file was not found"
|
2001-02-20 10:41:10 +00:00
|
|
|
|
filename))))
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
|
|
|
|
|
|
2000-01-05 08:11:30 +00:00
|
|
|
|
(defvar ps-mark-code-directory nil)
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
|
2000-03-15 13:35:02 +00:00
|
|
|
|
(defvar ps-print-prologue-0 ""
|
|
|
|
|
"ps-print PostScript error handler.")
|
|
|
|
|
|
2000-01-05 08:11:30 +00:00
|
|
|
|
(defvar ps-print-prologue-1 ""
|
Line and paragraph spacing feature. Region to cut
out when printing. Doc fix.
(ps-print-version): New version number (6.5).
(ps-line-spacing, ps-paragraph-spacing, ps-paragraph-regexp): New
vars. Line and paragraph spacing feature.
(ps-begin-cut-regexp, ps-end-cut-regexp): New vars. Region to cut
out when printing.
(ps-setup, ps-nb-pages, ps-get-page-dimensions, ps-begin-file)
(ps-get-font-size, ps-begin-job, ps-continue-line)
(ps-plot-region): Code fix.
(ps-print-prologue-2): Var eliminated.
(ps-line-spacing-internal, ps-paragraph-spacing-internal): New
internal vars.
(ps-get-size): New fun.
(ps-output-string-prim, ps-init-output-queue, ps-print-page-p)
(ps-next-line): Replace defun by defsubst.
(ps-mule-plot-string): Autoload doc fix.
(ps-mule-generate-font): New arg HEADER-P. If it is
non-nil, generate font for the header strings.
(ps-mule-prepare-font): Likewise.
(ps-mule-generate-glyphs): Likewise.
(ps-mule-string-encoding): Likewise.
(ps-mule-header-charsets): New variable.
(ps-mule-encode-header-string): New function.
(ps-mule-header-string-charsets): New function.
(ps-mule-begin-job): Check charsets in the header strings. If there
are non-ASCII and non-Latin1 charsets, prepare fonts for them.
2001-04-02 10:35:07 +00:00
|
|
|
|
"ps-print PostScript prologue.")
|
1995-01-20 06:09:03 +00:00
|
|
|
|
|
|
|
|
|
;; Start Editing Here:
|
1994-05-01 22:09:01 +00:00
|
|
|
|
|
1995-01-20 06:09:03 +00:00
|
|
|
|
(defvar ps-source-buffer nil)
|
|
|
|
|
(defvar ps-spool-buffer-name "*PostScript*")
|
|
|
|
|
(defvar ps-spool-buffer nil)
|
1994-05-01 22:09:01 +00:00
|
|
|
|
|
1995-01-20 06:09:03 +00:00
|
|
|
|
(defvar ps-output-head nil)
|
|
|
|
|
(defvar ps-output-tail nil)
|
1994-05-01 22:09:01 +00:00
|
|
|
|
|
2000-11-02 12:04:59 +00:00
|
|
|
|
(defvar ps-page-postscript 0) ; page number
|
|
|
|
|
(defvar ps-page-order 0) ; PostScript page counter
|
|
|
|
|
(defvar ps-page-sheet 0) ; sheet counter
|
|
|
|
|
(defvar ps-page-column 0) ; column counter
|
|
|
|
|
(defvar ps-page-printed 0) ; total pages printed
|
|
|
|
|
(defvar ps-page-n-up 0) ; n-up counter
|
2000-12-29 11:48:50 +00:00
|
|
|
|
(defvar ps-lines-printed 0) ; total lines printed
|
|
|
|
|
(defvar ps-showline-count 1) ; line number counter
|
Fix bug: if ^L is the very first buffer character,
ps-print crashes. New feature: page selection for printing. Create
raw-text-unix coding system for XEmacs. Doc fix.
(ps-print-version): New version number (5.2.3).
(ps-plot-region): Bug fix.
(ps-setup, ps-init-output-queue, ps-output, ps-begin-job, ps-end-file)
(ps-header-sheet, ps-generate, ps-end-job): Code fix.
(ps-restore-selected-pages, ps-selected-pages, ps-print-page-p): New
funs.
(ps-selected-pages, ps-last-selected-pages, ps-first-page)
(ps-last-page): New vars.
2000-06-22 12:27:49 +00:00
|
|
|
|
(defvar ps-first-page nil)
|
|
|
|
|
(defvar ps-last-page nil)
|
2000-10-31 11:54:38 +00:00
|
|
|
|
(defvar ps-print-page-p t)
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
|
Some comment, doc and bug fixes.
(ps-print-version): New version number (3.05.3) and doc fix.
(ps-output-string-prim, ps-begin-job, ps-control-character)
(ps-plot-region): Bug fix.
(ps-print-control-characters): New custom var.
(ps-string-escape-codes, ps-string-control-codes): New var.
(ps-color-device, ps-font-lock-face-attributes, ps-eval-switch)
(ps-flatten-list, ps-flatten-list-1): New fn.
(ps-setup): Update current setup.
(ps-begin-file): Adjust PostScript header file.
(ps-plot, ps-face-attribute-list): Little programming improvement.
(ps-print-prologue-1): Replace NumberOfZebra by ZebraHeight.
(ps-print-without-faces, ps-print-with-faces): Little reprogramming.
(ps-plot-with-face): Get color only on color screen device.
(ps-build-reference-face-lists): Handle obsolete
font-lock-face-attributes.
(ps-print-ensure-fontified): Little programming setting.
(ps-generate-postscript-with-faces): Adjust initializations, get color
only on color screen device.
(ps-generate): Replace (if A B) by (and A B).
(ps-do-despool): Dynamic evaluation for ps-lpr-switches,
Replace (if A B) by (and A B).
(color-instance-rgb-components, ps-color-values): Replace
pixel-components by color-instance-rgb-components.
(ps-xemacs-face-kind-p): Replace face-font by face-font-instance,
replace x-font-properties by font-instance-properties.
1997-12-25 18:33:52 +00:00
|
|
|
|
(defvar ps-control-or-escape-regexp nil)
|
2000-05-18 21:50:51 +00:00
|
|
|
|
(defvar ps-n-up-on nil)
|
Some comment, doc and bug fixes.
(ps-print-version): New version number (3.05.3) and doc fix.
(ps-output-string-prim, ps-begin-job, ps-control-character)
(ps-plot-region): Bug fix.
(ps-print-control-characters): New custom var.
(ps-string-escape-codes, ps-string-control-codes): New var.
(ps-color-device, ps-font-lock-face-attributes, ps-eval-switch)
(ps-flatten-list, ps-flatten-list-1): New fn.
(ps-setup): Update current setup.
(ps-begin-file): Adjust PostScript header file.
(ps-plot, ps-face-attribute-list): Little programming improvement.
(ps-print-prologue-1): Replace NumberOfZebra by ZebraHeight.
(ps-print-without-faces, ps-print-with-faces): Little reprogramming.
(ps-plot-with-face): Get color only on color screen device.
(ps-build-reference-face-lists): Handle obsolete
font-lock-face-attributes.
(ps-print-ensure-fontified): Little programming setting.
(ps-generate-postscript-with-faces): Adjust initializations, get color
only on color screen device.
(ps-generate): Replace (if A B) by (and A B).
(ps-do-despool): Dynamic evaluation for ps-lpr-switches,
Replace (if A B) by (and A B).
(color-instance-rgb-components, ps-color-values): Replace
pixel-components by color-instance-rgb-components.
(ps-xemacs-face-kind-p): Replace face-font by face-font-instance,
replace x-font-properties by font-instance-properties.
1997-12-25 18:33:52 +00:00
|
|
|
|
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
(defvar ps-background-pages nil)
|
|
|
|
|
(defvar ps-background-all-pages nil)
|
|
|
|
|
(defvar ps-background-text-count 0)
|
|
|
|
|
(defvar ps-background-image-count 0)
|
1994-05-01 22:09:01 +00:00
|
|
|
|
|
1995-01-20 06:09:03 +00:00
|
|
|
|
(defvar ps-current-font 0)
|
PostScript programming fix for ghostview, doc fix.
(ps-print-version): New version number (5.1.3).
(ps-begin-file, ps-begin-job, ps-set-color, ps-do-despool, ps-setup)
(ps-insert-file, ps-output-boolean, ps-plot-with-face)
(ps-generate-postscript-with-faces): Code fix.
(ps-color-values): XEmacs compatibility.
(ps-print-background-image, ps-print-background-text, ps-printer-name)
(ps-default-fg, ps-default-bg): Adjust customization.
(ps-zebra-color): Adjust customization, renaming old ps-zebra-gray var.
(ps-color-scale): Renaming old ps-color-value fun.
(ps-print-headers): Replace ps-print-header group to avoid conflict
with ps-print-header variable.
(ps-print-miscellany): New group.
(ps-format-color, ps-rgb-color): New funs.
(ps-default-foreground): New var.
(ps-printer-name-option): New const.
2000-03-30 13:21:45 +00:00
|
|
|
|
(defvar ps-default-foreground nil)
|
2003-03-06 01:54:17 +00:00
|
|
|
|
(defvar ps-default-background nil)
|
PostScript programming fix for ghostview, doc fix.
(ps-print-version): New version number (5.1.3).
(ps-begin-file, ps-begin-job, ps-set-color, ps-do-despool, ps-setup)
(ps-insert-file, ps-output-boolean, ps-plot-with-face)
(ps-generate-postscript-with-faces): Code fix.
(ps-color-values): XEmacs compatibility.
(ps-print-background-image, ps-print-background-text, ps-printer-name)
(ps-default-fg, ps-default-bg): Adjust customization.
(ps-zebra-color): Adjust customization, renaming old ps-zebra-gray var.
(ps-color-scale): Renaming old ps-color-value fun.
(ps-print-headers): Replace ps-print-header group to avoid conflict
with ps-print-header variable.
(ps-print-miscellany): New group.
(ps-format-color, ps-rgb-color): New funs.
(ps-default-foreground): New var.
(ps-printer-name-option): New const.
2000-03-30 13:21:45 +00:00
|
|
|
|
(defvar ps-default-color nil)
|
|
|
|
|
(defvar ps-current-color nil)
|
1995-01-20 06:09:03 +00:00
|
|
|
|
(defvar ps-current-bg nil)
|
|
|
|
|
|
2001-02-20 10:41:10 +00:00
|
|
|
|
(defvar ps-zebra-stripe-full-p nil)
|
1995-01-20 06:09:03 +00:00
|
|
|
|
(defvar ps-razchunk 0)
|
|
|
|
|
|
User option for multibyte buffer handling and doc fix.
(ps-multibyte-buffer): New user option.
(ps-setup): Print new user option.
(ps-print-quote): New fun.
(ps-color-p, ps-mule-font-info-database-latin): New var.
(ps-default-color, ps-mule-font-info-database)
(ps-mule-font-info-database-ps-bdf): Adjust initialization.
(ps-mule-get-font-spec, ps-mule-begin, ps-begin-file)
(ps-plot-with-face, ps-generate-postscript-with-faces, ps-generate):
Little code improvement.
(ps-mule-initialize): Initialize ps-mule-font-info-database.
(ps-print-prologue-header, ps-font-family, ps-font-size)
(ps-header-font-family, ps-header-font-size, ps-header-title-font-size)
(ps-build-face-reference, ps-mule-font-info-database-bdf)
(ps-mule-external-libraries, ps-mule-init-external-library)
(ps-mule-prepare-font, ps-mule-find-wrappoint, ps-mule-plot-string): doc
fix.
To make it work also on Emacs 20.2 and the earlier
version, check the value of mule-version.
(ps-print-version): New version number (4.1.1) and doc
fix.
(ps-print-prologue-header): New user option.
(ps-color-values, ps-xemacs-face-kind-p, ps-mapper, ps-extent-sorter):
Conditional compilation for GNU Emacs and emacsens.
(ps-generate-postscript-with-faces): Skip invisible text better.
(ps-setup): Print new user option.
(ps-print-preprint): Check if input file name exists and is unwritable.
(ps-begin-file): Adjust PostScript prologue header for duplex printers
and insert user PostScript prologue header comments.
(ps-mule-encode-bit, ps-mule-string-ascii, ps-mule-string-encoding): New
funs.
(dos-ps-printer, lazy-lock-fontify-buffer): Eliminated.
(ps-mule-prologue, ps-mule-cmpchar-prologue, ps-mule-bitmap-prologue):
PostScript programming normalization.
(ps-mule-encode-7bit, ps-mule-encode-8bit, ps-mule-generate-font)
(ps-mule-generate-glyphs, ps-mule-prepare-font, ps-mule-plot-string)
(ps-mule-skip-same-charset, ps-mule-plot-rule-cmpchar)
(ps-mule-plot-cmpchar, ps-mule-prepare-cmpchar-font)
(ps-mule-initialize, ps-mule-begin, ps-face-bold-p, ps-do-despool):
Programming style normalization.
1998-10-26 20:22:17 +00:00
|
|
|
|
(defvar ps-color-p nil)
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
(defvar ps-color-format
|
2004-11-21 22:30:00 +00:00
|
|
|
|
(if (featurep 'xemacs)
|
|
|
|
|
;; XEmacs will have to make do with %s (princ) for floats.
|
|
|
|
|
"%s %s %s"
|
1995-01-20 06:09:03 +00:00
|
|
|
|
|
2004-11-21 22:30:00 +00:00
|
|
|
|
;; Emacs understands the %f format; we'll use it to limit color RGB
|
|
|
|
|
;; values to three decimals to cut down some on the size of the
|
|
|
|
|
;; PostScript output.
|
|
|
|
|
"%0.3f %0.3f %0.3f"))
|
1995-01-20 06:09:03 +00:00
|
|
|
|
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; These values determine how much print-height to deduct when headers/footers
|
|
|
|
|
;; are turned on. This is a pretty clumsy way of handling it, but it'll do for
|
|
|
|
|
;; now.
|
1995-01-20 06:09:03 +00:00
|
|
|
|
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
(defvar ps-header-pad 0
|
1998-05-06 04:15:25 +00:00
|
|
|
|
"Vertical and horizontal space between the header frame and the text.
|
|
|
|
|
This is in units of points (1/72 inch).")
|
1995-01-20 06:09:03 +00:00
|
|
|
|
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
(defvar ps-footer-pad 0
|
|
|
|
|
"Vertical and horizontal space between the footer frame and the text.
|
|
|
|
|
This is in units of points (1/72 inch).")
|
|
|
|
|
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
;; Define accessors to the dimensions list.
|
1995-01-20 06:09:03 +00:00
|
|
|
|
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
(defmacro ps-page-dimensions-get-width (dims) `(nth 0 ,dims))
|
|
|
|
|
(defmacro ps-page-dimensions-get-height (dims) `(nth 1 ,dims))
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
(defmacro ps-page-dimensions-get-media (dims) `(nth 2 ,dims))
|
1995-01-20 06:09:03 +00:00
|
|
|
|
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
(defvar ps-landscape-page-height nil)
|
1995-01-20 06:09:03 +00:00
|
|
|
|
|
|
|
|
|
(defvar ps-print-width nil)
|
|
|
|
|
(defvar ps-print-height nil)
|
|
|
|
|
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.2) and doc fix.
(ps-print, ps-header-lines, ps-show-n-of-n, ps-font-info-database)
(ps-font-family, ps-font-size, ps-header-font-family)
(ps-header-font-size, ps-header-title-font-size, ps-bold-faces)
(ps-italic-faces, ps-underlined-faces, ps-left-header, ps-right-header)
(ps-font, ps-font-bold, ps-font-italic, ps-font-bold-italic)
(ps-avg-char-width, ps-space-width, ps-line-height): Doc fix.
(ps-error-scale-font): New fn.
(ps-soft-lf, ps-hard-lf): Fn deleted.
(ps-get-page-dimensions, ps-set-bg, ps-face-bold-p, ps-face-italic-p)
(ps-set-color): Reindentation.
(ps-output-string-prim, ps-xemacs-face-kind-p): Internal blank lines
deleted.
(ps-set-font): Little programming improvement.
(ps-line-lengths-internal, ps-nb-pages, ps-select-font)
(ps-select-header-font): Simplify some expressions.
(ps-plot-region): Replace (- X 1) by (1- X).
(ps-generate-header): Replace (+ X 1) by (1+ X).
(ps-print-preprint, ps-plot-with-face, ps-print-ensure-fontified)
(ps-kill-emacs-check): Replace (if (and A B) C) by (and A B C).
(ps-init-output-queue, ps-gnus-article-prepare-hook, ps-jts-ps-setup):
Replace (setq a b)(setq c d) by (setq a b c d).
(ps-begin-file, ps-end-file): Replace (ps-output A)(ps-output B)
by (ps-output A B).
(ps-begin-page): Replace (ps-output A)(ps-output B) by (ps-output A B),
replace (setq a b)(setq c d) by (setq a b c d).
(ps-next-line, ps-continue-line): Replace (setq a b)(setq c d)
by (setq a b c d), and incorporates ps-soft-lf and ps-hard-lf,
respectively.
(ps-plot): Replace (setq a b)(setq c d) by (setq a b c d),
and programming improvement.
(ps-generate-postscript-with-faces): Initialization fix,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if (and A B) C) by (and A B C).
(ps-generate): Doc fix, reprogramming to set the page count,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if A nil B) by (or A B),
replace (if (and A B) C) by (and A B C).
(ps-info-mode-hook): Replace (list 'A 'B) by '(A B).
(ps-jack-setup): Replace (list) by nil.
1997-11-23 02:26:50 +00:00
|
|
|
|
(defvar ps-height-remaining nil)
|
|
|
|
|
(defvar ps-width-remaining nil)
|
1995-01-20 06:09:03 +00:00
|
|
|
|
|
Doc fix, font size specifies landscape and portrait sizes.
(ps-print-version): New version number (4.1.4).
(ps-font-size, ps-header-font-size, ps-header-title-font-size):
Specifies landscape and portrait sizes.
(ps-setup, ps-print-quote, ps-line-lengths-internal, ps-nb-pages)
(ps-get-page-dimensions, ps-begin-file, ps-begin-job, ps-generate): Fun
fix.
(ps-get-font-size): New fun.
(ps-font-size-internal, ps-header-font-size-internal)
(ps-header-title-font-size-internal): New vars.
PostScript programming fix.
(ps-print-prologue-1): Fix BeginDoc PostScript procedure (do'nt use
setpagedevice operator).
1999-02-27 01:37:15 +00:00
|
|
|
|
(defvar ps-font-size-internal nil)
|
|
|
|
|
(defvar ps-header-font-size-internal nil)
|
|
|
|
|
(defvar ps-header-title-font-size-internal nil)
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
(defvar ps-footer-font-size-internal nil)
|
Line and paragraph spacing feature. Region to cut
out when printing. Doc fix.
(ps-print-version): New version number (6.5).
(ps-line-spacing, ps-paragraph-spacing, ps-paragraph-regexp): New
vars. Line and paragraph spacing feature.
(ps-begin-cut-regexp, ps-end-cut-regexp): New vars. Region to cut
out when printing.
(ps-setup, ps-nb-pages, ps-get-page-dimensions, ps-begin-file)
(ps-get-font-size, ps-begin-job, ps-continue-line)
(ps-plot-region): Code fix.
(ps-print-prologue-2): Var eliminated.
(ps-line-spacing-internal, ps-paragraph-spacing-internal): New
internal vars.
(ps-get-size): New fun.
(ps-output-string-prim, ps-init-output-queue, ps-print-page-p)
(ps-next-line): Replace defun by defsubst.
(ps-mule-plot-string): Autoload doc fix.
(ps-mule-generate-font): New arg HEADER-P. If it is
non-nil, generate font for the header strings.
(ps-mule-prepare-font): Likewise.
(ps-mule-generate-glyphs): Likewise.
(ps-mule-string-encoding): Likewise.
(ps-mule-header-charsets): New variable.
(ps-mule-encode-header-string): New function.
(ps-mule-header-string-charsets): New function.
(ps-mule-begin-job): Check charsets in the header strings. If there
are non-ASCII and non-Latin1 charsets, prepare fonts for them.
2001-04-02 10:35:07 +00:00
|
|
|
|
(defvar ps-line-spacing-internal nil)
|
|
|
|
|
(defvar ps-paragraph-spacing-internal nil)
|
Doc fix, font size specifies landscape and portrait sizes.
(ps-print-version): New version number (4.1.4).
(ps-font-size, ps-header-font-size, ps-header-title-font-size):
Specifies landscape and portrait sizes.
(ps-setup, ps-print-quote, ps-line-lengths-internal, ps-nb-pages)
(ps-get-page-dimensions, ps-begin-file, ps-begin-job, ps-generate): Fun
fix.
(ps-get-font-size): New fun.
(ps-font-size-internal, ps-header-font-size-internal)
(ps-header-title-font-size-internal): New vars.
PostScript programming fix.
(ps-print-prologue-1): Fix BeginDoc PostScript procedure (do'nt use
setpagedevice operator).
1999-02-27 01:37:15 +00:00
|
|
|
|
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
|
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
|
;; Internal Variables
|
|
|
|
|
|
|
|
|
|
|
2001-09-18 09:28:00 +00:00
|
|
|
|
(defvar ps-black-white-faces-alist nil
|
|
|
|
|
"Alist of symbolic faces used for black/white PostScript printers.
|
|
|
|
|
An element of this list has the same form as `ps-print-face-extension-alist'
|
2002-09-09 19:26:40 +00:00
|
|
|
|
\(which see).
|
2001-09-18 09:28:00 +00:00
|
|
|
|
|
|
|
|
|
Don't change this list directly; instead,
|
|
|
|
|
use `ps-extend-face' and `ps-extend-face-list'.
|
|
|
|
|
See documentation for `ps-extend-face' for valid extension symbol.
|
|
|
|
|
See also documentation for `ps-print-color-p'.")
|
|
|
|
|
|
|
|
|
|
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
(defvar ps-print-face-extension-alist nil
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.1).
(ps-adobe-tag): Replace defvar by defcustom, and doc fix.
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): Add arg REGION-P.
(ps-print-region-with-faces, ps-print-region)
(ps-spool-region, ps-spool-region-with-faces): Fix calls to
the functions above.
(ps-setup): Print value of ps-zebra-stripe, ps-number-of-zebra,
ps-line-number, ps-print-background-image,
and ps-print-background-text.
(ps-print-prologue-1): Bug fix in PostScript programming:
/BeginDSCPage, /BeginPage.
(ps-showpage-count, ps-ref-bold-faces, ps-ref-italic-faces)
(ps-ref-underlined-faces, font-lock-face-attributes)
(ps-initialize-faces): Vars deleted.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-initialize-faces, ps-header-height)
(ps-hard-lf, ps-soft-lf, ps-get-face, ps-map-font-lock): Fn deleted.
(ps-extend-face-list, ps-extend-face): Doc fix.
(ps-print-face-alist): New var to handle face alist.
(ps-printing-region): New var and fn.
(ps-header-page, ps-set-face-bold, ps-set-face-italic)
(ps-set-face-underline, ps-set-face-attribute, ps-map-face): New fn.
(ps-rmail-mode-hook, ps-rmail-print-message-from-summary)
(ps-print-message-from-summary, ps-vm-print-message-from-summary):
Fns moved.
(ps-background): New argument PAGE-NUMBER.
(ps-begin-file): Bug fix and print proper line number in a region.
(ps-begin-page): Call ps-header-page.
(ps-get-buffer-name): Indicates in the header when printing a region.
(ps-end-page): Delete ps-showpage-count.
(ps-dummy-page): Calls ps-header-page.
(ps-set-color): Programming improvement.
(ps-plot-region): Doc fix.
(ps-face-attributes): Same functionality as deleted ps-get-face.
(ps-build-reference-face-lists): Do the job by calling
ps-set-face-bold and ps-bold-faces, and friends.
1997-09-06 02:52:00 +00:00
|
|
|
|
"Alist of symbolic faces *WITH* extension features (box, outline, etc).
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
An element of this list has the following form:
|
|
|
|
|
|
|
|
|
|
(FACE . [BITS FG BG])
|
|
|
|
|
|
|
|
|
|
FACE is a symbol denoting a face name
|
|
|
|
|
BITS is a bit vector, where each bit correspond
|
|
|
|
|
to a feature (bold, underline, etc)
|
|
|
|
|
(see documentation for `ps-print-face-map-alist')
|
|
|
|
|
FG foreground color (string or nil)
|
|
|
|
|
BG background color (string or nil)
|
|
|
|
|
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.1).
(ps-adobe-tag): Replace defvar by defcustom, and doc fix.
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): Add arg REGION-P.
(ps-print-region-with-faces, ps-print-region)
(ps-spool-region, ps-spool-region-with-faces): Fix calls to
the functions above.
(ps-setup): Print value of ps-zebra-stripe, ps-number-of-zebra,
ps-line-number, ps-print-background-image,
and ps-print-background-text.
(ps-print-prologue-1): Bug fix in PostScript programming:
/BeginDSCPage, /BeginPage.
(ps-showpage-count, ps-ref-bold-faces, ps-ref-italic-faces)
(ps-ref-underlined-faces, font-lock-face-attributes)
(ps-initialize-faces): Vars deleted.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-initialize-faces, ps-header-height)
(ps-hard-lf, ps-soft-lf, ps-get-face, ps-map-font-lock): Fn deleted.
(ps-extend-face-list, ps-extend-face): Doc fix.
(ps-print-face-alist): New var to handle face alist.
(ps-printing-region): New var and fn.
(ps-header-page, ps-set-face-bold, ps-set-face-italic)
(ps-set-face-underline, ps-set-face-attribute, ps-map-face): New fn.
(ps-rmail-mode-hook, ps-rmail-print-message-from-summary)
(ps-print-message-from-summary, ps-vm-print-message-from-summary):
Fns moved.
(ps-background): New argument PAGE-NUMBER.
(ps-begin-file): Bug fix and print proper line number in a region.
(ps-begin-page): Call ps-header-page.
(ps-get-buffer-name): Indicates in the header when printing a region.
(ps-end-page): Delete ps-showpage-count.
(ps-dummy-page): Calls ps-header-page.
(ps-set-color): Programming improvement.
(ps-plot-region): Doc fix.
(ps-face-attributes): Same functionality as deleted ps-get-face.
(ps-build-reference-face-lists): Do the job by calling
ps-set-face-bold and ps-bold-faces, and friends.
1997-09-06 02:52:00 +00:00
|
|
|
|
Don't change this list directly; instead,
|
|
|
|
|
use `ps-extend-face' and `ps-extend-face-list'.
|
|
|
|
|
See documentation for `ps-extend-face' for valid extension symbol.")
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(defvar ps-print-face-alist nil
|
|
|
|
|
"Alist of symbolic faces *WITHOUT* extension features (box, outline, etc).
|
|
|
|
|
|
|
|
|
|
An element of this list has the same form as an element of
|
|
|
|
|
`ps-print-face-extension-alist'.
|
|
|
|
|
|
|
|
|
|
Don't change this list directly; this list is used by `ps-face-attributes',
|
|
|
|
|
`ps-map-face' and `ps-build-reference-face-lists'.")
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(defconst ps-print-face-map-alist
|
|
|
|
|
'((bold . 1)
|
|
|
|
|
(italic . 2)
|
|
|
|
|
(underline . 4)
|
|
|
|
|
(strikeout . 8)
|
|
|
|
|
(overline . 16)
|
|
|
|
|
(shadow . 32)
|
|
|
|
|
(box . 64)
|
|
|
|
|
(outline . 128))
|
|
|
|
|
"Alist of all features and the corresponding bit mask.
|
|
|
|
|
Each symbol correspond to one bit in a bit vector.")
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.1).
(ps-adobe-tag): Replace defvar by defcustom, and doc fix.
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): Add arg REGION-P.
(ps-print-region-with-faces, ps-print-region)
(ps-spool-region, ps-spool-region-with-faces): Fix calls to
the functions above.
(ps-setup): Print value of ps-zebra-stripe, ps-number-of-zebra,
ps-line-number, ps-print-background-image,
and ps-print-background-text.
(ps-print-prologue-1): Bug fix in PostScript programming:
/BeginDSCPage, /BeginPage.
(ps-showpage-count, ps-ref-bold-faces, ps-ref-italic-faces)
(ps-ref-underlined-faces, font-lock-face-attributes)
(ps-initialize-faces): Vars deleted.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-initialize-faces, ps-header-height)
(ps-hard-lf, ps-soft-lf, ps-get-face, ps-map-font-lock): Fn deleted.
(ps-extend-face-list, ps-extend-face): Doc fix.
(ps-print-face-alist): New var to handle face alist.
(ps-printing-region): New var and fn.
(ps-header-page, ps-set-face-bold, ps-set-face-italic)
(ps-set-face-underline, ps-set-face-attribute, ps-map-face): New fn.
(ps-rmail-mode-hook, ps-rmail-print-message-from-summary)
(ps-print-message-from-summary, ps-vm-print-message-from-summary):
Fns moved.
(ps-background): New argument PAGE-NUMBER.
(ps-begin-file): Bug fix and print proper line number in a region.
(ps-begin-page): Call ps-header-page.
(ps-get-buffer-name): Indicates in the header when printing a region.
(ps-end-page): Delete ps-showpage-count.
(ps-dummy-page): Calls ps-header-page.
(ps-set-color): Programming improvement.
(ps-plot-region): Doc fix.
(ps-face-attributes): Same functionality as deleted ps-get-face.
(ps-build-reference-face-lists): Do the job by calling
ps-set-face-bold and ps-bold-faces, and friends.
1997-09-06 02:52:00 +00:00
|
|
|
|
;; Remapping Faces
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;;;###autoload
|
2001-09-18 09:28:00 +00:00
|
|
|
|
(defun ps-extend-face-list (face-extension-list &optional merge-p alist-sym)
|
|
|
|
|
"Extend face in ALIST-SYM.
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.1).
(ps-adobe-tag): Replace defvar by defcustom, and doc fix.
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): Add arg REGION-P.
(ps-print-region-with-faces, ps-print-region)
(ps-spool-region, ps-spool-region-with-faces): Fix calls to
the functions above.
(ps-setup): Print value of ps-zebra-stripe, ps-number-of-zebra,
ps-line-number, ps-print-background-image,
and ps-print-background-text.
(ps-print-prologue-1): Bug fix in PostScript programming:
/BeginDSCPage, /BeginPage.
(ps-showpage-count, ps-ref-bold-faces, ps-ref-italic-faces)
(ps-ref-underlined-faces, font-lock-face-attributes)
(ps-initialize-faces): Vars deleted.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-initialize-faces, ps-header-height)
(ps-hard-lf, ps-soft-lf, ps-get-face, ps-map-font-lock): Fn deleted.
(ps-extend-face-list, ps-extend-face): Doc fix.
(ps-print-face-alist): New var to handle face alist.
(ps-printing-region): New var and fn.
(ps-header-page, ps-set-face-bold, ps-set-face-italic)
(ps-set-face-underline, ps-set-face-attribute, ps-map-face): New fn.
(ps-rmail-mode-hook, ps-rmail-print-message-from-summary)
(ps-print-message-from-summary, ps-vm-print-message-from-summary):
Fns moved.
(ps-background): New argument PAGE-NUMBER.
(ps-begin-file): Bug fix and print proper line number in a region.
(ps-begin-page): Call ps-header-page.
(ps-get-buffer-name): Indicates in the header when printing a region.
(ps-end-page): Delete ps-showpage-count.
(ps-dummy-page): Calls ps-header-page.
(ps-set-color): Programming improvement.
(ps-plot-region): Doc fix.
(ps-face-attributes): Same functionality as deleted ps-get-face.
(ps-build-reference-face-lists): Do the job by calling
ps-set-face-bold and ps-bold-faces, and friends.
1997-09-06 02:52:00 +00:00
|
|
|
|
If optional MERGE-P is non-nil, extensions in FACE-EXTENSION-LIST are merged
|
2001-09-18 09:28:00 +00:00
|
|
|
|
with face extension in ALIST-SYM; otherwise, overrides.
|
|
|
|
|
|
|
|
|
|
If optional ALIST-SYM is nil, it's used `ps-print-face-extension-alist';
|
|
|
|
|
otherwise, it should be an alist symbol.
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
|
|
|
|
|
The elements in FACE-EXTENSION-LIST is like those for `ps-extend-face'.
|
|
|
|
|
|
|
|
|
|
See `ps-extend-face' for documentation."
|
|
|
|
|
(while face-extension-list
|
2001-09-18 09:28:00 +00:00
|
|
|
|
(ps-extend-face (car face-extension-list) merge-p alist-sym)
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
(setq face-extension-list (cdr face-extension-list))))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;;;###autoload
|
2001-09-18 09:28:00 +00:00
|
|
|
|
(defun ps-extend-face (face-extension &optional merge-p alist-sym)
|
|
|
|
|
"Extend face in ALIST-SYM.
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
|
1998-05-06 04:06:30 +00:00
|
|
|
|
If optional MERGE-P is non-nil, extensions in FACE-EXTENSION list are merged
|
2001-09-18 09:28:00 +00:00
|
|
|
|
with face extensions in ALIST-SYM; otherwise, overrides.
|
|
|
|
|
|
|
|
|
|
If optional ALIST-SYM is nil, it's used `ps-print-face-extension-alist';
|
|
|
|
|
otherwise, it should be an alist symbol.
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
|
|
|
|
|
The elements of FACE-EXTENSION list have the form:
|
|
|
|
|
|
|
|
|
|
(FACE-NAME FOREGROUND BACKGROUND EXTENSION...)
|
|
|
|
|
|
|
|
|
|
FACE-NAME is a face name symbol.
|
|
|
|
|
|
|
|
|
|
FOREGROUND and BACKGROUND may be nil or a string that denotes the
|
|
|
|
|
foreground and background colors respectively.
|
|
|
|
|
|
|
|
|
|
EXTENSION is one of the following symbols:
|
|
|
|
|
bold - use bold font.
|
|
|
|
|
italic - use italic font.
|
|
|
|
|
underline - put a line under text.
|
|
|
|
|
strikeout - like underline, but the line is in middle of text.
|
|
|
|
|
overline - like underline, but the line is over the text.
|
|
|
|
|
shadow - text will have a shadow.
|
|
|
|
|
box - text will be surrounded by a box.
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.1).
(ps-adobe-tag): Replace defvar by defcustom, and doc fix.
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): Add arg REGION-P.
(ps-print-region-with-faces, ps-print-region)
(ps-spool-region, ps-spool-region-with-faces): Fix calls to
the functions above.
(ps-setup): Print value of ps-zebra-stripe, ps-number-of-zebra,
ps-line-number, ps-print-background-image,
and ps-print-background-text.
(ps-print-prologue-1): Bug fix in PostScript programming:
/BeginDSCPage, /BeginPage.
(ps-showpage-count, ps-ref-bold-faces, ps-ref-italic-faces)
(ps-ref-underlined-faces, font-lock-face-attributes)
(ps-initialize-faces): Vars deleted.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-initialize-faces, ps-header-height)
(ps-hard-lf, ps-soft-lf, ps-get-face, ps-map-font-lock): Fn deleted.
(ps-extend-face-list, ps-extend-face): Doc fix.
(ps-print-face-alist): New var to handle face alist.
(ps-printing-region): New var and fn.
(ps-header-page, ps-set-face-bold, ps-set-face-italic)
(ps-set-face-underline, ps-set-face-attribute, ps-map-face): New fn.
(ps-rmail-mode-hook, ps-rmail-print-message-from-summary)
(ps-print-message-from-summary, ps-vm-print-message-from-summary):
Fns moved.
(ps-background): New argument PAGE-NUMBER.
(ps-begin-file): Bug fix and print proper line number in a region.
(ps-begin-page): Call ps-header-page.
(ps-get-buffer-name): Indicates in the header when printing a region.
(ps-end-page): Delete ps-showpage-count.
(ps-dummy-page): Calls ps-header-page.
(ps-set-color): Programming improvement.
(ps-plot-region): Doc fix.
(ps-face-attributes): Same functionality as deleted ps-get-face.
(ps-build-reference-face-lists): Do the job by calling
ps-set-face-bold and ps-bold-faces, and friends.
1997-09-06 02:52:00 +00:00
|
|
|
|
outline - print characters as hollow outlines.
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
|
|
|
|
|
If EXTENSION is any other symbol, it is ignored."
|
2001-09-18 09:28:00 +00:00
|
|
|
|
(or alist-sym
|
|
|
|
|
(setq alist-sym 'ps-print-face-extension-alist))
|
|
|
|
|
(let* ((background (nth 2 face-extension))
|
|
|
|
|
(foreground (nth 1 face-extension))
|
|
|
|
|
(face-name (nth 0 face-extension))
|
|
|
|
|
(ps-face (cdr (assq face-name (symbol-value alist-sym))))
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
(face-vector (or ps-face (vector 0 nil nil)))
|
2001-09-18 09:28:00 +00:00
|
|
|
|
(face-bit (ps-extension-bit face-extension)))
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
;; extend face
|
|
|
|
|
(aset face-vector 0 (if merge-p
|
|
|
|
|
(logior (aref face-vector 0) face-bit)
|
|
|
|
|
face-bit))
|
2001-09-18 09:28:00 +00:00
|
|
|
|
(and (or (not merge-p) (and foreground (stringp foreground)))
|
|
|
|
|
(aset face-vector 1 foreground))
|
|
|
|
|
(and (or (not merge-p) (and background (stringp background)))
|
|
|
|
|
(aset face-vector 2 background))
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
;; if face does not exist, insert it
|
|
|
|
|
(or ps-face
|
2001-09-18 09:28:00 +00:00
|
|
|
|
(set alist-sym (cons (cons face-name face-vector)
|
|
|
|
|
(symbol-value alist-sym))))))
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(defun ps-extension-bit (face-extension)
|
|
|
|
|
(let ((face-bit 0))
|
|
|
|
|
;; map valid symbol extension to bit vector
|
|
|
|
|
(setq face-extension (cdr (cdr face-extension)))
|
|
|
|
|
(while (setq face-extension (cdr face-extension))
|
|
|
|
|
(setq face-bit (logior face-bit
|
|
|
|
|
(or (cdr (assq (car face-extension)
|
|
|
|
|
ps-print-face-map-alist))
|
|
|
|
|
0))))
|
|
|
|
|
face-bit))
|
|
|
|
|
|
Some comment, doc and bug fixes.
(ps-print-version): New version number (3.05.3) and doc fix.
(ps-output-string-prim, ps-begin-job, ps-control-character)
(ps-plot-region): Bug fix.
(ps-print-control-characters): New custom var.
(ps-string-escape-codes, ps-string-control-codes): New var.
(ps-color-device, ps-font-lock-face-attributes, ps-eval-switch)
(ps-flatten-list, ps-flatten-list-1): New fn.
(ps-setup): Update current setup.
(ps-begin-file): Adjust PostScript header file.
(ps-plot, ps-face-attribute-list): Little programming improvement.
(ps-print-prologue-1): Replace NumberOfZebra by ZebraHeight.
(ps-print-without-faces, ps-print-with-faces): Little reprogramming.
(ps-plot-with-face): Get color only on color screen device.
(ps-build-reference-face-lists): Handle obsolete
font-lock-face-attributes.
(ps-print-ensure-fontified): Little programming setting.
(ps-generate-postscript-with-faces): Adjust initializations, get color
only on color screen device.
(ps-generate): Replace (if A B) by (and A B).
(ps-do-despool): Dynamic evaluation for ps-lpr-switches,
Replace (if A B) by (and A B).
(color-instance-rgb-components, ps-color-values): Replace
pixel-components by color-instance-rgb-components.
(ps-xemacs-face-kind-p): Replace face-font by face-font-instance,
replace x-font-properties by font-instance-properties.
1997-12-25 18:33:52 +00:00
|
|
|
|
|
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
;; Adapted from font-lock: (obsolete stuff)
|
Some comment, doc and bug fixes.
(ps-print-version): New version number (3.05.3) and doc fix.
(ps-output-string-prim, ps-begin-job, ps-control-character)
(ps-plot-region): Bug fix.
(ps-print-control-characters): New custom var.
(ps-string-escape-codes, ps-string-control-codes): New var.
(ps-color-device, ps-font-lock-face-attributes, ps-eval-switch)
(ps-flatten-list, ps-flatten-list-1): New fn.
(ps-setup): Update current setup.
(ps-begin-file): Adjust PostScript header file.
(ps-plot, ps-face-attribute-list): Little programming improvement.
(ps-print-prologue-1): Replace NumberOfZebra by ZebraHeight.
(ps-print-without-faces, ps-print-with-faces): Little reprogramming.
(ps-plot-with-face): Get color only on color screen device.
(ps-build-reference-face-lists): Handle obsolete
font-lock-face-attributes.
(ps-print-ensure-fontified): Little programming setting.
(ps-generate-postscript-with-faces): Adjust initializations, get color
only on color screen device.
(ps-generate): Replace (if A B) by (and A B).
(ps-do-despool): Dynamic evaluation for ps-lpr-switches,
Replace (if A B) by (and A B).
(color-instance-rgb-components, ps-color-values): Replace
pixel-components by color-instance-rgb-components.
(ps-xemacs-face-kind-p): Replace face-font by face-font-instance,
replace x-font-properties by font-instance-properties.
1997-12-25 18:33:52 +00:00
|
|
|
|
;; Originally face attributes were specified via `font-lock-face-attributes'.
|
|
|
|
|
;; Users then changed the default face attributes by setting that variable.
|
|
|
|
|
;; However, we try and be back-compatible and respect its value if set except
|
|
|
|
|
;; for faces where M-x customize has been used to save changes for the face.
|
|
|
|
|
|
2000-01-05 07:17:31 +00:00
|
|
|
|
|
Some comment, doc and bug fixes.
(ps-print-version): New version number (3.05.3) and doc fix.
(ps-output-string-prim, ps-begin-job, ps-control-character)
(ps-plot-region): Bug fix.
(ps-print-control-characters): New custom var.
(ps-string-escape-codes, ps-string-control-codes): New var.
(ps-color-device, ps-font-lock-face-attributes, ps-eval-switch)
(ps-flatten-list, ps-flatten-list-1): New fn.
(ps-setup): Update current setup.
(ps-begin-file): Adjust PostScript header file.
(ps-plot, ps-face-attribute-list): Little programming improvement.
(ps-print-prologue-1): Replace NumberOfZebra by ZebraHeight.
(ps-print-without-faces, ps-print-with-faces): Little reprogramming.
(ps-plot-with-face): Get color only on color screen device.
(ps-build-reference-face-lists): Handle obsolete
font-lock-face-attributes.
(ps-print-ensure-fontified): Little programming setting.
(ps-generate-postscript-with-faces): Adjust initializations, get color
only on color screen device.
(ps-generate): Replace (if A B) by (and A B).
(ps-do-despool): Dynamic evaluation for ps-lpr-switches,
Replace (if A B) by (and A B).
(color-instance-rgb-components, ps-color-values): Replace
pixel-components by color-instance-rgb-components.
(ps-xemacs-face-kind-p): Replace face-font by face-font-instance,
replace x-font-properties by font-instance-properties.
1997-12-25 18:33:52 +00:00
|
|
|
|
(defun ps-font-lock-face-attributes ()
|
|
|
|
|
(and (boundp 'font-lock-mode) (symbol-value 'font-lock-mode)
|
|
|
|
|
(boundp 'font-lock-face-attributes)
|
Even/odd pages fix. Fix little bug on XEmacs. Avoid
compilation gripes. Doc fix.
(ps-print-version): New version number (6.2).
(ps-x-color-instance-p, ps-x-color-instance-rgb-components)
(ps-x-color-name, ps-x-color-specifier-p, ps-x-copy-coding-system)
(ps-x-device-class, ps-x-extent-end-position, ps-x-extent-face)
(ps-x-extent-priority, ps-x-extent-start-position)
(ps-x-face-font-instance, ps-x-find-coding-system)
(ps-x-font-instance-properties, ps-x-make-color-instance)
(ps-x-map-extents): Alias for functions without the prefix `ps-x-', to
avoid compilation gripes without defining functions.
(ps-e-find-composition): Alias for function find-composition, to have a
suitable function depending on Emacs version.
(ps-color-device, ps-color-values, ps-face-foreground-name)
(ps-face-background-name, ps-face-bold-p, ps-face-italic-p, ps-mapper)
(ps-extent-sorter, ps-xemacs-face-kind-p, ps-xemacs-color-name)
(ps-print-ensure-fontified): Function definitions surrounded by
`eval-and-compile' to avoid compilation gripes.
(ps-font-lock-face-attributes): `font-lock-face-attributes' evaluated
by symbol-value to avoid compilation gripes.
(ps-end-file, ps-header-sheet, ps-plot-region): Even/odd pages fix.
(ps-generate-postscript-with-faces): Fix little bug on XEmacs.
2000-10-19 10:46:51 +00:00
|
|
|
|
(let ((face-attributes (symbol-value 'font-lock-face-attributes)))
|
Some comment, doc and bug fixes.
(ps-print-version): New version number (3.05.3) and doc fix.
(ps-output-string-prim, ps-begin-job, ps-control-character)
(ps-plot-region): Bug fix.
(ps-print-control-characters): New custom var.
(ps-string-escape-codes, ps-string-control-codes): New var.
(ps-color-device, ps-font-lock-face-attributes, ps-eval-switch)
(ps-flatten-list, ps-flatten-list-1): New fn.
(ps-setup): Update current setup.
(ps-begin-file): Adjust PostScript header file.
(ps-plot, ps-face-attribute-list): Little programming improvement.
(ps-print-prologue-1): Replace NumberOfZebra by ZebraHeight.
(ps-print-without-faces, ps-print-with-faces): Little reprogramming.
(ps-plot-with-face): Get color only on color screen device.
(ps-build-reference-face-lists): Handle obsolete
font-lock-face-attributes.
(ps-print-ensure-fontified): Little programming setting.
(ps-generate-postscript-with-faces): Adjust initializations, get color
only on color screen device.
(ps-generate): Replace (if A B) by (and A B).
(ps-do-despool): Dynamic evaluation for ps-lpr-switches,
Replace (if A B) by (and A B).
(color-instance-rgb-components, ps-color-values): Replace
pixel-components by color-instance-rgb-components.
(ps-xemacs-face-kind-p): Replace face-font by face-font-instance,
replace x-font-properties by font-instance-properties.
1997-12-25 18:33:52 +00:00
|
|
|
|
(while face-attributes
|
1998-05-06 04:06:30 +00:00
|
|
|
|
(let* ((face-attribute
|
|
|
|
|
(car (prog1 face-attributes
|
|
|
|
|
(setq face-attributes (cdr face-attributes)))))
|
Some comment, doc and bug fixes.
(ps-print-version): New version number (3.05.3) and doc fix.
(ps-output-string-prim, ps-begin-job, ps-control-character)
(ps-plot-region): Bug fix.
(ps-print-control-characters): New custom var.
(ps-string-escape-codes, ps-string-control-codes): New var.
(ps-color-device, ps-font-lock-face-attributes, ps-eval-switch)
(ps-flatten-list, ps-flatten-list-1): New fn.
(ps-setup): Update current setup.
(ps-begin-file): Adjust PostScript header file.
(ps-plot, ps-face-attribute-list): Little programming improvement.
(ps-print-prologue-1): Replace NumberOfZebra by ZebraHeight.
(ps-print-without-faces, ps-print-with-faces): Little reprogramming.
(ps-plot-with-face): Get color only on color screen device.
(ps-build-reference-face-lists): Handle obsolete
font-lock-face-attributes.
(ps-print-ensure-fontified): Little programming setting.
(ps-generate-postscript-with-faces): Adjust initializations, get color
only on color screen device.
(ps-generate): Replace (if A B) by (and A B).
(ps-do-despool): Dynamic evaluation for ps-lpr-switches,
Replace (if A B) by (and A B).
(color-instance-rgb-components, ps-color-values): Replace
pixel-components by color-instance-rgb-components.
(ps-xemacs-face-kind-p): Replace face-font by face-font-instance,
replace x-font-properties by font-instance-properties.
1997-12-25 18:33:52 +00:00
|
|
|
|
(face (car face-attribute)))
|
|
|
|
|
;; Rustle up a `defface' SPEC from a
|
|
|
|
|
;; `font-lock-face-attributes' entry.
|
|
|
|
|
(unless (get face 'saved-face)
|
|
|
|
|
(let ((foreground (nth 1 face-attribute))
|
|
|
|
|
(background (nth 2 face-attribute))
|
|
|
|
|
(bold-p (nth 3 face-attribute))
|
|
|
|
|
(italic-p (nth 4 face-attribute))
|
|
|
|
|
(underline-p (nth 5 face-attribute))
|
|
|
|
|
face-spec)
|
|
|
|
|
(when foreground
|
|
|
|
|
(setq face-spec (cons ':foreground
|
|
|
|
|
(cons foreground face-spec))))
|
|
|
|
|
(when background
|
|
|
|
|
(setq face-spec (cons ':background
|
|
|
|
|
(cons background face-spec))))
|
|
|
|
|
(when bold-p
|
2001-12-31 20:32:52 +00:00
|
|
|
|
(setq face-spec (append '(:weight bold) face-spec)))
|
Some comment, doc and bug fixes.
(ps-print-version): New version number (3.05.3) and doc fix.
(ps-output-string-prim, ps-begin-job, ps-control-character)
(ps-plot-region): Bug fix.
(ps-print-control-characters): New custom var.
(ps-string-escape-codes, ps-string-control-codes): New var.
(ps-color-device, ps-font-lock-face-attributes, ps-eval-switch)
(ps-flatten-list, ps-flatten-list-1): New fn.
(ps-setup): Update current setup.
(ps-begin-file): Adjust PostScript header file.
(ps-plot, ps-face-attribute-list): Little programming improvement.
(ps-print-prologue-1): Replace NumberOfZebra by ZebraHeight.
(ps-print-without-faces, ps-print-with-faces): Little reprogramming.
(ps-plot-with-face): Get color only on color screen device.
(ps-build-reference-face-lists): Handle obsolete
font-lock-face-attributes.
(ps-print-ensure-fontified): Little programming setting.
(ps-generate-postscript-with-faces): Adjust initializations, get color
only on color screen device.
(ps-generate): Replace (if A B) by (and A B).
(ps-do-despool): Dynamic evaluation for ps-lpr-switches,
Replace (if A B) by (and A B).
(color-instance-rgb-components, ps-color-values): Replace
pixel-components by color-instance-rgb-components.
(ps-xemacs-face-kind-p): Replace face-font by face-font-instance,
replace x-font-properties by font-instance-properties.
1997-12-25 18:33:52 +00:00
|
|
|
|
(when italic-p
|
2001-12-31 20:32:52 +00:00
|
|
|
|
(setq face-spec (append '(:slant italic) face-spec)))
|
Some comment, doc and bug fixes.
(ps-print-version): New version number (3.05.3) and doc fix.
(ps-output-string-prim, ps-begin-job, ps-control-character)
(ps-plot-region): Bug fix.
(ps-print-control-characters): New custom var.
(ps-string-escape-codes, ps-string-control-codes): New var.
(ps-color-device, ps-font-lock-face-attributes, ps-eval-switch)
(ps-flatten-list, ps-flatten-list-1): New fn.
(ps-setup): Update current setup.
(ps-begin-file): Adjust PostScript header file.
(ps-plot, ps-face-attribute-list): Little programming improvement.
(ps-print-prologue-1): Replace NumberOfZebra by ZebraHeight.
(ps-print-without-faces, ps-print-with-faces): Little reprogramming.
(ps-plot-with-face): Get color only on color screen device.
(ps-build-reference-face-lists): Handle obsolete
font-lock-face-attributes.
(ps-print-ensure-fontified): Little programming setting.
(ps-generate-postscript-with-faces): Adjust initializations, get color
only on color screen device.
(ps-generate): Replace (if A B) by (and A B).
(ps-do-despool): Dynamic evaluation for ps-lpr-switches,
Replace (if A B) by (and A B).
(color-instance-rgb-components, ps-color-values): Replace
pixel-components by color-instance-rgb-components.
(ps-xemacs-face-kind-p): Replace face-font by face-font-instance,
replace x-font-properties by font-instance-properties.
1997-12-25 18:33:52 +00:00
|
|
|
|
(when underline-p
|
|
|
|
|
(setq face-spec (append '(:underline t) face-spec)))
|
|
|
|
|
(custom-declare-face face (list (list t face-spec)) nil)
|
|
|
|
|
)))))))
|
|
|
|
|
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
|
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
|
;; Internal functions and variables
|
|
|
|
|
|
|
|
|
|
|
2004-03-10 22:56:45 +00:00
|
|
|
|
(defun ps-message-log-max ()
|
|
|
|
|
(and (not (string= (buffer-name) "*Messages*"))
|
2004-07-23 01:16:06 +00:00
|
|
|
|
(boundp 'message-log-max)
|
2004-03-10 22:56:45 +00:00
|
|
|
|
message-log-max))
|
|
|
|
|
|
|
|
|
|
|
2000-10-18 14:31:05 +00:00
|
|
|
|
(defvar ps-print-hook nil)
|
|
|
|
|
(defvar ps-print-begin-sheet-hook nil)
|
|
|
|
|
(defvar ps-print-begin-page-hook nil)
|
|
|
|
|
(defvar ps-print-begin-column-hook nil)
|
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.
1998-03-07 06:04:46 +00:00
|
|
|
|
|
|
|
|
|
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.1).
(ps-adobe-tag): Replace defvar by defcustom, and doc fix.
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): Add arg REGION-P.
(ps-print-region-with-faces, ps-print-region)
(ps-spool-region, ps-spool-region-with-faces): Fix calls to
the functions above.
(ps-setup): Print value of ps-zebra-stripe, ps-number-of-zebra,
ps-line-number, ps-print-background-image,
and ps-print-background-text.
(ps-print-prologue-1): Bug fix in PostScript programming:
/BeginDSCPage, /BeginPage.
(ps-showpage-count, ps-ref-bold-faces, ps-ref-italic-faces)
(ps-ref-underlined-faces, font-lock-face-attributes)
(ps-initialize-faces): Vars deleted.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-initialize-faces, ps-header-height)
(ps-hard-lf, ps-soft-lf, ps-get-face, ps-map-font-lock): Fn deleted.
(ps-extend-face-list, ps-extend-face): Doc fix.
(ps-print-face-alist): New var to handle face alist.
(ps-printing-region): New var and fn.
(ps-header-page, ps-set-face-bold, ps-set-face-italic)
(ps-set-face-underline, ps-set-face-attribute, ps-map-face): New fn.
(ps-rmail-mode-hook, ps-rmail-print-message-from-summary)
(ps-print-message-from-summary, ps-vm-print-message-from-summary):
Fns moved.
(ps-background): New argument PAGE-NUMBER.
(ps-begin-file): Bug fix and print proper line number in a region.
(ps-begin-page): Call ps-header-page.
(ps-get-buffer-name): Indicates in the header when printing a region.
(ps-end-page): Delete ps-showpage-count.
(ps-dummy-page): Calls ps-header-page.
(ps-set-color): Programming improvement.
(ps-plot-region): Doc fix.
(ps-face-attributes): Same functionality as deleted ps-get-face.
(ps-build-reference-face-lists): Do the job by calling
ps-set-face-bold and ps-bold-faces, and friends.
1997-09-06 02:52:00 +00:00
|
|
|
|
(defun ps-print-without-faces (from to &optional filename region-p)
|
Some comment, doc and bug fixes.
(ps-print-version): New version number (3.05.3) and doc fix.
(ps-output-string-prim, ps-begin-job, ps-control-character)
(ps-plot-region): Bug fix.
(ps-print-control-characters): New custom var.
(ps-string-escape-codes, ps-string-control-codes): New var.
(ps-color-device, ps-font-lock-face-attributes, ps-eval-switch)
(ps-flatten-list, ps-flatten-list-1): New fn.
(ps-setup): Update current setup.
(ps-begin-file): Adjust PostScript header file.
(ps-plot, ps-face-attribute-list): Little programming improvement.
(ps-print-prologue-1): Replace NumberOfZebra by ZebraHeight.
(ps-print-without-faces, ps-print-with-faces): Little reprogramming.
(ps-plot-with-face): Get color only on color screen device.
(ps-build-reference-face-lists): Handle obsolete
font-lock-face-attributes.
(ps-print-ensure-fontified): Little programming setting.
(ps-generate-postscript-with-faces): Adjust initializations, get color
only on color screen device.
(ps-generate): Replace (if A B) by (and A B).
(ps-do-despool): Dynamic evaluation for ps-lpr-switches,
Replace (if A B) by (and A B).
(color-instance-rgb-components, ps-color-values): Replace
pixel-components by color-instance-rgb-components.
(ps-xemacs-face-kind-p): Replace face-font by face-font-instance,
replace x-font-properties by font-instance-properties.
1997-12-25 18:33:52 +00:00
|
|
|
|
(ps-spool-without-faces from to region-p)
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
(ps-do-despool filename))
|
|
|
|
|
|
|
|
|
|
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.1).
(ps-adobe-tag): Replace defvar by defcustom, and doc fix.
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): Add arg REGION-P.
(ps-print-region-with-faces, ps-print-region)
(ps-spool-region, ps-spool-region-with-faces): Fix calls to
the functions above.
(ps-setup): Print value of ps-zebra-stripe, ps-number-of-zebra,
ps-line-number, ps-print-background-image,
and ps-print-background-text.
(ps-print-prologue-1): Bug fix in PostScript programming:
/BeginDSCPage, /BeginPage.
(ps-showpage-count, ps-ref-bold-faces, ps-ref-italic-faces)
(ps-ref-underlined-faces, font-lock-face-attributes)
(ps-initialize-faces): Vars deleted.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-initialize-faces, ps-header-height)
(ps-hard-lf, ps-soft-lf, ps-get-face, ps-map-font-lock): Fn deleted.
(ps-extend-face-list, ps-extend-face): Doc fix.
(ps-print-face-alist): New var to handle face alist.
(ps-printing-region): New var and fn.
(ps-header-page, ps-set-face-bold, ps-set-face-italic)
(ps-set-face-underline, ps-set-face-attribute, ps-map-face): New fn.
(ps-rmail-mode-hook, ps-rmail-print-message-from-summary)
(ps-print-message-from-summary, ps-vm-print-message-from-summary):
Fns moved.
(ps-background): New argument PAGE-NUMBER.
(ps-begin-file): Bug fix and print proper line number in a region.
(ps-begin-page): Call ps-header-page.
(ps-get-buffer-name): Indicates in the header when printing a region.
(ps-end-page): Delete ps-showpage-count.
(ps-dummy-page): Calls ps-header-page.
(ps-set-color): Programming improvement.
(ps-plot-region): Doc fix.
(ps-face-attributes): Same functionality as deleted ps-get-face.
(ps-build-reference-face-lists): Do the job by calling
ps-set-face-bold and ps-bold-faces, and friends.
1997-09-06 02:52:00 +00:00
|
|
|
|
(defun ps-spool-without-faces (from to &optional region-p)
|
2004-03-10 22:56:45 +00:00
|
|
|
|
(let ((message-log-max (ps-message-log-max))) ; to print *Messages* buffer
|
|
|
|
|
(run-hooks 'ps-print-hook)
|
|
|
|
|
(ps-printing-region region-p from to)
|
|
|
|
|
(ps-generate (current-buffer) from to 'ps-generate-postscript)))
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
|
|
|
|
|
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.1).
(ps-adobe-tag): Replace defvar by defcustom, and doc fix.
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): Add arg REGION-P.
(ps-print-region-with-faces, ps-print-region)
(ps-spool-region, ps-spool-region-with-faces): Fix calls to
the functions above.
(ps-setup): Print value of ps-zebra-stripe, ps-number-of-zebra,
ps-line-number, ps-print-background-image,
and ps-print-background-text.
(ps-print-prologue-1): Bug fix in PostScript programming:
/BeginDSCPage, /BeginPage.
(ps-showpage-count, ps-ref-bold-faces, ps-ref-italic-faces)
(ps-ref-underlined-faces, font-lock-face-attributes)
(ps-initialize-faces): Vars deleted.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-initialize-faces, ps-header-height)
(ps-hard-lf, ps-soft-lf, ps-get-face, ps-map-font-lock): Fn deleted.
(ps-extend-face-list, ps-extend-face): Doc fix.
(ps-print-face-alist): New var to handle face alist.
(ps-printing-region): New var and fn.
(ps-header-page, ps-set-face-bold, ps-set-face-italic)
(ps-set-face-underline, ps-set-face-attribute, ps-map-face): New fn.
(ps-rmail-mode-hook, ps-rmail-print-message-from-summary)
(ps-print-message-from-summary, ps-vm-print-message-from-summary):
Fns moved.
(ps-background): New argument PAGE-NUMBER.
(ps-begin-file): Bug fix and print proper line number in a region.
(ps-begin-page): Call ps-header-page.
(ps-get-buffer-name): Indicates in the header when printing a region.
(ps-end-page): Delete ps-showpage-count.
(ps-dummy-page): Calls ps-header-page.
(ps-set-color): Programming improvement.
(ps-plot-region): Doc fix.
(ps-face-attributes): Same functionality as deleted ps-get-face.
(ps-build-reference-face-lists): Do the job by calling
ps-set-face-bold and ps-bold-faces, and friends.
1997-09-06 02:52:00 +00:00
|
|
|
|
(defun ps-print-with-faces (from to &optional filename region-p)
|
Some comment, doc and bug fixes.
(ps-print-version): New version number (3.05.3) and doc fix.
(ps-output-string-prim, ps-begin-job, ps-control-character)
(ps-plot-region): Bug fix.
(ps-print-control-characters): New custom var.
(ps-string-escape-codes, ps-string-control-codes): New var.
(ps-color-device, ps-font-lock-face-attributes, ps-eval-switch)
(ps-flatten-list, ps-flatten-list-1): New fn.
(ps-setup): Update current setup.
(ps-begin-file): Adjust PostScript header file.
(ps-plot, ps-face-attribute-list): Little programming improvement.
(ps-print-prologue-1): Replace NumberOfZebra by ZebraHeight.
(ps-print-without-faces, ps-print-with-faces): Little reprogramming.
(ps-plot-with-face): Get color only on color screen device.
(ps-build-reference-face-lists): Handle obsolete
font-lock-face-attributes.
(ps-print-ensure-fontified): Little programming setting.
(ps-generate-postscript-with-faces): Adjust initializations, get color
only on color screen device.
(ps-generate): Replace (if A B) by (and A B).
(ps-do-despool): Dynamic evaluation for ps-lpr-switches,
Replace (if A B) by (and A B).
(color-instance-rgb-components, ps-color-values): Replace
pixel-components by color-instance-rgb-components.
(ps-xemacs-face-kind-p): Replace face-font by face-font-instance,
replace x-font-properties by font-instance-properties.
1997-12-25 18:33:52 +00:00
|
|
|
|
(ps-spool-with-faces from to region-p)
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
(ps-do-despool filename))
|
|
|
|
|
|
|
|
|
|
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.1).
(ps-adobe-tag): Replace defvar by defcustom, and doc fix.
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): Add arg REGION-P.
(ps-print-region-with-faces, ps-print-region)
(ps-spool-region, ps-spool-region-with-faces): Fix calls to
the functions above.
(ps-setup): Print value of ps-zebra-stripe, ps-number-of-zebra,
ps-line-number, ps-print-background-image,
and ps-print-background-text.
(ps-print-prologue-1): Bug fix in PostScript programming:
/BeginDSCPage, /BeginPage.
(ps-showpage-count, ps-ref-bold-faces, ps-ref-italic-faces)
(ps-ref-underlined-faces, font-lock-face-attributes)
(ps-initialize-faces): Vars deleted.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-initialize-faces, ps-header-height)
(ps-hard-lf, ps-soft-lf, ps-get-face, ps-map-font-lock): Fn deleted.
(ps-extend-face-list, ps-extend-face): Doc fix.
(ps-print-face-alist): New var to handle face alist.
(ps-printing-region): New var and fn.
(ps-header-page, ps-set-face-bold, ps-set-face-italic)
(ps-set-face-underline, ps-set-face-attribute, ps-map-face): New fn.
(ps-rmail-mode-hook, ps-rmail-print-message-from-summary)
(ps-print-message-from-summary, ps-vm-print-message-from-summary):
Fns moved.
(ps-background): New argument PAGE-NUMBER.
(ps-begin-file): Bug fix and print proper line number in a region.
(ps-begin-page): Call ps-header-page.
(ps-get-buffer-name): Indicates in the header when printing a region.
(ps-end-page): Delete ps-showpage-count.
(ps-dummy-page): Calls ps-header-page.
(ps-set-color): Programming improvement.
(ps-plot-region): Doc fix.
(ps-face-attributes): Same functionality as deleted ps-get-face.
(ps-build-reference-face-lists): Do the job by calling
ps-set-face-bold and ps-bold-faces, and friends.
1997-09-06 02:52:00 +00:00
|
|
|
|
(defun ps-spool-with-faces (from to &optional region-p)
|
2004-03-10 22:56:45 +00:00
|
|
|
|
(let ((message-log-max (ps-message-log-max))) ; to print *Messages* buffer
|
|
|
|
|
(run-hooks 'ps-print-hook)
|
|
|
|
|
(ps-printing-region region-p from to)
|
|
|
|
|
(ps-generate (current-buffer) from to 'ps-generate-postscript-with-faces)))
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
|
|
|
|
|
|
2001-09-18 09:28:00 +00:00
|
|
|
|
(defun ps-count-lines-preprint (from to)
|
2004-03-10 22:56:45 +00:00
|
|
|
|
(or (and from to)
|
|
|
|
|
(error "The mark is not set now"))
|
|
|
|
|
(let ((message-log-max (ps-message-log-max))) ; to count lines of *Messages*
|
|
|
|
|
(list (count-lines from to))))
|
2001-09-18 09:28:00 +00:00
|
|
|
|
|
|
|
|
|
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
(defun ps-count-lines (from to)
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.1).
(ps-adobe-tag): Replace defvar by defcustom, and doc fix.
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): Add arg REGION-P.
(ps-print-region-with-faces, ps-print-region)
(ps-spool-region, ps-spool-region-with-faces): Fix calls to
the functions above.
(ps-setup): Print value of ps-zebra-stripe, ps-number-of-zebra,
ps-line-number, ps-print-background-image,
and ps-print-background-text.
(ps-print-prologue-1): Bug fix in PostScript programming:
/BeginDSCPage, /BeginPage.
(ps-showpage-count, ps-ref-bold-faces, ps-ref-italic-faces)
(ps-ref-underlined-faces, font-lock-face-attributes)
(ps-initialize-faces): Vars deleted.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-initialize-faces, ps-header-height)
(ps-hard-lf, ps-soft-lf, ps-get-face, ps-map-font-lock): Fn deleted.
(ps-extend-face-list, ps-extend-face): Doc fix.
(ps-print-face-alist): New var to handle face alist.
(ps-printing-region): New var and fn.
(ps-header-page, ps-set-face-bold, ps-set-face-italic)
(ps-set-face-underline, ps-set-face-attribute, ps-map-face): New fn.
(ps-rmail-mode-hook, ps-rmail-print-message-from-summary)
(ps-print-message-from-summary, ps-vm-print-message-from-summary):
Fns moved.
(ps-background): New argument PAGE-NUMBER.
(ps-begin-file): Bug fix and print proper line number in a region.
(ps-begin-page): Call ps-header-page.
(ps-get-buffer-name): Indicates in the header when printing a region.
(ps-end-page): Delete ps-showpage-count.
(ps-dummy-page): Calls ps-header-page.
(ps-set-color): Programming improvement.
(ps-plot-region): Doc fix.
(ps-face-attributes): Same functionality as deleted ps-get-face.
(ps-build-reference-face-lists): Do the job by calling
ps-set-face-bold and ps-bold-faces, and friends.
1997-09-06 02:52:00 +00:00
|
|
|
|
(+ (count-lines from to)
|
Some comment, doc and bug fixes.
(ps-print-version): New version number (3.05.3) and doc fix.
(ps-output-string-prim, ps-begin-job, ps-control-character)
(ps-plot-region): Bug fix.
(ps-print-control-characters): New custom var.
(ps-string-escape-codes, ps-string-control-codes): New var.
(ps-color-device, ps-font-lock-face-attributes, ps-eval-switch)
(ps-flatten-list, ps-flatten-list-1): New fn.
(ps-setup): Update current setup.
(ps-begin-file): Adjust PostScript header file.
(ps-plot, ps-face-attribute-list): Little programming improvement.
(ps-print-prologue-1): Replace NumberOfZebra by ZebraHeight.
(ps-print-without-faces, ps-print-with-faces): Little reprogramming.
(ps-plot-with-face): Get color only on color screen device.
(ps-build-reference-face-lists): Handle obsolete
font-lock-face-attributes.
(ps-print-ensure-fontified): Little programming setting.
(ps-generate-postscript-with-faces): Adjust initializations, get color
only on color screen device.
(ps-generate): Replace (if A B) by (and A B).
(ps-do-despool): Dynamic evaluation for ps-lpr-switches,
Replace (if A B) by (and A B).
(color-instance-rgb-components, ps-color-values): Replace
pixel-components by color-instance-rgb-components.
(ps-xemacs-face-kind-p): Replace face-font by face-font-instance,
replace x-font-properties by font-instance-properties.
1997-12-25 18:33:52 +00:00
|
|
|
|
(save-excursion
|
|
|
|
|
(goto-char to)
|
|
|
|
|
(if (= (current-column) 0) 1 0))))
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
|
|
|
|
|
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.1).
(ps-adobe-tag): Replace defvar by defcustom, and doc fix.
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): Add arg REGION-P.
(ps-print-region-with-faces, ps-print-region)
(ps-spool-region, ps-spool-region-with-faces): Fix calls to
the functions above.
(ps-setup): Print value of ps-zebra-stripe, ps-number-of-zebra,
ps-line-number, ps-print-background-image,
and ps-print-background-text.
(ps-print-prologue-1): Bug fix in PostScript programming:
/BeginDSCPage, /BeginPage.
(ps-showpage-count, ps-ref-bold-faces, ps-ref-italic-faces)
(ps-ref-underlined-faces, font-lock-face-attributes)
(ps-initialize-faces): Vars deleted.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-initialize-faces, ps-header-height)
(ps-hard-lf, ps-soft-lf, ps-get-face, ps-map-font-lock): Fn deleted.
(ps-extend-face-list, ps-extend-face): Doc fix.
(ps-print-face-alist): New var to handle face alist.
(ps-printing-region): New var and fn.
(ps-header-page, ps-set-face-bold, ps-set-face-italic)
(ps-set-face-underline, ps-set-face-attribute, ps-map-face): New fn.
(ps-rmail-mode-hook, ps-rmail-print-message-from-summary)
(ps-print-message-from-summary, ps-vm-print-message-from-summary):
Fns moved.
(ps-background): New argument PAGE-NUMBER.
(ps-begin-file): Bug fix and print proper line number in a region.
(ps-begin-page): Call ps-header-page.
(ps-get-buffer-name): Indicates in the header when printing a region.
(ps-end-page): Delete ps-showpage-count.
(ps-dummy-page): Calls ps-header-page.
(ps-set-color): Programming improvement.
(ps-plot-region): Doc fix.
(ps-face-attributes): Same functionality as deleted ps-get-face.
(ps-build-reference-face-lists): Do the job by calling
ps-set-face-bold and ps-bold-faces, and friends.
1997-09-06 02:52:00 +00:00
|
|
|
|
(defvar ps-printing-region nil
|
2004-07-23 01:16:06 +00:00
|
|
|
|
"Variable used to indicate the region that ps-print is printing.
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
It is a cons, the car of which is the line number where the region begins, and
|
|
|
|
|
its cdr is the total number of lines in the buffer. Formatting functions can
|
|
|
|
|
use this information to print the original line number (and not the number of
|
|
|
|
|
lines printed), and to indicate in the header that the printout is of a partial
|
|
|
|
|
file.")
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(defvar ps-printing-region-p nil
|
|
|
|
|
"Non-nil means ps-print is printing a region.")
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
|
|
|
|
|
|
2003-07-10 22:29:13 +00:00
|
|
|
|
(defun ps-printing-region (region-p from to)
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
(setq ps-printing-region-p region-p
|
|
|
|
|
ps-printing-region
|
|
|
|
|
(cons (if region-p
|
2003-07-10 22:29:13 +00:00
|
|
|
|
(ps-count-lines (point-min) (min from to))
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
1)
|
|
|
|
|
(ps-count-lines (point-min) (point-max)))))
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
|
|
|
|
|
|
1995-01-20 06:09:03 +00:00
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
|
;; Internal functions
|
|
|
|
|
|
2000-01-05 07:17:31 +00:00
|
|
|
|
|
1998-05-08 22:26:43 +00:00
|
|
|
|
(defsubst ps-font-alist (font-sym)
|
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.
1998-03-07 06:04:46 +00:00
|
|
|
|
(get font-sym 'fonts))
|
|
|
|
|
|
|
|
|
|
(defun ps-font (font-sym font-type)
|
|
|
|
|
"Font family name for text of `font-type', when generating PostScript."
|
1998-05-08 22:26:43 +00:00
|
|
|
|
(let* ((font-list (ps-font-alist font-sym))
|
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.
1998-03-07 06:04:46 +00:00
|
|
|
|
(normal-font (cdr (assq 'normal font-list))))
|
1998-05-06 04:06:30 +00:00
|
|
|
|
(while (and font-list (not (eq font-type (car (car font-list)))))
|
|
|
|
|
(setq font-list (cdr font-list)))
|
|
|
|
|
(or (cdr (car font-list)) normal-font)))
|
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.
1998-03-07 06:04:46 +00:00
|
|
|
|
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
(defsubst ps-fonts (font-sym)
|
1998-05-08 22:26:43 +00:00
|
|
|
|
(mapcar 'cdr (ps-font-alist font-sym)))
|
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.
1998-03-07 06:04:46 +00:00
|
|
|
|
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
(defsubst ps-font-number (font-sym font-type)
|
1998-05-08 22:26:43 +00:00
|
|
|
|
(or (ps-alist-position font-type (ps-font-alist font-sym))
|
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.
1998-03-07 06:04:46 +00:00
|
|
|
|
0))
|
|
|
|
|
|
|
|
|
|
(defsubst ps-line-height (font-sym)
|
|
|
|
|
"The height of a line, for generating PostScript.
|
|
|
|
|
This is the value that ps-print uses to determine the height,
|
|
|
|
|
y-dimension, of the lines of text it has printed, and thus affects the
|
|
|
|
|
point at which page-breaks are placed.
|
|
|
|
|
The line-height is *not* the same as the point size of the font."
|
|
|
|
|
(get font-sym 'line-height))
|
|
|
|
|
|
|
|
|
|
(defsubst ps-title-line-height (font-sym)
|
|
|
|
|
"The height of a `title' line, for generating PostScript.
|
|
|
|
|
This is the value that ps-print uses to determine the height,
|
|
|
|
|
y-dimension, of the lines of text it has printed, and thus affects the
|
|
|
|
|
point at which page-breaks are placed.
|
|
|
|
|
The title-line-height is *not* the same as the point size of the font."
|
|
|
|
|
(get font-sym 'title-line-height))
|
|
|
|
|
|
|
|
|
|
(defsubst ps-space-width (font-sym)
|
|
|
|
|
"The width of a space character, for generating PostScript.
|
|
|
|
|
This value is used in expanding tab characters."
|
|
|
|
|
(get font-sym 'space-width))
|
|
|
|
|
|
|
|
|
|
(defsubst ps-avg-char-width (font-sym)
|
|
|
|
|
"The average width, in points, of a character, for generating PostScript.
|
|
|
|
|
This is the value that ps-print uses to determine the length,
|
|
|
|
|
x-dimension, of the text it has printed, and thus affects the point at
|
|
|
|
|
which long lines wrap around."
|
|
|
|
|
(get font-sym 'avg-char-width))
|
|
|
|
|
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
(defun ps-line-lengths-internal ()
|
2002-09-09 19:26:40 +00:00
|
|
|
|
"Display the correspondence between a line length and a font size.
|
|
|
|
|
Done using the current ps-print setup.
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
Try: pr -t file | awk '{printf \"%3d %s\n\", length($0), $0}' | sort -r | head"
|
2000-07-30 11:49:38 +00:00
|
|
|
|
(let* ((ps-font-size-internal
|
|
|
|
|
(or ps-font-size-internal
|
|
|
|
|
(ps-get-font-size 'ps-font-size)))
|
|
|
|
|
(ps-header-font-size-internal
|
|
|
|
|
(or ps-header-font-size-internal
|
|
|
|
|
(ps-get-font-size 'ps-header-font-size)))
|
|
|
|
|
(ps-header-title-font-size-internal
|
|
|
|
|
(or ps-header-title-font-size-internal
|
|
|
|
|
(ps-get-font-size 'ps-header-title-font-size)))
|
|
|
|
|
(buf (get-buffer-create "*Line-lengths*"))
|
|
|
|
|
(ifs ps-font-size-internal) ; initial font size
|
|
|
|
|
(icw (ps-avg-char-width 'ps-font-for-text)) ; initial character width
|
|
|
|
|
(print-width (progn (ps-get-page-dimensions)
|
|
|
|
|
ps-print-width))
|
|
|
|
|
(ps-setup (ps-setup)) ; setup for the current buffer
|
|
|
|
|
(fs-min 5) ; minimum font size
|
|
|
|
|
cw-min ; minimum character width
|
|
|
|
|
nb-cpl-max ; maximum nb of characters per line
|
|
|
|
|
(fs-max 14) ; maximum font size
|
|
|
|
|
cw-max ; maximum character width
|
|
|
|
|
nb-cpl-min ; minimum nb of characters per line
|
|
|
|
|
fs ; current font size
|
|
|
|
|
cw ; current character width
|
|
|
|
|
nb-cpl ; current nb of characters per line
|
|
|
|
|
)
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
(setq cw-min (/ (* icw fs-min) ifs)
|
|
|
|
|
nb-cpl-max (floor (/ print-width cw-min))
|
|
|
|
|
cw-max (/ (* icw fs-max) ifs)
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.2) and doc fix.
(ps-print, ps-header-lines, ps-show-n-of-n, ps-font-info-database)
(ps-font-family, ps-font-size, ps-header-font-family)
(ps-header-font-size, ps-header-title-font-size, ps-bold-faces)
(ps-italic-faces, ps-underlined-faces, ps-left-header, ps-right-header)
(ps-font, ps-font-bold, ps-font-italic, ps-font-bold-italic)
(ps-avg-char-width, ps-space-width, ps-line-height): Doc fix.
(ps-error-scale-font): New fn.
(ps-soft-lf, ps-hard-lf): Fn deleted.
(ps-get-page-dimensions, ps-set-bg, ps-face-bold-p, ps-face-italic-p)
(ps-set-color): Reindentation.
(ps-output-string-prim, ps-xemacs-face-kind-p): Internal blank lines
deleted.
(ps-set-font): Little programming improvement.
(ps-line-lengths-internal, ps-nb-pages, ps-select-font)
(ps-select-header-font): Simplify some expressions.
(ps-plot-region): Replace (- X 1) by (1- X).
(ps-generate-header): Replace (+ X 1) by (1+ X).
(ps-print-preprint, ps-plot-with-face, ps-print-ensure-fontified)
(ps-kill-emacs-check): Replace (if (and A B) C) by (and A B C).
(ps-init-output-queue, ps-gnus-article-prepare-hook, ps-jts-ps-setup):
Replace (setq a b)(setq c d) by (setq a b c d).
(ps-begin-file, ps-end-file): Replace (ps-output A)(ps-output B)
by (ps-output A B).
(ps-begin-page): Replace (ps-output A)(ps-output B) by (ps-output A B),
replace (setq a b)(setq c d) by (setq a b c d).
(ps-next-line, ps-continue-line): Replace (setq a b)(setq c d)
by (setq a b c d), and incorporates ps-soft-lf and ps-hard-lf,
respectively.
(ps-plot): Replace (setq a b)(setq c d) by (setq a b c d),
and programming improvement.
(ps-generate-postscript-with-faces): Initialization fix,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if (and A B) C) by (and A B C).
(ps-generate): Doc fix, reprogramming to set the page count,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if A nil B) by (or A B),
replace (if (and A B) C) by (and A B C).
(ps-info-mode-hook): Replace (list 'A 'B) by '(A B).
(ps-jack-setup): Replace (list) by nil.
1997-11-23 02:26:50 +00:00
|
|
|
|
nb-cpl-min (floor (/ print-width cw-max))
|
|
|
|
|
nb-cpl nb-cpl-min)
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
(set-buffer buf)
|
|
|
|
|
(goto-char (point-max))
|
2000-07-30 11:49:38 +00:00
|
|
|
|
(or (bobp) (insert "\n" (make-string 75 ?\;) "\n"))
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.2) and doc fix.
(ps-print, ps-header-lines, ps-show-n-of-n, ps-font-info-database)
(ps-font-family, ps-font-size, ps-header-font-family)
(ps-header-font-size, ps-header-title-font-size, ps-bold-faces)
(ps-italic-faces, ps-underlined-faces, ps-left-header, ps-right-header)
(ps-font, ps-font-bold, ps-font-italic, ps-font-bold-italic)
(ps-avg-char-width, ps-space-width, ps-line-height): Doc fix.
(ps-error-scale-font): New fn.
(ps-soft-lf, ps-hard-lf): Fn deleted.
(ps-get-page-dimensions, ps-set-bg, ps-face-bold-p, ps-face-italic-p)
(ps-set-color): Reindentation.
(ps-output-string-prim, ps-xemacs-face-kind-p): Internal blank lines
deleted.
(ps-set-font): Little programming improvement.
(ps-line-lengths-internal, ps-nb-pages, ps-select-font)
(ps-select-header-font): Simplify some expressions.
(ps-plot-region): Replace (- X 1) by (1- X).
(ps-generate-header): Replace (+ X 1) by (1+ X).
(ps-print-preprint, ps-plot-with-face, ps-print-ensure-fontified)
(ps-kill-emacs-check): Replace (if (and A B) C) by (and A B C).
(ps-init-output-queue, ps-gnus-article-prepare-hook, ps-jts-ps-setup):
Replace (setq a b)(setq c d) by (setq a b c d).
(ps-begin-file, ps-end-file): Replace (ps-output A)(ps-output B)
by (ps-output A B).
(ps-begin-page): Replace (ps-output A)(ps-output B) by (ps-output A B),
replace (setq a b)(setq c d) by (setq a b c d).
(ps-next-line, ps-continue-line): Replace (setq a b)(setq c d)
by (setq a b c d), and incorporates ps-soft-lf and ps-hard-lf,
respectively.
(ps-plot): Replace (setq a b)(setq c d) by (setq a b c d),
and programming improvement.
(ps-generate-postscript-with-faces): Initialization fix,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if (and A B) C) by (and A B C).
(ps-generate): Doc fix, reprogramming to set the page count,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if A nil B) by (or A B),
replace (if (and A B) C) by (and A B C).
(ps-info-mode-hook): Replace (list 'A 'B) by '(A B).
(ps-jack-setup): Replace (list) by nil.
1997-11-23 02:26:50 +00:00
|
|
|
|
(insert ps-setup
|
2000-07-30 11:49:38 +00:00
|
|
|
|
"\nnb char per line / font size\n")
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
(while (<= nb-cpl nb-cpl-max)
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.2) and doc fix.
(ps-print, ps-header-lines, ps-show-n-of-n, ps-font-info-database)
(ps-font-family, ps-font-size, ps-header-font-family)
(ps-header-font-size, ps-header-title-font-size, ps-bold-faces)
(ps-italic-faces, ps-underlined-faces, ps-left-header, ps-right-header)
(ps-font, ps-font-bold, ps-font-italic, ps-font-bold-italic)
(ps-avg-char-width, ps-space-width, ps-line-height): Doc fix.
(ps-error-scale-font): New fn.
(ps-soft-lf, ps-hard-lf): Fn deleted.
(ps-get-page-dimensions, ps-set-bg, ps-face-bold-p, ps-face-italic-p)
(ps-set-color): Reindentation.
(ps-output-string-prim, ps-xemacs-face-kind-p): Internal blank lines
deleted.
(ps-set-font): Little programming improvement.
(ps-line-lengths-internal, ps-nb-pages, ps-select-font)
(ps-select-header-font): Simplify some expressions.
(ps-plot-region): Replace (- X 1) by (1- X).
(ps-generate-header): Replace (+ X 1) by (1+ X).
(ps-print-preprint, ps-plot-with-face, ps-print-ensure-fontified)
(ps-kill-emacs-check): Replace (if (and A B) C) by (and A B C).
(ps-init-output-queue, ps-gnus-article-prepare-hook, ps-jts-ps-setup):
Replace (setq a b)(setq c d) by (setq a b c d).
(ps-begin-file, ps-end-file): Replace (ps-output A)(ps-output B)
by (ps-output A B).
(ps-begin-page): Replace (ps-output A)(ps-output B) by (ps-output A B),
replace (setq a b)(setq c d) by (setq a b c d).
(ps-next-line, ps-continue-line): Replace (setq a b)(setq c d)
by (setq a b c d), and incorporates ps-soft-lf and ps-hard-lf,
respectively.
(ps-plot): Replace (setq a b)(setq c d) by (setq a b c d),
and programming improvement.
(ps-generate-postscript-with-faces): Initialization fix,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if (and A B) C) by (and A B C).
(ps-generate): Doc fix, reprogramming to set the page count,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if A nil B) by (or A B),
replace (if (and A B) C) by (and A B C).
(ps-info-mode-hook): Replace (list 'A 'B) by '(A B).
(ps-jack-setup): Replace (list) by nil.
1997-11-23 02:26:50 +00:00
|
|
|
|
(setq cw (/ print-width (float nb-cpl))
|
|
|
|
|
fs (/ (* ifs cw) icw))
|
2000-07-30 11:49:38 +00:00
|
|
|
|
(insert (format "%16d %s\n" nb-cpl fs))
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
(setq nb-cpl (1+ nb-cpl)))
|
|
|
|
|
(insert "\n")
|
|
|
|
|
(display-buffer buf 'not-this-window)))
|
|
|
|
|
|
|
|
|
|
(defun ps-nb-pages (nb-lines)
|
1998-05-06 04:15:25 +00:00
|
|
|
|
"Display correspondence between font size and the number of pages.
|
|
|
|
|
The correspondence is based on having NB-LINES lines of text,
|
|
|
|
|
and on the current ps-print setup."
|
2000-07-30 11:49:38 +00:00
|
|
|
|
(let* ((ps-font-size-internal
|
|
|
|
|
(or ps-font-size-internal
|
|
|
|
|
(ps-get-font-size 'ps-font-size)))
|
|
|
|
|
(ps-header-font-size-internal
|
|
|
|
|
(or ps-header-font-size-internal
|
|
|
|
|
(ps-get-font-size 'ps-header-font-size)))
|
|
|
|
|
(ps-header-title-font-size-internal
|
|
|
|
|
(or ps-header-title-font-size-internal
|
|
|
|
|
(ps-get-font-size 'ps-header-title-font-size)))
|
Line and paragraph spacing feature. Region to cut
out when printing. Doc fix.
(ps-print-version): New version number (6.5).
(ps-line-spacing, ps-paragraph-spacing, ps-paragraph-regexp): New
vars. Line and paragraph spacing feature.
(ps-begin-cut-regexp, ps-end-cut-regexp): New vars. Region to cut
out when printing.
(ps-setup, ps-nb-pages, ps-get-page-dimensions, ps-begin-file)
(ps-get-font-size, ps-begin-job, ps-continue-line)
(ps-plot-region): Code fix.
(ps-print-prologue-2): Var eliminated.
(ps-line-spacing-internal, ps-paragraph-spacing-internal): New
internal vars.
(ps-get-size): New fun.
(ps-output-string-prim, ps-init-output-queue, ps-print-page-p)
(ps-next-line): Replace defun by defsubst.
(ps-mule-plot-string): Autoload doc fix.
(ps-mule-generate-font): New arg HEADER-P. If it is
non-nil, generate font for the header strings.
(ps-mule-prepare-font): Likewise.
(ps-mule-generate-glyphs): Likewise.
(ps-mule-string-encoding): Likewise.
(ps-mule-header-charsets): New variable.
(ps-mule-encode-header-string): New function.
(ps-mule-header-string-charsets): New function.
(ps-mule-begin-job): Check charsets in the header strings. If there
are non-ASCII and non-Latin1 charsets, prepare fonts for them.
2001-04-02 10:35:07 +00:00
|
|
|
|
(ps-line-spacing-internal
|
|
|
|
|
(or ps-line-spacing-internal
|
|
|
|
|
(ps-get-size ps-line-spacing "line spacing")))
|
2000-07-30 11:49:38 +00:00
|
|
|
|
(buf (get-buffer-create "*Nb-Pages*"))
|
Line and paragraph spacing feature. Region to cut
out when printing. Doc fix.
(ps-print-version): New version number (6.5).
(ps-line-spacing, ps-paragraph-spacing, ps-paragraph-regexp): New
vars. Line and paragraph spacing feature.
(ps-begin-cut-regexp, ps-end-cut-regexp): New vars. Region to cut
out when printing.
(ps-setup, ps-nb-pages, ps-get-page-dimensions, ps-begin-file)
(ps-get-font-size, ps-begin-job, ps-continue-line)
(ps-plot-region): Code fix.
(ps-print-prologue-2): Var eliminated.
(ps-line-spacing-internal, ps-paragraph-spacing-internal): New
internal vars.
(ps-get-size): New fun.
(ps-output-string-prim, ps-init-output-queue, ps-print-page-p)
(ps-next-line): Replace defun by defsubst.
(ps-mule-plot-string): Autoload doc fix.
(ps-mule-generate-font): New arg HEADER-P. If it is
non-nil, generate font for the header strings.
(ps-mule-prepare-font): Likewise.
(ps-mule-generate-glyphs): Likewise.
(ps-mule-string-encoding): Likewise.
(ps-mule-header-charsets): New variable.
(ps-mule-encode-header-string): New function.
(ps-mule-header-string-charsets): New function.
(ps-mule-begin-job): Check charsets in the header strings. If there
are non-ASCII and non-Latin1 charsets, prepare fonts for them.
2001-04-02 10:35:07 +00:00
|
|
|
|
(ils ps-line-spacing-internal) ; initial line spacing
|
2000-07-30 11:49:38 +00:00
|
|
|
|
(ifs ps-font-size-internal) ; initial font size
|
|
|
|
|
(ilh (ps-line-height 'ps-font-for-text)) ; initial line height
|
|
|
|
|
(page-height (progn (ps-get-page-dimensions)
|
|
|
|
|
ps-print-height))
|
|
|
|
|
(ps-setup (ps-setup)) ; setup for the current buffer
|
|
|
|
|
(fs-min 4) ; minimum font size
|
|
|
|
|
lh-min ; minimum line height
|
|
|
|
|
nb-lpp-max ; maximum nb of lines per page
|
|
|
|
|
nb-page-min ; minimum nb of pages
|
|
|
|
|
(fs-max 14) ; maximum font size
|
|
|
|
|
lh-max ; maximum line height
|
|
|
|
|
nb-lpp-min ; minimum nb of lines per page
|
|
|
|
|
nb-page-max ; maximum nb of pages
|
|
|
|
|
fs ; current font size
|
|
|
|
|
lh ; current line height
|
|
|
|
|
nb-lpp ; current nb of lines per page
|
|
|
|
|
nb-page ; current nb of pages
|
|
|
|
|
)
|
Line and paragraph spacing feature. Region to cut
out when printing. Doc fix.
(ps-print-version): New version number (6.5).
(ps-line-spacing, ps-paragraph-spacing, ps-paragraph-regexp): New
vars. Line and paragraph spacing feature.
(ps-begin-cut-regexp, ps-end-cut-regexp): New vars. Region to cut
out when printing.
(ps-setup, ps-nb-pages, ps-get-page-dimensions, ps-begin-file)
(ps-get-font-size, ps-begin-job, ps-continue-line)
(ps-plot-region): Code fix.
(ps-print-prologue-2): Var eliminated.
(ps-line-spacing-internal, ps-paragraph-spacing-internal): New
internal vars.
(ps-get-size): New fun.
(ps-output-string-prim, ps-init-output-queue, ps-print-page-p)
(ps-next-line): Replace defun by defsubst.
(ps-mule-plot-string): Autoload doc fix.
(ps-mule-generate-font): New arg HEADER-P. If it is
non-nil, generate font for the header strings.
(ps-mule-prepare-font): Likewise.
(ps-mule-generate-glyphs): Likewise.
(ps-mule-string-encoding): Likewise.
(ps-mule-header-charsets): New variable.
(ps-mule-encode-header-string): New function.
(ps-mule-header-string-charsets): New function.
(ps-mule-begin-job): Check charsets in the header strings. If there
are non-ASCII and non-Latin1 charsets, prepare fonts for them.
2001-04-02 10:35:07 +00:00
|
|
|
|
(setq lh-min (/ (- (* (+ ilh ils) fs-min) ils) ifs)
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
nb-lpp-max (floor (/ page-height lh-min))
|
|
|
|
|
nb-page-min (ceiling (/ (float nb-lines) nb-lpp-max))
|
Line and paragraph spacing feature. Region to cut
out when printing. Doc fix.
(ps-print-version): New version number (6.5).
(ps-line-spacing, ps-paragraph-spacing, ps-paragraph-regexp): New
vars. Line and paragraph spacing feature.
(ps-begin-cut-regexp, ps-end-cut-regexp): New vars. Region to cut
out when printing.
(ps-setup, ps-nb-pages, ps-get-page-dimensions, ps-begin-file)
(ps-get-font-size, ps-begin-job, ps-continue-line)
(ps-plot-region): Code fix.
(ps-print-prologue-2): Var eliminated.
(ps-line-spacing-internal, ps-paragraph-spacing-internal): New
internal vars.
(ps-get-size): New fun.
(ps-output-string-prim, ps-init-output-queue, ps-print-page-p)
(ps-next-line): Replace defun by defsubst.
(ps-mule-plot-string): Autoload doc fix.
(ps-mule-generate-font): New arg HEADER-P. If it is
non-nil, generate font for the header strings.
(ps-mule-prepare-font): Likewise.
(ps-mule-generate-glyphs): Likewise.
(ps-mule-string-encoding): Likewise.
(ps-mule-header-charsets): New variable.
(ps-mule-encode-header-string): New function.
(ps-mule-header-string-charsets): New function.
(ps-mule-begin-job): Check charsets in the header strings. If there
are non-ASCII and non-Latin1 charsets, prepare fonts for them.
2001-04-02 10:35:07 +00:00
|
|
|
|
lh-max (/ (- (* (+ ilh ils) fs-max) ils) ifs)
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
nb-lpp-min (floor (/ page-height lh-max))
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.2) and doc fix.
(ps-print, ps-header-lines, ps-show-n-of-n, ps-font-info-database)
(ps-font-family, ps-font-size, ps-header-font-family)
(ps-header-font-size, ps-header-title-font-size, ps-bold-faces)
(ps-italic-faces, ps-underlined-faces, ps-left-header, ps-right-header)
(ps-font, ps-font-bold, ps-font-italic, ps-font-bold-italic)
(ps-avg-char-width, ps-space-width, ps-line-height): Doc fix.
(ps-error-scale-font): New fn.
(ps-soft-lf, ps-hard-lf): Fn deleted.
(ps-get-page-dimensions, ps-set-bg, ps-face-bold-p, ps-face-italic-p)
(ps-set-color): Reindentation.
(ps-output-string-prim, ps-xemacs-face-kind-p): Internal blank lines
deleted.
(ps-set-font): Little programming improvement.
(ps-line-lengths-internal, ps-nb-pages, ps-select-font)
(ps-select-header-font): Simplify some expressions.
(ps-plot-region): Replace (- X 1) by (1- X).
(ps-generate-header): Replace (+ X 1) by (1+ X).
(ps-print-preprint, ps-plot-with-face, ps-print-ensure-fontified)
(ps-kill-emacs-check): Replace (if (and A B) C) by (and A B C).
(ps-init-output-queue, ps-gnus-article-prepare-hook, ps-jts-ps-setup):
Replace (setq a b)(setq c d) by (setq a b c d).
(ps-begin-file, ps-end-file): Replace (ps-output A)(ps-output B)
by (ps-output A B).
(ps-begin-page): Replace (ps-output A)(ps-output B) by (ps-output A B),
replace (setq a b)(setq c d) by (setq a b c d).
(ps-next-line, ps-continue-line): Replace (setq a b)(setq c d)
by (setq a b c d), and incorporates ps-soft-lf and ps-hard-lf,
respectively.
(ps-plot): Replace (setq a b)(setq c d) by (setq a b c d),
and programming improvement.
(ps-generate-postscript-with-faces): Initialization fix,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if (and A B) C) by (and A B C).
(ps-generate): Doc fix, reprogramming to set the page count,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if A nil B) by (or A B),
replace (if (and A B) C) by (and A B C).
(ps-info-mode-hook): Replace (list 'A 'B) by '(A B).
(ps-jack-setup): Replace (list) by nil.
1997-11-23 02:26:50 +00:00
|
|
|
|
nb-page-max (ceiling (/ (float nb-lines) nb-lpp-min))
|
|
|
|
|
nb-page nb-page-min)
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
(set-buffer buf)
|
|
|
|
|
(goto-char (point-max))
|
2000-07-30 11:49:38 +00:00
|
|
|
|
(or (bobp) (insert "\n" (make-string 75 ?\;) "\n"))
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.2) and doc fix.
(ps-print, ps-header-lines, ps-show-n-of-n, ps-font-info-database)
(ps-font-family, ps-font-size, ps-header-font-family)
(ps-header-font-size, ps-header-title-font-size, ps-bold-faces)
(ps-italic-faces, ps-underlined-faces, ps-left-header, ps-right-header)
(ps-font, ps-font-bold, ps-font-italic, ps-font-bold-italic)
(ps-avg-char-width, ps-space-width, ps-line-height): Doc fix.
(ps-error-scale-font): New fn.
(ps-soft-lf, ps-hard-lf): Fn deleted.
(ps-get-page-dimensions, ps-set-bg, ps-face-bold-p, ps-face-italic-p)
(ps-set-color): Reindentation.
(ps-output-string-prim, ps-xemacs-face-kind-p): Internal blank lines
deleted.
(ps-set-font): Little programming improvement.
(ps-line-lengths-internal, ps-nb-pages, ps-select-font)
(ps-select-header-font): Simplify some expressions.
(ps-plot-region): Replace (- X 1) by (1- X).
(ps-generate-header): Replace (+ X 1) by (1+ X).
(ps-print-preprint, ps-plot-with-face, ps-print-ensure-fontified)
(ps-kill-emacs-check): Replace (if (and A B) C) by (and A B C).
(ps-init-output-queue, ps-gnus-article-prepare-hook, ps-jts-ps-setup):
Replace (setq a b)(setq c d) by (setq a b c d).
(ps-begin-file, ps-end-file): Replace (ps-output A)(ps-output B)
by (ps-output A B).
(ps-begin-page): Replace (ps-output A)(ps-output B) by (ps-output A B),
replace (setq a b)(setq c d) by (setq a b c d).
(ps-next-line, ps-continue-line): Replace (setq a b)(setq c d)
by (setq a b c d), and incorporates ps-soft-lf and ps-hard-lf,
respectively.
(ps-plot): Replace (setq a b)(setq c d) by (setq a b c d),
and programming improvement.
(ps-generate-postscript-with-faces): Initialization fix,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if (and A B) C) by (and A B C).
(ps-generate): Doc fix, reprogramming to set the page count,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if A nil B) by (or A B),
replace (if (and A B) C) by (and A B C).
(ps-info-mode-hook): Replace (list 'A 'B) by '(A B).
(ps-jack-setup): Replace (list) by nil.
1997-11-23 02:26:50 +00:00
|
|
|
|
(insert ps-setup
|
2000-07-30 11:49:38 +00:00
|
|
|
|
(format "\nThere are %d lines.\n\n" nb-lines)
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.2) and doc fix.
(ps-print, ps-header-lines, ps-show-n-of-n, ps-font-info-database)
(ps-font-family, ps-font-size, ps-header-font-family)
(ps-header-font-size, ps-header-title-font-size, ps-bold-faces)
(ps-italic-faces, ps-underlined-faces, ps-left-header, ps-right-header)
(ps-font, ps-font-bold, ps-font-italic, ps-font-bold-italic)
(ps-avg-char-width, ps-space-width, ps-line-height): Doc fix.
(ps-error-scale-font): New fn.
(ps-soft-lf, ps-hard-lf): Fn deleted.
(ps-get-page-dimensions, ps-set-bg, ps-face-bold-p, ps-face-italic-p)
(ps-set-color): Reindentation.
(ps-output-string-prim, ps-xemacs-face-kind-p): Internal blank lines
deleted.
(ps-set-font): Little programming improvement.
(ps-line-lengths-internal, ps-nb-pages, ps-select-font)
(ps-select-header-font): Simplify some expressions.
(ps-plot-region): Replace (- X 1) by (1- X).
(ps-generate-header): Replace (+ X 1) by (1+ X).
(ps-print-preprint, ps-plot-with-face, ps-print-ensure-fontified)
(ps-kill-emacs-check): Replace (if (and A B) C) by (and A B C).
(ps-init-output-queue, ps-gnus-article-prepare-hook, ps-jts-ps-setup):
Replace (setq a b)(setq c d) by (setq a b c d).
(ps-begin-file, ps-end-file): Replace (ps-output A)(ps-output B)
by (ps-output A B).
(ps-begin-page): Replace (ps-output A)(ps-output B) by (ps-output A B),
replace (setq a b)(setq c d) by (setq a b c d).
(ps-next-line, ps-continue-line): Replace (setq a b)(setq c d)
by (setq a b c d), and incorporates ps-soft-lf and ps-hard-lf,
respectively.
(ps-plot): Replace (setq a b)(setq c d) by (setq a b c d),
and programming improvement.
(ps-generate-postscript-with-faces): Initialization fix,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if (and A B) C) by (and A B C).
(ps-generate): Doc fix, reprogramming to set the page count,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if A nil B) by (or A B),
replace (if (and A B) C) by (and A B C).
(ps-info-mode-hook): Replace (list 'A 'B) by '(A B).
(ps-jack-setup): Replace (list) by nil.
1997-11-23 02:26:50 +00:00
|
|
|
|
"nb page / font size\n")
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
(while (<= nb-page nb-page-max)
|
|
|
|
|
(setq nb-lpp (ceiling (/ nb-lines (float nb-page)))
|
|
|
|
|
lh (/ page-height nb-lpp)
|
|
|
|
|
fs (/ (* ifs lh) ilh))
|
2000-07-30 11:49:38 +00:00
|
|
|
|
(insert (format "%7d %s\n" nb-page fs))
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
(setq nb-page (1+ nb-page)))
|
|
|
|
|
(insert "\n")
|
|
|
|
|
(display-buffer buf 'not-this-window)))
|
|
|
|
|
|
1998-05-06 04:06:30 +00:00
|
|
|
|
;; macros used in `ps-select-font'
|
|
|
|
|
(defmacro ps-lookup (key) `(cdr (assq ,key font-entry)))
|
|
|
|
|
(defmacro ps-size-scale (key) `(/ (* (ps-lookup ,key) font-size) size))
|
|
|
|
|
|
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.
1998-03-07 06:04:46 +00:00
|
|
|
|
(defun ps-select-font (font-family sym font-size title-font-size)
|
|
|
|
|
(let ((font-entry (cdr (assq font-family ps-font-info-database))))
|
|
|
|
|
(or font-entry
|
(ps-end-job): Bind case-fold-search only after
switching to ps-spool-buffer.
Line number font customization. PostScript: Lines and
PageCount are initialized on each page. Doc Fix.
(ps-print-version): New version number (6.3.2).
(ps-lpr-switches, ps-font-info-database, ps-font-size)
(ps-header-font-size, ps-header-title-font-size, ps-left-header)
(ps-right-header): Customization fix.
(ps-setup, ps-select-font, ps-begin-file, ps-header-sheet, ps-end-job):
Fix code.
(ps-end-with-control-d, ps-line-number-font, ps-line-number-font-size):
New vars.
2000-11-30 13:20:49 +00:00
|
|
|
|
(error "Don't have data to scale font %s. Known fonts families are %s"
|
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.
1998-03-07 06:04:46 +00:00
|
|
|
|
font-family
|
|
|
|
|
(mapcar 'car ps-font-info-database)))
|
1998-05-06 04:06:30 +00:00
|
|
|
|
(let ((size (ps-lookup 'size)))
|
|
|
|
|
(put sym 'fonts (ps-lookup 'fonts))
|
|
|
|
|
(put sym 'space-width (ps-size-scale 'space-width))
|
|
|
|
|
(put sym 'avg-char-width (ps-size-scale 'avg-char-width))
|
|
|
|
|
(put sym 'line-height (ps-size-scale 'line-height))
|
|
|
|
|
(put sym 'title-line-height
|
|
|
|
|
(/ (* (ps-lookup 'line-height) title-font-size) size)))))
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
|
1995-01-20 06:09:03 +00:00
|
|
|
|
(defun ps-get-page-dimensions ()
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
(let ((page-dimensions (cdr (assq ps-paper-type ps-page-dimensions-database)))
|
|
|
|
|
page-width page-height)
|
|
|
|
|
(cond
|
|
|
|
|
((null page-dimensions)
|
|
|
|
|
(error "`ps-paper-type' must be one of:\n%s"
|
|
|
|
|
(mapcar 'car ps-page-dimensions-database)))
|
|
|
|
|
((< ps-number-of-columns 1)
|
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.
1998-03-07 06:04:46 +00:00
|
|
|
|
(error "The number of columns %d should be positive"
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.2) and doc fix.
(ps-print, ps-header-lines, ps-show-n-of-n, ps-font-info-database)
(ps-font-family, ps-font-size, ps-header-font-family)
(ps-header-font-size, ps-header-title-font-size, ps-bold-faces)
(ps-italic-faces, ps-underlined-faces, ps-left-header, ps-right-header)
(ps-font, ps-font-bold, ps-font-italic, ps-font-bold-italic)
(ps-avg-char-width, ps-space-width, ps-line-height): Doc fix.
(ps-error-scale-font): New fn.
(ps-soft-lf, ps-hard-lf): Fn deleted.
(ps-get-page-dimensions, ps-set-bg, ps-face-bold-p, ps-face-italic-p)
(ps-set-color): Reindentation.
(ps-output-string-prim, ps-xemacs-face-kind-p): Internal blank lines
deleted.
(ps-set-font): Little programming improvement.
(ps-line-lengths-internal, ps-nb-pages, ps-select-font)
(ps-select-header-font): Simplify some expressions.
(ps-plot-region): Replace (- X 1) by (1- X).
(ps-generate-header): Replace (+ X 1) by (1+ X).
(ps-print-preprint, ps-plot-with-face, ps-print-ensure-fontified)
(ps-kill-emacs-check): Replace (if (and A B) C) by (and A B C).
(ps-init-output-queue, ps-gnus-article-prepare-hook, ps-jts-ps-setup):
Replace (setq a b)(setq c d) by (setq a b c d).
(ps-begin-file, ps-end-file): Replace (ps-output A)(ps-output B)
by (ps-output A B).
(ps-begin-page): Replace (ps-output A)(ps-output B) by (ps-output A B),
replace (setq a b)(setq c d) by (setq a b c d).
(ps-next-line, ps-continue-line): Replace (setq a b)(setq c d)
by (setq a b c d), and incorporates ps-soft-lf and ps-hard-lf,
respectively.
(ps-plot): Replace (setq a b)(setq c d) by (setq a b c d),
and programming improvement.
(ps-generate-postscript-with-faces): Initialization fix,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if (and A B) C) by (and A B C).
(ps-generate): Doc fix, reprogramming to set the page count,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if A nil B) by (or A B),
replace (if (and A B) C) by (and A B C).
(ps-info-mode-hook): Replace (list 'A 'B) by '(A B).
(ps-jack-setup): Replace (list) by nil.
1997-11-23 02:26:50 +00:00
|
|
|
|
ps-number-of-columns)))
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
|
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.
1998-03-07 06:04:46 +00:00
|
|
|
|
(ps-select-font ps-font-family 'ps-font-for-text
|
Doc fix, font size specifies landscape and portrait sizes.
(ps-print-version): New version number (4.1.4).
(ps-font-size, ps-header-font-size, ps-header-title-font-size):
Specifies landscape and portrait sizes.
(ps-setup, ps-print-quote, ps-line-lengths-internal, ps-nb-pages)
(ps-get-page-dimensions, ps-begin-file, ps-begin-job, ps-generate): Fun
fix.
(ps-get-font-size): New fun.
(ps-font-size-internal, ps-header-font-size-internal)
(ps-header-title-font-size-internal): New vars.
PostScript programming fix.
(ps-print-prologue-1): Fix BeginDoc PostScript procedure (do'nt use
setpagedevice operator).
1999-02-27 01:37:15 +00:00
|
|
|
|
ps-font-size-internal ps-font-size-internal)
|
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.
1998-03-07 06:04:46 +00:00
|
|
|
|
(ps-select-font ps-header-font-family 'ps-font-for-header
|
Doc fix, font size specifies landscape and portrait sizes.
(ps-print-version): New version number (4.1.4).
(ps-font-size, ps-header-font-size, ps-header-title-font-size):
Specifies landscape and portrait sizes.
(ps-setup, ps-print-quote, ps-line-lengths-internal, ps-nb-pages)
(ps-get-page-dimensions, ps-begin-file, ps-begin-job, ps-generate): Fun
fix.
(ps-get-font-size): New fun.
(ps-font-size-internal, ps-header-font-size-internal)
(ps-header-title-font-size-internal): New vars.
PostScript programming fix.
(ps-print-prologue-1): Fix BeginDoc PostScript procedure (do'nt use
setpagedevice operator).
1999-02-27 01:37:15 +00:00
|
|
|
|
ps-header-font-size-internal
|
|
|
|
|
ps-header-title-font-size-internal)
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
(ps-select-font ps-footer-font-family 'ps-font-for-footer
|
|
|
|
|
ps-footer-font-size-internal ps-footer-font-size-internal)
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
|
|
|
|
|
(setq page-width (ps-page-dimensions-get-width page-dimensions)
|
|
|
|
|
page-height (ps-page-dimensions-get-height page-dimensions))
|
|
|
|
|
|
|
|
|
|
;; Landscape mode
|
|
|
|
|
(if ps-landscape-mode
|
|
|
|
|
;; exchange width and height
|
|
|
|
|
(setq page-width (prog1 page-height (setq page-height page-width))))
|
|
|
|
|
|
|
|
|
|
;; It is used to get the lower right corner (only in landscape mode)
|
|
|
|
|
(setq ps-landscape-page-height page-height)
|
|
|
|
|
|
|
|
|
|
;; | lm | text | ic | text | ic | text | rm |
|
|
|
|
|
;; page-width == lm + n * pw + (n - 1) * ic + rm
|
|
|
|
|
;; => pw == (page-width - lm -rm - (n - 1) * ic) / n
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.2) and doc fix.
(ps-print, ps-header-lines, ps-show-n-of-n, ps-font-info-database)
(ps-font-family, ps-font-size, ps-header-font-family)
(ps-header-font-size, ps-header-title-font-size, ps-bold-faces)
(ps-italic-faces, ps-underlined-faces, ps-left-header, ps-right-header)
(ps-font, ps-font-bold, ps-font-italic, ps-font-bold-italic)
(ps-avg-char-width, ps-space-width, ps-line-height): Doc fix.
(ps-error-scale-font): New fn.
(ps-soft-lf, ps-hard-lf): Fn deleted.
(ps-get-page-dimensions, ps-set-bg, ps-face-bold-p, ps-face-italic-p)
(ps-set-color): Reindentation.
(ps-output-string-prim, ps-xemacs-face-kind-p): Internal blank lines
deleted.
(ps-set-font): Little programming improvement.
(ps-line-lengths-internal, ps-nb-pages, ps-select-font)
(ps-select-header-font): Simplify some expressions.
(ps-plot-region): Replace (- X 1) by (1- X).
(ps-generate-header): Replace (+ X 1) by (1+ X).
(ps-print-preprint, ps-plot-with-face, ps-print-ensure-fontified)
(ps-kill-emacs-check): Replace (if (and A B) C) by (and A B C).
(ps-init-output-queue, ps-gnus-article-prepare-hook, ps-jts-ps-setup):
Replace (setq a b)(setq c d) by (setq a b c d).
(ps-begin-file, ps-end-file): Replace (ps-output A)(ps-output B)
by (ps-output A B).
(ps-begin-page): Replace (ps-output A)(ps-output B) by (ps-output A B),
replace (setq a b)(setq c d) by (setq a b c d).
(ps-next-line, ps-continue-line): Replace (setq a b)(setq c d)
by (setq a b c d), and incorporates ps-soft-lf and ps-hard-lf,
respectively.
(ps-plot): Replace (setq a b)(setq c d) by (setq a b c d),
and programming improvement.
(ps-generate-postscript-with-faces): Initialization fix,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if (and A B) C) by (and A B C).
(ps-generate): Doc fix, reprogramming to set the page count,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if A nil B) by (or A B),
replace (if (and A B) C) by (and A B C).
(ps-info-mode-hook): Replace (list 'A 'B) by '(A B).
(ps-jack-setup): Replace (list) by nil.
1997-11-23 02:26:50 +00:00
|
|
|
|
(setq ps-print-width (/ (- page-width
|
|
|
|
|
ps-left-margin ps-right-margin
|
|
|
|
|
(* (1- ps-number-of-columns) ps-inter-column))
|
|
|
|
|
ps-number-of-columns))
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
(if (<= ps-print-width 0)
|
|
|
|
|
(error "Bad horizontal layout:
|
|
|
|
|
page-width == %s
|
|
|
|
|
ps-left-margin == %s
|
|
|
|
|
ps-right-margin == %s
|
|
|
|
|
ps-inter-column == %s
|
|
|
|
|
ps-number-of-columns == %s
|
|
|
|
|
| lm | text | ic | text | ic | text | rm |
|
|
|
|
|
page-width == lm + n * print-width + (n - 1) * ic + rm
|
|
|
|
|
=> print-width == %d !"
|
|
|
|
|
page-width
|
|
|
|
|
ps-left-margin
|
|
|
|
|
ps-right-margin
|
|
|
|
|
ps-inter-column
|
|
|
|
|
ps-number-of-columns
|
|
|
|
|
ps-print-width))
|
|
|
|
|
|
|
|
|
|
(setq ps-print-height
|
|
|
|
|
(- page-height ps-bottom-margin ps-top-margin))
|
|
|
|
|
(if (<= ps-print-height 0)
|
|
|
|
|
(error "Bad vertical layout:
|
|
|
|
|
ps-top-margin == %s
|
|
|
|
|
ps-bottom-margin == %s
|
|
|
|
|
page-height == bm + print-height + tm
|
|
|
|
|
=> print-height == %d !"
|
|
|
|
|
ps-top-margin
|
|
|
|
|
ps-bottom-margin
|
|
|
|
|
ps-print-height))
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; If headers are turned on, deduct the height of the header from the print
|
|
|
|
|
;; height.
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.2) and doc fix.
(ps-print, ps-header-lines, ps-show-n-of-n, ps-font-info-database)
(ps-font-family, ps-font-size, ps-header-font-family)
(ps-header-font-size, ps-header-title-font-size, ps-bold-faces)
(ps-italic-faces, ps-underlined-faces, ps-left-header, ps-right-header)
(ps-font, ps-font-bold, ps-font-italic, ps-font-bold-italic)
(ps-avg-char-width, ps-space-width, ps-line-height): Doc fix.
(ps-error-scale-font): New fn.
(ps-soft-lf, ps-hard-lf): Fn deleted.
(ps-get-page-dimensions, ps-set-bg, ps-face-bold-p, ps-face-italic-p)
(ps-set-color): Reindentation.
(ps-output-string-prim, ps-xemacs-face-kind-p): Internal blank lines
deleted.
(ps-set-font): Little programming improvement.
(ps-line-lengths-internal, ps-nb-pages, ps-select-font)
(ps-select-header-font): Simplify some expressions.
(ps-plot-region): Replace (- X 1) by (1- X).
(ps-generate-header): Replace (+ X 1) by (1+ X).
(ps-print-preprint, ps-plot-with-face, ps-print-ensure-fontified)
(ps-kill-emacs-check): Replace (if (and A B) C) by (and A B C).
(ps-init-output-queue, ps-gnus-article-prepare-hook, ps-jts-ps-setup):
Replace (setq a b)(setq c d) by (setq a b c d).
(ps-begin-file, ps-end-file): Replace (ps-output A)(ps-output B)
by (ps-output A B).
(ps-begin-page): Replace (ps-output A)(ps-output B) by (ps-output A B),
replace (setq a b)(setq c d) by (setq a b c d).
(ps-next-line, ps-continue-line): Replace (setq a b)(setq c d)
by (setq a b c d), and incorporates ps-soft-lf and ps-hard-lf,
respectively.
(ps-plot): Replace (setq a b)(setq c d) by (setq a b c d),
and programming improvement.
(ps-generate-postscript-with-faces): Initialization fix,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if (and A B) C) by (and A B C).
(ps-generate): Doc fix, reprogramming to set the page count,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if A nil B) by (or A B),
replace (if (and A B) C) by (and A B C).
(ps-info-mode-hook): Replace (list 'A 'B) by '(A B).
(ps-jack-setup): Replace (list) by nil.
1997-11-23 02:26:50 +00:00
|
|
|
|
(if ps-print-header
|
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.
1998-03-07 06:04:46 +00:00
|
|
|
|
(setq ps-header-pad (* ps-header-line-pad
|
|
|
|
|
(ps-title-line-height 'ps-font-for-header))
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.2) and doc fix.
(ps-print, ps-header-lines, ps-show-n-of-n, ps-font-info-database)
(ps-font-family, ps-font-size, ps-header-font-family)
(ps-header-font-size, ps-header-title-font-size, ps-bold-faces)
(ps-italic-faces, ps-underlined-faces, ps-left-header, ps-right-header)
(ps-font, ps-font-bold, ps-font-italic, ps-font-bold-italic)
(ps-avg-char-width, ps-space-width, ps-line-height): Doc fix.
(ps-error-scale-font): New fn.
(ps-soft-lf, ps-hard-lf): Fn deleted.
(ps-get-page-dimensions, ps-set-bg, ps-face-bold-p, ps-face-italic-p)
(ps-set-color): Reindentation.
(ps-output-string-prim, ps-xemacs-face-kind-p): Internal blank lines
deleted.
(ps-set-font): Little programming improvement.
(ps-line-lengths-internal, ps-nb-pages, ps-select-font)
(ps-select-header-font): Simplify some expressions.
(ps-plot-region): Replace (- X 1) by (1- X).
(ps-generate-header): Replace (+ X 1) by (1+ X).
(ps-print-preprint, ps-plot-with-face, ps-print-ensure-fontified)
(ps-kill-emacs-check): Replace (if (and A B) C) by (and A B C).
(ps-init-output-queue, ps-gnus-article-prepare-hook, ps-jts-ps-setup):
Replace (setq a b)(setq c d) by (setq a b c d).
(ps-begin-file, ps-end-file): Replace (ps-output A)(ps-output B)
by (ps-output A B).
(ps-begin-page): Replace (ps-output A)(ps-output B) by (ps-output A B),
replace (setq a b)(setq c d) by (setq a b c d).
(ps-next-line, ps-continue-line): Replace (setq a b)(setq c d)
by (setq a b c d), and incorporates ps-soft-lf and ps-hard-lf,
respectively.
(ps-plot): Replace (setq a b)(setq c d) by (setq a b c d),
and programming improvement.
(ps-generate-postscript-with-faces): Initialization fix,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if (and A B) C) by (and A B C).
(ps-generate): Doc fix, reprogramming to set the page count,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if A nil B) by (or A B),
replace (if (and A B) C) by (and A B C).
(ps-info-mode-hook): Replace (list 'A 'B) by '(A B).
(ps-jack-setup): Replace (list) by nil.
1997-11-23 02:26:50 +00:00
|
|
|
|
ps-print-height (- ps-print-height
|
|
|
|
|
ps-header-offset
|
|
|
|
|
ps-header-pad
|
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.
1998-03-07 06:04:46 +00:00
|
|
|
|
(ps-title-line-height 'ps-font-for-header)
|
|
|
|
|
(* (ps-line-height 'ps-font-for-header)
|
|
|
|
|
(1- ps-header-lines))
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.2) and doc fix.
(ps-print, ps-header-lines, ps-show-n-of-n, ps-font-info-database)
(ps-font-family, ps-font-size, ps-header-font-family)
(ps-header-font-size, ps-header-title-font-size, ps-bold-faces)
(ps-italic-faces, ps-underlined-faces, ps-left-header, ps-right-header)
(ps-font, ps-font-bold, ps-font-italic, ps-font-bold-italic)
(ps-avg-char-width, ps-space-width, ps-line-height): Doc fix.
(ps-error-scale-font): New fn.
(ps-soft-lf, ps-hard-lf): Fn deleted.
(ps-get-page-dimensions, ps-set-bg, ps-face-bold-p, ps-face-italic-p)
(ps-set-color): Reindentation.
(ps-output-string-prim, ps-xemacs-face-kind-p): Internal blank lines
deleted.
(ps-set-font): Little programming improvement.
(ps-line-lengths-internal, ps-nb-pages, ps-select-font)
(ps-select-header-font): Simplify some expressions.
(ps-plot-region): Replace (- X 1) by (1- X).
(ps-generate-header): Replace (+ X 1) by (1+ X).
(ps-print-preprint, ps-plot-with-face, ps-print-ensure-fontified)
(ps-kill-emacs-check): Replace (if (and A B) C) by (and A B C).
(ps-init-output-queue, ps-gnus-article-prepare-hook, ps-jts-ps-setup):
Replace (setq a b)(setq c d) by (setq a b c d).
(ps-begin-file, ps-end-file): Replace (ps-output A)(ps-output B)
by (ps-output A B).
(ps-begin-page): Replace (ps-output A)(ps-output B) by (ps-output A B),
replace (setq a b)(setq c d) by (setq a b c d).
(ps-next-line, ps-continue-line): Replace (setq a b)(setq c d)
by (setq a b c d), and incorporates ps-soft-lf and ps-hard-lf,
respectively.
(ps-plot): Replace (setq a b)(setq c d) by (setq a b c d),
and programming improvement.
(ps-generate-postscript-with-faces): Initialization fix,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if (and A B) C) by (and A B C).
(ps-generate): Doc fix, reprogramming to set the page count,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if A nil B) by (or A B),
replace (if (and A B) C) by (and A B C).
(ps-info-mode-hook): Replace (list 'A 'B) by '(A B).
(ps-jack-setup): Replace (list) by nil.
1997-11-23 02:26:50 +00:00
|
|
|
|
ps-header-pad)))
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
(if (<= ps-print-height 0)
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
(error "Bad vertical layout (header):
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
ps-top-margin == %s
|
|
|
|
|
ps-bottom-margin == %s
|
|
|
|
|
ps-header-offset == %s
|
|
|
|
|
ps-header-pad == %s
|
|
|
|
|
header-height == %s
|
|
|
|
|
page-height == bm + print-height + tm - ho - hh
|
|
|
|
|
=> print-height == %d !"
|
|
|
|
|
ps-top-margin
|
|
|
|
|
ps-bottom-margin
|
|
|
|
|
ps-header-offset
|
|
|
|
|
ps-header-pad
|
|
|
|
|
(+ ps-header-pad
|
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.
1998-03-07 06:04:46 +00:00
|
|
|
|
(ps-title-line-height 'ps-font-for-header)
|
|
|
|
|
(* (ps-line-height 'ps-font-for-header)
|
|
|
|
|
(1- ps-header-lines))
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
ps-header-pad)
|
2001-02-20 10:41:10 +00:00
|
|
|
|
ps-print-height))
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; If footers are turned on, deduct the height of the footer from the print
|
|
|
|
|
;; height.
|
|
|
|
|
(if ps-print-footer
|
|
|
|
|
(setq ps-footer-pad (* ps-footer-line-pad
|
|
|
|
|
(ps-title-line-height 'ps-font-for-footer))
|
|
|
|
|
ps-print-height (- ps-print-height
|
|
|
|
|
ps-footer-offset
|
|
|
|
|
ps-footer-pad
|
|
|
|
|
(* (ps-line-height 'ps-font-for-footer)
|
|
|
|
|
(1- ps-footer-lines))
|
|
|
|
|
ps-footer-pad)))
|
|
|
|
|
(if (<= ps-print-height 0)
|
|
|
|
|
(error "Bad vertical layout (footer):
|
|
|
|
|
ps-top-margin == %s
|
|
|
|
|
ps-bottom-margin == %s
|
|
|
|
|
ps-footer-offset == %s
|
|
|
|
|
ps-footer-pad == %s
|
|
|
|
|
footer-height == %s
|
|
|
|
|
page-height == bm + print-height + tm - fo - fh
|
|
|
|
|
=> print-height == %d !"
|
|
|
|
|
ps-top-margin
|
|
|
|
|
ps-bottom-margin
|
|
|
|
|
ps-footer-offset
|
|
|
|
|
ps-footer-pad
|
|
|
|
|
(+ ps-footer-pad
|
|
|
|
|
(* (ps-line-height 'ps-font-for-footer)
|
|
|
|
|
(1- ps-footer-lines))
|
|
|
|
|
ps-footer-pad)
|
|
|
|
|
ps-print-height))
|
2001-02-20 10:41:10 +00:00
|
|
|
|
;; ps-zebra-stripe-follow is `full' or `full-follow'
|
|
|
|
|
(if ps-zebra-stripe-full-p
|
|
|
|
|
(let* ((line-height (ps-line-height 'ps-font-for-text))
|
Line and paragraph spacing feature. Region to cut
out when printing. Doc fix.
(ps-print-version): New version number (6.5).
(ps-line-spacing, ps-paragraph-spacing, ps-paragraph-regexp): New
vars. Line and paragraph spacing feature.
(ps-begin-cut-regexp, ps-end-cut-regexp): New vars. Region to cut
out when printing.
(ps-setup, ps-nb-pages, ps-get-page-dimensions, ps-begin-file)
(ps-get-font-size, ps-begin-job, ps-continue-line)
(ps-plot-region): Code fix.
(ps-print-prologue-2): Var eliminated.
(ps-line-spacing-internal, ps-paragraph-spacing-internal): New
internal vars.
(ps-get-size): New fun.
(ps-output-string-prim, ps-init-output-queue, ps-print-page-p)
(ps-next-line): Replace defun by defsubst.
(ps-mule-plot-string): Autoload doc fix.
(ps-mule-generate-font): New arg HEADER-P. If it is
non-nil, generate font for the header strings.
(ps-mule-prepare-font): Likewise.
(ps-mule-generate-glyphs): Likewise.
(ps-mule-string-encoding): Likewise.
(ps-mule-header-charsets): New variable.
(ps-mule-encode-header-string): New function.
(ps-mule-header-string-charsets): New function.
(ps-mule-begin-job): Check charsets in the header strings. If there
are non-ASCII and non-Latin1 charsets, prepare fonts for them.
2001-04-02 10:35:07 +00:00
|
|
|
|
(zebra (* (+ line-height ps-line-spacing-internal)
|
|
|
|
|
ps-zebra-stripe-height)))
|
2001-02-20 10:41:10 +00:00
|
|
|
|
(setq ps-print-height (- (* (floor ps-print-height zebra) zebra)
|
|
|
|
|
line-height))
|
|
|
|
|
(if (<= ps-print-height 0)
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
(error "Bad vertical layout (full zebra stripe follow):
|
2001-02-20 10:41:10 +00:00
|
|
|
|
ps-zebra-stripe-follow == %s
|
|
|
|
|
ps-zebra-stripe-height == %s
|
|
|
|
|
font-text-height == %s
|
Line and paragraph spacing feature. Region to cut
out when printing. Doc fix.
(ps-print-version): New version number (6.5).
(ps-line-spacing, ps-paragraph-spacing, ps-paragraph-regexp): New
vars. Line and paragraph spacing feature.
(ps-begin-cut-regexp, ps-end-cut-regexp): New vars. Region to cut
out when printing.
(ps-setup, ps-nb-pages, ps-get-page-dimensions, ps-begin-file)
(ps-get-font-size, ps-begin-job, ps-continue-line)
(ps-plot-region): Code fix.
(ps-print-prologue-2): Var eliminated.
(ps-line-spacing-internal, ps-paragraph-spacing-internal): New
internal vars.
(ps-get-size): New fun.
(ps-output-string-prim, ps-init-output-queue, ps-print-page-p)
(ps-next-line): Replace defun by defsubst.
(ps-mule-plot-string): Autoload doc fix.
(ps-mule-generate-font): New arg HEADER-P. If it is
non-nil, generate font for the header strings.
(ps-mule-prepare-font): Likewise.
(ps-mule-generate-glyphs): Likewise.
(ps-mule-string-encoding): Likewise.
(ps-mule-header-charsets): New variable.
(ps-mule-encode-header-string): New function.
(ps-mule-header-string-charsets): New function.
(ps-mule-begin-job): Check charsets in the header strings. If there
are non-ASCII and non-Latin1 charsets, prepare fonts for them.
2001-04-02 10:35:07 +00:00
|
|
|
|
line-spacing == %s
|
|
|
|
|
page-height == ((floor print-height ((th + ls) * zh)) * ((th + ls) * zh)) - th
|
2001-02-20 10:41:10 +00:00
|
|
|
|
=> print-height == %d !"
|
|
|
|
|
ps-zebra-stripe-follow
|
|
|
|
|
ps-zebra-stripe-height
|
|
|
|
|
(ps-line-height 'ps-font-for-text)
|
Line and paragraph spacing feature. Region to cut
out when printing. Doc fix.
(ps-print-version): New version number (6.5).
(ps-line-spacing, ps-paragraph-spacing, ps-paragraph-regexp): New
vars. Line and paragraph spacing feature.
(ps-begin-cut-regexp, ps-end-cut-regexp): New vars. Region to cut
out when printing.
(ps-setup, ps-nb-pages, ps-get-page-dimensions, ps-begin-file)
(ps-get-font-size, ps-begin-job, ps-continue-line)
(ps-plot-region): Code fix.
(ps-print-prologue-2): Var eliminated.
(ps-line-spacing-internal, ps-paragraph-spacing-internal): New
internal vars.
(ps-get-size): New fun.
(ps-output-string-prim, ps-init-output-queue, ps-print-page-p)
(ps-next-line): Replace defun by defsubst.
(ps-mule-plot-string): Autoload doc fix.
(ps-mule-generate-font): New arg HEADER-P. If it is
non-nil, generate font for the header strings.
(ps-mule-prepare-font): Likewise.
(ps-mule-generate-glyphs): Likewise.
(ps-mule-string-encoding): Likewise.
(ps-mule-header-charsets): New variable.
(ps-mule-encode-header-string): New function.
(ps-mule-header-string-charsets): New function.
(ps-mule-begin-job): Check charsets in the header strings. If there
are non-ASCII and non-Latin1 charsets, prepare fonts for them.
2001-04-02 10:35:07 +00:00
|
|
|
|
ps-line-spacing-internal
|
2001-02-20 10:41:10 +00:00
|
|
|
|
ps-print-height))))))
|
1994-05-01 22:09:01 +00:00
|
|
|
|
|
2001-09-18 09:28:00 +00:00
|
|
|
|
|
|
|
|
|
(defun ps-print-preprint-region (prefix-arg)
|
2002-09-12 03:21:57 +00:00
|
|
|
|
(or (ps-mark-active-p)
|
2001-09-18 09:28:00 +00:00
|
|
|
|
(error "The mark is not set now"))
|
|
|
|
|
(list (point) (mark) (ps-print-preprint prefix-arg)))
|
|
|
|
|
|
|
|
|
|
|
2000-04-13 19:15:23 +00:00
|
|
|
|
(defun ps-print-preprint (prefix-arg)
|
|
|
|
|
(and prefix-arg
|
|
|
|
|
(or (numberp prefix-arg)
|
|
|
|
|
(listp prefix-arg))
|
User option for multibyte buffer handling and doc fix.
(ps-multibyte-buffer): New user option.
(ps-setup): Print new user option.
(ps-print-quote): New fun.
(ps-color-p, ps-mule-font-info-database-latin): New var.
(ps-default-color, ps-mule-font-info-database)
(ps-mule-font-info-database-ps-bdf): Adjust initialization.
(ps-mule-get-font-spec, ps-mule-begin, ps-begin-file)
(ps-plot-with-face, ps-generate-postscript-with-faces, ps-generate):
Little code improvement.
(ps-mule-initialize): Initialize ps-mule-font-info-database.
(ps-print-prologue-header, ps-font-family, ps-font-size)
(ps-header-font-family, ps-header-font-size, ps-header-title-font-size)
(ps-build-face-reference, ps-mule-font-info-database-bdf)
(ps-mule-external-libraries, ps-mule-init-external-library)
(ps-mule-prepare-font, ps-mule-find-wrappoint, ps-mule-plot-string): doc
fix.
To make it work also on Emacs 20.2 and the earlier
version, check the value of mule-version.
(ps-print-version): New version number (4.1.1) and doc
fix.
(ps-print-prologue-header): New user option.
(ps-color-values, ps-xemacs-face-kind-p, ps-mapper, ps-extent-sorter):
Conditional compilation for GNU Emacs and emacsens.
(ps-generate-postscript-with-faces): Skip invisible text better.
(ps-setup): Print new user option.
(ps-print-preprint): Check if input file name exists and is unwritable.
(ps-begin-file): Adjust PostScript prologue header for duplex printers
and insert user PostScript prologue header comments.
(ps-mule-encode-bit, ps-mule-string-ascii, ps-mule-string-encoding): New
funs.
(dos-ps-printer, lazy-lock-fontify-buffer): Eliminated.
(ps-mule-prologue, ps-mule-cmpchar-prologue, ps-mule-bitmap-prologue):
PostScript programming normalization.
(ps-mule-encode-7bit, ps-mule-encode-8bit, ps-mule-generate-font)
(ps-mule-generate-glyphs, ps-mule-prepare-font, ps-mule-plot-string)
(ps-mule-skip-same-charset, ps-mule-plot-rule-cmpchar)
(ps-mule-plot-cmpchar, ps-mule-prepare-cmpchar-font)
(ps-mule-initialize, ps-mule-begin, ps-face-bold-p, ps-do-despool):
Programming style normalization.
1998-10-26 20:22:17 +00:00
|
|
|
|
(let* ((name (concat (file-name-nondirectory (or (buffer-file-name)
|
|
|
|
|
(buffer-name)))
|
|
|
|
|
".ps"))
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.2) and doc fix.
(ps-print, ps-header-lines, ps-show-n-of-n, ps-font-info-database)
(ps-font-family, ps-font-size, ps-header-font-family)
(ps-header-font-size, ps-header-title-font-size, ps-bold-faces)
(ps-italic-faces, ps-underlined-faces, ps-left-header, ps-right-header)
(ps-font, ps-font-bold, ps-font-italic, ps-font-bold-italic)
(ps-avg-char-width, ps-space-width, ps-line-height): Doc fix.
(ps-error-scale-font): New fn.
(ps-soft-lf, ps-hard-lf): Fn deleted.
(ps-get-page-dimensions, ps-set-bg, ps-face-bold-p, ps-face-italic-p)
(ps-set-color): Reindentation.
(ps-output-string-prim, ps-xemacs-face-kind-p): Internal blank lines
deleted.
(ps-set-font): Little programming improvement.
(ps-line-lengths-internal, ps-nb-pages, ps-select-font)
(ps-select-header-font): Simplify some expressions.
(ps-plot-region): Replace (- X 1) by (1- X).
(ps-generate-header): Replace (+ X 1) by (1+ X).
(ps-print-preprint, ps-plot-with-face, ps-print-ensure-fontified)
(ps-kill-emacs-check): Replace (if (and A B) C) by (and A B C).
(ps-init-output-queue, ps-gnus-article-prepare-hook, ps-jts-ps-setup):
Replace (setq a b)(setq c d) by (setq a b c d).
(ps-begin-file, ps-end-file): Replace (ps-output A)(ps-output B)
by (ps-output A B).
(ps-begin-page): Replace (ps-output A)(ps-output B) by (ps-output A B),
replace (setq a b)(setq c d) by (setq a b c d).
(ps-next-line, ps-continue-line): Replace (setq a b)(setq c d)
by (setq a b c d), and incorporates ps-soft-lf and ps-hard-lf,
respectively.
(ps-plot): Replace (setq a b)(setq c d) by (setq a b c d),
and programming improvement.
(ps-generate-postscript-with-faces): Initialization fix,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if (and A B) C) by (and A B C).
(ps-generate): Doc fix, reprogramming to set the page count,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if A nil B) by (or A B),
replace (if (and A B) C) by (and A B C).
(ps-info-mode-hook): Replace (list 'A 'B) by '(A B).
(ps-jack-setup): Replace (list) by nil.
1997-11-23 02:26:50 +00:00
|
|
|
|
(prompt (format "Save PostScript to file: (default %s) " name))
|
|
|
|
|
(res (read-file-name prompt default-directory name nil)))
|
2000-10-31 11:54:38 +00:00
|
|
|
|
(while (cond ((file-directory-p res)
|
|
|
|
|
(ding)
|
|
|
|
|
(setq prompt "It's a directory"))
|
|
|
|
|
((not (file-writable-p res))
|
User option for multibyte buffer handling and doc fix.
(ps-multibyte-buffer): New user option.
(ps-setup): Print new user option.
(ps-print-quote): New fun.
(ps-color-p, ps-mule-font-info-database-latin): New var.
(ps-default-color, ps-mule-font-info-database)
(ps-mule-font-info-database-ps-bdf): Adjust initialization.
(ps-mule-get-font-spec, ps-mule-begin, ps-begin-file)
(ps-plot-with-face, ps-generate-postscript-with-faces, ps-generate):
Little code improvement.
(ps-mule-initialize): Initialize ps-mule-font-info-database.
(ps-print-prologue-header, ps-font-family, ps-font-size)
(ps-header-font-family, ps-header-font-size, ps-header-title-font-size)
(ps-build-face-reference, ps-mule-font-info-database-bdf)
(ps-mule-external-libraries, ps-mule-init-external-library)
(ps-mule-prepare-font, ps-mule-find-wrappoint, ps-mule-plot-string): doc
fix.
To make it work also on Emacs 20.2 and the earlier
version, check the value of mule-version.
(ps-print-version): New version number (4.1.1) and doc
fix.
(ps-print-prologue-header): New user option.
(ps-color-values, ps-xemacs-face-kind-p, ps-mapper, ps-extent-sorter):
Conditional compilation for GNU Emacs and emacsens.
(ps-generate-postscript-with-faces): Skip invisible text better.
(ps-setup): Print new user option.
(ps-print-preprint): Check if input file name exists and is unwritable.
(ps-begin-file): Adjust PostScript prologue header for duplex printers
and insert user PostScript prologue header comments.
(ps-mule-encode-bit, ps-mule-string-ascii, ps-mule-string-encoding): New
funs.
(dos-ps-printer, lazy-lock-fontify-buffer): Eliminated.
(ps-mule-prologue, ps-mule-cmpchar-prologue, ps-mule-bitmap-prologue):
PostScript programming normalization.
(ps-mule-encode-7bit, ps-mule-encode-8bit, ps-mule-generate-font)
(ps-mule-generate-glyphs, ps-mule-prepare-font, ps-mule-plot-string)
(ps-mule-skip-same-charset, ps-mule-plot-rule-cmpchar)
(ps-mule-plot-cmpchar, ps-mule-prepare-cmpchar-font)
(ps-mule-initialize, ps-mule-begin, ps-face-bold-p, ps-do-despool):
Programming style normalization.
1998-10-26 20:22:17 +00:00
|
|
|
|
(ding)
|
2000-10-31 11:54:38 +00:00
|
|
|
|
(setq prompt "File is unwritable"))
|
User option for multibyte buffer handling and doc fix.
(ps-multibyte-buffer): New user option.
(ps-setup): Print new user option.
(ps-print-quote): New fun.
(ps-color-p, ps-mule-font-info-database-latin): New var.
(ps-default-color, ps-mule-font-info-database)
(ps-mule-font-info-database-ps-bdf): Adjust initialization.
(ps-mule-get-font-spec, ps-mule-begin, ps-begin-file)
(ps-plot-with-face, ps-generate-postscript-with-faces, ps-generate):
Little code improvement.
(ps-mule-initialize): Initialize ps-mule-font-info-database.
(ps-print-prologue-header, ps-font-family, ps-font-size)
(ps-header-font-family, ps-header-font-size, ps-header-title-font-size)
(ps-build-face-reference, ps-mule-font-info-database-bdf)
(ps-mule-external-libraries, ps-mule-init-external-library)
(ps-mule-prepare-font, ps-mule-find-wrappoint, ps-mule-plot-string): doc
fix.
To make it work also on Emacs 20.2 and the earlier
version, check the value of mule-version.
(ps-print-version): New version number (4.1.1) and doc
fix.
(ps-print-prologue-header): New user option.
(ps-color-values, ps-xemacs-face-kind-p, ps-mapper, ps-extent-sorter):
Conditional compilation for GNU Emacs and emacsens.
(ps-generate-postscript-with-faces): Skip invisible text better.
(ps-setup): Print new user option.
(ps-print-preprint): Check if input file name exists and is unwritable.
(ps-begin-file): Adjust PostScript prologue header for duplex printers
and insert user PostScript prologue header comments.
(ps-mule-encode-bit, ps-mule-string-ascii, ps-mule-string-encoding): New
funs.
(dos-ps-printer, lazy-lock-fontify-buffer): Eliminated.
(ps-mule-prologue, ps-mule-cmpchar-prologue, ps-mule-bitmap-prologue):
PostScript programming normalization.
(ps-mule-encode-7bit, ps-mule-encode-8bit, ps-mule-generate-font)
(ps-mule-generate-glyphs, ps-mule-prepare-font, ps-mule-plot-string)
(ps-mule-skip-same-charset, ps-mule-plot-rule-cmpchar)
(ps-mule-plot-cmpchar, ps-mule-prepare-cmpchar-font)
(ps-mule-initialize, ps-mule-begin, ps-face-bold-p, ps-do-despool):
Programming style normalization.
1998-10-26 20:22:17 +00:00
|
|
|
|
((file-exists-p res)
|
2000-10-31 11:54:38 +00:00
|
|
|
|
(setq prompt "File exists")
|
User option for multibyte buffer handling and doc fix.
(ps-multibyte-buffer): New user option.
(ps-setup): Print new user option.
(ps-print-quote): New fun.
(ps-color-p, ps-mule-font-info-database-latin): New var.
(ps-default-color, ps-mule-font-info-database)
(ps-mule-font-info-database-ps-bdf): Adjust initialization.
(ps-mule-get-font-spec, ps-mule-begin, ps-begin-file)
(ps-plot-with-face, ps-generate-postscript-with-faces, ps-generate):
Little code improvement.
(ps-mule-initialize): Initialize ps-mule-font-info-database.
(ps-print-prologue-header, ps-font-family, ps-font-size)
(ps-header-font-family, ps-header-font-size, ps-header-title-font-size)
(ps-build-face-reference, ps-mule-font-info-database-bdf)
(ps-mule-external-libraries, ps-mule-init-external-library)
(ps-mule-prepare-font, ps-mule-find-wrappoint, ps-mule-plot-string): doc
fix.
To make it work also on Emacs 20.2 and the earlier
version, check the value of mule-version.
(ps-print-version): New version number (4.1.1) and doc
fix.
(ps-print-prologue-header): New user option.
(ps-color-values, ps-xemacs-face-kind-p, ps-mapper, ps-extent-sorter):
Conditional compilation for GNU Emacs and emacsens.
(ps-generate-postscript-with-faces): Skip invisible text better.
(ps-setup): Print new user option.
(ps-print-preprint): Check if input file name exists and is unwritable.
(ps-begin-file): Adjust PostScript prologue header for duplex printers
and insert user PostScript prologue header comments.
(ps-mule-encode-bit, ps-mule-string-ascii, ps-mule-string-encoding): New
funs.
(dos-ps-printer, lazy-lock-fontify-buffer): Eliminated.
(ps-mule-prologue, ps-mule-cmpchar-prologue, ps-mule-bitmap-prologue):
PostScript programming normalization.
(ps-mule-encode-7bit, ps-mule-encode-8bit, ps-mule-generate-font)
(ps-mule-generate-glyphs, ps-mule-prepare-font, ps-mule-plot-string)
(ps-mule-skip-same-charset, ps-mule-plot-rule-cmpchar)
(ps-mule-plot-cmpchar, ps-mule-prepare-cmpchar-font)
(ps-mule-initialize, ps-mule-begin, ps-face-bold-p, ps-do-despool):
Programming style normalization.
1998-10-26 20:22:17 +00:00
|
|
|
|
(not (y-or-n-p (format "File `%s' exists; overwrite? "
|
|
|
|
|
res))))
|
|
|
|
|
(t nil))
|
|
|
|
|
(setq res (read-file-name
|
2000-10-31 11:54:38 +00:00
|
|
|
|
(format "%s; save PostScript to file: " prompt)
|
User option for multibyte buffer handling and doc fix.
(ps-multibyte-buffer): New user option.
(ps-setup): Print new user option.
(ps-print-quote): New fun.
(ps-color-p, ps-mule-font-info-database-latin): New var.
(ps-default-color, ps-mule-font-info-database)
(ps-mule-font-info-database-ps-bdf): Adjust initialization.
(ps-mule-get-font-spec, ps-mule-begin, ps-begin-file)
(ps-plot-with-face, ps-generate-postscript-with-faces, ps-generate):
Little code improvement.
(ps-mule-initialize): Initialize ps-mule-font-info-database.
(ps-print-prologue-header, ps-font-family, ps-font-size)
(ps-header-font-family, ps-header-font-size, ps-header-title-font-size)
(ps-build-face-reference, ps-mule-font-info-database-bdf)
(ps-mule-external-libraries, ps-mule-init-external-library)
(ps-mule-prepare-font, ps-mule-find-wrappoint, ps-mule-plot-string): doc
fix.
To make it work also on Emacs 20.2 and the earlier
version, check the value of mule-version.
(ps-print-version): New version number (4.1.1) and doc
fix.
(ps-print-prologue-header): New user option.
(ps-color-values, ps-xemacs-face-kind-p, ps-mapper, ps-extent-sorter):
Conditional compilation for GNU Emacs and emacsens.
(ps-generate-postscript-with-faces): Skip invisible text better.
(ps-setup): Print new user option.
(ps-print-preprint): Check if input file name exists and is unwritable.
(ps-begin-file): Adjust PostScript prologue header for duplex printers
and insert user PostScript prologue header comments.
(ps-mule-encode-bit, ps-mule-string-ascii, ps-mule-string-encoding): New
funs.
(dos-ps-printer, lazy-lock-fontify-buffer): Eliminated.
(ps-mule-prologue, ps-mule-cmpchar-prologue, ps-mule-bitmap-prologue):
PostScript programming normalization.
(ps-mule-encode-7bit, ps-mule-encode-8bit, ps-mule-generate-font)
(ps-mule-generate-glyphs, ps-mule-prepare-font, ps-mule-plot-string)
(ps-mule-skip-same-charset, ps-mule-plot-rule-cmpchar)
(ps-mule-plot-cmpchar, ps-mule-prepare-cmpchar-font)
(ps-mule-initialize, ps-mule-begin, ps-face-bold-p, ps-do-despool):
Programming style normalization.
1998-10-26 20:22:17 +00:00
|
|
|
|
(file-name-directory res) nil nil
|
|
|
|
|
(file-name-nondirectory res))))
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.2) and doc fix.
(ps-print, ps-header-lines, ps-show-n-of-n, ps-font-info-database)
(ps-font-family, ps-font-size, ps-header-font-family)
(ps-header-font-size, ps-header-title-font-size, ps-bold-faces)
(ps-italic-faces, ps-underlined-faces, ps-left-header, ps-right-header)
(ps-font, ps-font-bold, ps-font-italic, ps-font-bold-italic)
(ps-avg-char-width, ps-space-width, ps-line-height): Doc fix.
(ps-error-scale-font): New fn.
(ps-soft-lf, ps-hard-lf): Fn deleted.
(ps-get-page-dimensions, ps-set-bg, ps-face-bold-p, ps-face-italic-p)
(ps-set-color): Reindentation.
(ps-output-string-prim, ps-xemacs-face-kind-p): Internal blank lines
deleted.
(ps-set-font): Little programming improvement.
(ps-line-lengths-internal, ps-nb-pages, ps-select-font)
(ps-select-header-font): Simplify some expressions.
(ps-plot-region): Replace (- X 1) by (1- X).
(ps-generate-header): Replace (+ X 1) by (1+ X).
(ps-print-preprint, ps-plot-with-face, ps-print-ensure-fontified)
(ps-kill-emacs-check): Replace (if (and A B) C) by (and A B C).
(ps-init-output-queue, ps-gnus-article-prepare-hook, ps-jts-ps-setup):
Replace (setq a b)(setq c d) by (setq a b c d).
(ps-begin-file, ps-end-file): Replace (ps-output A)(ps-output B)
by (ps-output A B).
(ps-begin-page): Replace (ps-output A)(ps-output B) by (ps-output A B),
replace (setq a b)(setq c d) by (setq a b c d).
(ps-next-line, ps-continue-line): Replace (setq a b)(setq c d)
by (setq a b c d), and incorporates ps-soft-lf and ps-hard-lf,
respectively.
(ps-plot): Replace (setq a b)(setq c d) by (setq a b c d),
and programming improvement.
(ps-generate-postscript-with-faces): Initialization fix,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if (and A B) C) by (and A B C).
(ps-generate): Doc fix, reprogramming to set the page count,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if A nil B) by (or A B),
replace (if (and A B) C) by (and A B C).
(ps-info-mode-hook): Replace (list 'A 'B) by '(A B).
(ps-jack-setup): Replace (list) by nil.
1997-11-23 02:26:50 +00:00
|
|
|
|
(if (file-directory-p res)
|
|
|
|
|
(expand-file-name name (file-name-as-directory res))
|
|
|
|
|
res))))
|
1995-01-20 06:09:03 +00:00
|
|
|
|
|
|
|
|
|
;; The following functions implement a simple list-buffering scheme so
|
|
|
|
|
;; that ps-print doesn't have to repeatedly switch between buffers
|
Some comment, doc and bug fixes.
(ps-print-version): New version number (3.05.3) and doc fix.
(ps-output-string-prim, ps-begin-job, ps-control-character)
(ps-plot-region): Bug fix.
(ps-print-control-characters): New custom var.
(ps-string-escape-codes, ps-string-control-codes): New var.
(ps-color-device, ps-font-lock-face-attributes, ps-eval-switch)
(ps-flatten-list, ps-flatten-list-1): New fn.
(ps-setup): Update current setup.
(ps-begin-file): Adjust PostScript header file.
(ps-plot, ps-face-attribute-list): Little programming improvement.
(ps-print-prologue-1): Replace NumberOfZebra by ZebraHeight.
(ps-print-without-faces, ps-print-with-faces): Little reprogramming.
(ps-plot-with-face): Get color only on color screen device.
(ps-build-reference-face-lists): Handle obsolete
font-lock-face-attributes.
(ps-print-ensure-fontified): Little programming setting.
(ps-generate-postscript-with-faces): Adjust initializations, get color
only on color screen device.
(ps-generate): Replace (if A B) by (and A B).
(ps-do-despool): Dynamic evaluation for ps-lpr-switches,
Replace (if A B) by (and A B).
(color-instance-rgb-components, ps-color-values): Replace
pixel-components by color-instance-rgb-components.
(ps-xemacs-face-kind-p): Replace face-font by face-font-instance,
replace x-font-properties by font-instance-properties.
1997-12-25 18:33:52 +00:00
|
|
|
|
;; while spooling. The functions `ps-output' and `ps-output-string' build
|
|
|
|
|
;; up the lists; the function `ps-flush-output' takes the lists and
|
1995-01-20 06:09:03 +00:00
|
|
|
|
;; insert its contents into the spool buffer (*PostScript*).
|
|
|
|
|
|
Some comment, doc and bug fixes.
(ps-print-version): New version number (3.05.3) and doc fix.
(ps-output-string-prim, ps-begin-job, ps-control-character)
(ps-plot-region): Bug fix.
(ps-print-control-characters): New custom var.
(ps-string-escape-codes, ps-string-control-codes): New var.
(ps-color-device, ps-font-lock-face-attributes, ps-eval-switch)
(ps-flatten-list, ps-flatten-list-1): New fn.
(ps-setup): Update current setup.
(ps-begin-file): Adjust PostScript header file.
(ps-plot, ps-face-attribute-list): Little programming improvement.
(ps-print-prologue-1): Replace NumberOfZebra by ZebraHeight.
(ps-print-without-faces, ps-print-with-faces): Little reprogramming.
(ps-plot-with-face): Get color only on color screen device.
(ps-build-reference-face-lists): Handle obsolete
font-lock-face-attributes.
(ps-print-ensure-fontified): Little programming setting.
(ps-generate-postscript-with-faces): Adjust initializations, get color
only on color screen device.
(ps-generate): Replace (if A B) by (and A B).
(ps-do-despool): Dynamic evaluation for ps-lpr-switches,
Replace (if A B) by (and A B).
(color-instance-rgb-components, ps-color-values): Replace
pixel-components by color-instance-rgb-components.
(ps-xemacs-face-kind-p): Replace face-font by face-font-instance,
replace x-font-properties by font-instance-properties.
1997-12-25 18:33:52 +00:00
|
|
|
|
(defvar ps-string-escape-codes
|
|
|
|
|
(let ((table (make-vector 256 nil))
|
|
|
|
|
(char ?\000))
|
|
|
|
|
;; control characters
|
|
|
|
|
(while (<= char ?\037)
|
|
|
|
|
(aset table char (format "\\%03o" char))
|
|
|
|
|
(setq char (1+ char)))
|
|
|
|
|
;; printable characters
|
|
|
|
|
(while (< char ?\177)
|
|
|
|
|
(aset table char (format "%c" char))
|
|
|
|
|
(setq char (1+ char)))
|
|
|
|
|
;; DEL and 8-bit characters
|
|
|
|
|
(while (<= char ?\377)
|
|
|
|
|
(aset table char (format "\\%o" char))
|
|
|
|
|
(setq char (1+ char)))
|
|
|
|
|
;; Override ASCII formatting characters with named escape code:
|
|
|
|
|
(aset table ?\n "\\n") ; [NL] linefeed
|
|
|
|
|
(aset table ?\r "\\r") ; [CR] carriage return
|
|
|
|
|
(aset table ?\t "\\t") ; [HT] horizontal tab
|
|
|
|
|
(aset table ?\b "\\b") ; [BS] backspace
|
|
|
|
|
(aset table ?\f "\\f") ; [NP] form feed
|
|
|
|
|
;; Escape PostScript escape and string delimiter characters:
|
|
|
|
|
(aset table ?\\ "\\\\")
|
|
|
|
|
(aset table ?\( "\\(")
|
|
|
|
|
(aset table ?\) "\\)")
|
|
|
|
|
table)
|
|
|
|
|
"Vector used to map characters to PostScript string escape codes.")
|
|
|
|
|
|
Line and paragraph spacing feature. Region to cut
out when printing. Doc fix.
(ps-print-version): New version number (6.5).
(ps-line-spacing, ps-paragraph-spacing, ps-paragraph-regexp): New
vars. Line and paragraph spacing feature.
(ps-begin-cut-regexp, ps-end-cut-regexp): New vars. Region to cut
out when printing.
(ps-setup, ps-nb-pages, ps-get-page-dimensions, ps-begin-file)
(ps-get-font-size, ps-begin-job, ps-continue-line)
(ps-plot-region): Code fix.
(ps-print-prologue-2): Var eliminated.
(ps-line-spacing-internal, ps-paragraph-spacing-internal): New
internal vars.
(ps-get-size): New fun.
(ps-output-string-prim, ps-init-output-queue, ps-print-page-p)
(ps-next-line): Replace defun by defsubst.
(ps-mule-plot-string): Autoload doc fix.
(ps-mule-generate-font): New arg HEADER-P. If it is
non-nil, generate font for the header strings.
(ps-mule-prepare-font): Likewise.
(ps-mule-generate-glyphs): Likewise.
(ps-mule-string-encoding): Likewise.
(ps-mule-header-charsets): New variable.
(ps-mule-encode-header-string): New function.
(ps-mule-header-string-charsets): New function.
(ps-mule-begin-job): Check charsets in the header strings. If there
are non-ASCII and non-Latin1 charsets, prepare fonts for them.
2001-04-02 10:35:07 +00:00
|
|
|
|
(defsubst ps-output-string-prim (string)
|
1995-01-20 06:09:03 +00:00
|
|
|
|
(insert "(") ;insert start-string delimiter
|
|
|
|
|
(save-excursion ;insert string
|
Multi-byte buffer handling.
(ps-print-version): New version number (4.0) and doc fix.
(ps-color-device, ps-face-bold-p, ps-face-italic-p): Conditional
compilation for GNU Emacs and emacsens.
(ps-generate-postscript-with-faces): Force invisible text to be
visible.
(dos-ps-printer): New var to avoid compilation gripes.
(ps-mule-plot-string): Pay attention to the case
that no more characters can't be printed in the current line.
(ps-mule-find-wrappoint): ENDPOS should not be greater than TO.
Add codes to make ps-print.el work also on Emacs
20.2 and the earlier version.
(ps-mule-encode-7bit, ps-mule-encode-8bit): Modified for 20.2.
(ccl-encode-ethio-unicode, ps-mule-encode-ethiopic): Likewise.
(ps-mule-find-wrappoint): Likewise.
(ps-mule-generate-font): Change `X' to `x' in format
control-string.
(ps-generate): Call ps-mule-begin before calling ps-begin-job.
(ps-mule-cmpchar-prologue): Delete unnecessary `gsave' and
`restore' form procedures `BC' and `EC'.
(ps-print-prologue-1): Handle the case that FontBBox
is an executable procedure. Make LineThickness, Xshadow, and
Yshadow relative to FontHeight. Set SpaceWidth in BeginDoc.
(ps-mule-font-info-database, ps-mule-font-info-database-ps,
ps-mule-font-info-database-bdf): New vars.
(ps-mule-encode-7bit, ps-mule-encode-8bit): New funs.
(ccl-encode-ethio-unicode): New CCL program.
(ps-mule-encode-ethiopic): New fun.
(ps-mule-current-charset): New var.
(ps-mule-get-font-spec, ps-mule-font-spec-src,
ps-mule-font-spec-name, ps-mule-font-spec-encoding,
ps-mule-font-spec-bytes, ps-mule-printable-p): New funs.
(ps-mule-external-libraries): New var.
(ps-mule-init-external-library): New fun.
(ps-mule-font-cache): New var.
(ps-mule-generate-font, ps-mule-generate-glyphs): New funs.
(ps-last-font): New var.
(ps-mule-prepare-font): New fun.
(ps-mule-charset-list): New var.
(ps-mule-prologue-generated, ps-mule-prologue): New vars.
(ps-mule-skip-same-charset, ps-mule-find-wrappoint,
ps-mule-plot-string): New funs.
(ps-mule-cmpchar-prologue-generated, ps-mule-cmpchar-prologue):
New vars.
(ps-mule-plot-rule-cmpchar, ps-mule-plot-cmpchar,
ps-mule-prepare-cmpchar-font): New funs.
(ps-mule-bitmap-prologue-generated, ps-mule-bitmap-prologue): New
vars.
(ps-mule-generate-bitmap-prologue, ps-mule-generate-bitmap-font,
ps-mule-generate-bitmap-glyph): New funs.
(ps-mule-initialize, ps-mule-begin): New funs.
(ps-output-string-prim): Insert string as unibyte.
(ps-output-prologue): New fun.
(ps-flush-output): Handle the case of 'prologue.
(ps-begin-file): Call ps-mule-initialize.
(ps-begin-job): Set ps-control-or-escape-regexp differently if
printing multibyte characters.
(ps-begin-page): Set ps-mule-current-charset to 'ascii.
(ps-basic-plot-string): Handle the case of printing ASCII
characters by external libraries (e.g. BDF).
(ps-set-font): Set ps-last-font.
(ps-plot-region): Handle multibyte characters, use
ps-mule-plot-string for them.
(ps-generate): Set the spool buffer unibyte. Call ps-mule-begin.
1998-08-24 10:19:29 +00:00
|
|
|
|
(insert (string-as-unibyte string)))
|
1995-01-20 06:09:03 +00:00
|
|
|
|
;; Find and quote special characters as necessary for PS
|
1998-09-23 22:11:56 +00:00
|
|
|
|
;; This skips everything except control chars, non-ASCII chars, (, ) and \.
|
1998-04-18 02:01:12 +00:00
|
|
|
|
(while (progn (skip-chars-forward " -'*-[]-~") (not (eobp)))
|
|
|
|
|
(let ((special (following-char)))
|
Multi-byte buffer handling.
(ps-print-version): New version number (4.0) and doc fix.
(ps-color-device, ps-face-bold-p, ps-face-italic-p): Conditional
compilation for GNU Emacs and emacsens.
(ps-generate-postscript-with-faces): Force invisible text to be
visible.
(dos-ps-printer): New var to avoid compilation gripes.
(ps-mule-plot-string): Pay attention to the case
that no more characters can't be printed in the current line.
(ps-mule-find-wrappoint): ENDPOS should not be greater than TO.
Add codes to make ps-print.el work also on Emacs
20.2 and the earlier version.
(ps-mule-encode-7bit, ps-mule-encode-8bit): Modified for 20.2.
(ccl-encode-ethio-unicode, ps-mule-encode-ethiopic): Likewise.
(ps-mule-find-wrappoint): Likewise.
(ps-mule-generate-font): Change `X' to `x' in format
control-string.
(ps-generate): Call ps-mule-begin before calling ps-begin-job.
(ps-mule-cmpchar-prologue): Delete unnecessary `gsave' and
`restore' form procedures `BC' and `EC'.
(ps-print-prologue-1): Handle the case that FontBBox
is an executable procedure. Make LineThickness, Xshadow, and
Yshadow relative to FontHeight. Set SpaceWidth in BeginDoc.
(ps-mule-font-info-database, ps-mule-font-info-database-ps,
ps-mule-font-info-database-bdf): New vars.
(ps-mule-encode-7bit, ps-mule-encode-8bit): New funs.
(ccl-encode-ethio-unicode): New CCL program.
(ps-mule-encode-ethiopic): New fun.
(ps-mule-current-charset): New var.
(ps-mule-get-font-spec, ps-mule-font-spec-src,
ps-mule-font-spec-name, ps-mule-font-spec-encoding,
ps-mule-font-spec-bytes, ps-mule-printable-p): New funs.
(ps-mule-external-libraries): New var.
(ps-mule-init-external-library): New fun.
(ps-mule-font-cache): New var.
(ps-mule-generate-font, ps-mule-generate-glyphs): New funs.
(ps-last-font): New var.
(ps-mule-prepare-font): New fun.
(ps-mule-charset-list): New var.
(ps-mule-prologue-generated, ps-mule-prologue): New vars.
(ps-mule-skip-same-charset, ps-mule-find-wrappoint,
ps-mule-plot-string): New funs.
(ps-mule-cmpchar-prologue-generated, ps-mule-cmpchar-prologue):
New vars.
(ps-mule-plot-rule-cmpchar, ps-mule-plot-cmpchar,
ps-mule-prepare-cmpchar-font): New funs.
(ps-mule-bitmap-prologue-generated, ps-mule-bitmap-prologue): New
vars.
(ps-mule-generate-bitmap-prologue, ps-mule-generate-bitmap-font,
ps-mule-generate-bitmap-glyph): New funs.
(ps-mule-initialize, ps-mule-begin): New funs.
(ps-output-string-prim): Insert string as unibyte.
(ps-output-prologue): New fun.
(ps-flush-output): Handle the case of 'prologue.
(ps-begin-file): Call ps-mule-initialize.
(ps-begin-job): Set ps-control-or-escape-regexp differently if
printing multibyte characters.
(ps-begin-page): Set ps-mule-current-charset to 'ascii.
(ps-basic-plot-string): Handle the case of printing ASCII
characters by external libraries (e.g. BDF).
(ps-set-font): Set ps-last-font.
(ps-plot-region): Handle multibyte characters, use
ps-mule-plot-string for them.
(ps-generate): Set the spool buffer unibyte. Call ps-mule-begin.
1998-08-24 10:19:29 +00:00
|
|
|
|
(delete-char 1)
|
2003-02-13 11:57:42 +00:00
|
|
|
|
(insert
|
|
|
|
|
(if (and (<= 0 special) (<= special 255))
|
|
|
|
|
(aref ps-string-escape-codes special)
|
|
|
|
|
;; insert hexadecimal representation if character code is out of range
|
|
|
|
|
(format "\\%04X" special)
|
|
|
|
|
))))
|
1995-01-20 06:09:03 +00:00
|
|
|
|
(goto-char (point-max))
|
|
|
|
|
(insert ")")) ;insert end-string delimiter
|
1994-05-01 22:09:01 +00:00
|
|
|
|
|
Line and paragraph spacing feature. Region to cut
out when printing. Doc fix.
(ps-print-version): New version number (6.5).
(ps-line-spacing, ps-paragraph-spacing, ps-paragraph-regexp): New
vars. Line and paragraph spacing feature.
(ps-begin-cut-regexp, ps-end-cut-regexp): New vars. Region to cut
out when printing.
(ps-setup, ps-nb-pages, ps-get-page-dimensions, ps-begin-file)
(ps-get-font-size, ps-begin-job, ps-continue-line)
(ps-plot-region): Code fix.
(ps-print-prologue-2): Var eliminated.
(ps-line-spacing-internal, ps-paragraph-spacing-internal): New
internal vars.
(ps-get-size): New fun.
(ps-output-string-prim, ps-init-output-queue, ps-print-page-p)
(ps-next-line): Replace defun by defsubst.
(ps-mule-plot-string): Autoload doc fix.
(ps-mule-generate-font): New arg HEADER-P. If it is
non-nil, generate font for the header strings.
(ps-mule-prepare-font): Likewise.
(ps-mule-generate-glyphs): Likewise.
(ps-mule-string-encoding): Likewise.
(ps-mule-header-charsets): New variable.
(ps-mule-encode-header-string): New function.
(ps-mule-header-string-charsets): New function.
(ps-mule-begin-job): Check charsets in the header strings. If there
are non-ASCII and non-Latin1 charsets, prepare fonts for them.
2001-04-02 10:35:07 +00:00
|
|
|
|
(defsubst ps-init-output-queue ()
|
Fix bug: if ^L is the very first buffer character,
ps-print crashes. New feature: page selection for printing. Create
raw-text-unix coding system for XEmacs. Doc fix.
(ps-print-version): New version number (5.2.3).
(ps-plot-region): Bug fix.
(ps-setup, ps-init-output-queue, ps-output, ps-begin-job, ps-end-file)
(ps-header-sheet, ps-generate, ps-end-job): Code fix.
(ps-restore-selected-pages, ps-selected-pages, ps-print-page-p): New
funs.
(ps-selected-pages, ps-last-selected-pages, ps-first-page)
(ps-last-page): New vars.
2000-06-22 12:27:49 +00:00
|
|
|
|
(setq ps-output-head (list "")
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.2) and doc fix.
(ps-print, ps-header-lines, ps-show-n-of-n, ps-font-info-database)
(ps-font-family, ps-font-size, ps-header-font-family)
(ps-header-font-size, ps-header-title-font-size, ps-bold-faces)
(ps-italic-faces, ps-underlined-faces, ps-left-header, ps-right-header)
(ps-font, ps-font-bold, ps-font-italic, ps-font-bold-italic)
(ps-avg-char-width, ps-space-width, ps-line-height): Doc fix.
(ps-error-scale-font): New fn.
(ps-soft-lf, ps-hard-lf): Fn deleted.
(ps-get-page-dimensions, ps-set-bg, ps-face-bold-p, ps-face-italic-p)
(ps-set-color): Reindentation.
(ps-output-string-prim, ps-xemacs-face-kind-p): Internal blank lines
deleted.
(ps-set-font): Little programming improvement.
(ps-line-lengths-internal, ps-nb-pages, ps-select-font)
(ps-select-header-font): Simplify some expressions.
(ps-plot-region): Replace (- X 1) by (1- X).
(ps-generate-header): Replace (+ X 1) by (1+ X).
(ps-print-preprint, ps-plot-with-face, ps-print-ensure-fontified)
(ps-kill-emacs-check): Replace (if (and A B) C) by (and A B C).
(ps-init-output-queue, ps-gnus-article-prepare-hook, ps-jts-ps-setup):
Replace (setq a b)(setq c d) by (setq a b c d).
(ps-begin-file, ps-end-file): Replace (ps-output A)(ps-output B)
by (ps-output A B).
(ps-begin-page): Replace (ps-output A)(ps-output B) by (ps-output A B),
replace (setq a b)(setq c d) by (setq a b c d).
(ps-next-line, ps-continue-line): Replace (setq a b)(setq c d)
by (setq a b c d), and incorporates ps-soft-lf and ps-hard-lf,
respectively.
(ps-plot): Replace (setq a b)(setq c d) by (setq a b c d),
and programming improvement.
(ps-generate-postscript-with-faces): Initialization fix,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if (and A B) C) by (and A B C).
(ps-generate): Doc fix, reprogramming to set the page count,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if A nil B) by (or A B),
replace (if (and A B) C) by (and A B C).
(ps-info-mode-hook): Replace (list 'A 'B) by '(A B).
(ps-jack-setup): Replace (list) by nil.
1997-11-23 02:26:50 +00:00
|
|
|
|
ps-output-tail ps-output-head))
|
1994-05-01 22:09:01 +00:00
|
|
|
|
|
Fix bug: if ^L is the very first buffer character,
ps-print crashes. New feature: page selection for printing. Create
raw-text-unix coding system for XEmacs. Doc fix.
(ps-print-version): New version number (5.2.3).
(ps-plot-region): Bug fix.
(ps-setup, ps-init-output-queue, ps-output, ps-begin-job, ps-end-file)
(ps-header-sheet, ps-generate, ps-end-job): Code fix.
(ps-restore-selected-pages, ps-selected-pages, ps-print-page-p): New
funs.
(ps-selected-pages, ps-last-selected-pages, ps-first-page)
(ps-last-page): New vars.
2000-06-22 12:27:49 +00:00
|
|
|
|
|
|
|
|
|
(defun ps-selected-pages ()
|
|
|
|
|
(while (progn
|
|
|
|
|
(setq ps-first-page (car (car ps-selected-pages))
|
|
|
|
|
ps-last-page (cdr (car ps-selected-pages))
|
|
|
|
|
ps-selected-pages (cdr ps-selected-pages))
|
|
|
|
|
(and ps-selected-pages
|
|
|
|
|
(< ps-last-page ps-page-postscript)))))
|
|
|
|
|
|
|
|
|
|
|
Line and paragraph spacing feature. Region to cut
out when printing. Doc fix.
(ps-print-version): New version number (6.5).
(ps-line-spacing, ps-paragraph-spacing, ps-paragraph-regexp): New
vars. Line and paragraph spacing feature.
(ps-begin-cut-regexp, ps-end-cut-regexp): New vars. Region to cut
out when printing.
(ps-setup, ps-nb-pages, ps-get-page-dimensions, ps-begin-file)
(ps-get-font-size, ps-begin-job, ps-continue-line)
(ps-plot-region): Code fix.
(ps-print-prologue-2): Var eliminated.
(ps-line-spacing-internal, ps-paragraph-spacing-internal): New
internal vars.
(ps-get-size): New fun.
(ps-output-string-prim, ps-init-output-queue, ps-print-page-p)
(ps-next-line): Replace defun by defsubst.
(ps-mule-plot-string): Autoload doc fix.
(ps-mule-generate-font): New arg HEADER-P. If it is
non-nil, generate font for the header strings.
(ps-mule-prepare-font): Likewise.
(ps-mule-generate-glyphs): Likewise.
(ps-mule-string-encoding): Likewise.
(ps-mule-header-charsets): New variable.
(ps-mule-encode-header-string): New function.
(ps-mule-header-string-charsets): New function.
(ps-mule-begin-job): Check charsets in the header strings. If there
are non-ASCII and non-Latin1 charsets, prepare fonts for them.
2001-04-02 10:35:07 +00:00
|
|
|
|
(defsubst ps-print-page-p ()
|
2000-10-31 11:54:38 +00:00
|
|
|
|
(setq ps-print-page-p
|
|
|
|
|
(and (cond ((null ps-first-page))
|
|
|
|
|
((<= ps-page-postscript ps-last-page)
|
|
|
|
|
(<= ps-first-page ps-page-postscript))
|
|
|
|
|
(ps-selected-pages
|
|
|
|
|
(ps-selected-pages)
|
|
|
|
|
(and (<= ps-first-page ps-page-postscript)
|
|
|
|
|
(<= ps-page-postscript ps-last-page)))
|
|
|
|
|
(t
|
|
|
|
|
nil))
|
2000-11-02 12:04:59 +00:00
|
|
|
|
(cond ((eq ps-even-or-odd-pages 'even-page)
|
2000-10-31 11:54:38 +00:00
|
|
|
|
(= (logand ps-page-postscript 1) 0))
|
2000-11-02 12:04:59 +00:00
|
|
|
|
((eq ps-even-or-odd-pages 'odd-page)
|
2000-10-31 11:54:38 +00:00
|
|
|
|
(= (logand ps-page-postscript 1) 1))
|
|
|
|
|
(t)
|
|
|
|
|
))))
|
Fix bug: if ^L is the very first buffer character,
ps-print crashes. New feature: page selection for printing. Create
raw-text-unix coding system for XEmacs. Doc fix.
(ps-print-version): New version number (5.2.3).
(ps-plot-region): Bug fix.
(ps-setup, ps-init-output-queue, ps-output, ps-begin-job, ps-end-file)
(ps-header-sheet, ps-generate, ps-end-job): Code fix.
(ps-restore-selected-pages, ps-selected-pages, ps-print-page-p): New
funs.
(ps-selected-pages, ps-last-selected-pages, ps-first-page)
(ps-last-page): New vars.
2000-06-22 12:27:49 +00:00
|
|
|
|
|
|
|
|
|
|
Line and paragraph spacing feature. Region to cut
out when printing. Doc fix.
(ps-print-version): New version number (6.5).
(ps-line-spacing, ps-paragraph-spacing, ps-paragraph-regexp): New
vars. Line and paragraph spacing feature.
(ps-begin-cut-regexp, ps-end-cut-regexp): New vars. Region to cut
out when printing.
(ps-setup, ps-nb-pages, ps-get-page-dimensions, ps-begin-file)
(ps-get-font-size, ps-begin-job, ps-continue-line)
(ps-plot-region): Code fix.
(ps-print-prologue-2): Var eliminated.
(ps-line-spacing-internal, ps-paragraph-spacing-internal): New
internal vars.
(ps-get-size): New fun.
(ps-output-string-prim, ps-init-output-queue, ps-print-page-p)
(ps-next-line): Replace defun by defsubst.
(ps-mule-plot-string): Autoload doc fix.
(ps-mule-generate-font): New arg HEADER-P. If it is
non-nil, generate font for the header strings.
(ps-mule-prepare-font): Likewise.
(ps-mule-generate-glyphs): Likewise.
(ps-mule-string-encoding): Likewise.
(ps-mule-header-charsets): New variable.
(ps-mule-encode-header-string): New function.
(ps-mule-header-string-charsets): New function.
(ps-mule-begin-job): Check charsets in the header strings. If there
are non-ASCII and non-Latin1 charsets, prepare fonts for them.
2001-04-02 10:35:07 +00:00
|
|
|
|
(defsubst ps-print-sheet-p ()
|
2000-11-02 12:04:59 +00:00
|
|
|
|
(setq ps-print-page-p
|
|
|
|
|
(cond ((eq ps-even-or-odd-pages 'even-sheet)
|
|
|
|
|
(= (logand ps-page-sheet 1) 0))
|
|
|
|
|
((eq ps-even-or-odd-pages 'odd-sheet)
|
|
|
|
|
(= (logand ps-page-sheet 1) 1))
|
|
|
|
|
(t)
|
|
|
|
|
)))
|
|
|
|
|
|
|
|
|
|
|
1995-01-20 06:09:03 +00:00
|
|
|
|
(defun ps-output (&rest args)
|
2000-10-31 11:54:38 +00:00
|
|
|
|
(when ps-print-page-p
|
Fix bug: if ^L is the very first buffer character,
ps-print crashes. New feature: page selection for printing. Create
raw-text-unix coding system for XEmacs. Doc fix.
(ps-print-version): New version number (5.2.3).
(ps-plot-region): Bug fix.
(ps-setup, ps-init-output-queue, ps-output, ps-begin-job, ps-end-file)
(ps-header-sheet, ps-generate, ps-end-job): Code fix.
(ps-restore-selected-pages, ps-selected-pages, ps-print-page-p): New
funs.
(ps-selected-pages, ps-last-selected-pages, ps-first-page)
(ps-last-page): New vars.
2000-06-22 12:27:49 +00:00
|
|
|
|
(setcdr ps-output-tail args)
|
|
|
|
|
(while (cdr ps-output-tail)
|
|
|
|
|
(setq ps-output-tail (cdr ps-output-tail)))))
|
1994-05-01 22:09:01 +00:00
|
|
|
|
|
1995-01-20 06:09:03 +00:00
|
|
|
|
(defun ps-output-string (string)
|
|
|
|
|
(ps-output t string))
|
1994-05-01 22:09:01 +00:00
|
|
|
|
|
Multi-byte buffer handling.
(ps-print-version): New version number (4.0) and doc fix.
(ps-color-device, ps-face-bold-p, ps-face-italic-p): Conditional
compilation for GNU Emacs and emacsens.
(ps-generate-postscript-with-faces): Force invisible text to be
visible.
(dos-ps-printer): New var to avoid compilation gripes.
(ps-mule-plot-string): Pay attention to the case
that no more characters can't be printed in the current line.
(ps-mule-find-wrappoint): ENDPOS should not be greater than TO.
Add codes to make ps-print.el work also on Emacs
20.2 and the earlier version.
(ps-mule-encode-7bit, ps-mule-encode-8bit): Modified for 20.2.
(ccl-encode-ethio-unicode, ps-mule-encode-ethiopic): Likewise.
(ps-mule-find-wrappoint): Likewise.
(ps-mule-generate-font): Change `X' to `x' in format
control-string.
(ps-generate): Call ps-mule-begin before calling ps-begin-job.
(ps-mule-cmpchar-prologue): Delete unnecessary `gsave' and
`restore' form procedures `BC' and `EC'.
(ps-print-prologue-1): Handle the case that FontBBox
is an executable procedure. Make LineThickness, Xshadow, and
Yshadow relative to FontHeight. Set SpaceWidth in BeginDoc.
(ps-mule-font-info-database, ps-mule-font-info-database-ps,
ps-mule-font-info-database-bdf): New vars.
(ps-mule-encode-7bit, ps-mule-encode-8bit): New funs.
(ccl-encode-ethio-unicode): New CCL program.
(ps-mule-encode-ethiopic): New fun.
(ps-mule-current-charset): New var.
(ps-mule-get-font-spec, ps-mule-font-spec-src,
ps-mule-font-spec-name, ps-mule-font-spec-encoding,
ps-mule-font-spec-bytes, ps-mule-printable-p): New funs.
(ps-mule-external-libraries): New var.
(ps-mule-init-external-library): New fun.
(ps-mule-font-cache): New var.
(ps-mule-generate-font, ps-mule-generate-glyphs): New funs.
(ps-last-font): New var.
(ps-mule-prepare-font): New fun.
(ps-mule-charset-list): New var.
(ps-mule-prologue-generated, ps-mule-prologue): New vars.
(ps-mule-skip-same-charset, ps-mule-find-wrappoint,
ps-mule-plot-string): New funs.
(ps-mule-cmpchar-prologue-generated, ps-mule-cmpchar-prologue):
New vars.
(ps-mule-plot-rule-cmpchar, ps-mule-plot-cmpchar,
ps-mule-prepare-cmpchar-font): New funs.
(ps-mule-bitmap-prologue-generated, ps-mule-bitmap-prologue): New
vars.
(ps-mule-generate-bitmap-prologue, ps-mule-generate-bitmap-font,
ps-mule-generate-bitmap-glyph): New funs.
(ps-mule-initialize, ps-mule-begin): New funs.
(ps-output-string-prim): Insert string as unibyte.
(ps-output-prologue): New fun.
(ps-flush-output): Handle the case of 'prologue.
(ps-begin-file): Call ps-mule-initialize.
(ps-begin-job): Set ps-control-or-escape-regexp differently if
printing multibyte characters.
(ps-begin-page): Set ps-mule-current-charset to 'ascii.
(ps-basic-plot-string): Handle the case of printing ASCII
characters by external libraries (e.g. BDF).
(ps-set-font): Set ps-last-font.
(ps-plot-region): Handle multibyte characters, use
ps-mule-plot-string for them.
(ps-generate): Set the spool buffer unibyte. Call ps-mule-begin.
1998-08-24 10:19:29 +00:00
|
|
|
|
;; Output strings in the list ARGS in the PostScript prologue part.
|
|
|
|
|
(defun ps-output-prologue (args)
|
|
|
|
|
(ps-output 'prologue (if (stringp args) (list args) args)))
|
|
|
|
|
|
1995-01-20 06:09:03 +00:00
|
|
|
|
(defun ps-flush-output ()
|
|
|
|
|
(save-excursion
|
|
|
|
|
(set-buffer ps-spool-buffer)
|
|
|
|
|
(goto-char (point-max))
|
|
|
|
|
(while ps-output-head
|
|
|
|
|
(let ((it (car ps-output-head)))
|
Multi-byte buffer handling.
(ps-print-version): New version number (4.0) and doc fix.
(ps-color-device, ps-face-bold-p, ps-face-italic-p): Conditional
compilation for GNU Emacs and emacsens.
(ps-generate-postscript-with-faces): Force invisible text to be
visible.
(dos-ps-printer): New var to avoid compilation gripes.
(ps-mule-plot-string): Pay attention to the case
that no more characters can't be printed in the current line.
(ps-mule-find-wrappoint): ENDPOS should not be greater than TO.
Add codes to make ps-print.el work also on Emacs
20.2 and the earlier version.
(ps-mule-encode-7bit, ps-mule-encode-8bit): Modified for 20.2.
(ccl-encode-ethio-unicode, ps-mule-encode-ethiopic): Likewise.
(ps-mule-find-wrappoint): Likewise.
(ps-mule-generate-font): Change `X' to `x' in format
control-string.
(ps-generate): Call ps-mule-begin before calling ps-begin-job.
(ps-mule-cmpchar-prologue): Delete unnecessary `gsave' and
`restore' form procedures `BC' and `EC'.
(ps-print-prologue-1): Handle the case that FontBBox
is an executable procedure. Make LineThickness, Xshadow, and
Yshadow relative to FontHeight. Set SpaceWidth in BeginDoc.
(ps-mule-font-info-database, ps-mule-font-info-database-ps,
ps-mule-font-info-database-bdf): New vars.
(ps-mule-encode-7bit, ps-mule-encode-8bit): New funs.
(ccl-encode-ethio-unicode): New CCL program.
(ps-mule-encode-ethiopic): New fun.
(ps-mule-current-charset): New var.
(ps-mule-get-font-spec, ps-mule-font-spec-src,
ps-mule-font-spec-name, ps-mule-font-spec-encoding,
ps-mule-font-spec-bytes, ps-mule-printable-p): New funs.
(ps-mule-external-libraries): New var.
(ps-mule-init-external-library): New fun.
(ps-mule-font-cache): New var.
(ps-mule-generate-font, ps-mule-generate-glyphs): New funs.
(ps-last-font): New var.
(ps-mule-prepare-font): New fun.
(ps-mule-charset-list): New var.
(ps-mule-prologue-generated, ps-mule-prologue): New vars.
(ps-mule-skip-same-charset, ps-mule-find-wrappoint,
ps-mule-plot-string): New funs.
(ps-mule-cmpchar-prologue-generated, ps-mule-cmpchar-prologue):
New vars.
(ps-mule-plot-rule-cmpchar, ps-mule-plot-cmpchar,
ps-mule-prepare-cmpchar-font): New funs.
(ps-mule-bitmap-prologue-generated, ps-mule-bitmap-prologue): New
vars.
(ps-mule-generate-bitmap-prologue, ps-mule-generate-bitmap-font,
ps-mule-generate-bitmap-glyph): New funs.
(ps-mule-initialize, ps-mule-begin): New funs.
(ps-output-string-prim): Insert string as unibyte.
(ps-output-prologue): New fun.
(ps-flush-output): Handle the case of 'prologue.
(ps-begin-file): Call ps-mule-initialize.
(ps-begin-job): Set ps-control-or-escape-regexp differently if
printing multibyte characters.
(ps-begin-page): Set ps-mule-current-charset to 'ascii.
(ps-basic-plot-string): Handle the case of printing ASCII
characters by external libraries (e.g. BDF).
(ps-set-font): Set ps-last-font.
(ps-plot-region): Handle multibyte characters, use
ps-mule-plot-string for them.
(ps-generate): Set the spool buffer unibyte. Call ps-mule-begin.
1998-08-24 10:19:29 +00:00
|
|
|
|
(cond
|
|
|
|
|
((eq t it)
|
|
|
|
|
(setq ps-output-head (cdr ps-output-head))
|
|
|
|
|
(ps-output-string-prim (car ps-output-head)))
|
|
|
|
|
((eq 'prologue it)
|
1995-01-20 06:09:03 +00:00
|
|
|
|
(setq ps-output-head (cdr ps-output-head))
|
Multi-byte buffer handling.
(ps-print-version): New version number (4.0) and doc fix.
(ps-color-device, ps-face-bold-p, ps-face-italic-p): Conditional
compilation for GNU Emacs and emacsens.
(ps-generate-postscript-with-faces): Force invisible text to be
visible.
(dos-ps-printer): New var to avoid compilation gripes.
(ps-mule-plot-string): Pay attention to the case
that no more characters can't be printed in the current line.
(ps-mule-find-wrappoint): ENDPOS should not be greater than TO.
Add codes to make ps-print.el work also on Emacs
20.2 and the earlier version.
(ps-mule-encode-7bit, ps-mule-encode-8bit): Modified for 20.2.
(ccl-encode-ethio-unicode, ps-mule-encode-ethiopic): Likewise.
(ps-mule-find-wrappoint): Likewise.
(ps-mule-generate-font): Change `X' to `x' in format
control-string.
(ps-generate): Call ps-mule-begin before calling ps-begin-job.
(ps-mule-cmpchar-prologue): Delete unnecessary `gsave' and
`restore' form procedures `BC' and `EC'.
(ps-print-prologue-1): Handle the case that FontBBox
is an executable procedure. Make LineThickness, Xshadow, and
Yshadow relative to FontHeight. Set SpaceWidth in BeginDoc.
(ps-mule-font-info-database, ps-mule-font-info-database-ps,
ps-mule-font-info-database-bdf): New vars.
(ps-mule-encode-7bit, ps-mule-encode-8bit): New funs.
(ccl-encode-ethio-unicode): New CCL program.
(ps-mule-encode-ethiopic): New fun.
(ps-mule-current-charset): New var.
(ps-mule-get-font-spec, ps-mule-font-spec-src,
ps-mule-font-spec-name, ps-mule-font-spec-encoding,
ps-mule-font-spec-bytes, ps-mule-printable-p): New funs.
(ps-mule-external-libraries): New var.
(ps-mule-init-external-library): New fun.
(ps-mule-font-cache): New var.
(ps-mule-generate-font, ps-mule-generate-glyphs): New funs.
(ps-last-font): New var.
(ps-mule-prepare-font): New fun.
(ps-mule-charset-list): New var.
(ps-mule-prologue-generated, ps-mule-prologue): New vars.
(ps-mule-skip-same-charset, ps-mule-find-wrappoint,
ps-mule-plot-string): New funs.
(ps-mule-cmpchar-prologue-generated, ps-mule-cmpchar-prologue):
New vars.
(ps-mule-plot-rule-cmpchar, ps-mule-plot-cmpchar,
ps-mule-prepare-cmpchar-font): New funs.
(ps-mule-bitmap-prologue-generated, ps-mule-bitmap-prologue): New
vars.
(ps-mule-generate-bitmap-prologue, ps-mule-generate-bitmap-font,
ps-mule-generate-bitmap-glyph): New funs.
(ps-mule-initialize, ps-mule-begin): New funs.
(ps-output-string-prim): Insert string as unibyte.
(ps-output-prologue): New fun.
(ps-flush-output): Handle the case of 'prologue.
(ps-begin-file): Call ps-mule-initialize.
(ps-begin-job): Set ps-control-or-escape-regexp differently if
printing multibyte characters.
(ps-begin-page): Set ps-mule-current-charset to 'ascii.
(ps-basic-plot-string): Handle the case of printing ASCII
characters by external libraries (e.g. BDF).
(ps-set-font): Set ps-last-font.
(ps-plot-region): Handle multibyte characters, use
ps-mule-plot-string for them.
(ps-generate): Set the spool buffer unibyte. Call ps-mule-begin.
1998-08-24 10:19:29 +00:00
|
|
|
|
(save-excursion
|
|
|
|
|
(search-backward "\nBeginDoc")
|
|
|
|
|
(forward-char 1)
|
|
|
|
|
(apply 'insert (car ps-output-head))))
|
|
|
|
|
(t
|
|
|
|
|
(insert it))))
|
1995-01-20 06:09:03 +00:00
|
|
|
|
(setq ps-output-head (cdr ps-output-head))))
|
|
|
|
|
(ps-init-output-queue))
|
|
|
|
|
|
|
|
|
|
(defun ps-insert-file (fname)
|
|
|
|
|
(ps-flush-output)
|
|
|
|
|
(save-excursion
|
|
|
|
|
(set-buffer ps-spool-buffer)
|
|
|
|
|
(goto-char (point-max))
|
2004-11-21 22:30:00 +00:00
|
|
|
|
(insert-file-contents fname)))
|
1997-09-11 23:51:29 +00:00
|
|
|
|
|
2003-05-15 02:32:03 +00:00
|
|
|
|
;; These functions are used in `ps-mule' to get charset of header and footer.
|
|
|
|
|
;; To avoid unnecessary calls to functions in `ps-left-header',
|
|
|
|
|
;; `ps-right-header', `ps-left-footer' and `ps-right-footer'.
|
|
|
|
|
|
|
|
|
|
(defun ps-generate-string-list (content)
|
|
|
|
|
(let (str)
|
|
|
|
|
(while content
|
|
|
|
|
(setq str (cons (cond
|
2004-07-23 01:16:06 +00:00
|
|
|
|
;; string
|
2003-05-15 02:32:03 +00:00
|
|
|
|
((stringp (car content))
|
|
|
|
|
(car content))
|
2004-07-23 01:16:06 +00:00
|
|
|
|
;; function symbol
|
2005-03-19 04:11:54 +00:00
|
|
|
|
((functionp (car content))
|
2003-05-15 02:32:03 +00:00
|
|
|
|
(concat "(" (funcall (car content)) ")"))
|
2004-07-23 01:16:06 +00:00
|
|
|
|
;; variable symbol
|
2003-05-15 02:32:03 +00:00
|
|
|
|
((and (symbolp (car content)) (boundp (car content)))
|
|
|
|
|
(concat "(" (symbol-value (car content)) ")"))
|
2004-07-23 01:16:06 +00:00
|
|
|
|
;; otherwise, empty string
|
2003-05-15 02:32:03 +00:00
|
|
|
|
(t
|
|
|
|
|
""))
|
|
|
|
|
str)
|
|
|
|
|
content (cdr content)))
|
|
|
|
|
(nreverse str)))
|
|
|
|
|
|
|
|
|
|
(defvar ps-lh-cache nil)
|
|
|
|
|
(defvar ps-rh-cache nil)
|
|
|
|
|
(defvar ps-lf-cache nil)
|
|
|
|
|
(defvar ps-rf-cache nil)
|
|
|
|
|
|
|
|
|
|
(defun ps-header-footer-string ()
|
|
|
|
|
(and ps-print-header
|
|
|
|
|
(setq ps-lh-cache (ps-generate-string-list ps-left-header)
|
|
|
|
|
ps-rh-cache (ps-generate-string-list ps-right-header)))
|
|
|
|
|
(and ps-print-footer
|
|
|
|
|
(setq ps-lf-cache (ps-generate-string-list ps-left-footer)
|
|
|
|
|
ps-rf-cache (ps-generate-string-list ps-right-footer)))
|
2005-02-22 06:18:38 +00:00
|
|
|
|
(append ps-lh-cache ps-rh-cache ps-lf-cache ps-rf-cache))
|
2003-05-15 02:32:03 +00:00
|
|
|
|
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; These functions insert the arrays that define the contents of the headers.
|
1994-05-01 22:09:01 +00:00
|
|
|
|
|
1995-01-20 06:09:03 +00:00
|
|
|
|
(defun ps-generate-header-line (fonttag &optional content)
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
(ps-output " [" fonttag " ")
|
1995-01-20 06:09:03 +00:00
|
|
|
|
(cond
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; Literal strings should be output as is -- the string must contain its own
|
|
|
|
|
;; PS string delimiters, '(' and ')', if necessary.
|
1995-01-20 06:09:03 +00:00
|
|
|
|
((stringp content)
|
Line and paragraph spacing feature. Region to cut
out when printing. Doc fix.
(ps-print-version): New version number (6.5).
(ps-line-spacing, ps-paragraph-spacing, ps-paragraph-regexp): New
vars. Line and paragraph spacing feature.
(ps-begin-cut-regexp, ps-end-cut-regexp): New vars. Region to cut
out when printing.
(ps-setup, ps-nb-pages, ps-get-page-dimensions, ps-begin-file)
(ps-get-font-size, ps-begin-job, ps-continue-line)
(ps-plot-region): Code fix.
(ps-print-prologue-2): Var eliminated.
(ps-line-spacing-internal, ps-paragraph-spacing-internal): New
internal vars.
(ps-get-size): New fun.
(ps-output-string-prim, ps-init-output-queue, ps-print-page-p)
(ps-next-line): Replace defun by defsubst.
(ps-mule-plot-string): Autoload doc fix.
(ps-mule-generate-font): New arg HEADER-P. If it is
non-nil, generate font for the header strings.
(ps-mule-prepare-font): Likewise.
(ps-mule-generate-glyphs): Likewise.
(ps-mule-string-encoding): Likewise.
(ps-mule-header-charsets): New variable.
(ps-mule-encode-header-string): New function.
(ps-mule-header-string-charsets): New function.
(ps-mule-begin-job): Check charsets in the header strings. If there
are non-ASCII and non-Latin1 charsets, prepare fonts for them.
2001-04-02 10:35:07 +00:00
|
|
|
|
(ps-output (ps-mule-encode-header-string content fonttag)))
|
1995-01-20 06:09:03 +00:00
|
|
|
|
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; Functions are called -- they should return strings; they will be inserted
|
|
|
|
|
;; as strings and the PS string delimiters added.
|
2005-03-19 04:11:54 +00:00
|
|
|
|
((functionp content)
|
Line and paragraph spacing feature. Region to cut
out when printing. Doc fix.
(ps-print-version): New version number (6.5).
(ps-line-spacing, ps-paragraph-spacing, ps-paragraph-regexp): New
vars. Line and paragraph spacing feature.
(ps-begin-cut-regexp, ps-end-cut-regexp): New vars. Region to cut
out when printing.
(ps-setup, ps-nb-pages, ps-get-page-dimensions, ps-begin-file)
(ps-get-font-size, ps-begin-job, ps-continue-line)
(ps-plot-region): Code fix.
(ps-print-prologue-2): Var eliminated.
(ps-line-spacing-internal, ps-paragraph-spacing-internal): New
internal vars.
(ps-get-size): New fun.
(ps-output-string-prim, ps-init-output-queue, ps-print-page-p)
(ps-next-line): Replace defun by defsubst.
(ps-mule-plot-string): Autoload doc fix.
(ps-mule-generate-font): New arg HEADER-P. If it is
non-nil, generate font for the header strings.
(ps-mule-prepare-font): Likewise.
(ps-mule-generate-glyphs): Likewise.
(ps-mule-string-encoding): Likewise.
(ps-mule-header-charsets): New variable.
(ps-mule-encode-header-string): New function.
(ps-mule-header-string-charsets): New function.
(ps-mule-begin-job): Check charsets in the header strings. If there
are non-ASCII and non-Latin1 charsets, prepare fonts for them.
2001-04-02 10:35:07 +00:00
|
|
|
|
(ps-output-string (ps-mule-encode-header-string (funcall content)
|
|
|
|
|
fonttag)))
|
1995-01-20 06:09:03 +00:00
|
|
|
|
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
;; Variables will have their contents inserted. They should contain
|
|
|
|
|
;; strings, and will be inserted as strings.
|
1995-01-20 06:09:03 +00:00
|
|
|
|
((and (symbolp content) (boundp content))
|
Line and paragraph spacing feature. Region to cut
out when printing. Doc fix.
(ps-print-version): New version number (6.5).
(ps-line-spacing, ps-paragraph-spacing, ps-paragraph-regexp): New
vars. Line and paragraph spacing feature.
(ps-begin-cut-regexp, ps-end-cut-regexp): New vars. Region to cut
out when printing.
(ps-setup, ps-nb-pages, ps-get-page-dimensions, ps-begin-file)
(ps-get-font-size, ps-begin-job, ps-continue-line)
(ps-plot-region): Code fix.
(ps-print-prologue-2): Var eliminated.
(ps-line-spacing-internal, ps-paragraph-spacing-internal): New
internal vars.
(ps-get-size): New fun.
(ps-output-string-prim, ps-init-output-queue, ps-print-page-p)
(ps-next-line): Replace defun by defsubst.
(ps-mule-plot-string): Autoload doc fix.
(ps-mule-generate-font): New arg HEADER-P. If it is
non-nil, generate font for the header strings.
(ps-mule-prepare-font): Likewise.
(ps-mule-generate-glyphs): Likewise.
(ps-mule-string-encoding): Likewise.
(ps-mule-header-charsets): New variable.
(ps-mule-encode-header-string): New function.
(ps-mule-header-string-charsets): New function.
(ps-mule-begin-job): Check charsets in the header strings. If there
are non-ASCII and non-Latin1 charsets, prepare fonts for them.
2001-04-02 10:35:07 +00:00
|
|
|
|
(ps-output-string (ps-mule-encode-header-string (symbol-value content)
|
|
|
|
|
fonttag)))
|
1995-01-20 06:09:03 +00:00
|
|
|
|
|
|
|
|
|
;; Anything else will get turned into an empty string.
|
|
|
|
|
(t
|
|
|
|
|
(ps-output-string "")))
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
(ps-output "]\n"))
|
1995-01-20 06:09:03 +00:00
|
|
|
|
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
(defun ps-generate-header (name fonttag0 fonttag1 contents)
|
|
|
|
|
(ps-output "/" name "[\n")
|
|
|
|
|
(and contents (> ps-header-lines 0)
|
|
|
|
|
(let ((count 1))
|
|
|
|
|
(ps-generate-header-line fonttag0 (car contents))
|
|
|
|
|
(while (and (< count ps-header-lines)
|
|
|
|
|
(setq contents (cdr contents)))
|
|
|
|
|
(ps-generate-header-line fonttag1 (car contents))
|
|
|
|
|
(setq count (1+ count)))))
|
|
|
|
|
(ps-output "]def\n"))
|
1995-01-20 06:09:03 +00:00
|
|
|
|
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
|
PostScript programming fix for ghostview, doc fix.
(ps-print-version): New version number (5.1.3).
(ps-begin-file, ps-begin-job, ps-set-color, ps-do-despool, ps-setup)
(ps-insert-file, ps-output-boolean, ps-plot-with-face)
(ps-generate-postscript-with-faces): Code fix.
(ps-color-values): XEmacs compatibility.
(ps-print-background-image, ps-print-background-text, ps-printer-name)
(ps-default-fg, ps-default-bg): Adjust customization.
(ps-zebra-color): Adjust customization, renaming old ps-zebra-gray var.
(ps-color-scale): Renaming old ps-color-value fun.
(ps-print-headers): Replace ps-print-header group to avoid conflict
with ps-print-header variable.
(ps-print-miscellany): New group.
(ps-format-color, ps-rgb-color): New funs.
(ps-default-foreground): New var.
(ps-printer-name-option): New const.
2000-03-30 13:21:45 +00:00
|
|
|
|
(defun ps-output-boolean (name bool)
|
|
|
|
|
(ps-output (format "/%s %s def\n" name (if bool "true" "false"))))
|
1994-05-01 22:09:01 +00:00
|
|
|
|
|
1997-09-11 23:51:29 +00:00
|
|
|
|
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
(defun ps-output-frame-properties (name alist)
|
|
|
|
|
(ps-output "/" name " ["
|
2001-04-26 09:30:00 +00:00
|
|
|
|
(ps-format-color (cdr (assq 'fore-color alist)) 0.0)
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
(ps-format-color (cdr (assq 'back-color alist)) 0.9)
|
|
|
|
|
(ps-float-format (or (cdr (assq 'border-width alist)) 0.4))
|
2001-04-26 09:30:00 +00:00
|
|
|
|
(ps-format-color (cdr (assq 'border-color alist)) 0.0)
|
|
|
|
|
(ps-format-color (cdr (assq 'shadow-color alist)) 0.0)
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
"]def\n"))
|
|
|
|
|
|
|
|
|
|
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
(defun ps-background-pages (page-list func)
|
|
|
|
|
(if page-list
|
|
|
|
|
(mapcar
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
#'(lambda (pages)
|
|
|
|
|
(let ((start (if (consp pages) (car pages) pages))
|
|
|
|
|
(end (if (consp pages) (cdr pages) pages)))
|
|
|
|
|
(and (integerp start) (integerp end) (<= start end)
|
|
|
|
|
(add-to-list 'ps-background-pages (vector start end func)))))
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
page-list)
|
|
|
|
|
(setq ps-background-all-pages (cons func ps-background-all-pages))))
|
|
|
|
|
|
|
|
|
|
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
(defconst ps-boundingbox-re
|
|
|
|
|
"^%%BoundingBox:\
|
|
|
|
|
\\s-+\\([0-9.]+\\)\\s-+\\([0-9.]+\\)\\s-+\\([0-9.]+\\)\\s-+\\([0-9.]+\\)")
|
|
|
|
|
|
|
|
|
|
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
(defun ps-get-boundingbox ()
|
|
|
|
|
(save-excursion
|
|
|
|
|
(set-buffer ps-spool-buffer)
|
|
|
|
|
(save-excursion
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
(if (re-search-forward ps-boundingbox-re nil t)
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
(vector (string-to-number ; lower x
|
|
|
|
|
(buffer-substring (match-beginning 1) (match-end 1)))
|
|
|
|
|
(string-to-number ; lower y
|
|
|
|
|
(buffer-substring (match-beginning 2) (match-end 2)))
|
|
|
|
|
(string-to-number ; upper x
|
|
|
|
|
(buffer-substring (match-beginning 3) (match-end 3)))
|
|
|
|
|
(string-to-number ; upper y
|
|
|
|
|
(buffer-substring (match-beginning 4) (match-end 4))))
|
|
|
|
|
(vector 0 0 0 0)))))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;; Emacs understands the %f format; we'll use it to limit color RGB values
|
|
|
|
|
;; to three decimals to cut down some on the size of the PostScript output.
|
2002-09-29 03:30:41 +00:00
|
|
|
|
;; XEmacs will have to make do with %s (princ) for floats.
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
|
2004-11-21 22:30:00 +00:00
|
|
|
|
(defvar ps-float-format (if (featurep 'xemacs)
|
|
|
|
|
"%s " ; xemacs
|
|
|
|
|
"%0.3f ")) ; emacs
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(defun ps-float-format (value &optional default)
|
|
|
|
|
(let ((literal (or value default)))
|
2001-04-26 09:30:00 +00:00
|
|
|
|
(cond ((null literal)
|
|
|
|
|
" ")
|
|
|
|
|
((numberp literal)
|
|
|
|
|
(format ps-float-format (* literal 1.0))) ; force float number
|
|
|
|
|
(t
|
|
|
|
|
(format "%s " literal))
|
|
|
|
|
)))
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(defun ps-background-text ()
|
|
|
|
|
(mapcar
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
#'(lambda (text)
|
|
|
|
|
(setq ps-background-text-count (1+ ps-background-text-count))
|
2000-08-29 10:51:52 +00:00
|
|
|
|
(ps-output (format "/ShowBackText-%d{\n" ps-background-text-count))
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
(ps-output-string (nth 0 text)) ; text
|
|
|
|
|
(ps-output
|
|
|
|
|
"\n"
|
|
|
|
|
(ps-float-format (nth 4 text) 200.0) ; font size
|
|
|
|
|
(format "/%s " (or (nth 3 text) "Times-Roman")) ; font name
|
|
|
|
|
(ps-float-format (nth 6 text)
|
|
|
|
|
"PrintHeight PrintPageWidth atan") ; rotation
|
|
|
|
|
(ps-float-format (nth 5 text) 0.85) ; gray
|
|
|
|
|
(ps-float-format (nth 1 text) "0") ; x position
|
XEmacs compatibility. Doc fix. Can select page size
with/without giving an error if PostScript printer doesn't have this
kind of page size. Zebra Stripe continues or restarts on next page.
Manual/automatic paper feeding. Switch or not the header.
(ps-print-version): New version number (5.2.2).
(ps-windows-system): Include emx as a Windows system.
(ps-setup, ps-begin-file, ps-color-values, ps-screen-to-bit-face)
(ps-generate-postscript-with-faces, ps-generate-postscript-with-faces)
(ps-background-text): Code fix.
(ps-error-handler-message, ps-user-defined-prologue)
(ps-print-prologue-header, ps-printer-name)
(ps-print-control-characters, ps-n-up-filling, ps-zebra-color)
(ps-line-number-step, ps-spool-config, ps-default-fg, ps-default-bg)
(ps-use-face-background): Customization fix.
(ps-n-up-database): Data fix.
(ps-warn-paper-type, ps-zebra-stripe-follow, ps-manual-feed)
(ps-switch-header): New vars.
(ps-xemacs-color-name, ps-face-foreground-name)
(ps-face-background-name, ps-boolean-constant): New funs.
2000-06-07 15:34:55 +00:00
|
|
|
|
(ps-float-format (nth 2 text) "0") ; y position
|
2000-08-29 10:51:52 +00:00
|
|
|
|
"\nShowBackText}def\n")
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
(ps-background-pages (nthcdr 7 text) ; page list
|
|
|
|
|
(format "ShowBackText-%d\n"
|
|
|
|
|
ps-background-text-count)))
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
ps-print-background-text))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(defun ps-background-image ()
|
|
|
|
|
(mapcar
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
#'(lambda (image)
|
|
|
|
|
(let ((image-file (expand-file-name (nth 0 image))))
|
2000-01-05 08:11:30 +00:00
|
|
|
|
(when (file-readable-p image-file)
|
|
|
|
|
(setq ps-background-image-count (1+ ps-background-image-count))
|
|
|
|
|
(ps-output
|
2000-08-29 10:51:52 +00:00
|
|
|
|
(format "/ShowBackImage-%d{\n--back-- "
|
2000-01-05 08:11:30 +00:00
|
|
|
|
ps-background-image-count)
|
|
|
|
|
(ps-float-format (nth 5 image) 0.0) ; rotation
|
|
|
|
|
(ps-float-format (nth 3 image) 1.0) ; x scale
|
|
|
|
|
(ps-float-format (nth 4 image) 1.0) ; y scale
|
|
|
|
|
(ps-float-format (nth 1 image) ; x position
|
|
|
|
|
"PrintPageWidth 2 div")
|
|
|
|
|
(ps-float-format (nth 2 image) ; y position
|
|
|
|
|
"PrintHeight 2 div BottomMargin add")
|
|
|
|
|
"\nBeginBackImage\n")
|
|
|
|
|
(ps-insert-file image-file)
|
|
|
|
|
;; coordinate adjustment to centralize image
|
|
|
|
|
;; around x and y position
|
|
|
|
|
(let ((box (ps-get-boundingbox)))
|
|
|
|
|
(save-excursion
|
|
|
|
|
(set-buffer ps-spool-buffer)
|
|
|
|
|
(save-excursion
|
|
|
|
|
(if (re-search-backward "^--back--" nil t)
|
|
|
|
|
(replace-match
|
|
|
|
|
(format "%s %s"
|
|
|
|
|
(ps-float-format
|
|
|
|
|
(- (+ (/ (- (aref box 2) (aref box 0)) 2.0)
|
|
|
|
|
(aref box 0))))
|
|
|
|
|
(ps-float-format
|
|
|
|
|
(- (+ (/ (- (aref box 3) (aref box 1)) 2.0)
|
|
|
|
|
(aref box 1)))))
|
|
|
|
|
t)))))
|
2000-08-29 10:51:52 +00:00
|
|
|
|
(ps-output "\nEndBackImage}def\n")
|
2000-01-05 08:11:30 +00:00
|
|
|
|
(ps-background-pages (nthcdr 6 image) ; page list
|
|
|
|
|
(format "ShowBackImage-%d\n"
|
|
|
|
|
ps-background-image-count)))))
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
ps-print-background-image))
|
|
|
|
|
|
|
|
|
|
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.1).
(ps-adobe-tag): Replace defvar by defcustom, and doc fix.
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): Add arg REGION-P.
(ps-print-region-with-faces, ps-print-region)
(ps-spool-region, ps-spool-region-with-faces): Fix calls to
the functions above.
(ps-setup): Print value of ps-zebra-stripe, ps-number-of-zebra,
ps-line-number, ps-print-background-image,
and ps-print-background-text.
(ps-print-prologue-1): Bug fix in PostScript programming:
/BeginDSCPage, /BeginPage.
(ps-showpage-count, ps-ref-bold-faces, ps-ref-italic-faces)
(ps-ref-underlined-faces, font-lock-face-attributes)
(ps-initialize-faces): Vars deleted.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-initialize-faces, ps-header-height)
(ps-hard-lf, ps-soft-lf, ps-get-face, ps-map-font-lock): Fn deleted.
(ps-extend-face-list, ps-extend-face): Doc fix.
(ps-print-face-alist): New var to handle face alist.
(ps-printing-region): New var and fn.
(ps-header-page, ps-set-face-bold, ps-set-face-italic)
(ps-set-face-underline, ps-set-face-attribute, ps-map-face): New fn.
(ps-rmail-mode-hook, ps-rmail-print-message-from-summary)
(ps-print-message-from-summary, ps-vm-print-message-from-summary):
Fns moved.
(ps-background): New argument PAGE-NUMBER.
(ps-begin-file): Bug fix and print proper line number in a region.
(ps-begin-page): Call ps-header-page.
(ps-get-buffer-name): Indicates in the header when printing a region.
(ps-end-page): Delete ps-showpage-count.
(ps-dummy-page): Calls ps-header-page.
(ps-set-color): Programming improvement.
(ps-plot-region): Doc fix.
(ps-face-attributes): Same functionality as deleted ps-get-face.
(ps-build-reference-face-lists): Do the job by calling
ps-set-face-bold and ps-bold-faces, and friends.
1997-09-06 02:52:00 +00:00
|
|
|
|
(defun ps-background (page-number)
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
(let (has-local-background)
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
(mapcar #'(lambda (range)
|
|
|
|
|
(and (<= (aref range 0) page-number)
|
|
|
|
|
(<= page-number (aref range 1))
|
|
|
|
|
(if has-local-background
|
|
|
|
|
(ps-output (aref range 2))
|
|
|
|
|
(setq has-local-background t)
|
2000-08-29 10:51:52 +00:00
|
|
|
|
(ps-output "/printLocalBackground{\n"
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
(aref range 2)))))
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
ps-background-pages)
|
2000-08-29 10:51:52 +00:00
|
|
|
|
(and has-local-background (ps-output "}def\n"))))
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
|
|
|
|
|
|
1998-04-28 13:50:24 +00:00
|
|
|
|
;; Return a list of the distinct elements of LIST.
|
|
|
|
|
;; Elements are compared with `equal'.
|
|
|
|
|
(defun ps-remove-duplicates (list)
|
|
|
|
|
(let (new (tail list))
|
|
|
|
|
(while tail
|
|
|
|
|
(or (member (car tail) new)
|
|
|
|
|
(setq new (cons (car tail) new)))
|
|
|
|
|
(setq tail (cdr tail)))
|
|
|
|
|
(nreverse new)))
|
|
|
|
|
|
1998-09-23 22:11:56 +00:00
|
|
|
|
|
1998-05-06 04:06:30 +00:00
|
|
|
|
;; Find the first occurrence of ITEM in LIST.
|
|
|
|
|
;; Return the index of the matching item, or nil if not found.
|
|
|
|
|
;; Elements are compared with `eq'.
|
1998-05-08 22:26:43 +00:00
|
|
|
|
(defun ps-alist-position (item list)
|
1998-05-06 04:06:30 +00:00
|
|
|
|
(let ((tail list) (index 0) found)
|
|
|
|
|
(while tail
|
1998-05-08 22:26:43 +00:00
|
|
|
|
(if (setq found (eq (car (car tail)) item))
|
1998-05-06 04:06:30 +00:00
|
|
|
|
(setq tail nil)
|
|
|
|
|
(setq index (1+ index)
|
|
|
|
|
tail (cdr tail))))
|
|
|
|
|
(and found index)))
|
|
|
|
|
|
|
|
|
|
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
(defconst ps-n-up-database
|
|
|
|
|
'((a4
|
|
|
|
|
(1 nil 1 1 0)
|
|
|
|
|
(2 t 1 2 0)
|
|
|
|
|
(4 nil 2 2 0)
|
|
|
|
|
(6 t 2 3 1)
|
|
|
|
|
(8 t 2 4 0)
|
|
|
|
|
(9 nil 3 3 0)
|
|
|
|
|
(12 t 3 4 2)
|
|
|
|
|
(16 nil 4 4 0)
|
|
|
|
|
(18 t 3 6 0)
|
|
|
|
|
(20 nil 5 4 1)
|
|
|
|
|
(25 nil 5 5 0)
|
|
|
|
|
(30 nil 6 5 1)
|
|
|
|
|
(32 t 4 8 0)
|
|
|
|
|
(36 nil 6 6 0)
|
|
|
|
|
(42 nil 7 6 1)
|
|
|
|
|
(49 nil 7 7 0)
|
|
|
|
|
(50 t 5 10 0)
|
|
|
|
|
(56 nil 8 7 1)
|
|
|
|
|
(64 nil 8 8 0)
|
|
|
|
|
(72 nil 9 8 1)
|
|
|
|
|
(81 nil 9 9 0)
|
|
|
|
|
(90 nil 10 9 1)
|
|
|
|
|
(100 nil 10 10 0))
|
|
|
|
|
(a3
|
|
|
|
|
(1 nil 1 1 0)
|
|
|
|
|
(2 t 1 2 0)
|
|
|
|
|
(4 nil 2 2 0)
|
|
|
|
|
(6 t 2 3 1)
|
|
|
|
|
(8 t 2 4 0)
|
|
|
|
|
(9 nil 3 3 0)
|
|
|
|
|
(12 nil 4 3 1)
|
|
|
|
|
(16 nil 4 4 0)
|
|
|
|
|
(18 t 3 6 0)
|
|
|
|
|
(20 nil 5 4 1)
|
|
|
|
|
(25 nil 5 5 0)
|
|
|
|
|
(30 nil 6 5 1)
|
|
|
|
|
(32 t 4 8 0)
|
|
|
|
|
(36 nil 6 6 0)
|
|
|
|
|
(42 nil 7 6 1)
|
|
|
|
|
(49 nil 7 7 0)
|
|
|
|
|
(50 t 5 10 0)
|
|
|
|
|
(56 nil 8 7 1)
|
|
|
|
|
(64 nil 8 8 0)
|
|
|
|
|
(72 nil 9 8 1)
|
|
|
|
|
(81 nil 9 9 0)
|
|
|
|
|
(90 nil 10 9 1)
|
|
|
|
|
(100 nil 10 10 0))
|
|
|
|
|
(letter
|
|
|
|
|
(1 nil 1 1 0)
|
XEmacs compatibility. Doc fix. Can select page size
with/without giving an error if PostScript printer doesn't have this
kind of page size. Zebra Stripe continues or restarts on next page.
Manual/automatic paper feeding. Switch or not the header.
(ps-print-version): New version number (5.2.2).
(ps-windows-system): Include emx as a Windows system.
(ps-setup, ps-begin-file, ps-color-values, ps-screen-to-bit-face)
(ps-generate-postscript-with-faces, ps-generate-postscript-with-faces)
(ps-background-text): Code fix.
(ps-error-handler-message, ps-user-defined-prologue)
(ps-print-prologue-header, ps-printer-name)
(ps-print-control-characters, ps-n-up-filling, ps-zebra-color)
(ps-line-number-step, ps-spool-config, ps-default-fg, ps-default-bg)
(ps-use-face-background): Customization fix.
(ps-n-up-database): Data fix.
(ps-warn-paper-type, ps-zebra-stripe-follow, ps-manual-feed)
(ps-switch-header): New vars.
(ps-xemacs-color-name, ps-face-foreground-name)
(ps-face-background-name, ps-boolean-constant): New funs.
2000-06-07 15:34:55 +00:00
|
|
|
|
(2 t 1 2 0) ; adjusted by PostScript code
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
(4 nil 2 2 0)
|
|
|
|
|
(6 t 2 3 0)
|
|
|
|
|
(9 nil 3 3 0)
|
|
|
|
|
(12 nil 4 3 1)
|
|
|
|
|
(16 nil 4 4 0)
|
|
|
|
|
(20 nil 5 4 1)
|
|
|
|
|
(25 nil 5 5 0)
|
|
|
|
|
(30 nil 6 5 1)
|
|
|
|
|
(36 nil 6 6 0)
|
|
|
|
|
(40 t 5 8 0)
|
|
|
|
|
(42 nil 7 6 1)
|
|
|
|
|
(49 nil 7 7 0)
|
|
|
|
|
(56 nil 8 7 1)
|
|
|
|
|
(64 nil 8 8 0)
|
|
|
|
|
(72 nil 9 8 1)
|
|
|
|
|
(81 nil 9 9 0)
|
|
|
|
|
(90 nil 10 9 1)
|
|
|
|
|
(100 nil 10 10 0))
|
|
|
|
|
(legal
|
|
|
|
|
(1 nil 1 1 0)
|
|
|
|
|
(2 t 1 2 0)
|
|
|
|
|
(4 nil 2 2 0)
|
|
|
|
|
(6 nil 3 2 1)
|
|
|
|
|
(9 nil 3 3 0)
|
|
|
|
|
(10 t 2 5 0)
|
|
|
|
|
(12 nil 4 3 1)
|
|
|
|
|
(16 nil 4 4 0)
|
|
|
|
|
(20 nil 5 4 1)
|
|
|
|
|
(25 nil 5 5 0)
|
|
|
|
|
(30 nil 6 5 1)
|
|
|
|
|
(36 nil 6 6 0)
|
|
|
|
|
(42 nil 7 6 1)
|
|
|
|
|
(49 nil 7 7 0)
|
|
|
|
|
(56 nil 8 7 1)
|
|
|
|
|
(64 nil 8 8 0)
|
|
|
|
|
(70 t 5 14 0)
|
|
|
|
|
(72 nil 9 8 1)
|
|
|
|
|
(81 nil 9 9 0)
|
|
|
|
|
(90 nil 10 9 1)
|
|
|
|
|
(100 nil 10 10 0))
|
|
|
|
|
(letter-small
|
|
|
|
|
(1 nil 1 1 0)
|
XEmacs compatibility. Doc fix. Can select page size
with/without giving an error if PostScript printer doesn't have this
kind of page size. Zebra Stripe continues or restarts on next page.
Manual/automatic paper feeding. Switch or not the header.
(ps-print-version): New version number (5.2.2).
(ps-windows-system): Include emx as a Windows system.
(ps-setup, ps-begin-file, ps-color-values, ps-screen-to-bit-face)
(ps-generate-postscript-with-faces, ps-generate-postscript-with-faces)
(ps-background-text): Code fix.
(ps-error-handler-message, ps-user-defined-prologue)
(ps-print-prologue-header, ps-printer-name)
(ps-print-control-characters, ps-n-up-filling, ps-zebra-color)
(ps-line-number-step, ps-spool-config, ps-default-fg, ps-default-bg)
(ps-use-face-background): Customization fix.
(ps-n-up-database): Data fix.
(ps-warn-paper-type, ps-zebra-stripe-follow, ps-manual-feed)
(ps-switch-header): New vars.
(ps-xemacs-color-name, ps-face-foreground-name)
(ps-face-background-name, ps-boolean-constant): New funs.
2000-06-07 15:34:55 +00:00
|
|
|
|
(2 t 1 2 0) ; adjusted by PostScript code
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
(4 nil 2 2 0)
|
|
|
|
|
(6 t 2 3 0)
|
|
|
|
|
(9 nil 3 3 0)
|
|
|
|
|
(12 t 3 4 1)
|
|
|
|
|
(15 t 3 5 0)
|
|
|
|
|
(16 nil 4 4 0)
|
|
|
|
|
(20 nil 5 4 1)
|
|
|
|
|
(25 nil 5 5 0)
|
|
|
|
|
(28 t 4 7 0)
|
|
|
|
|
(30 nil 6 5 1)
|
|
|
|
|
(36 nil 6 6 0)
|
|
|
|
|
(40 t 5 8 0)
|
|
|
|
|
(42 nil 7 6 1)
|
|
|
|
|
(49 nil 7 7 0)
|
|
|
|
|
(56 nil 8 7 1)
|
|
|
|
|
(60 t 6 10 0)
|
|
|
|
|
(64 nil 8 8 0)
|
|
|
|
|
(72 ni 9 8 1)
|
|
|
|
|
(81 nil 9 9 0)
|
|
|
|
|
(84 t 7 12 0)
|
|
|
|
|
(90 nil 10 9 1)
|
|
|
|
|
(100 nil 10 10 0))
|
|
|
|
|
(tabloid
|
|
|
|
|
(1 nil 1 1 0)
|
|
|
|
|
(2 t 1 2 0)
|
|
|
|
|
(4 nil 2 2 0)
|
|
|
|
|
(6 t 2 3 1)
|
|
|
|
|
(8 t 2 4 0)
|
|
|
|
|
(9 nil 3 3 0)
|
|
|
|
|
(12 nil 4 3 1)
|
|
|
|
|
(16 nil 4 4 0)
|
|
|
|
|
(20 nil 5 4 1)
|
|
|
|
|
(25 nil 5 5 0)
|
|
|
|
|
(30 nil 6 5 1)
|
|
|
|
|
(36 nil 6 6 0)
|
|
|
|
|
(42 nil 7 6 1)
|
|
|
|
|
(49 nil 7 7 0)
|
|
|
|
|
(56 nil 8 7 1)
|
|
|
|
|
(64 nil 8 8 0)
|
|
|
|
|
(72 nil 9 8 1)
|
|
|
|
|
(81 nil 9 9 0)
|
|
|
|
|
(84 t 6 14 0)
|
|
|
|
|
(90 nil 10 9 1)
|
|
|
|
|
(100 nil 10 10 0))
|
|
|
|
|
;; Ledger paper size is a special case, it is the only paper size where the
|
|
|
|
|
;; normal size is landscaped, that is, the height is smaller than width.
|
|
|
|
|
;; So, we use the special value `pag' in the `landscape' field.
|
|
|
|
|
(ledger
|
|
|
|
|
(1 nil 1 1 0)
|
|
|
|
|
(2 pag 1 2 0)
|
|
|
|
|
(4 nil 2 2 0)
|
|
|
|
|
(6 pag 2 3 1)
|
|
|
|
|
(8 pag 2 4 0)
|
|
|
|
|
(9 nil 3 3 0)
|
|
|
|
|
(12 nil 4 3 1)
|
|
|
|
|
(16 nil 4 4 0)
|
|
|
|
|
(20 nil 5 4 1)
|
|
|
|
|
(25 nil 5 5 0)
|
|
|
|
|
(30 nil 6 5 1)
|
|
|
|
|
(36 nil 6 6 0)
|
|
|
|
|
(42 nil 7 6 1)
|
|
|
|
|
(49 nil 7 7 0)
|
|
|
|
|
(56 nil 8 7 1)
|
|
|
|
|
(64 nil 8 8 0)
|
|
|
|
|
(72 nil 9 8 1)
|
|
|
|
|
(81 nil 9 9 0)
|
|
|
|
|
(84 pag 6 14 0)
|
|
|
|
|
(90 nil 10 9 1)
|
|
|
|
|
(100 nil 10 10 0))
|
|
|
|
|
(statement
|
|
|
|
|
(1 nil 1 1 0)
|
|
|
|
|
(2 t 1 2 0)
|
|
|
|
|
(4 nil 2 2 0)
|
|
|
|
|
(6 nil 3 2 1)
|
|
|
|
|
(9 nil 3 3 0)
|
|
|
|
|
(10 t 2 5 0)
|
|
|
|
|
(12 nil 4 3 1)
|
|
|
|
|
(16 nil 4 4 0)
|
|
|
|
|
(20 nil 5 4 1)
|
|
|
|
|
(21 t 3 7 0)
|
|
|
|
|
(25 nil 5 5 0)
|
|
|
|
|
(30 nil 6 5 1)
|
|
|
|
|
(36 nil 6 6 0)
|
|
|
|
|
(40 t 4 10 0)
|
|
|
|
|
(42 nil 7 6 1)
|
|
|
|
|
(49 nil 7 7 0)
|
|
|
|
|
(56 nil 8 7 1)
|
|
|
|
|
(60 t 5 12 0)
|
|
|
|
|
(64 nil 8 8 0)
|
|
|
|
|
(72 nil 9 8 1)
|
|
|
|
|
(81 nil 9 9 0)
|
|
|
|
|
(90 nil 10 9 1)
|
|
|
|
|
(100 nil 10 10 0))
|
|
|
|
|
(executive
|
|
|
|
|
(1 nil 1 1 0)
|
XEmacs compatibility. Doc fix. Can select page size
with/without giving an error if PostScript printer doesn't have this
kind of page size. Zebra Stripe continues or restarts on next page.
Manual/automatic paper feeding. Switch or not the header.
(ps-print-version): New version number (5.2.2).
(ps-windows-system): Include emx as a Windows system.
(ps-setup, ps-begin-file, ps-color-values, ps-screen-to-bit-face)
(ps-generate-postscript-with-faces, ps-generate-postscript-with-faces)
(ps-background-text): Code fix.
(ps-error-handler-message, ps-user-defined-prologue)
(ps-print-prologue-header, ps-printer-name)
(ps-print-control-characters, ps-n-up-filling, ps-zebra-color)
(ps-line-number-step, ps-spool-config, ps-default-fg, ps-default-bg)
(ps-use-face-background): Customization fix.
(ps-n-up-database): Data fix.
(ps-warn-paper-type, ps-zebra-stripe-follow, ps-manual-feed)
(ps-switch-header): New vars.
(ps-xemacs-color-name, ps-face-foreground-name)
(ps-face-background-name, ps-boolean-constant): New funs.
2000-06-07 15:34:55 +00:00
|
|
|
|
(2 t 1 2 0) ; adjusted by PostScript code
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
(4 nil 2 2 0)
|
|
|
|
|
(6 t 2 3 0)
|
|
|
|
|
(9 nil 3 3 0)
|
|
|
|
|
(12 nil 4 3 1)
|
|
|
|
|
(16 nil 4 4 0)
|
|
|
|
|
(20 nil 5 4 1)
|
|
|
|
|
(25 nil 5 5 0)
|
|
|
|
|
(28 t 4 7 0)
|
|
|
|
|
(30 nil 6 5 1)
|
|
|
|
|
(36 nil 6 6 0)
|
|
|
|
|
(42 nil 7 6 1)
|
|
|
|
|
(45 t 5 9 0)
|
|
|
|
|
(49 nil 7 7 0)
|
|
|
|
|
(56 nil 8 7 1)
|
|
|
|
|
(60 t 6 10 0)
|
|
|
|
|
(64 nil 8 8 0)
|
|
|
|
|
(72 nil 9 8 1)
|
|
|
|
|
(81 nil 9 9 0)
|
|
|
|
|
(84 t 7 12 0)
|
|
|
|
|
(90 nil 10 9 1)
|
|
|
|
|
(100 nil 10 10 0))
|
|
|
|
|
(a4small
|
|
|
|
|
(1 nil 1 1 0)
|
|
|
|
|
(2 t 1 2 0)
|
|
|
|
|
(4 nil 2 2 0)
|
|
|
|
|
(6 t 2 3 1)
|
|
|
|
|
(8 t 2 4 0)
|
|
|
|
|
(9 nil 3 3 0)
|
|
|
|
|
(12 nil 4 3 1)
|
|
|
|
|
(16 nil 4 4 0)
|
|
|
|
|
(18 t 3 6 0)
|
|
|
|
|
(20 nil 5 4 1)
|
|
|
|
|
(25 nil 5 5 0)
|
|
|
|
|
(30 nil 6 5 1)
|
|
|
|
|
(32 t 4 8 0)
|
|
|
|
|
(36 nil 6 6 0)
|
|
|
|
|
(42 nil 7 6 1)
|
|
|
|
|
(49 nil 7 7 0)
|
|
|
|
|
(50 t 5 10 0)
|
|
|
|
|
(56 nil 8 7 1)
|
|
|
|
|
(64 nil 8 8 0)
|
|
|
|
|
(72 nil 9 8 1)
|
|
|
|
|
(78 t 6 13 0)
|
|
|
|
|
(81 nil 9 9 0)
|
|
|
|
|
(90 nil 10 9 1)
|
|
|
|
|
(100 nil 10 10 0))
|
|
|
|
|
(b4
|
|
|
|
|
(1 nil 1 1 0)
|
|
|
|
|
(2 t 1 2 0)
|
|
|
|
|
(4 nil 2 2 0)
|
|
|
|
|
(6 t 2 3 1)
|
|
|
|
|
(8 t 2 4 0)
|
|
|
|
|
(9 nil 3 3 0)
|
|
|
|
|
(12 nil 4 3 1)
|
|
|
|
|
(16 nil 4 4 0)
|
|
|
|
|
(18 t 3 6 0)
|
|
|
|
|
(20 nil 5 4 1)
|
|
|
|
|
(25 nil 5 5 0)
|
|
|
|
|
(30 nil 6 5 1)
|
|
|
|
|
(32 t 4 8 0)
|
|
|
|
|
(36 nil 6 6 0)
|
|
|
|
|
(42 nil 7 6 1)
|
|
|
|
|
(49 nil 7 7 0)
|
|
|
|
|
(50 t 5 10 0)
|
|
|
|
|
(56 nil 8 7 1)
|
|
|
|
|
(64 nil 8 8 0)
|
|
|
|
|
(72 nil 9 8 1)
|
|
|
|
|
(81 nil 9 9 0)
|
|
|
|
|
(90 nil 10 9 1)
|
|
|
|
|
(100 nil 10 10 0))
|
|
|
|
|
(b5
|
|
|
|
|
(1 nil 1 1 0)
|
|
|
|
|
(2 t 1 2 0)
|
|
|
|
|
(4 nil 2 2 0)
|
|
|
|
|
(6 t 2 3 1)
|
|
|
|
|
(8 t 2 4 0)
|
|
|
|
|
(9 nil 3 3 0)
|
|
|
|
|
(12 nil 4 3 1)
|
|
|
|
|
(16 nil 4 4 0)
|
|
|
|
|
(18 t 3 6 0)
|
|
|
|
|
(20 nil 5 4 1)
|
|
|
|
|
(25 nil 5 5 0)
|
|
|
|
|
(30 nil 6 5 1)
|
|
|
|
|
(32 t 4 8 0)
|
|
|
|
|
(36 nil 6 6 0)
|
|
|
|
|
(42 nil 7 6 1)
|
|
|
|
|
(49 nil 7 7 0)
|
|
|
|
|
(50 t 5 10 0)
|
|
|
|
|
(56 nil 8 7 1)
|
|
|
|
|
(64 nil 8 8 0)
|
|
|
|
|
(72 nil 9 8 0)
|
|
|
|
|
(81 nil 9 9 0)
|
|
|
|
|
(90 nil 10 9 1)
|
|
|
|
|
(98 t 7 14 0)
|
|
|
|
|
(100 nil 10 10 0)))
|
|
|
|
|
"Alist which is the page matrix database used for N-up printing.
|
|
|
|
|
|
|
|
|
|
Each element has the following form:
|
|
|
|
|
|
|
|
|
|
(PAGE
|
|
|
|
|
(MAX LANDSCAPE LINES COLUMNS COL-MISSING)
|
|
|
|
|
...)
|
|
|
|
|
|
|
|
|
|
Where:
|
|
|
|
|
PAGE is the page size used (see `ps-paper-type').
|
|
|
|
|
MAX is the maximum elements of this page matrix.
|
|
|
|
|
LANDSCAPE specifies if page matrix is landscaped, has the following valid
|
|
|
|
|
values:
|
|
|
|
|
nil the sheet is in portrait mode.
|
|
|
|
|
t the sheet is in landscape mode.
|
|
|
|
|
pag the sheet is in portrait mode and page is in landscape mode.
|
|
|
|
|
LINES is the number of lines of page matrix.
|
|
|
|
|
COLUMNS is the number of columns of page matrix.
|
|
|
|
|
COL-MISSING is the number of columns missing to fill the sheet.")
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(defmacro ps-n-up-landscape (mat) `(nth 1 ,mat))
|
|
|
|
|
(defmacro ps-n-up-lines (mat) `(nth 2 ,mat))
|
|
|
|
|
(defmacro ps-n-up-columns (mat) `(nth 3 ,mat))
|
|
|
|
|
(defmacro ps-n-up-missing (mat) `(nth 4 ,mat))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(defun ps-n-up-printing ()
|
|
|
|
|
;; force `ps-n-up-printing' be in range 1 to 100.
|
|
|
|
|
(setq ps-n-up-printing (max (min ps-n-up-printing 100) 1))
|
|
|
|
|
;; find suitable page matrix for a given `ps-paper-type'.
|
|
|
|
|
(let ((the-list (cdr (assq ps-paper-type ps-n-up-database))))
|
|
|
|
|
(and the-list
|
|
|
|
|
(while (> ps-n-up-printing (caar the-list))
|
|
|
|
|
(setq the-list (cdr the-list))))
|
|
|
|
|
(car the-list)))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(defconst ps-n-up-filling-database
|
|
|
|
|
'((left-top
|
|
|
|
|
"PageWidth" ; N-Up-XColumn
|
|
|
|
|
"0" ; N-Up-YColumn
|
|
|
|
|
"N-Up-End 1 sub PageWidth mul neg" ; N-Up-XLine
|
|
|
|
|
"LandscapePageHeight neg" ; N-Up-YLine
|
|
|
|
|
"N-Up-Lines" ; N-Up-Repeat
|
|
|
|
|
"N-Up-Columns" ; N-Up-End
|
|
|
|
|
"0" ; N-Up-XStart
|
|
|
|
|
"0") ; N-Up-YStart
|
|
|
|
|
(left-bottom
|
|
|
|
|
"PageWidth" ; N-Up-XColumn
|
|
|
|
|
"0" ; N-Up-YColumn
|
|
|
|
|
"N-Up-End 1 sub PageWidth mul neg" ; N-Up-XLine
|
|
|
|
|
"LandscapePageHeight" ; N-Up-YLine
|
|
|
|
|
"N-Up-Lines" ; N-Up-Repeat
|
|
|
|
|
"N-Up-Columns" ; N-Up-End
|
|
|
|
|
"0" ; N-Up-XStart
|
|
|
|
|
"N-Up-Repeat 1 sub LandscapePageHeight mul neg") ; N-Up-YStart
|
|
|
|
|
(right-top
|
|
|
|
|
"PageWidth neg" ; N-Up-XColumn
|
|
|
|
|
"0" ; N-Up-YColumn
|
|
|
|
|
"N-Up-End 1 sub PageWidth mul" ; N-Up-XLine
|
|
|
|
|
"LandscapePageHeight neg" ; N-Up-YLine
|
|
|
|
|
"N-Up-Lines" ; N-Up-Repeat
|
|
|
|
|
"N-Up-Columns" ; N-Up-End
|
|
|
|
|
"N-Up-End 1 sub PageWidth mul" ; N-Up-XStart
|
|
|
|
|
"0") ; N-Up-YStart
|
|
|
|
|
(right-bottom
|
|
|
|
|
"PageWidth neg" ; N-Up-XColumn
|
|
|
|
|
"0" ; N-Up-YColumn
|
|
|
|
|
"N-Up-End 1 sub PageWidth mul" ; N-Up-XLine
|
|
|
|
|
"LandscapePageHeight" ; N-Up-YLine
|
|
|
|
|
"N-Up-Lines" ; N-Up-Repeat
|
|
|
|
|
"N-Up-Columns" ; N-Up-End
|
|
|
|
|
"N-Up-End 1 sub PageWidth mul" ; N-Up-XStart
|
|
|
|
|
"N-Up-Repeat 1 sub LandscapePageHeight mul neg") ; N-Up-YStart
|
|
|
|
|
(top-left
|
|
|
|
|
"0" ; N-Up-XColumn
|
|
|
|
|
"LandscapePageHeight neg" ; N-Up-YColumn
|
|
|
|
|
"PageWidth" ; N-Up-XLine
|
|
|
|
|
"N-Up-End 1 sub LandscapePageHeight mul" ; N-Up-YLine
|
|
|
|
|
"N-Up-Columns" ; N-Up-Repeat
|
|
|
|
|
"N-Up-Lines" ; N-Up-End
|
|
|
|
|
"0" ; N-Up-XStart
|
|
|
|
|
"0") ; N-Up-YStart
|
|
|
|
|
(bottom-left
|
|
|
|
|
"0" ; N-Up-XColumn
|
|
|
|
|
"LandscapePageHeight" ; N-Up-YColumn
|
|
|
|
|
"PageWidth" ; N-Up-XLine
|
|
|
|
|
"N-Up-End 1 sub LandscapePageHeight mul neg" ; N-Up-YLine
|
|
|
|
|
"N-Up-Columns" ; N-Up-Repeat
|
|
|
|
|
"N-Up-Lines" ; N-Up-End
|
|
|
|
|
"0" ; N-Up-XStart
|
|
|
|
|
"N-Up-End 1 sub LandscapePageHeight mul neg") ; N-Up-YStart
|
|
|
|
|
(top-right
|
|
|
|
|
"0" ; N-Up-XColumn
|
|
|
|
|
"LandscapePageHeight neg" ; N-Up-YColumn
|
|
|
|
|
"PageWidth neg" ; N-Up-XLine
|
|
|
|
|
"N-Up-End 1 sub LandscapePageHeight mul" ; N-Up-YLine
|
|
|
|
|
"N-Up-Columns" ; N-Up-Repeat
|
|
|
|
|
"N-Up-Lines" ; N-Up-End
|
|
|
|
|
"N-Up-Repeat 1 sub PageWidth mul" ; N-Up-XStart
|
|
|
|
|
"0") ; N-Up-YStart
|
|
|
|
|
(bottom-right
|
|
|
|
|
"0" ; N-Up-XColumn
|
|
|
|
|
"LandscapePageHeight" ; N-Up-YColumn
|
|
|
|
|
"PageWidth neg" ; N-Up-XLine
|
|
|
|
|
"N-Up-End 1 sub LandscapePageHeight mul neg" ; N-Up-YLine
|
|
|
|
|
"N-Up-Columns" ; N-Up-Repeat
|
|
|
|
|
"N-Up-Lines" ; N-Up-End
|
|
|
|
|
"N-Up-Repeat 1 sub PageWidth mul" ; N-Up-XStart
|
|
|
|
|
"N-Up-End 1 sub LandscapePageHeight mul neg")) ; N-Up-YStart
|
|
|
|
|
"Alist for n-up printing initializations.
|
|
|
|
|
|
|
|
|
|
Each element has the following form:
|
|
|
|
|
|
|
|
|
|
(KIND XCOL YCOL XLIN YLIN REPEAT END XSTART YSTART)
|
|
|
|
|
|
|
|
|
|
Where:
|
|
|
|
|
KIND is a valid value of `ps-n-up-filling'.
|
|
|
|
|
XCOL YCOL are the relative position for the next column.
|
|
|
|
|
XLIN YLIN are the relative position for the beginning of next line.
|
|
|
|
|
REPEAT is the number of repetions for external loop.
|
|
|
|
|
END is the number of repetions for internal loop and also the number of pages in
|
|
|
|
|
a row.
|
|
|
|
|
XSTART YSTART are the relative position for the first page in a sheet.")
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(defun ps-n-up-filling ()
|
|
|
|
|
(cdr (or (assq ps-n-up-filling ps-n-up-filling-database)
|
|
|
|
|
(assq 'left-top ps-n-up-filling-database))))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(defmacro ps-n-up-xcolumn (init) `(nth 0 ,init))
|
|
|
|
|
(defmacro ps-n-up-ycolumn (init) `(nth 1 ,init))
|
|
|
|
|
(defmacro ps-n-up-xline (init) `(nth 2 ,init))
|
|
|
|
|
(defmacro ps-n-up-yline (init) `(nth 3 ,init))
|
|
|
|
|
(defmacro ps-n-up-repeat (init) `(nth 4 ,init))
|
|
|
|
|
(defmacro ps-n-up-end (init) `(nth 5 ,init))
|
|
|
|
|
(defmacro ps-n-up-xstart (init) `(nth 6 ,init))
|
|
|
|
|
(defmacro ps-n-up-ystart (init) `(nth 7 ,init))
|
|
|
|
|
|
|
|
|
|
|
2000-03-15 13:35:02 +00:00
|
|
|
|
(defconst ps-error-handler-alist
|
|
|
|
|
'((none . 0)
|
|
|
|
|
(paper . 1)
|
|
|
|
|
(system . 2)
|
|
|
|
|
(paper-and-system . 3))
|
2001-02-20 10:41:10 +00:00
|
|
|
|
"Alist for error handler message.")
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(defconst ps-zebra-stripe-alist
|
|
|
|
|
'((follow . 1)
|
|
|
|
|
(full . 2)
|
|
|
|
|
(full-follow . 3))
|
|
|
|
|
"Alist for zebra stripe continuation.")
|
2000-03-15 13:35:02 +00:00
|
|
|
|
|
|
|
|
|
|
1994-05-01 22:09:01 +00:00
|
|
|
|
(defun ps-begin-file ()
|
2000-11-09 12:05:55 +00:00
|
|
|
|
(setq ps-page-order 0
|
2000-11-02 12:04:59 +00:00
|
|
|
|
ps-page-printed 0
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
ps-background-text-count 0
|
|
|
|
|
ps-background-image-count 0
|
|
|
|
|
ps-background-pages nil
|
|
|
|
|
ps-background-all-pages nil)
|
1995-01-20 06:09:03 +00:00
|
|
|
|
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
(let ((dimensions (cdr (assq ps-paper-type ps-page-dimensions-database)))
|
|
|
|
|
(tumble (if ps-landscape-mode (not ps-spool-tumble) ps-spool-tumble))
|
|
|
|
|
(n-up (ps-n-up-printing))
|
|
|
|
|
(n-up-filling (ps-n-up-filling)))
|
2000-05-18 21:50:51 +00:00
|
|
|
|
(and ps-n-up-on (setq tumble (not tumble)))
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
(ps-output
|
|
|
|
|
ps-adobe-tag
|
|
|
|
|
"%%Title: " (buffer-name) ; Take job name from name of
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.2) and doc fix.
(ps-print, ps-header-lines, ps-show-n-of-n, ps-font-info-database)
(ps-font-family, ps-font-size, ps-header-font-family)
(ps-header-font-size, ps-header-title-font-size, ps-bold-faces)
(ps-italic-faces, ps-underlined-faces, ps-left-header, ps-right-header)
(ps-font, ps-font-bold, ps-font-italic, ps-font-bold-italic)
(ps-avg-char-width, ps-space-width, ps-line-height): Doc fix.
(ps-error-scale-font): New fn.
(ps-soft-lf, ps-hard-lf): Fn deleted.
(ps-get-page-dimensions, ps-set-bg, ps-face-bold-p, ps-face-italic-p)
(ps-set-color): Reindentation.
(ps-output-string-prim, ps-xemacs-face-kind-p): Internal blank lines
deleted.
(ps-set-font): Little programming improvement.
(ps-line-lengths-internal, ps-nb-pages, ps-select-font)
(ps-select-header-font): Simplify some expressions.
(ps-plot-region): Replace (- X 1) by (1- X).
(ps-generate-header): Replace (+ X 1) by (1+ X).
(ps-print-preprint, ps-plot-with-face, ps-print-ensure-fontified)
(ps-kill-emacs-check): Replace (if (and A B) C) by (and A B C).
(ps-init-output-queue, ps-gnus-article-prepare-hook, ps-jts-ps-setup):
Replace (setq a b)(setq c d) by (setq a b c d).
(ps-begin-file, ps-end-file): Replace (ps-output A)(ps-output B)
by (ps-output A B).
(ps-begin-page): Replace (ps-output A)(ps-output B) by (ps-output A B),
replace (setq a b)(setq c d) by (setq a b c d).
(ps-next-line, ps-continue-line): Replace (setq a b)(setq c d)
by (setq a b c d), and incorporates ps-soft-lf and ps-hard-lf,
respectively.
(ps-plot): Replace (setq a b)(setq c d) by (setq a b c d),
and programming improvement.
(ps-generate-postscript-with-faces): Initialization fix,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if (and A B) C) by (and A B C).
(ps-generate): Doc fix, reprogramming to set the page count,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if A nil B) by (or A B),
replace (if (and A B) C) by (and A B C).
(ps-info-mode-hook): Replace (list 'A 'B) by '(A B).
(ps-jack-setup): Replace (list) by nil.
1997-11-23 02:26:50 +00:00
|
|
|
|
; first buffer printed
|
2004-07-23 01:16:06 +00:00
|
|
|
|
"\n%%Creator: ps-print v" ps-print-version
|
|
|
|
|
"\n%%For: " (user-full-name)
|
|
|
|
|
"\n%%CreationDate: " (format-time-string "%T %b %d %Y")
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
"\n%%Orientation: "
|
|
|
|
|
(if ps-landscape-mode "Landscape" "Portrait")
|
|
|
|
|
"\n%%DocumentNeededResources: font Times-Roman Times-Italic\n%%+ font "
|
|
|
|
|
(mapconcat 'identity
|
|
|
|
|
(ps-remove-duplicates
|
|
|
|
|
(append (ps-fonts 'ps-font-for-text)
|
|
|
|
|
(list (ps-font 'ps-font-for-header 'normal)
|
2004-07-23 01:16:06 +00:00
|
|
|
|
(ps-font 'ps-font-for-header 'bold)
|
|
|
|
|
(ps-font 'ps-font-for-footer 'normal)
|
|
|
|
|
(ps-font 'ps-font-for-footer 'bold))))
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
"\n%%+ font ")
|
2004-07-23 01:16:06 +00:00
|
|
|
|
"\n%%DocumentSuppliedResources: procset PSPrintUserDefinedPrologue-" (user-login-name) " 0 0"
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
"\n%%DocumentMedia: " (ps-page-dimensions-get-media dimensions)
|
|
|
|
|
(format " %d" (round (ps-page-dimensions-get-width dimensions)))
|
|
|
|
|
(format " %d" (round (ps-page-dimensions-get-height dimensions)))
|
|
|
|
|
" 0 () ()\n%%PageOrder: Ascend\n%%Pages: (atend)\n%%Requirements:"
|
|
|
|
|
(if ps-spool-duplex
|
XEmacs compatibility. Doc fix. Can select page size
with/without giving an error if PostScript printer doesn't have this
kind of page size. Zebra Stripe continues or restarts on next page.
Manual/automatic paper feeding. Switch or not the header.
(ps-print-version): New version number (5.2.2).
(ps-windows-system): Include emx as a Windows system.
(ps-setup, ps-begin-file, ps-color-values, ps-screen-to-bit-face)
(ps-generate-postscript-with-faces, ps-generate-postscript-with-faces)
(ps-background-text): Code fix.
(ps-error-handler-message, ps-user-defined-prologue)
(ps-print-prologue-header, ps-printer-name)
(ps-print-control-characters, ps-n-up-filling, ps-zebra-color)
(ps-line-number-step, ps-spool-config, ps-default-fg, ps-default-bg)
(ps-use-face-background): Customization fix.
(ps-n-up-database): Data fix.
(ps-warn-paper-type, ps-zebra-stripe-follow, ps-manual-feed)
(ps-switch-header): New vars.
(ps-xemacs-color-name, ps-face-foreground-name)
(ps-face-background-name, ps-boolean-constant): New funs.
2000-06-07 15:34:55 +00:00
|
|
|
|
(if tumble " duplex(tumble)\n" " duplex\n")
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
"\n"))
|
|
|
|
|
|
2000-03-15 13:35:02 +00:00
|
|
|
|
(ps-insert-string ps-print-prologue-header)
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
|
XEmacs compatibility. Doc fix. Can select page size
with/without giving an error if PostScript printer doesn't have this
kind of page size. Zebra Stripe continues or restarts on next page.
Manual/automatic paper feeding. Switch or not the header.
(ps-print-version): New version number (5.2.2).
(ps-windows-system): Include emx as a Windows system.
(ps-setup, ps-begin-file, ps-color-values, ps-screen-to-bit-face)
(ps-generate-postscript-with-faces, ps-generate-postscript-with-faces)
(ps-background-text): Code fix.
(ps-error-handler-message, ps-user-defined-prologue)
(ps-print-prologue-header, ps-printer-name)
(ps-print-control-characters, ps-n-up-filling, ps-zebra-color)
(ps-line-number-step, ps-spool-config, ps-default-fg, ps-default-bg)
(ps-use-face-background): Customization fix.
(ps-n-up-database): Data fix.
(ps-warn-paper-type, ps-zebra-stripe-follow, ps-manual-feed)
(ps-switch-header): New vars.
(ps-xemacs-color-name, ps-face-foreground-name)
(ps-face-background-name, ps-boolean-constant): New funs.
2000-06-07 15:34:55 +00:00
|
|
|
|
(ps-output "%%EndComments\n%%BeginDefaults\n%%PageMedia: "
|
|
|
|
|
(ps-page-dimensions-get-media dimensions)
|
Line and paragraph spacing feature. Region to cut
out when printing. Doc fix.
(ps-print-version): New version number (6.5).
(ps-line-spacing, ps-paragraph-spacing, ps-paragraph-regexp): New
vars. Line and paragraph spacing feature.
(ps-begin-cut-regexp, ps-end-cut-regexp): New vars. Region to cut
out when printing.
(ps-setup, ps-nb-pages, ps-get-page-dimensions, ps-begin-file)
(ps-get-font-size, ps-begin-job, ps-continue-line)
(ps-plot-region): Code fix.
(ps-print-prologue-2): Var eliminated.
(ps-line-spacing-internal, ps-paragraph-spacing-internal): New
internal vars.
(ps-get-size): New fun.
(ps-output-string-prim, ps-init-output-queue, ps-print-page-p)
(ps-next-line): Replace defun by defsubst.
(ps-mule-plot-string): Autoload doc fix.
(ps-mule-generate-font): New arg HEADER-P. If it is
non-nil, generate font for the header strings.
(ps-mule-prepare-font): Likewise.
(ps-mule-generate-glyphs): Likewise.
(ps-mule-string-encoding): Likewise.
(ps-mule-header-charsets): New variable.
(ps-mule-encode-header-string): New function.
(ps-mule-header-string-charsets): New function.
(ps-mule-begin-job): Check charsets in the header strings. If there
are non-ASCII and non-Latin1 charsets, prepare fonts for them.
2001-04-02 10:35:07 +00:00
|
|
|
|
"\n%%EndDefaults\n\n%%BeginProlog\n\n"
|
PostScript programming fix for ghostview, doc fix.
(ps-print-version): New version number (5.1.3).
(ps-begin-file, ps-begin-job, ps-set-color, ps-do-despool, ps-setup)
(ps-insert-file, ps-output-boolean, ps-plot-with-face)
(ps-generate-postscript-with-faces): Code fix.
(ps-color-values): XEmacs compatibility.
(ps-print-background-image, ps-print-background-text, ps-printer-name)
(ps-default-fg, ps-default-bg): Adjust customization.
(ps-zebra-color): Adjust customization, renaming old ps-zebra-gray var.
(ps-color-scale): Renaming old ps-color-value fun.
(ps-print-headers): Replace ps-print-header group to avoid conflict
with ps-print-header variable.
(ps-print-miscellany): New group.
(ps-format-color, ps-rgb-color): New funs.
(ps-default-foreground): New var.
(ps-printer-name-option): New const.
2000-03-30 13:21:45 +00:00
|
|
|
|
"/languagelevel where{pop}{/languagelevel 1 def}ifelse\n"
|
|
|
|
|
(format "/ErrorMessage %s def\n\n"
|
2000-03-15 13:35:02 +00:00
|
|
|
|
(or (cdr (assoc ps-error-handler-message
|
|
|
|
|
ps-error-handler-alist))
|
|
|
|
|
1)) ; send to paper
|
|
|
|
|
ps-print-prologue-0
|
2004-07-23 01:16:06 +00:00
|
|
|
|
"\n%%BeginResource: procset PSPrintUserDefinedPrologue-" (user-login-name) " 0 0\n\n")
|
2000-03-15 13:35:02 +00:00
|
|
|
|
|
|
|
|
|
(ps-insert-string ps-user-defined-prologue)
|
|
|
|
|
|
2004-07-23 01:16:06 +00:00
|
|
|
|
(ps-output "\n%%EndResource\n\n")
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
|
|
|
|
|
(ps-output-boolean "LandscapeMode "
|
|
|
|
|
(or ps-landscape-mode
|
|
|
|
|
(eq (ps-n-up-landscape n-up) 'pag)))
|
2000-04-29 19:27:49 +00:00
|
|
|
|
(ps-output-boolean "UpsideDown " ps-print-upside-down)
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
(ps-output (format "/NumberOfColumns %d def\n" ps-number-of-columns)
|
|
|
|
|
|
|
|
|
|
(format "/LandscapePageHeight %s def\n" ps-landscape-page-height)
|
|
|
|
|
(format "/PrintPageWidth %s def\n"
|
|
|
|
|
(- (* (+ ps-print-width ps-inter-column)
|
|
|
|
|
ps-number-of-columns)
|
|
|
|
|
ps-inter-column))
|
|
|
|
|
(format "/PrintWidth %s def\n" ps-print-width)
|
|
|
|
|
(format "/PrintHeight %s def\n" ps-print-height)
|
|
|
|
|
|
|
|
|
|
(format "/LeftMargin %s def\n" ps-left-margin)
|
|
|
|
|
(format "/RightMargin %s def\n" ps-right-margin)
|
|
|
|
|
(format "/InterColumn %s def\n" ps-inter-column)
|
|
|
|
|
|
|
|
|
|
(format "/BottomMargin %s def\n" ps-bottom-margin)
|
|
|
|
|
(format "/TopMargin %s def\n" ps-top-margin) ; not used
|
|
|
|
|
(format "/HeaderOffset %s def\n" ps-header-offset)
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
(format "/HeaderPad %s def\n" ps-header-pad)
|
|
|
|
|
(format "/FooterOffset %s def\n" ps-footer-offset)
|
|
|
|
|
(format "/FooterPad %s def\n" ps-footer-pad)
|
|
|
|
|
(format "/FooterLines %s def\n" ps-footer-lines))
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
(ps-output-boolean "ShowNofN " ps-show-n-of-n)
|
XEmacs compatibility. Doc fix. Can select page size
with/without giving an error if PostScript printer doesn't have this
kind of page size. Zebra Stripe continues or restarts on next page.
Manual/automatic paper feeding. Switch or not the header.
(ps-print-version): New version number (5.2.2).
(ps-windows-system): Include emx as a Windows system.
(ps-setup, ps-begin-file, ps-color-values, ps-screen-to-bit-face)
(ps-generate-postscript-with-faces, ps-generate-postscript-with-faces)
(ps-background-text): Code fix.
(ps-error-handler-message, ps-user-defined-prologue)
(ps-print-prologue-header, ps-printer-name)
(ps-print-control-characters, ps-n-up-filling, ps-zebra-color)
(ps-line-number-step, ps-spool-config, ps-default-fg, ps-default-bg)
(ps-use-face-background): Customization fix.
(ps-n-up-database): Data fix.
(ps-warn-paper-type, ps-zebra-stripe-follow, ps-manual-feed)
(ps-switch-header): New vars.
(ps-xemacs-color-name, ps-face-foreground-name)
(ps-face-background-name, ps-boolean-constant): New funs.
2000-06-07 15:34:55 +00:00
|
|
|
|
(ps-output-boolean "SwitchHeader " (if (eq ps-switch-header 'duplex)
|
|
|
|
|
ps-spool-duplex
|
|
|
|
|
ps-switch-header))
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
(ps-output-boolean "PrintOnlyOneHeader" ps-print-only-one-header)
|
|
|
|
|
(ps-output-boolean "PrintHeader " ps-print-header)
|
|
|
|
|
(ps-output-boolean "PrintHeaderFrame " ps-print-header-frame)
|
|
|
|
|
(ps-output-frame-properties "HeaderFrameProperties" ps-header-frame-alist)
|
|
|
|
|
(ps-output-boolean "PrintFooter " ps-print-footer)
|
|
|
|
|
(ps-output-boolean "PrintFooterFrame " ps-print-footer-frame)
|
|
|
|
|
(ps-output-frame-properties "FooterFrameProperties" ps-footer-frame-alist)
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
|
|
|
|
|
(let ((line-height (ps-line-height 'ps-font-for-text)))
|
Line and paragraph spacing feature. Region to cut
out when printing. Doc fix.
(ps-print-version): New version number (6.5).
(ps-line-spacing, ps-paragraph-spacing, ps-paragraph-regexp): New
vars. Line and paragraph spacing feature.
(ps-begin-cut-regexp, ps-end-cut-regexp): New vars. Region to cut
out when printing.
(ps-setup, ps-nb-pages, ps-get-page-dimensions, ps-begin-file)
(ps-get-font-size, ps-begin-job, ps-continue-line)
(ps-plot-region): Code fix.
(ps-print-prologue-2): Var eliminated.
(ps-line-spacing-internal, ps-paragraph-spacing-internal): New
internal vars.
(ps-get-size): New fun.
(ps-output-string-prim, ps-init-output-queue, ps-print-page-p)
(ps-next-line): Replace defun by defsubst.
(ps-mule-plot-string): Autoload doc fix.
(ps-mule-generate-font): New arg HEADER-P. If it is
non-nil, generate font for the header strings.
(ps-mule-prepare-font): Likewise.
(ps-mule-generate-glyphs): Likewise.
(ps-mule-string-encoding): Likewise.
(ps-mule-header-charsets): New variable.
(ps-mule-encode-header-string): New function.
(ps-mule-header-string-charsets): New function.
(ps-mule-begin-job): Check charsets in the header strings. If there
are non-ASCII and non-Latin1 charsets, prepare fonts for them.
2001-04-02 10:35:07 +00:00
|
|
|
|
(ps-output (format "/LineSpacing %s def\n" ps-line-spacing-internal)
|
|
|
|
|
(format "/ParagraphSpacing %s def\n"
|
|
|
|
|
ps-paragraph-spacing-internal)
|
|
|
|
|
(format "/LineHeight %s def\n" line-height)
|
2001-02-20 10:41:10 +00:00
|
|
|
|
(format "/LinesPerColumn %d def\n"
|
Line and paragraph spacing feature. Region to cut
out when printing. Doc fix.
(ps-print-version): New version number (6.5).
(ps-line-spacing, ps-paragraph-spacing, ps-paragraph-regexp): New
vars. Line and paragraph spacing feature.
(ps-begin-cut-regexp, ps-end-cut-regexp): New vars. Region to cut
out when printing.
(ps-setup, ps-nb-pages, ps-get-page-dimensions, ps-begin-file)
(ps-get-font-size, ps-begin-job, ps-continue-line)
(ps-plot-region): Code fix.
(ps-print-prologue-2): Var eliminated.
(ps-line-spacing-internal, ps-paragraph-spacing-internal): New
internal vars.
(ps-get-size): New fun.
(ps-output-string-prim, ps-init-output-queue, ps-print-page-p)
(ps-next-line): Replace defun by defsubst.
(ps-mule-plot-string): Autoload doc fix.
(ps-mule-generate-font): New arg HEADER-P. If it is
non-nil, generate font for the header strings.
(ps-mule-prepare-font): Likewise.
(ps-mule-generate-glyphs): Likewise.
(ps-mule-string-encoding): Likewise.
(ps-mule-header-charsets): New variable.
(ps-mule-encode-header-string): New function.
(ps-mule-header-string-charsets): New function.
(ps-mule-begin-job): Check charsets in the header strings. If there
are non-ASCII and non-Latin1 charsets, prepare fonts for them.
2001-04-02 10:35:07 +00:00
|
|
|
|
(let ((height (+ line-height
|
|
|
|
|
ps-line-spacing-internal)))
|
|
|
|
|
(round (/ (+ ps-print-height
|
|
|
|
|
(* height 0.45))
|
|
|
|
|
height))))))
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
|
XEmacs compatibility. Doc fix. Can select page size
with/without giving an error if PostScript printer doesn't have this
kind of page size. Zebra Stripe continues or restarts on next page.
Manual/automatic paper feeding. Switch or not the header.
(ps-print-version): New version number (5.2.2).
(ps-windows-system): Include emx as a Windows system.
(ps-setup, ps-begin-file, ps-color-values, ps-screen-to-bit-face)
(ps-generate-postscript-with-faces, ps-generate-postscript-with-faces)
(ps-background-text): Code fix.
(ps-error-handler-message, ps-user-defined-prologue)
(ps-print-prologue-header, ps-printer-name)
(ps-print-control-characters, ps-n-up-filling, ps-zebra-color)
(ps-line-number-step, ps-spool-config, ps-default-fg, ps-default-bg)
(ps-use-face-background): Customization fix.
(ps-n-up-database): Data fix.
(ps-warn-paper-type, ps-zebra-stripe-follow, ps-manual-feed)
(ps-switch-header): New vars.
(ps-xemacs-color-name, ps-face-foreground-name)
(ps-face-background-name, ps-boolean-constant): New funs.
2000-06-07 15:34:55 +00:00
|
|
|
|
(ps-output-boolean "WarnPaperSize " ps-warn-paper-type)
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
(ps-output-boolean "Zebra " ps-zebra-stripes)
|
|
|
|
|
(ps-output-boolean "PrintLineNumber " ps-line-number)
|
2000-04-29 19:27:49 +00:00
|
|
|
|
(ps-output-boolean "SyncLineZebra " (not (integerp ps-line-number-step)))
|
2001-02-20 10:41:10 +00:00
|
|
|
|
(ps-output (format "/ZebraFollow %d def\n"
|
|
|
|
|
(or (cdr (assq ps-zebra-stripe-follow
|
|
|
|
|
ps-zebra-stripe-alist))
|
|
|
|
|
0))
|
|
|
|
|
(format "/PrintLineStep %d def\n"
|
2000-04-29 19:27:49 +00:00
|
|
|
|
(if (integerp ps-line-number-step)
|
|
|
|
|
ps-line-number-step
|
2000-05-18 21:50:51 +00:00
|
|
|
|
ps-zebra-stripe-height))
|
|
|
|
|
(format "/PrintLineStart %d def\n" ps-line-number-start)
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
"/LineNumberColor "
|
|
|
|
|
(ps-format-color ps-line-number-color 0.0)
|
|
|
|
|
(format "def\n/ZebraHeight %d def\n"
|
|
|
|
|
ps-zebra-stripe-height)
|
PostScript programming fix for ghostview, doc fix.
(ps-print-version): New version number (5.1.3).
(ps-begin-file, ps-begin-job, ps-set-color, ps-do-despool, ps-setup)
(ps-insert-file, ps-output-boolean, ps-plot-with-face)
(ps-generate-postscript-with-faces): Code fix.
(ps-color-values): XEmacs compatibility.
(ps-print-background-image, ps-print-background-text, ps-printer-name)
(ps-default-fg, ps-default-bg): Adjust customization.
(ps-zebra-color): Adjust customization, renaming old ps-zebra-gray var.
(ps-color-scale): Renaming old ps-color-value fun.
(ps-print-headers): Replace ps-print-header group to avoid conflict
with ps-print-header variable.
(ps-print-miscellany): New group.
(ps-format-color, ps-rgb-color): New funs.
(ps-default-foreground): New var.
(ps-printer-name-option): New const.
2000-03-30 13:21:45 +00:00
|
|
|
|
"/ZebraColor "
|
|
|
|
|
(ps-format-color ps-zebra-color 0.95)
|
|
|
|
|
"def\n/BackgroundColor "
|
2003-03-06 01:54:17 +00:00
|
|
|
|
(ps-format-color ps-default-background 1.0)
|
PostScript programming fix for ghostview, doc fix.
(ps-print-version): New version number (5.1.3).
(ps-begin-file, ps-begin-job, ps-set-color, ps-do-despool, ps-setup)
(ps-insert-file, ps-output-boolean, ps-plot-with-face)
(ps-generate-postscript-with-faces): Code fix.
(ps-color-values): XEmacs compatibility.
(ps-print-background-image, ps-print-background-text, ps-printer-name)
(ps-default-fg, ps-default-bg): Adjust customization.
(ps-zebra-color): Adjust customization, renaming old ps-zebra-gray var.
(ps-color-scale): Renaming old ps-color-value fun.
(ps-print-headers): Replace ps-print-header group to avoid conflict
with ps-print-header variable.
(ps-print-miscellany): New group.
(ps-format-color, ps-rgb-color): New funs.
(ps-default-foreground): New var.
(ps-printer-name-option): New const.
2000-03-30 13:21:45 +00:00
|
|
|
|
"def\n/UseSetpagedevice "
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
(if (eq ps-spool-config 'setpagedevice)
|
PostScript programming fix for ghostview, doc fix.
(ps-print-version): New version number (5.1.3).
(ps-begin-file, ps-begin-job, ps-set-color, ps-do-despool, ps-setup)
(ps-insert-file, ps-output-boolean, ps-plot-with-face)
(ps-generate-postscript-with-faces): Code fix.
(ps-color-values): XEmacs compatibility.
(ps-print-background-image, ps-print-background-text, ps-printer-name)
(ps-default-fg, ps-default-bg): Adjust customization.
(ps-zebra-color): Adjust customization, renaming old ps-zebra-gray var.
(ps-color-scale): Renaming old ps-color-value fun.
(ps-print-headers): Replace ps-print-header group to avoid conflict
with ps-print-header variable.
(ps-print-miscellany): New group.
(ps-format-color, ps-rgb-color): New funs.
(ps-default-foreground): New var.
(ps-printer-name-option): New const.
2000-03-30 13:21:45 +00:00
|
|
|
|
"/setpagedevice where{pop languagelevel 2 eq}{false}ifelse"
|
|
|
|
|
"false")
|
|
|
|
|
" def\n\n/PageWidth "
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
"PrintPageWidth LeftMargin add RightMargin add def\n\n"
|
|
|
|
|
(format "/N-Up %d def\n" ps-n-up-printing))
|
|
|
|
|
(ps-output-boolean "N-Up-Landscape" (eq (ps-n-up-landscape n-up) t))
|
|
|
|
|
(ps-output-boolean "N-Up-Border " ps-n-up-border-p)
|
|
|
|
|
(ps-output (format "/N-Up-Lines %d def\n" (ps-n-up-lines n-up))
|
|
|
|
|
(format "/N-Up-Columns %d def\n" (ps-n-up-columns n-up))
|
|
|
|
|
(format "/N-Up-Missing %d def\n" (ps-n-up-missing n-up))
|
PostScript programming fix for ghostview, doc fix.
(ps-print-version): New version number (5.1.3).
(ps-begin-file, ps-begin-job, ps-set-color, ps-do-despool, ps-setup)
(ps-insert-file, ps-output-boolean, ps-plot-with-face)
(ps-generate-postscript-with-faces): Code fix.
(ps-color-values): XEmacs compatibility.
(ps-print-background-image, ps-print-background-text, ps-printer-name)
(ps-default-fg, ps-default-bg): Adjust customization.
(ps-zebra-color): Adjust customization, renaming old ps-zebra-gray var.
(ps-color-scale): Renaming old ps-color-value fun.
(ps-print-headers): Replace ps-print-header group to avoid conflict
with ps-print-header variable.
(ps-print-miscellany): New group.
(ps-format-color, ps-rgb-color): New funs.
(ps-default-foreground): New var.
(ps-printer-name-option): New const.
2000-03-30 13:21:45 +00:00
|
|
|
|
(format "/N-Up-Margin %s def\n" ps-n-up-margin)
|
|
|
|
|
"/N-Up-Repeat "
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
(if ps-landscape-mode
|
|
|
|
|
(ps-n-up-end n-up-filling)
|
|
|
|
|
(ps-n-up-repeat n-up-filling))
|
|
|
|
|
" def\n/N-Up-End "
|
|
|
|
|
(if ps-landscape-mode
|
|
|
|
|
(ps-n-up-repeat n-up-filling)
|
|
|
|
|
(ps-n-up-end n-up-filling))
|
|
|
|
|
" def\n/N-Up-XColumn " (ps-n-up-xcolumn n-up-filling)
|
|
|
|
|
" def\n/N-Up-YColumn " (ps-n-up-ycolumn n-up-filling)
|
|
|
|
|
" def\n/N-Up-XLine " (ps-n-up-xline n-up-filling)
|
|
|
|
|
" def\n/N-Up-YLine " (ps-n-up-yline n-up-filling)
|
|
|
|
|
" def\n/N-Up-XStart " (ps-n-up-xstart n-up-filling)
|
|
|
|
|
" def\n/N-Up-YStart " (ps-n-up-ystart n-up-filling) " def\n")
|
|
|
|
|
|
|
|
|
|
(ps-background-text)
|
|
|
|
|
(ps-background-image)
|
|
|
|
|
(setq ps-background-all-pages (nreverse ps-background-all-pages)
|
|
|
|
|
ps-background-pages (nreverse ps-background-pages))
|
|
|
|
|
|
2004-07-27 02:10:51 +00:00
|
|
|
|
(ps-output "\n" ps-print-prologue-1
|
|
|
|
|
"\n/printGlobalBackground{\n")
|
2000-11-09 12:05:55 +00:00
|
|
|
|
(mapcar 'ps-output ps-background-all-pages)
|
2004-07-23 01:16:06 +00:00
|
|
|
|
(ps-output
|
2004-07-27 02:10:51 +00:00
|
|
|
|
"}def\n/printLocalBackground{\n}def\n"
|
|
|
|
|
"\n%%EndProlog\n\n%%BeginSetup\n"
|
2004-07-23 01:16:06 +00:00
|
|
|
|
"\n%%IncludeResource: font Times-Roman"
|
2004-07-27 02:10:51 +00:00
|
|
|
|
"\n%%IncludeResource: font Times-Italic"
|
|
|
|
|
"\n%%IncludeResource: font "
|
2004-07-23 01:16:06 +00:00
|
|
|
|
(mapconcat 'identity
|
|
|
|
|
(ps-remove-duplicates
|
|
|
|
|
(append (ps-fonts 'ps-font-for-text)
|
|
|
|
|
(list (ps-font 'ps-font-for-header 'normal)
|
|
|
|
|
(ps-font 'ps-font-for-header 'bold)
|
|
|
|
|
(ps-font 'ps-font-for-footer 'normal)
|
|
|
|
|
(ps-font 'ps-font-for-footer 'bold))))
|
|
|
|
|
"\n%%IncludeResource: font ")
|
2004-07-27 02:10:51 +00:00
|
|
|
|
;; Header/line number fonts
|
|
|
|
|
(format "\n/h0 %s(%s)cvn DefFont\n" ; /h0 14/Helvetica-Bold DefFont
|
|
|
|
|
ps-header-title-font-size-internal
|
|
|
|
|
(ps-font 'ps-font-for-header 'bold))
|
|
|
|
|
(format "/h1 %s(%s)cvn DefFont\n" ; /h1 12/Helvetica DefFont
|
|
|
|
|
ps-header-font-size-internal
|
|
|
|
|
(ps-font 'ps-font-for-header 'normal))
|
|
|
|
|
(format "/L0 %s(%s)cvn DefFont\n" ; /L0 6/Times-Italic DefFont
|
|
|
|
|
(ps-get-font-size 'ps-line-number-font-size)
|
|
|
|
|
ps-line-number-font)
|
|
|
|
|
(format "/H0 %s(%s)cvn DefFont\n" ; /H0 12/Helvetica DefFont
|
|
|
|
|
ps-footer-font-size-internal
|
|
|
|
|
(ps-font 'ps-font-for-footer 'normal))
|
|
|
|
|
"\n\n% ---- These lines must be kept together because...
|
Line and paragraph spacing feature. Region to cut
out when printing. Doc fix.
(ps-print-version): New version number (6.5).
(ps-line-spacing, ps-paragraph-spacing, ps-paragraph-regexp): New
vars. Line and paragraph spacing feature.
(ps-begin-cut-regexp, ps-end-cut-regexp): New vars. Region to cut
out when printing.
(ps-setup, ps-nb-pages, ps-get-page-dimensions, ps-begin-file)
(ps-get-font-size, ps-begin-job, ps-continue-line)
(ps-plot-region): Code fix.
(ps-print-prologue-2): Var eliminated.
(ps-line-spacing-internal, ps-paragraph-spacing-internal): New
internal vars.
(ps-get-size): New fun.
(ps-output-string-prim, ps-init-output-queue, ps-print-page-p)
(ps-next-line): Replace defun by defsubst.
(ps-mule-plot-string): Autoload doc fix.
(ps-mule-generate-font): New arg HEADER-P. If it is
non-nil, generate font for the header strings.
(ps-mule-prepare-font): Likewise.
(ps-mule-generate-glyphs): Likewise.
(ps-mule-string-encoding): Likewise.
(ps-mule-header-charsets): New variable.
(ps-mule-encode-header-string): New function.
(ps-mule-header-string-charsets): New function.
(ps-mule-begin-job): Check charsets in the header strings. If there
are non-ASCII and non-Latin1 charsets, prepare fonts for them.
2001-04-02 10:35:07 +00:00
|
|
|
|
|
|
|
|
|
/h0 F
|
|
|
|
|
/HeaderTitleLineHeight FontHeight def
|
|
|
|
|
|
|
|
|
|
/h1 F
|
|
|
|
|
/HeaderLineHeight FontHeight def
|
|
|
|
|
/HeaderDescent Descent def
|
|
|
|
|
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
/H0 F
|
|
|
|
|
/FooterLineHeight FontHeight def
|
|
|
|
|
/FooterDescent Descent def
|
|
|
|
|
|
Line and paragraph spacing feature. Region to cut
out when printing. Doc fix.
(ps-print-version): New version number (6.5).
(ps-line-spacing, ps-paragraph-spacing, ps-paragraph-regexp): New
vars. Line and paragraph spacing feature.
(ps-begin-cut-regexp, ps-end-cut-regexp): New vars. Region to cut
out when printing.
(ps-setup, ps-nb-pages, ps-get-page-dimensions, ps-begin-file)
(ps-get-font-size, ps-begin-job, ps-continue-line)
(ps-plot-region): Code fix.
(ps-print-prologue-2): Var eliminated.
(ps-line-spacing-internal, ps-paragraph-spacing-internal): New
internal vars.
(ps-get-size): New fun.
(ps-output-string-prim, ps-init-output-queue, ps-print-page-p)
(ps-next-line): Replace defun by defsubst.
(ps-mule-plot-string): Autoload doc fix.
(ps-mule-generate-font): New arg HEADER-P. If it is
non-nil, generate font for the header strings.
(ps-mule-prepare-font): Likewise.
(ps-mule-generate-glyphs): Likewise.
(ps-mule-string-encoding): Likewise.
(ps-mule-header-charsets): New variable.
(ps-mule-encode-header-string): New function.
(ps-mule-header-string-charsets): New function.
(ps-mule-begin-job): Check charsets in the header strings. If there
are non-ASCII and non-Latin1 charsets, prepare fonts for them.
2001-04-02 10:35:07 +00:00
|
|
|
|
% ---- ...because `F' has a side-effect on `FontHeight' and `Descent'\n\n")
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
|
|
|
|
|
;; Text fonts
|
|
|
|
|
(let ((font (ps-font-alist 'ps-font-for-text))
|
|
|
|
|
(i 0))
|
|
|
|
|
(while font
|
2000-08-29 10:51:52 +00:00
|
|
|
|
(ps-output (format "/f%d %s(%s)cvn DefFont\n"
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
i
|
|
|
|
|
ps-font-size-internal
|
|
|
|
|
(ps-font 'ps-font-for-text (car (car font)))))
|
|
|
|
|
(setq font (cdr font)
|
|
|
|
|
i (1+ i))))
|
|
|
|
|
|
|
|
|
|
(let ((font-entry (cdr (assq ps-font-family ps-font-info-database))))
|
|
|
|
|
(ps-output (format "/SpaceWidthRatio %f def\n"
|
|
|
|
|
(/ (ps-lookup 'space-width) (ps-lookup 'size)))))
|
|
|
|
|
|
|
|
|
|
(unless (eq ps-spool-config 'lpr-switches)
|
|
|
|
|
(ps-output "\n%%BeginFeature: *Duplex "
|
|
|
|
|
(ps-boolean-capitalized ps-spool-duplex)
|
|
|
|
|
" *Tumble "
|
|
|
|
|
(ps-boolean-capitalized tumble)
|
2000-08-29 10:51:52 +00:00
|
|
|
|
"\nUseSetpagedevice\n{BMark/Duplex "
|
|
|
|
|
(ps-boolean-constant ps-spool-duplex)
|
|
|
|
|
"/Tumble "
|
|
|
|
|
(ps-boolean-constant tumble)
|
|
|
|
|
" EMark setpagedevice}\n{statusdict begin "
|
|
|
|
|
(ps-boolean-constant ps-spool-duplex)
|
|
|
|
|
" setduplexmode "
|
|
|
|
|
(ps-boolean-constant tumble)
|
|
|
|
|
" settumble end}ifelse\n%%EndFeature\n")))
|
XEmacs compatibility. Doc fix. Can select page size
with/without giving an error if PostScript printer doesn't have this
kind of page size. Zebra Stripe continues or restarts on next page.
Manual/automatic paper feeding. Switch or not the header.
(ps-print-version): New version number (5.2.2).
(ps-windows-system): Include emx as a Windows system.
(ps-setup, ps-begin-file, ps-color-values, ps-screen-to-bit-face)
(ps-generate-postscript-with-faces, ps-generate-postscript-with-faces)
(ps-background-text): Code fix.
(ps-error-handler-message, ps-user-defined-prologue)
(ps-print-prologue-header, ps-printer-name)
(ps-print-control-characters, ps-n-up-filling, ps-zebra-color)
(ps-line-number-step, ps-spool-config, ps-default-fg, ps-default-bg)
(ps-use-face-background): Customization fix.
(ps-n-up-database): Data fix.
(ps-warn-paper-type, ps-zebra-stripe-follow, ps-manual-feed)
(ps-switch-header): New vars.
(ps-xemacs-color-name, ps-face-foreground-name)
(ps-face-background-name, ps-boolean-constant): New funs.
2000-06-07 15:34:55 +00:00
|
|
|
|
(ps-output "\n%%BeginFeature: *ManualFeed "
|
|
|
|
|
(ps-boolean-capitalized ps-manual-feed)
|
|
|
|
|
"\nBMark /ManualFeed "
|
|
|
|
|
(ps-boolean-constant ps-manual-feed)
|
(ps-end-job): Bind case-fold-search only after
switching to ps-spool-buffer.
Line number font customization. PostScript: Lines and
PageCount are initialized on each page. Doc Fix.
(ps-print-version): New version number (6.3.2).
(ps-lpr-switches, ps-font-info-database, ps-font-size)
(ps-header-font-size, ps-header-title-font-size, ps-left-header)
(ps-right-header): Customization fix.
(ps-setup, ps-select-font, ps-begin-file, ps-header-sheet, ps-end-job):
Fix code.
(ps-end-with-control-d, ps-line-number-font, ps-line-number-font-size):
New vars.
2000-11-30 13:20:49 +00:00
|
|
|
|
" EMark setpagedevice\n%%EndFeature\n\nBeginDoc\n%%EndSetup\n")
|
2000-03-23 13:54:25 +00:00
|
|
|
|
(and ps-banner-page-when-duplexing
|
2000-05-18 21:50:51 +00:00
|
|
|
|
(ps-output "\n%%Page: banner 0\nsave showpage restore\n")))
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
|
|
|
|
|
|
PostScript programming fix for ghostview, doc fix.
(ps-print-version): New version number (5.1.3).
(ps-begin-file, ps-begin-job, ps-set-color, ps-do-despool, ps-setup)
(ps-insert-file, ps-output-boolean, ps-plot-with-face)
(ps-generate-postscript-with-faces): Code fix.
(ps-color-values): XEmacs compatibility.
(ps-print-background-image, ps-print-background-text, ps-printer-name)
(ps-default-fg, ps-default-bg): Adjust customization.
(ps-zebra-color): Adjust customization, renaming old ps-zebra-gray var.
(ps-color-scale): Renaming old ps-color-value fun.
(ps-print-headers): Replace ps-print-header group to avoid conflict
with ps-print-header variable.
(ps-print-miscellany): New group.
(ps-format-color, ps-rgb-color): New funs.
(ps-default-foreground): New var.
(ps-printer-name-option): New const.
2000-03-30 13:21:45 +00:00
|
|
|
|
(defun ps-format-color (color &optional default)
|
|
|
|
|
(let ((the-color (if (stringp color)
|
|
|
|
|
(ps-color-scale color)
|
|
|
|
|
color)))
|
|
|
|
|
(if (and the-color (listp the-color))
|
|
|
|
|
(concat "["
|
|
|
|
|
(format ps-color-format
|
2001-04-26 09:30:00 +00:00
|
|
|
|
(* (nth 0 the-color) 1.0) ; force float number
|
|
|
|
|
(* (nth 1 the-color) 1.0) ; force float number
|
|
|
|
|
(* (nth 2 the-color) 1.0)) ; force float number
|
PostScript programming fix for ghostview, doc fix.
(ps-print-version): New version number (5.1.3).
(ps-begin-file, ps-begin-job, ps-set-color, ps-do-despool, ps-setup)
(ps-insert-file, ps-output-boolean, ps-plot-with-face)
(ps-generate-postscript-with-faces): Code fix.
(ps-color-values): XEmacs compatibility.
(ps-print-background-image, ps-print-background-text, ps-printer-name)
(ps-default-fg, ps-default-bg): Adjust customization.
(ps-zebra-color): Adjust customization, renaming old ps-zebra-gray var.
(ps-color-scale): Renaming old ps-color-value fun.
(ps-print-headers): Replace ps-print-header group to avoid conflict
with ps-print-header variable.
(ps-print-miscellany): New group.
(ps-format-color, ps-rgb-color): New funs.
(ps-default-foreground): New var.
(ps-printer-name-option): New const.
2000-03-30 13:21:45 +00:00
|
|
|
|
"] ")
|
|
|
|
|
(ps-float-format (if (numberp the-color) the-color default)))))
|
|
|
|
|
|
|
|
|
|
|
2000-03-15 13:35:02 +00:00
|
|
|
|
(defun ps-insert-string (prologue)
|
|
|
|
|
(let ((str (if (functionp prologue)
|
|
|
|
|
(funcall prologue)
|
|
|
|
|
prologue)))
|
|
|
|
|
(and (stringp str)
|
|
|
|
|
(ps-output str))))
|
|
|
|
|
|
|
|
|
|
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
(defun ps-boolean-capitalized (bool)
|
|
|
|
|
(if bool "True" "False"))
|
|
|
|
|
|
1994-05-01 22:09:01 +00:00
|
|
|
|
|
XEmacs compatibility. Doc fix. Can select page size
with/without giving an error if PostScript printer doesn't have this
kind of page size. Zebra Stripe continues or restarts on next page.
Manual/automatic paper feeding. Switch or not the header.
(ps-print-version): New version number (5.2.2).
(ps-windows-system): Include emx as a Windows system.
(ps-setup, ps-begin-file, ps-color-values, ps-screen-to-bit-face)
(ps-generate-postscript-with-faces, ps-generate-postscript-with-faces)
(ps-background-text): Code fix.
(ps-error-handler-message, ps-user-defined-prologue)
(ps-print-prologue-header, ps-printer-name)
(ps-print-control-characters, ps-n-up-filling, ps-zebra-color)
(ps-line-number-step, ps-spool-config, ps-default-fg, ps-default-bg)
(ps-use-face-background): Customization fix.
(ps-n-up-database): Data fix.
(ps-warn-paper-type, ps-zebra-stripe-follow, ps-manual-feed)
(ps-switch-header): New vars.
(ps-xemacs-color-name, ps-face-foreground-name)
(ps-face-background-name, ps-boolean-constant): New funs.
2000-06-07 15:34:55 +00:00
|
|
|
|
(defun ps-boolean-constant (bool)
|
|
|
|
|
(if bool "true" "false"))
|
|
|
|
|
|
|
|
|
|
|
1995-01-20 06:09:03 +00:00
|
|
|
|
(defun ps-header-dirpart ()
|
|
|
|
|
(let ((fname (buffer-file-name)))
|
|
|
|
|
(if fname
|
|
|
|
|
(if (string-equal (buffer-name) (file-name-nondirectory fname))
|
1999-11-24 02:29:08 +00:00
|
|
|
|
(abbreviate-file-name (file-name-directory fname))
|
1995-01-20 06:09:03 +00:00
|
|
|
|
fname)
|
|
|
|
|
"")))
|
1994-05-01 22:09:01 +00:00
|
|
|
|
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
|
1995-01-20 06:09:03 +00:00
|
|
|
|
(defun ps-get-buffer-name ()
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
(cond
|
|
|
|
|
;; Indulge Jim this little easter egg:
|
|
|
|
|
((string= (buffer-name) "ps-print.el")
|
|
|
|
|
"Hey, Cool! It's ps-print.el!!!")
|
|
|
|
|
;; Indulge Jack this other little easter egg:
|
|
|
|
|
((string= (buffer-name) "sokoban.el")
|
|
|
|
|
"Super! C'est sokoban.el!")
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
(t (concat
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
(and ps-printing-region-p "Subset of: ")
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
(buffer-name)
|
|
|
|
|
(and (buffer-modified-p) " (unsaved)")))))
|
1994-05-01 22:09:01 +00:00
|
|
|
|
|
Doc fix, font size specifies landscape and portrait sizes.
(ps-print-version): New version number (4.1.4).
(ps-font-size, ps-header-font-size, ps-header-title-font-size):
Specifies landscape and portrait sizes.
(ps-setup, ps-print-quote, ps-line-lengths-internal, ps-nb-pages)
(ps-get-page-dimensions, ps-begin-file, ps-begin-job, ps-generate): Fun
fix.
(ps-get-font-size): New fun.
(ps-font-size-internal, ps-header-font-size-internal)
(ps-header-title-font-size-internal): New vars.
PostScript programming fix.
(ps-print-prologue-1): Fix BeginDoc PostScript procedure (do'nt use
setpagedevice operator).
1999-02-27 01:37:15 +00:00
|
|
|
|
|
Line and paragraph spacing feature. Region to cut
out when printing. Doc fix.
(ps-print-version): New version number (6.5).
(ps-line-spacing, ps-paragraph-spacing, ps-paragraph-regexp): New
vars. Line and paragraph spacing feature.
(ps-begin-cut-regexp, ps-end-cut-regexp): New vars. Region to cut
out when printing.
(ps-setup, ps-nb-pages, ps-get-page-dimensions, ps-begin-file)
(ps-get-font-size, ps-begin-job, ps-continue-line)
(ps-plot-region): Code fix.
(ps-print-prologue-2): Var eliminated.
(ps-line-spacing-internal, ps-paragraph-spacing-internal): New
internal vars.
(ps-get-size): New fun.
(ps-output-string-prim, ps-init-output-queue, ps-print-page-p)
(ps-next-line): Replace defun by defsubst.
(ps-mule-plot-string): Autoload doc fix.
(ps-mule-generate-font): New arg HEADER-P. If it is
non-nil, generate font for the header strings.
(ps-mule-prepare-font): Likewise.
(ps-mule-generate-glyphs): Likewise.
(ps-mule-string-encoding): Likewise.
(ps-mule-header-charsets): New variable.
(ps-mule-encode-header-string): New function.
(ps-mule-header-string-charsets): New function.
(ps-mule-begin-job): Check charsets in the header strings. If there
are non-ASCII and non-Latin1 charsets, prepare fonts for them.
2001-04-02 10:35:07 +00:00
|
|
|
|
(defun ps-get-size (size mess &optional arg)
|
|
|
|
|
(let ((siz (cond ((numberp size)
|
|
|
|
|
size)
|
|
|
|
|
((and (consp size)
|
|
|
|
|
(numberp (car size))
|
|
|
|
|
(numberp (cdr size)))
|
|
|
|
|
(if ps-landscape-mode
|
|
|
|
|
(car size)
|
|
|
|
|
(cdr size)))
|
|
|
|
|
(t
|
|
|
|
|
-1))))
|
|
|
|
|
(and (< siz 0)
|
|
|
|
|
(error "Invalid %s `%S'%s"
|
|
|
|
|
mess size
|
|
|
|
|
(if arg
|
|
|
|
|
(format " for `%S'" arg)
|
|
|
|
|
"")))
|
|
|
|
|
siz))
|
|
|
|
|
|
|
|
|
|
|
Doc fix, font size specifies landscape and portrait sizes.
(ps-print-version): New version number (4.1.4).
(ps-font-size, ps-header-font-size, ps-header-title-font-size):
Specifies landscape and portrait sizes.
(ps-setup, ps-print-quote, ps-line-lengths-internal, ps-nb-pages)
(ps-get-page-dimensions, ps-begin-file, ps-begin-job, ps-generate): Fun
fix.
(ps-get-font-size): New fun.
(ps-font-size-internal, ps-header-font-size-internal)
(ps-header-title-font-size-internal): New vars.
PostScript programming fix.
(ps-print-prologue-1): Fix BeginDoc PostScript procedure (do'nt use
setpagedevice operator).
1999-02-27 01:37:15 +00:00
|
|
|
|
(defun ps-get-font-size (font-sym)
|
Line and paragraph spacing feature. Region to cut
out when printing. Doc fix.
(ps-print-version): New version number (6.5).
(ps-line-spacing, ps-paragraph-spacing, ps-paragraph-regexp): New
vars. Line and paragraph spacing feature.
(ps-begin-cut-regexp, ps-end-cut-regexp): New vars. Region to cut
out when printing.
(ps-setup, ps-nb-pages, ps-get-page-dimensions, ps-begin-file)
(ps-get-font-size, ps-begin-job, ps-continue-line)
(ps-plot-region): Code fix.
(ps-print-prologue-2): Var eliminated.
(ps-line-spacing-internal, ps-paragraph-spacing-internal): New
internal vars.
(ps-get-size): New fun.
(ps-output-string-prim, ps-init-output-queue, ps-print-page-p)
(ps-next-line): Replace defun by defsubst.
(ps-mule-plot-string): Autoload doc fix.
(ps-mule-generate-font): New arg HEADER-P. If it is
non-nil, generate font for the header strings.
(ps-mule-prepare-font): Likewise.
(ps-mule-generate-glyphs): Likewise.
(ps-mule-string-encoding): Likewise.
(ps-mule-header-charsets): New variable.
(ps-mule-encode-header-string): New function.
(ps-mule-header-string-charsets): New function.
(ps-mule-begin-job): Check charsets in the header strings. If there
are non-ASCII and non-Latin1 charsets, prepare fonts for them.
2001-04-02 10:35:07 +00:00
|
|
|
|
(ps-get-size (symbol-value font-sym) "font size" font-sym))
|
Doc fix, font size specifies landscape and portrait sizes.
(ps-print-version): New version number (4.1.4).
(ps-font-size, ps-header-font-size, ps-header-title-font-size):
Specifies landscape and portrait sizes.
(ps-setup, ps-print-quote, ps-line-lengths-internal, ps-nb-pages)
(ps-get-page-dimensions, ps-begin-file, ps-begin-job, ps-generate): Fun
fix.
(ps-get-font-size): New fun.
(ps-font-size-internal, ps-header-font-size-internal)
(ps-header-title-font-size-internal): New vars.
PostScript programming fix.
(ps-print-prologue-1): Fix BeginDoc PostScript procedure (do'nt use
setpagedevice operator).
1999-02-27 01:37:15 +00:00
|
|
|
|
|
|
|
|
|
|
2003-03-06 01:54:17 +00:00
|
|
|
|
(defun ps-rgb-color (color default)
|
|
|
|
|
(cond ((and color (listp color) (= (length color) 3)
|
|
|
|
|
(let ((cl color)
|
|
|
|
|
(ok t) e)
|
|
|
|
|
(while (and ok cl)
|
|
|
|
|
(setq e (car cl)
|
|
|
|
|
cl (cdr cl)
|
|
|
|
|
ok (and (floatp e) (<= 0.0 e) (<= e 1.0))))
|
|
|
|
|
ok))
|
|
|
|
|
color)
|
|
|
|
|
((and (floatp color) (<= 0.0 color) (<= color 1.0))
|
|
|
|
|
(list color color color))
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
((stringp color) (ps-color-scale color))
|
|
|
|
|
(t (list default default default))
|
|
|
|
|
))
|
|
|
|
|
|
|
|
|
|
|
1995-01-20 06:09:03 +00:00
|
|
|
|
(defun ps-begin-job ()
|
Fix bug: if ^L is the very first buffer character,
ps-print crashes. New feature: page selection for printing. Create
raw-text-unix coding system for XEmacs. Doc fix.
(ps-print-version): New version number (5.2.3).
(ps-plot-region): Bug fix.
(ps-setup, ps-init-output-queue, ps-output, ps-begin-job, ps-end-file)
(ps-header-sheet, ps-generate, ps-end-job): Code fix.
(ps-restore-selected-pages, ps-selected-pages, ps-print-page-p): New
funs.
(ps-selected-pages, ps-last-selected-pages, ps-first-page)
(ps-last-page): New vars.
2000-06-22 12:27:49 +00:00
|
|
|
|
;; prologue files
|
2000-01-05 08:11:30 +00:00
|
|
|
|
(or (equal ps-mark-code-directory ps-postscript-code-directory)
|
2000-08-29 10:51:52 +00:00
|
|
|
|
(setq ps-print-prologue-0 (ps-prologue-file 0)
|
|
|
|
|
ps-print-prologue-1 (ps-prologue-file 1)
|
|
|
|
|
ps-mark-code-directory ps-postscript-code-directory))
|
Fix bug: if ^L is the very first buffer character,
ps-print crashes. New feature: page selection for printing. Create
raw-text-unix coding system for XEmacs. Doc fix.
(ps-print-version): New version number (5.2.3).
(ps-plot-region): Bug fix.
(ps-setup, ps-init-output-queue, ps-output, ps-begin-job, ps-end-file)
(ps-header-sheet, ps-generate, ps-end-job): Code fix.
(ps-restore-selected-pages, ps-selected-pages, ps-print-page-p): New
funs.
(ps-selected-pages, ps-last-selected-pages, ps-first-page)
(ps-last-page): New vars.
2000-06-22 12:27:49 +00:00
|
|
|
|
;; selected pages
|
|
|
|
|
(let (new page)
|
|
|
|
|
(while ps-selected-pages
|
|
|
|
|
(setq page (car ps-selected-pages)
|
|
|
|
|
ps-selected-pages (cdr ps-selected-pages))
|
|
|
|
|
(cond ((integerp page)
|
|
|
|
|
(and (> page 0)
|
|
|
|
|
(setq new (cons (cons page page) new))))
|
|
|
|
|
((consp page)
|
|
|
|
|
(and (integerp (car page)) (integerp (cdr page))
|
|
|
|
|
(> (car page) 0)
|
|
|
|
|
(<= (car page) (cdr page))
|
|
|
|
|
(setq new (cons page new))))))
|
|
|
|
|
(setq ps-selected-pages (sort new #'(lambda (one other)
|
|
|
|
|
(< (car one) (car other))))
|
|
|
|
|
ps-last-selected-pages ps-selected-pages
|
|
|
|
|
ps-first-page nil
|
|
|
|
|
ps-last-page nil))
|
|
|
|
|
;; face background
|
2000-04-29 19:27:49 +00:00
|
|
|
|
(or (listp ps-use-face-background)
|
|
|
|
|
(setq ps-use-face-background t))
|
Fix bug: if ^L is the very first buffer character,
ps-print crashes. New feature: page selection for printing. Create
raw-text-unix coding system for XEmacs. Doc fix.
(ps-print-version): New version number (5.2.3).
(ps-plot-region): Bug fix.
(ps-setup, ps-init-output-queue, ps-output, ps-begin-job, ps-end-file)
(ps-header-sheet, ps-generate, ps-end-job): Code fix.
(ps-restore-selected-pages, ps-selected-pages, ps-print-page-p): New
funs.
(ps-selected-pages, ps-last-selected-pages, ps-first-page)
(ps-last-page): New vars.
2000-06-22 12:27:49 +00:00
|
|
|
|
;; line number
|
2000-04-29 19:27:49 +00:00
|
|
|
|
(and (integerp ps-line-number-step)
|
|
|
|
|
(<= ps-line-number-step 0)
|
|
|
|
|
(setq ps-line-number-step 1))
|
2000-05-18 21:50:51 +00:00
|
|
|
|
(setq ps-n-up-on (> ps-n-up-printing 1)
|
|
|
|
|
ps-line-number-start (max 1 (min ps-line-number-start
|
|
|
|
|
(if (integerp ps-line-number-step)
|
|
|
|
|
ps-line-number-step
|
|
|
|
|
ps-zebra-stripe-height))))
|
Fix bug: if ^L is the very first buffer character,
ps-print crashes. New feature: page selection for printing. Create
raw-text-unix coding system for XEmacs. Doc fix.
(ps-print-version): New version number (5.2.3).
(ps-plot-region): Bug fix.
(ps-setup, ps-init-output-queue, ps-output, ps-begin-job, ps-end-file)
(ps-header-sheet, ps-generate, ps-end-job): Code fix.
(ps-restore-selected-pages, ps-selected-pages, ps-print-page-p): New
funs.
(ps-selected-pages, ps-last-selected-pages, ps-first-page)
(ps-last-page): New vars.
2000-06-22 12:27:49 +00:00
|
|
|
|
;; spooling buffer
|
1998-06-08 17:25:09 +00:00
|
|
|
|
(save-excursion
|
|
|
|
|
(set-buffer ps-spool-buffer)
|
|
|
|
|
(goto-char (point-max))
|
|
|
|
|
(and (re-search-backward "^%%Trailer$" nil t)
|
|
|
|
|
(delete-region (match-beginning 0) (point-max))))
|
Fix bug: if ^L is the very first buffer character,
ps-print crashes. New feature: page selection for printing. Create
raw-text-unix coding system for XEmacs. Doc fix.
(ps-print-version): New version number (5.2.3).
(ps-plot-region): Bug fix.
(ps-setup, ps-init-output-queue, ps-output, ps-begin-job, ps-end-file)
(ps-header-sheet, ps-generate, ps-end-job): Code fix.
(ps-restore-selected-pages, ps-selected-pages, ps-print-page-p): New
funs.
(ps-selected-pages, ps-last-selected-pages, ps-first-page)
(ps-last-page): New vars.
2000-06-22 12:27:49 +00:00
|
|
|
|
;; miscellaneous
|
2001-02-20 10:41:10 +00:00
|
|
|
|
(setq ps-zebra-stripe-full-p (memq ps-zebra-stripe-follow
|
|
|
|
|
'(full full-follow))
|
|
|
|
|
ps-page-postscript 0
|
2000-11-09 12:05:55 +00:00
|
|
|
|
ps-page-sheet 0
|
|
|
|
|
ps-page-n-up 0
|
2000-11-02 12:04:59 +00:00
|
|
|
|
ps-page-column 0
|
2000-12-29 11:48:50 +00:00
|
|
|
|
ps-lines-printed 0
|
2000-11-09 12:05:55 +00:00
|
|
|
|
ps-print-page-p t
|
|
|
|
|
ps-showline-count (car ps-printing-region)
|
Line and paragraph spacing feature. Region to cut
out when printing. Doc fix.
(ps-print-version): New version number (6.5).
(ps-line-spacing, ps-paragraph-spacing, ps-paragraph-regexp): New
vars. Line and paragraph spacing feature.
(ps-begin-cut-regexp, ps-end-cut-regexp): New vars. Region to cut
out when printing.
(ps-setup, ps-nb-pages, ps-get-page-dimensions, ps-begin-file)
(ps-get-font-size, ps-begin-job, ps-continue-line)
(ps-plot-region): Code fix.
(ps-print-prologue-2): Var eliminated.
(ps-line-spacing-internal, ps-paragraph-spacing-internal): New
internal vars.
(ps-get-size): New fun.
(ps-output-string-prim, ps-init-output-queue, ps-print-page-p)
(ps-next-line): Replace defun by defsubst.
(ps-mule-plot-string): Autoload doc fix.
(ps-mule-generate-font): New arg HEADER-P. If it is
non-nil, generate font for the header strings.
(ps-mule-prepare-font): Likewise.
(ps-mule-generate-glyphs): Likewise.
(ps-mule-string-encoding): Likewise.
(ps-mule-header-charsets): New variable.
(ps-mule-encode-header-string): New function.
(ps-mule-header-string-charsets): New function.
(ps-mule-begin-job): Check charsets in the header strings. If there
are non-ASCII and non-Latin1 charsets, prepare fonts for them.
2001-04-02 10:35:07 +00:00
|
|
|
|
ps-line-spacing-internal (ps-get-size ps-line-spacing
|
|
|
|
|
"line spacing")
|
|
|
|
|
ps-paragraph-spacing-internal (ps-get-size ps-paragraph-spacing
|
|
|
|
|
"paragraph spacing")
|
Doc fix, font size specifies landscape and portrait sizes.
(ps-print-version): New version number (4.1.4).
(ps-font-size, ps-header-font-size, ps-header-title-font-size):
Specifies landscape and portrait sizes.
(ps-setup, ps-print-quote, ps-line-lengths-internal, ps-nb-pages)
(ps-get-page-dimensions, ps-begin-file, ps-begin-job, ps-generate): Fun
fix.
(ps-get-font-size): New fun.
(ps-font-size-internal, ps-header-font-size-internal)
(ps-header-title-font-size-internal): New vars.
PostScript programming fix.
(ps-print-prologue-1): Fix BeginDoc PostScript procedure (do'nt use
setpagedevice operator).
1999-02-27 01:37:15 +00:00
|
|
|
|
ps-font-size-internal (ps-get-font-size 'ps-font-size)
|
|
|
|
|
ps-header-font-size-internal (ps-get-font-size 'ps-header-font-size)
|
|
|
|
|
ps-header-title-font-size-internal
|
|
|
|
|
(ps-get-font-size 'ps-header-title-font-size)
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
ps-footer-font-size-internal (ps-get-font-size 'ps-footer-font-size)
|
Some comment, doc and bug fixes.
(ps-print-version): New version number (3.05.3) and doc fix.
(ps-output-string-prim, ps-begin-job, ps-control-character)
(ps-plot-region): Bug fix.
(ps-print-control-characters): New custom var.
(ps-string-escape-codes, ps-string-control-codes): New var.
(ps-color-device, ps-font-lock-face-attributes, ps-eval-switch)
(ps-flatten-list, ps-flatten-list-1): New fn.
(ps-setup): Update current setup.
(ps-begin-file): Adjust PostScript header file.
(ps-plot, ps-face-attribute-list): Little programming improvement.
(ps-print-prologue-1): Replace NumberOfZebra by ZebraHeight.
(ps-print-without-faces, ps-print-with-faces): Little reprogramming.
(ps-plot-with-face): Get color only on color screen device.
(ps-build-reference-face-lists): Handle obsolete
font-lock-face-attributes.
(ps-print-ensure-fontified): Little programming setting.
(ps-generate-postscript-with-faces): Adjust initializations, get color
only on color screen device.
(ps-generate): Replace (if A B) by (and A B).
(ps-do-despool): Dynamic evaluation for ps-lpr-switches,
Replace (if A B) by (and A B).
(color-instance-rgb-components, ps-color-values): Replace
pixel-components by color-instance-rgb-components.
(ps-xemacs-face-kind-p): Replace face-font by face-font-instance,
replace x-font-properties by font-instance-properties.
1997-12-25 18:33:52 +00:00
|
|
|
|
ps-control-or-escape-regexp
|
1998-12-15 06:31:48 +00:00
|
|
|
|
(cond ((eq ps-print-control-characters '8-bit)
|
|
|
|
|
(string-as-unibyte "[\000-\037\177-\377]"))
|
|
|
|
|
((eq ps-print-control-characters 'control-8-bit)
|
|
|
|
|
(string-as-unibyte "[\000-\037\177-\237]"))
|
|
|
|
|
((eq ps-print-control-characters 'control)
|
|
|
|
|
"[\000-\037\177]")
|
PostScript programming fix for ghostview, doc fix.
(ps-print-version): New version number (5.1.3).
(ps-begin-file, ps-begin-job, ps-set-color, ps-do-despool, ps-setup)
(ps-insert-file, ps-output-boolean, ps-plot-with-face)
(ps-generate-postscript-with-faces): Code fix.
(ps-color-values): XEmacs compatibility.
(ps-print-background-image, ps-print-background-text, ps-printer-name)
(ps-default-fg, ps-default-bg): Adjust customization.
(ps-zebra-color): Adjust customization, renaming old ps-zebra-gray var.
(ps-color-scale): Renaming old ps-color-value fun.
(ps-print-headers): Replace ps-print-header group to avoid conflict
with ps-print-header variable.
(ps-print-miscellany): New group.
(ps-format-color, ps-rgb-color): New funs.
(ps-default-foreground): New var.
(ps-printer-name-option): New const.
2000-03-30 13:21:45 +00:00
|
|
|
|
(t "[\t\n\f]"))
|
2003-03-06 01:54:17 +00:00
|
|
|
|
ps-default-background (ps-rgb-color
|
|
|
|
|
(if (eq ps-default-bg t)
|
|
|
|
|
(ps-face-background-name 'default)
|
|
|
|
|
ps-default-bg)
|
|
|
|
|
1.0)
|
2003-02-13 11:57:42 +00:00
|
|
|
|
ps-default-foreground (ps-rgb-color
|
|
|
|
|
(if (eq ps-default-fg t)
|
|
|
|
|
(ps-face-foreground-name 'default)
|
|
|
|
|
ps-default-fg)
|
|
|
|
|
0.0)
|
2001-09-18 09:28:00 +00:00
|
|
|
|
ps-default-color (and (eq ps-print-color-p t) ps-default-foreground)
|
PostScript programming fix for ghostview, doc fix.
(ps-print-version): New version number (5.1.3).
(ps-begin-file, ps-begin-job, ps-set-color, ps-do-despool, ps-setup)
(ps-insert-file, ps-output-boolean, ps-plot-with-face)
(ps-generate-postscript-with-faces): Code fix.
(ps-color-values): XEmacs compatibility.
(ps-print-background-image, ps-print-background-text, ps-printer-name)
(ps-default-fg, ps-default-bg): Adjust customization.
(ps-zebra-color): Adjust customization, renaming old ps-zebra-gray var.
(ps-color-scale): Renaming old ps-color-value fun.
(ps-print-headers): Replace ps-print-header group to avoid conflict
with ps-print-header variable.
(ps-print-miscellany): New group.
(ps-format-color, ps-rgb-color): New funs.
(ps-default-foreground): New var.
(ps-printer-name-option): New const.
2000-03-30 13:21:45 +00:00
|
|
|
|
ps-current-color ps-default-color
|
|
|
|
|
;; Set the color scale. We do it here instead of in the defvar so
|
|
|
|
|
;; that ps-print can be dumped into emacs. This expression can't be
|
|
|
|
|
;; evaluated at dump-time because X isn't initialized.
|
|
|
|
|
ps-color-p (and ps-print-color-p (ps-color-device))
|
|
|
|
|
ps-print-color-scale (if ps-color-p
|
|
|
|
|
(float (car (ps-color-values "white")))
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
1.0))
|
|
|
|
|
;; initialize page dimensions
|
2003-03-06 01:54:17 +00:00
|
|
|
|
(ps-get-page-dimensions)
|
|
|
|
|
;; final check
|
|
|
|
|
(and ps-color-p
|
|
|
|
|
(equal ps-default-background ps-default-foreground)
|
|
|
|
|
(error
|
|
|
|
|
(concat
|
|
|
|
|
"`ps-default-fg' and `ps-default-bg' have the same color.\n"
|
|
|
|
|
"Text won't appear on page. Please, check these variables."))))
|
PostScript programming fix for ghostview, doc fix.
(ps-print-version): New version number (5.1.3).
(ps-begin-file, ps-begin-job, ps-set-color, ps-do-despool, ps-setup)
(ps-insert-file, ps-output-boolean, ps-plot-with-face)
(ps-generate-postscript-with-faces): Code fix.
(ps-color-values): XEmacs compatibility.
(ps-print-background-image, ps-print-background-text, ps-printer-name)
(ps-default-fg, ps-default-bg): Adjust customization.
(ps-zebra-color): Adjust customization, renaming old ps-zebra-gray var.
(ps-color-scale): Renaming old ps-color-value fun.
(ps-print-headers): Replace ps-print-header group to avoid conflict
with ps-print-header variable.
(ps-print-miscellany): New group.
(ps-format-color, ps-rgb-color): New funs.
(ps-default-foreground): New var.
(ps-printer-name-option): New const.
2000-03-30 13:21:45 +00:00
|
|
|
|
|
1994-05-01 22:09:01 +00:00
|
|
|
|
|
2000-10-31 11:54:38 +00:00
|
|
|
|
(defun ps-page-number ()
|
|
|
|
|
(if ps-print-only-one-header
|
2000-11-02 12:04:59 +00:00
|
|
|
|
(1+ (/ (1- ps-page-column) ps-number-of-columns))
|
|
|
|
|
ps-page-column))
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
|
|
|
|
|
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
(defsubst ps-end-page ()
|
|
|
|
|
(ps-output "EndPage\nEndDSCPage\n"))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(defsubst ps-next-page ()
|
1994-05-01 22:09:01 +00:00
|
|
|
|
(ps-end-page)
|
1995-01-20 06:09:03 +00:00
|
|
|
|
(ps-flush-output)
|
|
|
|
|
(ps-begin-page))
|
|
|
|
|
|
Doc fix, duplex and setpagedevice configuration.
(ps-print-version): New version number (4.2).
(ps-spool-config, ps-spool-tumble): New vars.
(ps-print-prologue-1): Changed to defconst, adjust PostScript
programming, new PostScript procedure to handle errors.
(ps-print-prologue-2): Changed to defconst.
(ps-print-duplex-feature): New const: duplex and tumble setting.
(ps-setup, ps-begin-file): Fix funs.
(ps-boolean-capitalized): New fun.
Doc fix, n-up printing.
(ps-print-version): New version number (5.0).
(ps-page-dimensions-database): Added document media.
(ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling)
(ps-page-order, ps-printing-region-p): New vars.
(ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New
funs.
(ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines)
(ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn)
(ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end)
(ps-n-up-xstart, ps-n-up-ystart): New macros.
(ps-print-begin-sheet-hook): New hook.
(ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New
const.
(ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job)
(ps-end-file, ps-dummy-page, ps-generate): Fix funs.
(ps-print-prologue-1): Adjust PostScript programming for n-up printing.
(ps-count-lines): Changed to defun.
(ps-header-page): Changed to defsubst, fix fun.
(ps-printing-region): Doc fix, adjust programming code.
(ps-output-boolean, ps-background-pages, ps-background-text)
(ps-background-image, ps-background, ps-get-boundingbox): Adjust
programming code.
Doc fix, better customization.
(ps-print-region-function, ps-number-of-columns, ps-spool-tumble)
(ps-print-color-p, ps-printing-region-p, ps-n-up-database)
(ps-end-file): Doc fix.
(ps-setup, ps-begin-file): Fun fix.
(postscript): New group.
(ps-zebra-gray, ps-banner-page-when-duplexing): New vars.
(ps-print-prologue-1): Adjust PostScript programming.
(ps-print): Adjust group hierarchy.
(ps-print-n-up, ps-print-zebra, ps-print-background,
ps-print-printer)
(ps-print-page): New subgroups.
(ps-print-prologue-header, ps-printer-name, ps-lpr-command)
(ps-lpr-switches, ps-page-dimensions-database, ps-paper-type)
(ps-landscape-mode, ps-print-control-characters, ps-n-up-printing)
(ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling, ps-zebra-stripes)
(ps-zebra-stripe-height, ps-print-background-image)
(ps-print-background-text, ps-spool-config): Adjust customization.
(dos-ps-printer): Definition eliminated.
1999-10-20 01:06:27 +00:00
|
|
|
|
|
|
|
|
|
(defun ps-header-sheet ()
|
|
|
|
|
;; Print only when a new sheet begins.
|
2000-11-02 12:04:59 +00:00
|
|
|
|
(and ps-print-page-p (> ps-page-sheet 0)
|
2000-10-31 11:54:38 +00:00
|
|
|
|
(ps-output "EndSheet\n"))
|
2000-11-02 12:04:59 +00:00
|
|
|
|
(setq ps-page-sheet (1+ ps-page-sheet))
|
|
|
|
|
(when (ps-print-sheet-p)
|
|
|
|
|
(setq ps-page-order (1+ ps-page-order))
|
|
|
|
|
(ps-output (if ps-n-up-on
|
|
|
|
|
(format "\n%%%%Page: (%d \\(%d\\)) %d\n"
|
|
|
|
|
ps-page-order ps-page-postscript ps-page-order)
|
|
|
|
|
(format "\n%%%%Page: %d %d\n"
|
|
|
|
|
ps-page-postscript ps-page-order))
|
(ps-end-job): Bind case-fold-search only after
switching to ps-spool-buffer.
Line number font customization. PostScript: Lines and
PageCount are initialized on each page. Doc Fix.
(ps-print-version): New version number (6.3.2).
(ps-lpr-switches, ps-font-info-database, ps-font-size)
(ps-header-font-size, ps-header-title-font-size, ps-left-header)
(ps-right-header): Customization fix.
(ps-setup, ps-select-font, ps-begin-file, ps-header-sheet, ps-end-job):
Fix code.
(ps-end-with-control-d, ps-line-number-font, ps-line-number-font-size):
New vars.
2000-11-30 13:20:49 +00:00
|
|
|
|
;; spooling needs to redefine Lines and PageCount on each page
|
|
|
|
|
"/Lines 0 def\n/PageCount 0 def\n"
|
2000-11-02 12:04:59 +00:00
|
|
|
|
(format "%d BeginSheet\nBeginDSCPage\n"
|
|
|
|
|
ps-n-up-printing))))
|
2000-10-31 11:54:38 +00:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(defun ps-header-page ()
|
1998-06-08 17:25:09 +00:00
|
|
|
|
;; set total line and page number when printing has finished
|
|
|
|
|
;; (see `ps-generate')
|
2000-11-02 12:04:59 +00:00
|
|
|
|
(if (zerop (mod ps-page-column ps-number-of-columns))
|
2000-10-31 11:54:38 +00:00
|
|
|
|
(progn
|
|
|
|
|
(setq ps-page-postscript (1+ ps-page-postscript))
|
|
|
|
|
(when (ps-print-page-p)
|
2000-11-02 12:04:59 +00:00
|
|
|
|
(ps-print-sheet-p)
|
2000-10-31 11:54:38 +00:00
|
|
|
|
(if (zerop (mod ps-page-n-up ps-n-up-printing))
|
|
|
|
|
;; Print only when a new sheet begins.
|
|
|
|
|
(progn
|
|
|
|
|
(ps-header-sheet)
|
|
|
|
|
(run-hooks 'ps-print-begin-sheet-hook))
|
|
|
|
|
;; Print only when a new page begins.
|
|
|
|
|
(ps-output "BeginDSCPage\n")
|
|
|
|
|
(run-hooks 'ps-print-begin-page-hook))
|
|
|
|
|
(ps-background ps-page-postscript)
|
2000-11-02 12:04:59 +00:00
|
|
|
|
(setq ps-page-n-up (1+ ps-page-n-up))
|
|
|
|
|
(and ps-print-page-p
|
|
|
|
|
(setq ps-page-printed (1+ ps-page-printed)))))
|
2000-10-31 11:54:38 +00:00
|
|
|
|
;; Print only when a new column begins.
|
|
|
|
|
(ps-output "BeginDSCPage\n")
|
|
|
|
|
(run-hooks 'ps-print-begin-column-hook))
|
2000-11-02 12:04:59 +00:00
|
|
|
|
(setq ps-page-column (1+ ps-page-column)))
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.1).
(ps-adobe-tag): Replace defvar by defcustom, and doc fix.
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): Add arg REGION-P.
(ps-print-region-with-faces, ps-print-region)
(ps-spool-region, ps-spool-region-with-faces): Fix calls to
the functions above.
(ps-setup): Print value of ps-zebra-stripe, ps-number-of-zebra,
ps-line-number, ps-print-background-image,
and ps-print-background-text.
(ps-print-prologue-1): Bug fix in PostScript programming:
/BeginDSCPage, /BeginPage.
(ps-showpage-count, ps-ref-bold-faces, ps-ref-italic-faces)
(ps-ref-underlined-faces, font-lock-face-attributes)
(ps-initialize-faces): Vars deleted.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-initialize-faces, ps-header-height)
(ps-hard-lf, ps-soft-lf, ps-get-face, ps-map-font-lock): Fn deleted.
(ps-extend-face-list, ps-extend-face): Doc fix.
(ps-print-face-alist): New var to handle face alist.
(ps-printing-region): New var and fn.
(ps-header-page, ps-set-face-bold, ps-set-face-italic)
(ps-set-face-underline, ps-set-face-attribute, ps-map-face): New fn.
(ps-rmail-mode-hook, ps-rmail-print-message-from-summary)
(ps-print-message-from-summary, ps-vm-print-message-from-summary):
Fns moved.
(ps-background): New argument PAGE-NUMBER.
(ps-begin-file): Bug fix and print proper line number in a region.
(ps-begin-page): Call ps-header-page.
(ps-get-buffer-name): Indicates in the header when printing a region.
(ps-end-page): Delete ps-showpage-count.
(ps-dummy-page): Calls ps-header-page.
(ps-set-color): Programming improvement.
(ps-plot-region): Doc fix.
(ps-face-attributes): Same functionality as deleted ps-get-face.
(ps-build-reference-face-lists): Do the job by calling
ps-set-face-bold and ps-bold-faces, and friends.
1997-09-06 02:52:00 +00:00
|
|
|
|
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.2) and doc fix.
(ps-print, ps-header-lines, ps-show-n-of-n, ps-font-info-database)
(ps-font-family, ps-font-size, ps-header-font-family)
(ps-header-font-size, ps-header-title-font-size, ps-bold-faces)
(ps-italic-faces, ps-underlined-faces, ps-left-header, ps-right-header)
(ps-font, ps-font-bold, ps-font-italic, ps-font-bold-italic)
(ps-avg-char-width, ps-space-width, ps-line-height): Doc fix.
(ps-error-scale-font): New fn.
(ps-soft-lf, ps-hard-lf): Fn deleted.
(ps-get-page-dimensions, ps-set-bg, ps-face-bold-p, ps-face-italic-p)
(ps-set-color): Reindentation.
(ps-output-string-prim, ps-xemacs-face-kind-p): Internal blank lines
deleted.
(ps-set-font): Little programming improvement.
(ps-line-lengths-internal, ps-nb-pages, ps-select-font)
(ps-select-header-font): Simplify some expressions.
(ps-plot-region): Replace (- X 1) by (1- X).
(ps-generate-header): Replace (+ X 1) by (1+ X).
(ps-print-preprint, ps-plot-with-face, ps-print-ensure-fontified)
(ps-kill-emacs-check): Replace (if (and A B) C) by (and A B C).
(ps-init-output-queue, ps-gnus-article-prepare-hook, ps-jts-ps-setup):
Replace (setq a b)(setq c d) by (setq a b c d).
(ps-begin-file, ps-end-file): Replace (ps-output A)(ps-output B)
by (ps-output A B).
(ps-begin-page): Replace (ps-output A)(ps-output B) by (ps-output A B),
replace (setq a b)(setq c d) by (setq a b c d).
(ps-next-line, ps-continue-line): Replace (setq a b)(setq c d)
by (setq a b c d), and incorporates ps-soft-lf and ps-hard-lf,
respectively.
(ps-plot): Replace (setq a b)(setq c d) by (setq a b c d),
and programming improvement.
(ps-generate-postscript-with-faces): Initialization fix,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if (and A B) C) by (and A B C).
(ps-generate): Doc fix, reprogramming to set the page count,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if A nil B) by (or A B),
replace (if (and A B) C) by (and A B C).
(ps-info-mode-hook): Replace (list 'A 'B) by '(A B).
(ps-jack-setup): Replace (list) by nil.
1997-11-23 02:26:50 +00:00
|
|
|
|
(defun ps-begin-page ()
|
|
|
|
|
(setq ps-width-remaining ps-print-width
|
1998-12-15 06:31:48 +00:00
|
|
|
|
ps-height-remaining ps-print-height)
|
1995-01-20 06:09:03 +00:00
|
|
|
|
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.1).
(ps-adobe-tag): Replace defvar by defcustom, and doc fix.
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): Add arg REGION-P.
(ps-print-region-with-faces, ps-print-region)
(ps-spool-region, ps-spool-region-with-faces): Fix calls to
the functions above.
(ps-setup): Print value of ps-zebra-stripe, ps-number-of-zebra,
ps-line-number, ps-print-background-image,
and ps-print-background-text.
(ps-print-prologue-1): Bug fix in PostScript programming:
/BeginDSCPage, /BeginPage.
(ps-showpage-count, ps-ref-bold-faces, ps-ref-italic-faces)
(ps-ref-underlined-faces, font-lock-face-attributes)
(ps-initialize-faces): Vars deleted.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-initialize-faces, ps-header-height)
(ps-hard-lf, ps-soft-lf, ps-get-face, ps-map-font-lock): Fn deleted.
(ps-extend-face-list, ps-extend-face): Doc fix.
(ps-print-face-alist): New var to handle face alist.
(ps-printing-region): New var and fn.
(ps-header-page, ps-set-face-bold, ps-set-face-italic)
(ps-set-face-underline, ps-set-face-attribute, ps-map-face): New fn.
(ps-rmail-mode-hook, ps-rmail-print-message-from-summary)
(ps-print-message-from-summary, ps-vm-print-message-from-summary):
Fns moved.
(ps-background): New argument PAGE-NUMBER.
(ps-begin-file): Bug fix and print proper line number in a region.
(ps-begin-page): Call ps-header-page.
(ps-get-buffer-name): Indicates in the header when printing a region.
(ps-end-page): Delete ps-showpage-count.
(ps-dummy-page): Calls ps-header-page.
(ps-set-color): Programming improvement.
(ps-plot-region): Doc fix.
(ps-face-attributes): Same functionality as deleted ps-get-face.
(ps-build-reference-face-lists): Do the job by calling
ps-set-face-bold and ps-bold-faces, and friends.
1997-09-06 02:52:00 +00:00
|
|
|
|
(ps-header-page)
|
1995-01-20 06:09:03 +00:00
|
|
|
|
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
(ps-output (format "/LineNumber %d def\n" ps-showline-count)
|
2000-10-31 11:54:38 +00:00
|
|
|
|
(format "/PageNumber %d def\n" (ps-page-number)))
|
1995-01-20 06:09:03 +00:00
|
|
|
|
|
1997-01-16 05:09:21 +00:00
|
|
|
|
(when ps-print-header
|
2003-05-15 02:32:03 +00:00
|
|
|
|
(ps-generate-header "HeaderLinesLeft" "/h0" "/h1"
|
|
|
|
|
(or ps-lh-cache ps-left-header))
|
|
|
|
|
(ps-generate-header "HeaderLinesRight" "/h0" "/h1"
|
|
|
|
|
(or ps-rh-cache ps-right-header))
|
|
|
|
|
(ps-output (format "%d SetHeaderLines\n" ps-header-lines))
|
|
|
|
|
(setq ps-lh-cache nil
|
|
|
|
|
ps-rh-cache nil))
|
1995-01-20 06:09:03 +00:00
|
|
|
|
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
(when ps-print-footer
|
2003-05-15 02:32:03 +00:00
|
|
|
|
(ps-generate-header "FooterLinesLeft" "/H0" "/H0"
|
|
|
|
|
(or ps-lf-cache ps-left-footer))
|
|
|
|
|
(ps-generate-header "FooterLinesRight" "/H0" "/H0"
|
|
|
|
|
(or ps-rf-cache ps-right-footer))
|
|
|
|
|
(ps-output (format "%d SetFooterLines\n" ps-footer-lines))
|
|
|
|
|
(setq ps-lf-cache nil
|
|
|
|
|
ps-rf-cache nil))
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
|
2000-12-29 11:48:50 +00:00
|
|
|
|
(ps-output (number-to-string ps-lines-printed) " BeginPage\n")
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
(ps-set-font ps-current-font)
|
|
|
|
|
(ps-set-bg ps-current-bg)
|
1998-12-15 06:31:48 +00:00
|
|
|
|
(ps-set-color ps-current-color)
|
|
|
|
|
(ps-mule-begin-page))
|
1994-05-01 22:09:01 +00:00
|
|
|
|
|
Footers implementation. Doc Fix.
(ps-print-version): New version number (6.5.1).
(ps-header-frame-alist): New customization var for header frame
properties.
(ps-line-number-color): New customization var for line number color.
(ps-footer-offset, ps-footer-line-pad, ps-print-footer)
(ps-print-footer-frame, ps-footer-frame-alist, ps-footer-lines)
(ps-footer-font-family, ps-footer-font-size, ps-left-footer)
(ps-right-footer): New customization vars for footers.
(ps-footer-pad, ps-footer-font-size-internal): New internal vars for
footers.
(ps-setup, ps-get-page-dimensions, ps-generate-header-line)
(ps-generate-header, ps-begin-file, ps-begin-job, ps-begin-page): Code
fix.
(ps-prologue-file): Indentation fix.
(ps-print-quote): Fun eliminated.
(ps-value, ps-get, ps-put, ps-del): New funs for alist handling.
(ps-output-frame-properties): New fun.
(ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page)
(ps-skip-newline): Replace defun by defsubst.
2001-04-10 11:33:06 +00:00
|
|
|
|
(defsubst ps-skip-newline (limit)
|
2000-12-29 11:48:50 +00:00
|
|
|
|
(setq ps-showline-count (1+ ps-showline-count)
|
|
|
|
|
ps-lines-printed (1+ ps-lines-printed))
|
|
|
|
|
(and (< (point) limit)
|
|
|
|
|
(forward-char 1)))
|
|
|
|
|
|
Line and paragraph spacing feature. Region to cut
out when printing. Doc fix.
(ps-print-version): New version number (6.5).
(ps-line-spacing, ps-paragraph-spacing, ps-paragraph-regexp): New
vars. Line and paragraph spacing feature.
(ps-begin-cut-regexp, ps-end-cut-regexp): New vars. Region to cut
out when printing.
(ps-setup, ps-nb-pages, ps-get-page-dimensions, ps-begin-file)
(ps-get-font-size, ps-begin-job, ps-continue-line)
(ps-plot-region): Code fix.
(ps-print-prologue-2): Var eliminated.
(ps-line-spacing-internal, ps-paragraph-spacing-internal): New
internal vars.
(ps-get-size): New fun.
(ps-output-string-prim, ps-init-output-queue, ps-print-page-p)
(ps-next-line): Replace defun by defsubst.
(ps-mule-plot-string): Autoload doc fix.
(ps-mule-generate-font): New arg HEADER-P. If it is
non-nil, generate font for the header strings.
(ps-mule-prepare-font): Likewise.
(ps-mule-generate-glyphs): Likewise.
(ps-mule-string-encoding): Likewise.
(ps-mule-header-charsets): New variable.
(ps-mule-encode-header-string): New function.
(ps-mule-header-string-charsets): New function.
(ps-mule-begin-job): Check charsets in the header strings. If there
are non-ASCII and non-Latin1 charsets, prepare fonts for them.
2001-04-02 10:35:07 +00:00
|
|
|
|
(defsubst ps-next-line ()
|
2000-12-29 11:48:50 +00:00
|
|
|
|
(setq ps-showline-count (1+ ps-showline-count)
|
|
|
|
|
ps-lines-printed (1+ ps-lines-printed))
|
Line and paragraph spacing feature. Region to cut
out when printing. Doc fix.
(ps-print-version): New version number (6.5).
(ps-line-spacing, ps-paragraph-spacing, ps-paragraph-regexp): New
vars. Line and paragraph spacing feature.
(ps-begin-cut-regexp, ps-end-cut-regexp): New vars. Region to cut
out when printing.
(ps-setup, ps-nb-pages, ps-get-page-dimensions, ps-begin-file)
(ps-get-font-size, ps-begin-job, ps-continue-line)
(ps-plot-region): Code fix.
(ps-print-prologue-2): Var eliminated.
(ps-line-spacing-internal, ps-paragraph-spacing-internal): New
internal vars.
(ps-get-size): New fun.
(ps-output-string-prim, ps-init-output-queue, ps-print-page-p)
(ps-next-line): Replace defun by defsubst.
(ps-mule-plot-string): Autoload doc fix.
(ps-mule-generate-font): New arg HEADER-P. If it is
non-nil, generate font for the header strings.
(ps-mule-prepare-font): Likewise.
(ps-mule-generate-glyphs): Likewise.
(ps-mule-string-encoding): Likewise.
(ps-mule-header-charsets): New variable.
(ps-mule-encode-header-string): New function.
(ps-mule-header-string-charsets): New function.
(ps-mule-begin-job): Check charsets in the header strings. If there
are non-ASCII and non-Latin1 charsets, prepare fonts for them.
2001-04-02 10:35:07 +00:00
|
|
|
|
(let* ((paragraph-p (and ps-paragraph-regexp
|
|
|
|
|
(looking-at ps-paragraph-regexp)))
|
|
|
|
|
(lh (+ (ps-line-height 'ps-font-for-text)
|
|
|
|
|
(if paragraph-p
|
|
|
|
|
ps-paragraph-spacing-internal
|
|
|
|
|
ps-line-spacing-internal))))
|
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.
1998-03-07 06:04:46 +00:00
|
|
|
|
(if (< ps-height-remaining lh)
|
|
|
|
|
(ps-next-page)
|
|
|
|
|
(setq ps-width-remaining ps-print-width
|
|
|
|
|
ps-height-remaining (- ps-height-remaining lh))
|
Line and paragraph spacing feature. Region to cut
out when printing. Doc fix.
(ps-print-version): New version number (6.5).
(ps-line-spacing, ps-paragraph-spacing, ps-paragraph-regexp): New
vars. Line and paragraph spacing feature.
(ps-begin-cut-regexp, ps-end-cut-regexp): New vars. Region to cut
out when printing.
(ps-setup, ps-nb-pages, ps-get-page-dimensions, ps-begin-file)
(ps-get-font-size, ps-begin-job, ps-continue-line)
(ps-plot-region): Code fix.
(ps-print-prologue-2): Var eliminated.
(ps-line-spacing-internal, ps-paragraph-spacing-internal): New
internal vars.
(ps-get-size): New fun.
(ps-output-string-prim, ps-init-output-queue, ps-print-page-p)
(ps-next-line): Replace defun by defsubst.
(ps-mule-plot-string): Autoload doc fix.
(ps-mule-generate-font): New arg HEADER-P. If it is
non-nil, generate font for the header strings.
(ps-mule-prepare-font): Likewise.
(ps-mule-generate-glyphs): Likewise.
(ps-mule-string-encoding): Likewise.
(ps-mule-header-charsets): New variable.
(ps-mule-encode-header-string): New function.
(ps-mule-header-string-charsets): New function.
(ps-mule-begin-job): Check charsets in the header strings. If there
are non-ASCII and non-Latin1 charsets, prepare fonts for them.
2001-04-02 10:35:07 +00:00
|
|
|
|
(ps-output (if paragraph-p "PHL\n" "LHL\n")))))
|
1994-05-01 22:09:01 +00:00
|
|
|
|
|
|
|
|
|
(defun ps-continue-line ()
|
2000-12-29 11:48:50 +00:00
|
|
|
|
(setq ps-lines-printed (1+ ps-lines-printed))
|
Line and paragraph spacing feature. Region to cut
out when printing. Doc fix.
(ps-print-version): New version number (6.5).
(ps-line-spacing, ps-paragraph-spacing, ps-paragraph-regexp): New
vars. Line and paragraph spacing feature.
(ps-begin-cut-regexp, ps-end-cut-regexp): New vars. Region to cut
out when printing.
(ps-setup, ps-nb-pages, ps-get-page-dimensions, ps-begin-file)
(ps-get-font-size, ps-begin-job, ps-continue-line)
(ps-plot-region): Code fix.
(ps-print-prologue-2): Var eliminated.
(ps-line-spacing-internal, ps-paragraph-spacing-internal): New
internal vars.
(ps-get-size): New fun.
(ps-output-string-prim, ps-init-output-queue, ps-print-page-p)
(ps-next-line): Replace defun by defsubst.
(ps-mule-plot-string): Autoload doc fix.
(ps-mule-generate-font): New arg HEADER-P. If it is
non-nil, generate font for the header strings.
(ps-mule-prepare-font): Likewise.
(ps-mule-generate-glyphs): Likewise.
(ps-mule-string-encoding): Likewise.
(ps-mule-header-charsets): New variable.
(ps-mule-encode-header-string): New function.
(ps-mule-header-string-charsets): New function.
(ps-mule-begin-job): Check charsets in the header strings. If there
are non-ASCII and non-Latin1 charsets, prepare fonts for them.
2001-04-02 10:35:07 +00:00
|
|
|
|
(let ((lh (+ (ps-line-height 'ps-font-for-text) ps-line-spacing-internal)))
|
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.
1998-03-07 06:04:46 +00:00
|
|
|
|
(if (< ps-height-remaining lh)
|
|
|
|
|
(ps-next-page)
|
|
|
|
|
(setq ps-width-remaining ps-print-width
|
|
|
|
|
ps-height-remaining (- ps-height-remaining lh))
|
|
|
|
|
(ps-output "SL\n"))))
|
1995-01-20 06:09:03 +00:00
|
|
|
|
|
|
|
|
|
(defun ps-find-wrappoint (from to char-width)
|
|
|
|
|
(let ((avail (truncate (/ ps-width-remaining char-width)))
|
|
|
|
|
(todo (- to from)))
|
|
|
|
|
(if (< todo avail)
|
|
|
|
|
(cons to (* todo char-width))
|
|
|
|
|
(cons (+ from avail) ps-width-remaining))))
|
|
|
|
|
|
2001-06-01 09:22:20 +00:00
|
|
|
|
(defun ps-basic-plot-str (from to string)
|
|
|
|
|
(let* ((wrappoint (ps-find-wrappoint from to
|
|
|
|
|
(ps-avg-char-width 'ps-font-for-text)))
|
|
|
|
|
(to (car wrappoint))
|
|
|
|
|
(str (substring string from to)))
|
|
|
|
|
(ps-mule-prepare-ascii-font str)
|
|
|
|
|
(ps-output-string str)
|
|
|
|
|
(ps-output " S\n")
|
|
|
|
|
wrappoint))
|
|
|
|
|
|
1995-01-20 06:09:03 +00:00
|
|
|
|
(defun ps-basic-plot-string (from to &optional bg-color)
|
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.
1998-03-07 06:04:46 +00:00
|
|
|
|
(let* ((wrappoint (ps-find-wrappoint from to
|
|
|
|
|
(ps-avg-char-width 'ps-font-for-text)))
|
1995-01-20 06:09:03 +00:00
|
|
|
|
(to (car wrappoint))
|
1998-12-15 06:31:48 +00:00
|
|
|
|
(string (buffer-substring-no-properties from to)))
|
|
|
|
|
(ps-mule-prepare-ascii-font string)
|
1995-01-20 06:09:03 +00:00
|
|
|
|
(ps-output-string string)
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
(ps-output " S\n")
|
1995-01-20 06:09:03 +00:00
|
|
|
|
wrappoint))
|
|
|
|
|
|
|
|
|
|
(defun ps-basic-plot-whitespace (from to &optional bg-color)
|
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.
1998-03-07 06:04:46 +00:00
|
|
|
|
(let* ((wrappoint (ps-find-wrappoint from to
|
|
|
|
|
(ps-space-width 'ps-font-for-text)))
|
1995-01-20 06:09:03 +00:00
|
|
|
|
(to (car wrappoint)))
|
|
|
|
|
(ps-output (format "%d W\n" (- to from)))
|
|
|
|
|
wrappoint))
|
|
|
|
|
|
|
|
|
|
(defun ps-plot (plotfunc from to &optional bg-color)
|
1994-05-01 22:09:01 +00:00
|
|
|
|
(while (< from to)
|
1995-01-20 06:09:03 +00:00
|
|
|
|
(let* ((wrappoint (funcall plotfunc from to bg-color))
|
|
|
|
|
(plotted-to (car wrappoint))
|
|
|
|
|
(plotted-width (cdr wrappoint)))
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.2) and doc fix.
(ps-print, ps-header-lines, ps-show-n-of-n, ps-font-info-database)
(ps-font-family, ps-font-size, ps-header-font-family)
(ps-header-font-size, ps-header-title-font-size, ps-bold-faces)
(ps-italic-faces, ps-underlined-faces, ps-left-header, ps-right-header)
(ps-font, ps-font-bold, ps-font-italic, ps-font-bold-italic)
(ps-avg-char-width, ps-space-width, ps-line-height): Doc fix.
(ps-error-scale-font): New fn.
(ps-soft-lf, ps-hard-lf): Fn deleted.
(ps-get-page-dimensions, ps-set-bg, ps-face-bold-p, ps-face-italic-p)
(ps-set-color): Reindentation.
(ps-output-string-prim, ps-xemacs-face-kind-p): Internal blank lines
deleted.
(ps-set-font): Little programming improvement.
(ps-line-lengths-internal, ps-nb-pages, ps-select-font)
(ps-select-header-font): Simplify some expressions.
(ps-plot-region): Replace (- X 1) by (1- X).
(ps-generate-header): Replace (+ X 1) by (1+ X).
(ps-print-preprint, ps-plot-with-face, ps-print-ensure-fontified)
(ps-kill-emacs-check): Replace (if (and A B) C) by (and A B C).
(ps-init-output-queue, ps-gnus-article-prepare-hook, ps-jts-ps-setup):
Replace (setq a b)(setq c d) by (setq a b c d).
(ps-begin-file, ps-end-file): Replace (ps-output A)(ps-output B)
by (ps-output A B).
(ps-begin-page): Replace (ps-output A)(ps-output B) by (ps-output A B),
replace (setq a b)(setq c d) by (setq a b c d).
(ps-next-line, ps-continue-line): Replace (setq a b)(setq c d)
by (setq a b c d), and incorporates ps-soft-lf and ps-hard-lf,
respectively.
(ps-plot): Replace (setq a b)(setq c d) by (setq a b c d),
and programming improvement.
(ps-generate-postscript-with-faces): Initialization fix,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if (and A B) C) by (and A B C).
(ps-generate): Doc fix, reprogramming to set the page count,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if A nil B) by (or A B),
replace (if (and A B) C) by (and A B C).
(ps-info-mode-hook): Replace (list 'A 'B) by '(A B).
(ps-jack-setup): Replace (list) by nil.
1997-11-23 02:26:50 +00:00
|
|
|
|
(setq from plotted-to
|
|
|
|
|
ps-width-remaining (- ps-width-remaining plotted-width))
|
1995-01-20 06:09:03 +00:00
|
|
|
|
(if (< from to)
|
|
|
|
|
(ps-continue-line))))
|
1994-05-01 22:09:01 +00:00
|
|
|
|
(if ps-razzle-dazzle
|
|
|
|
|
(let* ((q-todo (- (point-max) (point-min)))
|
1995-01-20 06:09:03 +00:00
|
|
|
|
(q-done (- (point) (point-min)))
|
1994-05-01 22:09:01 +00:00
|
|
|
|
(chunkfrac (/ q-todo 8))
|
Some comment, doc and bug fixes.
(ps-print-version): New version number (3.05.3) and doc fix.
(ps-output-string-prim, ps-begin-job, ps-control-character)
(ps-plot-region): Bug fix.
(ps-print-control-characters): New custom var.
(ps-string-escape-codes, ps-string-control-codes): New var.
(ps-color-device, ps-font-lock-face-attributes, ps-eval-switch)
(ps-flatten-list, ps-flatten-list-1): New fn.
(ps-setup): Update current setup.
(ps-begin-file): Adjust PostScript header file.
(ps-plot, ps-face-attribute-list): Little programming improvement.
(ps-print-prologue-1): Replace NumberOfZebra by ZebraHeight.
(ps-print-without-faces, ps-print-with-faces): Little reprogramming.
(ps-plot-with-face): Get color only on color screen device.
(ps-build-reference-face-lists): Handle obsolete
font-lock-face-attributes.
(ps-print-ensure-fontified): Little programming setting.
(ps-generate-postscript-with-faces): Adjust initializations, get color
only on color screen device.
(ps-generate): Replace (if A B) by (and A B).
(ps-do-despool): Dynamic evaluation for ps-lpr-switches,
Replace (if A B) by (and A B).
(color-instance-rgb-components, ps-color-values): Replace
pixel-components by color-instance-rgb-components.
(ps-xemacs-face-kind-p): Replace face-font by face-font-instance,
replace x-font-properties by font-instance-properties.
1997-12-25 18:33:52 +00:00
|
|
|
|
(chunksize (min chunkfrac 1000)))
|
1994-05-01 22:09:01 +00:00
|
|
|
|
(if (> (- q-done ps-razchunk) chunksize)
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.2) and doc fix.
(ps-print, ps-header-lines, ps-show-n-of-n, ps-font-info-database)
(ps-font-family, ps-font-size, ps-header-font-family)
(ps-header-font-size, ps-header-title-font-size, ps-bold-faces)
(ps-italic-faces, ps-underlined-faces, ps-left-header, ps-right-header)
(ps-font, ps-font-bold, ps-font-italic, ps-font-bold-italic)
(ps-avg-char-width, ps-space-width, ps-line-height): Doc fix.
(ps-error-scale-font): New fn.
(ps-soft-lf, ps-hard-lf): Fn deleted.
(ps-get-page-dimensions, ps-set-bg, ps-face-bold-p, ps-face-italic-p)
(ps-set-color): Reindentation.
(ps-output-string-prim, ps-xemacs-face-kind-p): Internal blank lines
deleted.
(ps-set-font): Little programming improvement.
(ps-line-lengths-internal, ps-nb-pages, ps-select-font)
(ps-select-header-font): Simplify some expressions.
(ps-plot-region): Replace (- X 1) by (1- X).
(ps-generate-header): Replace (+ X 1) by (1+ X).
(ps-print-preprint, ps-plot-with-face, ps-print-ensure-fontified)
(ps-kill-emacs-check): Replace (if (and A B) C) by (and A B C).
(ps-init-output-queue, ps-gnus-article-prepare-hook, ps-jts-ps-setup):
Replace (setq a b)(setq c d) by (setq a b c d).
(ps-begin-file, ps-end-file): Replace (ps-output A)(ps-output B)
by (ps-output A B).
(ps-begin-page): Replace (ps-output A)(ps-output B) by (ps-output A B),
replace (setq a b)(setq c d) by (setq a b c d).
(ps-next-line, ps-continue-line): Replace (setq a b)(setq c d)
by (setq a b c d), and incorporates ps-soft-lf and ps-hard-lf,
respectively.
(ps-plot): Replace (setq a b)(setq c d) by (setq a b c d),
and programming improvement.
(ps-generate-postscript-with-faces): Initialization fix,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if (and A B) C) by (and A B C).
(ps-generate): Doc fix, reprogramming to set the page count,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if A nil B) by (or A B),
replace (if (and A B) C) by (and A B C).
(ps-info-mode-hook): Replace (list 'A 'B) by '(A B).
(ps-jack-setup): Replace (list) by nil.
1997-11-23 02:26:50 +00:00
|
|
|
|
(progn
|
1994-05-01 22:09:01 +00:00
|
|
|
|
(setq ps-razchunk q-done)
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.2) and doc fix.
(ps-print, ps-header-lines, ps-show-n-of-n, ps-font-info-database)
(ps-font-family, ps-font-size, ps-header-font-family)
(ps-header-font-size, ps-header-title-font-size, ps-bold-faces)
(ps-italic-faces, ps-underlined-faces, ps-left-header, ps-right-header)
(ps-font, ps-font-bold, ps-font-italic, ps-font-bold-italic)
(ps-avg-char-width, ps-space-width, ps-line-height): Doc fix.
(ps-error-scale-font): New fn.
(ps-soft-lf, ps-hard-lf): Fn deleted.
(ps-get-page-dimensions, ps-set-bg, ps-face-bold-p, ps-face-italic-p)
(ps-set-color): Reindentation.
(ps-output-string-prim, ps-xemacs-face-kind-p): Internal blank lines
deleted.
(ps-set-font): Little programming improvement.
(ps-line-lengths-internal, ps-nb-pages, ps-select-font)
(ps-select-header-font): Simplify some expressions.
(ps-plot-region): Replace (- X 1) by (1- X).
(ps-generate-header): Replace (+ X 1) by (1+ X).
(ps-print-preprint, ps-plot-with-face, ps-print-ensure-fontified)
(ps-kill-emacs-check): Replace (if (and A B) C) by (and A B C).
(ps-init-output-queue, ps-gnus-article-prepare-hook, ps-jts-ps-setup):
Replace (setq a b)(setq c d) by (setq a b c d).
(ps-begin-file, ps-end-file): Replace (ps-output A)(ps-output B)
by (ps-output A B).
(ps-begin-page): Replace (ps-output A)(ps-output B) by (ps-output A B),
replace (setq a b)(setq c d) by (setq a b c d).
(ps-next-line, ps-continue-line): Replace (setq a b)(setq c d)
by (setq a b c d), and incorporates ps-soft-lf and ps-hard-lf,
respectively.
(ps-plot): Replace (setq a b)(setq c d) by (setq a b c d),
and programming improvement.
(ps-generate-postscript-with-faces): Initialization fix,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if (and A B) C) by (and A B C).
(ps-generate): Doc fix, reprogramming to set the page count,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if A nil B) by (or A B),
replace (if (and A B) C) by (and A B C).
(ps-info-mode-hook): Replace (list 'A 'B) by '(A B).
(ps-jack-setup): Replace (list) by nil.
1997-11-23 02:26:50 +00:00
|
|
|
|
(message "Formatting...%3d%%"
|
|
|
|
|
(if (< q-todo 100)
|
|
|
|
|
(/ (* 100 q-done) q-todo)
|
|
|
|
|
(/ q-done (/ q-todo 100)))
|
|
|
|
|
))))))
|
1995-01-20 06:09:03 +00:00
|
|
|
|
|
1998-12-15 06:31:48 +00:00
|
|
|
|
(defvar ps-last-font nil)
|
|
|
|
|
|
1995-01-20 06:09:03 +00:00
|
|
|
|
(defun ps-set-font (font)
|
Multi-byte buffer handling.
(ps-print-version): New version number (4.0) and doc fix.
(ps-color-device, ps-face-bold-p, ps-face-italic-p): Conditional
compilation for GNU Emacs and emacsens.
(ps-generate-postscript-with-faces): Force invisible text to be
visible.
(dos-ps-printer): New var to avoid compilation gripes.
(ps-mule-plot-string): Pay attention to the case
that no more characters can't be printed in the current line.
(ps-mule-find-wrappoint): ENDPOS should not be greater than TO.
Add codes to make ps-print.el work also on Emacs
20.2 and the earlier version.
(ps-mule-encode-7bit, ps-mule-encode-8bit): Modified for 20.2.
(ccl-encode-ethio-unicode, ps-mule-encode-ethiopic): Likewise.
(ps-mule-find-wrappoint): Likewise.
(ps-mule-generate-font): Change `X' to `x' in format
control-string.
(ps-generate): Call ps-mule-begin before calling ps-begin-job.
(ps-mule-cmpchar-prologue): Delete unnecessary `gsave' and
`restore' form procedures `BC' and `EC'.
(ps-print-prologue-1): Handle the case that FontBBox
is an executable procedure. Make LineThickness, Xshadow, and
Yshadow relative to FontHeight. Set SpaceWidth in BeginDoc.
(ps-mule-font-info-database, ps-mule-font-info-database-ps,
ps-mule-font-info-database-bdf): New vars.
(ps-mule-encode-7bit, ps-mule-encode-8bit): New funs.
(ccl-encode-ethio-unicode): New CCL program.
(ps-mule-encode-ethiopic): New fun.
(ps-mule-current-charset): New var.
(ps-mule-get-font-spec, ps-mule-font-spec-src,
ps-mule-font-spec-name, ps-mule-font-spec-encoding,
ps-mule-font-spec-bytes, ps-mule-printable-p): New funs.
(ps-mule-external-libraries): New var.
(ps-mule-init-external-library): New fun.
(ps-mule-font-cache): New var.
(ps-mule-generate-font, ps-mule-generate-glyphs): New funs.
(ps-last-font): New var.
(ps-mule-prepare-font): New fun.
(ps-mule-charset-list): New var.
(ps-mule-prologue-generated, ps-mule-prologue): New vars.
(ps-mule-skip-same-charset, ps-mule-find-wrappoint,
ps-mule-plot-string): New funs.
(ps-mule-cmpchar-prologue-generated, ps-mule-cmpchar-prologue):
New vars.
(ps-mule-plot-rule-cmpchar, ps-mule-plot-cmpchar,
ps-mule-prepare-cmpchar-font): New funs.
(ps-mule-bitmap-prologue-generated, ps-mule-bitmap-prologue): New
vars.
(ps-mule-generate-bitmap-prologue, ps-mule-generate-bitmap-font,
ps-mule-generate-bitmap-glyph): New funs.
(ps-mule-initialize, ps-mule-begin): New funs.
(ps-output-string-prim): Insert string as unibyte.
(ps-output-prologue): New fun.
(ps-flush-output): Handle the case of 'prologue.
(ps-begin-file): Call ps-mule-initialize.
(ps-begin-job): Set ps-control-or-escape-regexp differently if
printing multibyte characters.
(ps-begin-page): Set ps-mule-current-charset to 'ascii.
(ps-basic-plot-string): Handle the case of printing ASCII
characters by external libraries (e.g. BDF).
(ps-set-font): Set ps-last-font.
(ps-plot-region): Handle multibyte characters, use
ps-mule-plot-string for them.
(ps-generate): Set the spool buffer unibyte. Call ps-mule-begin.
1998-08-24 10:19:29 +00:00
|
|
|
|
(setq ps-last-font (format "f%d" (setq ps-current-font font)))
|
|
|
|
|
(ps-output (format "/%s F\n" ps-last-font)))
|
1995-01-20 06:09:03 +00:00
|
|
|
|
|
|
|
|
|
(defun ps-set-bg (color)
|
|
|
|
|
(if (setq ps-current-bg color)
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.2) and doc fix.
(ps-print, ps-header-lines, ps-show-n-of-n, ps-font-info-database)
(ps-font-family, ps-font-size, ps-header-font-family)
(ps-header-font-size, ps-header-title-font-size, ps-bold-faces)
(ps-italic-faces, ps-underlined-faces, ps-left-header, ps-right-header)
(ps-font, ps-font-bold, ps-font-italic, ps-font-bold-italic)
(ps-avg-char-width, ps-space-width, ps-line-height): Doc fix.
(ps-error-scale-font): New fn.
(ps-soft-lf, ps-hard-lf): Fn deleted.
(ps-get-page-dimensions, ps-set-bg, ps-face-bold-p, ps-face-italic-p)
(ps-set-color): Reindentation.
(ps-output-string-prim, ps-xemacs-face-kind-p): Internal blank lines
deleted.
(ps-set-font): Little programming improvement.
(ps-line-lengths-internal, ps-nb-pages, ps-select-font)
(ps-select-header-font): Simplify some expressions.
(ps-plot-region): Replace (- X 1) by (1- X).
(ps-generate-header): Replace (+ X 1) by (1+ X).
(ps-print-preprint, ps-plot-with-face, ps-print-ensure-fontified)
(ps-kill-emacs-check): Replace (if (and A B) C) by (and A B C).
(ps-init-output-queue, ps-gnus-article-prepare-hook, ps-jts-ps-setup):
Replace (setq a b)(setq c d) by (setq a b c d).
(ps-begin-file, ps-end-file): Replace (ps-output A)(ps-output B)
by (ps-output A B).
(ps-begin-page): Replace (ps-output A)(ps-output B) by (ps-output A B),
replace (setq a b)(setq c d) by (setq a b c d).
(ps-next-line, ps-continue-line): Replace (setq a b)(setq c d)
by (setq a b c d), and incorporates ps-soft-lf and ps-hard-lf,
respectively.
(ps-plot): Replace (setq a b)(setq c d) by (setq a b c d),
and programming improvement.
(ps-generate-postscript-with-faces): Initialization fix,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if (and A B) C) by (and A B C).
(ps-generate): Doc fix, reprogramming to set the page count,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if A nil B) by (or A B),
replace (if (and A B) C) by (and A B C).
(ps-info-mode-hook): Replace (list 'A 'B) by '(A B).
(ps-jack-setup): Replace (list) by nil.
1997-11-23 02:26:50 +00:00
|
|
|
|
(ps-output (format ps-color-format
|
|
|
|
|
(nth 0 color) (nth 1 color) (nth 2 color))
|
1995-01-20 06:09:03 +00:00
|
|
|
|
" true BG\n")
|
|
|
|
|
(ps-output "false BG\n")))
|
|
|
|
|
|
|
|
|
|
(defun ps-set-color (color)
|
PostScript programming fix for ghostview, doc fix.
(ps-print-version): New version number (5.1.3).
(ps-begin-file, ps-begin-job, ps-set-color, ps-do-despool, ps-setup)
(ps-insert-file, ps-output-boolean, ps-plot-with-face)
(ps-generate-postscript-with-faces): Code fix.
(ps-color-values): XEmacs compatibility.
(ps-print-background-image, ps-print-background-text, ps-printer-name)
(ps-default-fg, ps-default-bg): Adjust customization.
(ps-zebra-color): Adjust customization, renaming old ps-zebra-gray var.
(ps-color-scale): Renaming old ps-color-value fun.
(ps-print-headers): Replace ps-print-header group to avoid conflict
with ps-print-header variable.
(ps-print-miscellany): New group.
(ps-format-color, ps-rgb-color): New funs.
(ps-default-foreground): New var.
(ps-printer-name-option): New const.
2000-03-30 13:21:45 +00:00
|
|
|
|
(setq ps-current-color (or color ps-default-foreground))
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.2) and doc fix.
(ps-print, ps-header-lines, ps-show-n-of-n, ps-font-info-database)
(ps-font-family, ps-font-size, ps-header-font-family)
(ps-header-font-size, ps-header-title-font-size, ps-bold-faces)
(ps-italic-faces, ps-underlined-faces, ps-left-header, ps-right-header)
(ps-font, ps-font-bold, ps-font-italic, ps-font-bold-italic)
(ps-avg-char-width, ps-space-width, ps-line-height): Doc fix.
(ps-error-scale-font): New fn.
(ps-soft-lf, ps-hard-lf): Fn deleted.
(ps-get-page-dimensions, ps-set-bg, ps-face-bold-p, ps-face-italic-p)
(ps-set-color): Reindentation.
(ps-output-string-prim, ps-xemacs-face-kind-p): Internal blank lines
deleted.
(ps-set-font): Little programming improvement.
(ps-line-lengths-internal, ps-nb-pages, ps-select-font)
(ps-select-header-font): Simplify some expressions.
(ps-plot-region): Replace (- X 1) by (1- X).
(ps-generate-header): Replace (+ X 1) by (1+ X).
(ps-print-preprint, ps-plot-with-face, ps-print-ensure-fontified)
(ps-kill-emacs-check): Replace (if (and A B) C) by (and A B C).
(ps-init-output-queue, ps-gnus-article-prepare-hook, ps-jts-ps-setup):
Replace (setq a b)(setq c d) by (setq a b c d).
(ps-begin-file, ps-end-file): Replace (ps-output A)(ps-output B)
by (ps-output A B).
(ps-begin-page): Replace (ps-output A)(ps-output B) by (ps-output A B),
replace (setq a b)(setq c d) by (setq a b c d).
(ps-next-line, ps-continue-line): Replace (setq a b)(setq c d)
by (setq a b c d), and incorporates ps-soft-lf and ps-hard-lf,
respectively.
(ps-plot): Replace (setq a b)(setq c d) by (setq a b c d),
and programming improvement.
(ps-generate-postscript-with-faces): Initialization fix,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if (and A B) C) by (and A B C).
(ps-generate): Doc fix, reprogramming to set the page count,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if A nil B) by (or A B),
replace (if (and A B) C) by (and A B C).
(ps-info-mode-hook): Replace (list 'A 'B) by '(A B).
(ps-jack-setup): Replace (list) by nil.
1997-11-23 02:26:50 +00:00
|
|
|
|
(ps-output (format ps-color-format
|
|
|
|
|
(nth 0 ps-current-color)
|
1995-05-12 02:18:47 +00:00
|
|
|
|
(nth 1 ps-current-color) (nth 2 ps-current-color))
|
|
|
|
|
" FG\n"))
|
1995-01-20 06:09:03 +00:00
|
|
|
|
|
|
|
|
|
|
2001-06-01 09:22:20 +00:00
|
|
|
|
(defsubst ps-plot-string (string)
|
|
|
|
|
(ps-plot 'ps-basic-plot-str 0 (length string) string))
|
|
|
|
|
|
|
|
|
|
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
(defvar ps-current-effect 0)
|
1995-01-20 06:09:03 +00:00
|
|
|
|
|
2005-03-29 05:06:48 +00:00
|
|
|
|
(defvar ps-print-translation-table
|
|
|
|
|
(let ((tbl (make-char-table 'translation-table nil)))
|
|
|
|
|
(if (and (boundp 'ucs-mule-8859-to-mule-unicode)
|
|
|
|
|
(char-table-p ucs-mule-8859-to-mule-unicode))
|
|
|
|
|
(map-char-table
|
2005-06-06 15:17:32 +00:00
|
|
|
|
#'(lambda (k v)
|
2005-03-29 05:06:48 +00:00
|
|
|
|
(if (and v (eq (char-charset v) 'latin-iso8859-1) (/= k v))
|
|
|
|
|
(aset tbl k v)))
|
|
|
|
|
ucs-mule-8859-to-mule-unicode))
|
|
|
|
|
tbl)
|
|
|
|
|
"Translation table for PostScript printing.
|
|
|
|
|
The default value is a table that translates non-Latin-1 Latin characters
|
|
|
|
|
to the equivalent Latin-1 characters.")
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
|
|
|
|
|
(defun ps-plot-region (from to font &optional fg-color bg-color effects)
|
2001-04-26 09:30:00 +00:00
|
|
|
|
(or (equal font ps-current-font)
|
1995-01-20 06:09:03 +00:00
|
|
|
|
(ps-set-font font))
|
1997-09-11 23:51:29 +00:00
|
|
|
|
|
1995-01-20 06:09:03 +00:00
|
|
|
|
;; Specify a foreground color only if one's specified and it's
|
|
|
|
|
;; different than the current.
|
2001-04-26 09:30:00 +00:00
|
|
|
|
(let ((fg (or fg-color ps-default-foreground)))
|
|
|
|
|
(or (equal fg ps-current-color)
|
|
|
|
|
(ps-set-color fg)))
|
1997-09-11 23:51:29 +00:00
|
|
|
|
|
2001-04-26 09:30:00 +00:00
|
|
|
|
(or (equal bg-color ps-current-bg)
|
1995-01-20 06:09:03 +00:00
|
|
|
|
(ps-set-bg bg-color))
|
1997-09-11 23:51:29 +00:00
|
|
|
|
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
;; Specify effects (underline, overline, box, etc)
|
|
|
|
|
(cond
|
|
|
|
|
((not (integerp effects))
|
|
|
|
|
(ps-output "0 EF\n")
|
|
|
|
|
(setq ps-current-effect 0))
|
|
|
|
|
((/= effects ps-current-effect)
|
|
|
|
|
(ps-output (number-to-string effects) " EF\n")
|
|
|
|
|
(setq ps-current-effect effects)))
|
1994-05-01 22:09:01 +00:00
|
|
|
|
|
1995-01-20 06:09:03 +00:00
|
|
|
|
;; Starting at the beginning of the specified region...
|
1994-05-01 22:09:01 +00:00
|
|
|
|
(save-excursion
|
|
|
|
|
(goto-char from)
|
1995-01-20 06:09:03 +00:00
|
|
|
|
|
|
|
|
|
;; ...break the region up into chunks separated by tabs, linefeeds,
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
;; pagefeeds, control characters, and plot each chunk.
|
1994-05-01 22:09:01 +00:00
|
|
|
|
(while (< from to)
|
Line and paragraph spacing feature. Region to cut
out when printing. Doc fix.
(ps-print-version): New version number (6.5).
(ps-line-spacing, ps-paragraph-spacing, ps-paragraph-regexp): New
vars. Line and paragraph spacing feature.
(ps-begin-cut-regexp, ps-end-cut-regexp): New vars. Region to cut
out when printing.
(ps-setup, ps-nb-pages, ps-get-page-dimensions, ps-begin-file)
(ps-get-font-size, ps-begin-job, ps-continue-line)
(ps-plot-region): Code fix.
(ps-print-prologue-2): Var eliminated.
(ps-line-spacing-internal, ps-paragraph-spacing-internal): New
internal vars.
(ps-get-size): New fun.
(ps-output-string-prim, ps-init-output-queue, ps-print-page-p)
(ps-next-line): Replace defun by defsubst.
(ps-mule-plot-string): Autoload doc fix.
(ps-mule-generate-font): New arg HEADER-P. If it is
non-nil, generate font for the header strings.
(ps-mule-prepare-font): Likewise.
(ps-mule-generate-glyphs): Likewise.
(ps-mule-string-encoding): Likewise.
(ps-mule-header-charsets): New variable.
(ps-mule-encode-header-string): New function.
(ps-mule-header-string-charsets): New function.
(ps-mule-begin-job): Check charsets in the header strings. If there
are non-ASCII and non-Latin1 charsets, prepare fonts for them.
2001-04-02 10:35:07 +00:00
|
|
|
|
;; skip lines between cut markers
|
|
|
|
|
(and ps-begin-cut-regexp ps-end-cut-regexp
|
|
|
|
|
(looking-at ps-begin-cut-regexp)
|
|
|
|
|
(progn
|
|
|
|
|
(goto-char (match-end 0))
|
|
|
|
|
(and (re-search-forward ps-end-cut-regexp to 'noerror)
|
|
|
|
|
(= (following-char) ?\n)
|
|
|
|
|
(forward-char 1))
|
|
|
|
|
(setq from (point))))
|
Some comment, doc and bug fixes.
(ps-print-version): New version number (3.05.3) and doc fix.
(ps-output-string-prim, ps-begin-job, ps-control-character)
(ps-plot-region): Bug fix.
(ps-print-control-characters): New custom var.
(ps-string-escape-codes, ps-string-control-codes): New var.
(ps-color-device, ps-font-lock-face-attributes, ps-eval-switch)
(ps-flatten-list, ps-flatten-list-1): New fn.
(ps-setup): Update current setup.
(ps-begin-file): Adjust PostScript header file.
(ps-plot, ps-face-attribute-list): Little programming improvement.
(ps-print-prologue-1): Replace NumberOfZebra by ZebraHeight.
(ps-print-without-faces, ps-print-with-faces): Little reprogramming.
(ps-plot-with-face): Get color only on color screen device.
(ps-build-reference-face-lists): Handle obsolete
font-lock-face-attributes.
(ps-print-ensure-fontified): Little programming setting.
(ps-generate-postscript-with-faces): Adjust initializations, get color
only on color screen device.
(ps-generate): Replace (if A B) by (and A B).
(ps-do-despool): Dynamic evaluation for ps-lpr-switches,
Replace (if A B) by (and A B).
(color-instance-rgb-components, ps-color-values): Replace
pixel-components by color-instance-rgb-components.
(ps-xemacs-face-kind-p): Replace face-font by face-font-instance,
replace x-font-properties by font-instance-properties.
1997-12-25 18:33:52 +00:00
|
|
|
|
(if (re-search-forward ps-control-or-escape-regexp to t)
|
1998-10-26 20:25:41 +00:00
|
|
|
|
;; region with some control characters or some multi-byte characters
|
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.
1998-03-07 06:04:46 +00:00
|
|
|
|
(let* ((match-point (match-beginning 0))
|
2000-10-31 11:54:38 +00:00
|
|
|
|
(match (char-after match-point))
|
Even/odd pages fix. Fix little bug on XEmacs. Avoid
compilation gripes. Doc fix.
(ps-print-version): New version number (6.2).
(ps-x-color-instance-p, ps-x-color-instance-rgb-components)
(ps-x-color-name, ps-x-color-specifier-p, ps-x-copy-coding-system)
(ps-x-device-class, ps-x-extent-end-position, ps-x-extent-face)
(ps-x-extent-priority, ps-x-extent-start-position)
(ps-x-face-font-instance, ps-x-find-coding-system)
(ps-x-font-instance-properties, ps-x-make-color-instance)
(ps-x-map-extents): Alias for functions without the prefix `ps-x-', to
avoid compilation gripes without defining functions.
(ps-e-find-composition): Alias for function find-composition, to have a
suitable function depending on Emacs version.
(ps-color-device, ps-color-values, ps-face-foreground-name)
(ps-face-background-name, ps-face-bold-p, ps-face-italic-p, ps-mapper)
(ps-extent-sorter, ps-xemacs-face-kind-p, ps-xemacs-color-name)
(ps-print-ensure-fontified): Function definitions surrounded by
`eval-and-compile' to avoid compilation gripes.
(ps-font-lock-face-attributes): `font-lock-face-attributes' evaluated
by symbol-value to avoid compilation gripes.
(ps-end-file, ps-header-sheet, ps-plot-region): Even/odd pages fix.
(ps-generate-postscript-with-faces): Fix little bug on XEmacs.
2000-10-19 10:46:51 +00:00
|
|
|
|
(composition (ps-e-find-composition from (1+ match-point))))
|
1999-12-15 00:38:58 +00:00
|
|
|
|
(if composition
|
|
|
|
|
(if (and (nth 2 composition)
|
|
|
|
|
(<= (car composition) match-point))
|
|
|
|
|
(progn
|
|
|
|
|
(setq match-point (car composition)
|
|
|
|
|
match 0)
|
|
|
|
|
(goto-char (nth 1 composition)))
|
|
|
|
|
(setq composition nil)))
|
Multi-byte buffer handling.
(ps-print-version): New version number (4.0) and doc fix.
(ps-color-device, ps-face-bold-p, ps-face-italic-p): Conditional
compilation for GNU Emacs and emacsens.
(ps-generate-postscript-with-faces): Force invisible text to be
visible.
(dos-ps-printer): New var to avoid compilation gripes.
(ps-mule-plot-string): Pay attention to the case
that no more characters can't be printed in the current line.
(ps-mule-find-wrappoint): ENDPOS should not be greater than TO.
Add codes to make ps-print.el work also on Emacs
20.2 and the earlier version.
(ps-mule-encode-7bit, ps-mule-encode-8bit): Modified for 20.2.
(ccl-encode-ethio-unicode, ps-mule-encode-ethiopic): Likewise.
(ps-mule-find-wrappoint): Likewise.
(ps-mule-generate-font): Change `X' to `x' in format
control-string.
(ps-generate): Call ps-mule-begin before calling ps-begin-job.
(ps-mule-cmpchar-prologue): Delete unnecessary `gsave' and
`restore' form procedures `BC' and `EC'.
(ps-print-prologue-1): Handle the case that FontBBox
is an executable procedure. Make LineThickness, Xshadow, and
Yshadow relative to FontHeight. Set SpaceWidth in BeginDoc.
(ps-mule-font-info-database, ps-mule-font-info-database-ps,
ps-mule-font-info-database-bdf): New vars.
(ps-mule-encode-7bit, ps-mule-encode-8bit): New funs.
(ccl-encode-ethio-unicode): New CCL program.
(ps-mule-encode-ethiopic): New fun.
(ps-mule-current-charset): New var.
(ps-mule-get-font-spec, ps-mule-font-spec-src,
ps-mule-font-spec-name, ps-mule-font-spec-encoding,
ps-mule-font-spec-bytes, ps-mule-printable-p): New funs.
(ps-mule-external-libraries): New var.
(ps-mule-init-external-library): New fun.
(ps-mule-font-cache): New var.
(ps-mule-generate-font, ps-mule-generate-glyphs): New funs.
(ps-last-font): New var.
(ps-mule-prepare-font): New fun.
(ps-mule-charset-list): New var.
(ps-mule-prologue-generated, ps-mule-prologue): New vars.
(ps-mule-skip-same-charset, ps-mule-find-wrappoint,
ps-mule-plot-string): New funs.
(ps-mule-cmpchar-prologue-generated, ps-mule-cmpchar-prologue):
New vars.
(ps-mule-plot-rule-cmpchar, ps-mule-plot-cmpchar,
ps-mule-prepare-cmpchar-font): New funs.
(ps-mule-bitmap-prologue-generated, ps-mule-bitmap-prologue): New
vars.
(ps-mule-generate-bitmap-prologue, ps-mule-generate-bitmap-font,
ps-mule-generate-bitmap-glyph): New funs.
(ps-mule-initialize, ps-mule-begin): New funs.
(ps-output-string-prim): Insert string as unibyte.
(ps-output-prologue): New fun.
(ps-flush-output): Handle the case of 'prologue.
(ps-begin-file): Call ps-mule-initialize.
(ps-begin-job): Set ps-control-or-escape-regexp differently if
printing multibyte characters.
(ps-begin-page): Set ps-mule-current-charset to 'ascii.
(ps-basic-plot-string): Handle the case of printing ASCII
characters by external libraries (e.g. BDF).
(ps-set-font): Set ps-last-font.
(ps-plot-region): Handle multibyte characters, use
ps-mule-plot-string for them.
(ps-generate): Set the spool buffer unibyte. Call ps-mule-begin.
1998-08-24 10:19:29 +00:00
|
|
|
|
(when (< from match-point)
|
1998-12-15 06:31:48 +00:00
|
|
|
|
(ps-mule-set-ascii-font)
|
Multi-byte buffer handling.
(ps-print-version): New version number (4.0) and doc fix.
(ps-color-device, ps-face-bold-p, ps-face-italic-p): Conditional
compilation for GNU Emacs and emacsens.
(ps-generate-postscript-with-faces): Force invisible text to be
visible.
(dos-ps-printer): New var to avoid compilation gripes.
(ps-mule-plot-string): Pay attention to the case
that no more characters can't be printed in the current line.
(ps-mule-find-wrappoint): ENDPOS should not be greater than TO.
Add codes to make ps-print.el work also on Emacs
20.2 and the earlier version.
(ps-mule-encode-7bit, ps-mule-encode-8bit): Modified for 20.2.
(ccl-encode-ethio-unicode, ps-mule-encode-ethiopic): Likewise.
(ps-mule-find-wrappoint): Likewise.
(ps-mule-generate-font): Change `X' to `x' in format
control-string.
(ps-generate): Call ps-mule-begin before calling ps-begin-job.
(ps-mule-cmpchar-prologue): Delete unnecessary `gsave' and
`restore' form procedures `BC' and `EC'.
(ps-print-prologue-1): Handle the case that FontBBox
is an executable procedure. Make LineThickness, Xshadow, and
Yshadow relative to FontHeight. Set SpaceWidth in BeginDoc.
(ps-mule-font-info-database, ps-mule-font-info-database-ps,
ps-mule-font-info-database-bdf): New vars.
(ps-mule-encode-7bit, ps-mule-encode-8bit): New funs.
(ccl-encode-ethio-unicode): New CCL program.
(ps-mule-encode-ethiopic): New fun.
(ps-mule-current-charset): New var.
(ps-mule-get-font-spec, ps-mule-font-spec-src,
ps-mule-font-spec-name, ps-mule-font-spec-encoding,
ps-mule-font-spec-bytes, ps-mule-printable-p): New funs.
(ps-mule-external-libraries): New var.
(ps-mule-init-external-library): New fun.
(ps-mule-font-cache): New var.
(ps-mule-generate-font, ps-mule-generate-glyphs): New funs.
(ps-last-font): New var.
(ps-mule-prepare-font): New fun.
(ps-mule-charset-list): New var.
(ps-mule-prologue-generated, ps-mule-prologue): New vars.
(ps-mule-skip-same-charset, ps-mule-find-wrappoint,
ps-mule-plot-string): New funs.
(ps-mule-cmpchar-prologue-generated, ps-mule-cmpchar-prologue):
New vars.
(ps-mule-plot-rule-cmpchar, ps-mule-plot-cmpchar,
ps-mule-prepare-cmpchar-font): New funs.
(ps-mule-bitmap-prologue-generated, ps-mule-bitmap-prologue): New
vars.
(ps-mule-generate-bitmap-prologue, ps-mule-generate-bitmap-font,
ps-mule-generate-bitmap-glyph): New funs.
(ps-mule-initialize, ps-mule-begin): New funs.
(ps-output-string-prim): Insert string as unibyte.
(ps-output-prologue): New fun.
(ps-flush-output): Handle the case of 'prologue.
(ps-begin-file): Call ps-mule-initialize.
(ps-begin-job): Set ps-control-or-escape-regexp differently if
printing multibyte characters.
(ps-begin-page): Set ps-mule-current-charset to 'ascii.
(ps-basic-plot-string): Handle the case of printing ASCII
characters by external libraries (e.g. BDF).
(ps-set-font): Set ps-last-font.
(ps-plot-region): Handle multibyte characters, use
ps-mule-plot-string for them.
(ps-generate): Set the spool buffer unibyte. Call ps-mule-begin.
1998-08-24 10:19:29 +00:00
|
|
|
|
(ps-plot 'ps-basic-plot-string from match-point bg-color))
|
Some comment, doc and bug fixes.
(ps-print-version): New version number (3.05.3) and doc fix.
(ps-output-string-prim, ps-begin-job, ps-control-character)
(ps-plot-region): Bug fix.
(ps-print-control-characters): New custom var.
(ps-string-escape-codes, ps-string-control-codes): New var.
(ps-color-device, ps-font-lock-face-attributes, ps-eval-switch)
(ps-flatten-list, ps-flatten-list-1): New fn.
(ps-setup): Update current setup.
(ps-begin-file): Adjust PostScript header file.
(ps-plot, ps-face-attribute-list): Little programming improvement.
(ps-print-prologue-1): Replace NumberOfZebra by ZebraHeight.
(ps-print-without-faces, ps-print-with-faces): Little reprogramming.
(ps-plot-with-face): Get color only on color screen device.
(ps-build-reference-face-lists): Handle obsolete
font-lock-face-attributes.
(ps-print-ensure-fontified): Little programming setting.
(ps-generate-postscript-with-faces): Adjust initializations, get color
only on color screen device.
(ps-generate): Replace (if A B) by (and A B).
(ps-do-despool): Dynamic evaluation for ps-lpr-switches,
Replace (if A B) by (and A B).
(color-instance-rgb-components, ps-color-values): Replace
pixel-components by color-instance-rgb-components.
(ps-xemacs-face-kind-p): Replace face-font by face-font-instance,
replace x-font-properties by font-instance-properties.
1997-12-25 18:33:52 +00:00
|
|
|
|
(cond
|
|
|
|
|
((= match ?\t) ; tab
|
1998-09-02 04:51:42 +00:00
|
|
|
|
(let ((linestart (line-beginning-position)))
|
Some comment, doc and bug fixes.
(ps-print-version): New version number (3.05.3) and doc fix.
(ps-output-string-prim, ps-begin-job, ps-control-character)
(ps-plot-region): Bug fix.
(ps-print-control-characters): New custom var.
(ps-string-escape-codes, ps-string-control-codes): New var.
(ps-color-device, ps-font-lock-face-attributes, ps-eval-switch)
(ps-flatten-list, ps-flatten-list-1): New fn.
(ps-setup): Update current setup.
(ps-begin-file): Adjust PostScript header file.
(ps-plot, ps-face-attribute-list): Little programming improvement.
(ps-print-prologue-1): Replace NumberOfZebra by ZebraHeight.
(ps-print-without-faces, ps-print-with-faces): Little reprogramming.
(ps-plot-with-face): Get color only on color screen device.
(ps-build-reference-face-lists): Handle obsolete
font-lock-face-attributes.
(ps-print-ensure-fontified): Little programming setting.
(ps-generate-postscript-with-faces): Adjust initializations, get color
only on color screen device.
(ps-generate): Replace (if A B) by (and A B).
(ps-do-despool): Dynamic evaluation for ps-lpr-switches,
Replace (if A B) by (and A B).
(color-instance-rgb-components, ps-color-values): Replace
pixel-components by color-instance-rgb-components.
(ps-xemacs-face-kind-p): Replace face-font by face-font-instance,
replace x-font-properties by font-instance-properties.
1997-12-25 18:33:52 +00:00
|
|
|
|
(forward-char -1)
|
|
|
|
|
(setq from (+ linestart (current-column)))
|
Multi-byte buffer handling.
(ps-print-version): New version number (4.0) and doc fix.
(ps-color-device, ps-face-bold-p, ps-face-italic-p): Conditional
compilation for GNU Emacs and emacsens.
(ps-generate-postscript-with-faces): Force invisible text to be
visible.
(dos-ps-printer): New var to avoid compilation gripes.
(ps-mule-plot-string): Pay attention to the case
that no more characters can't be printed in the current line.
(ps-mule-find-wrappoint): ENDPOS should not be greater than TO.
Add codes to make ps-print.el work also on Emacs
20.2 and the earlier version.
(ps-mule-encode-7bit, ps-mule-encode-8bit): Modified for 20.2.
(ccl-encode-ethio-unicode, ps-mule-encode-ethiopic): Likewise.
(ps-mule-find-wrappoint): Likewise.
(ps-mule-generate-font): Change `X' to `x' in format
control-string.
(ps-generate): Call ps-mule-begin before calling ps-begin-job.
(ps-mule-cmpchar-prologue): Delete unnecessary `gsave' and
`restore' form procedures `BC' and `EC'.
(ps-print-prologue-1): Handle the case that FontBBox
is an executable procedure. Make LineThickness, Xshadow, and
Yshadow relative to FontHeight. Set SpaceWidth in BeginDoc.
(ps-mule-font-info-database, ps-mule-font-info-database-ps,
ps-mule-font-info-database-bdf): New vars.
(ps-mule-encode-7bit, ps-mule-encode-8bit): New funs.
(ccl-encode-ethio-unicode): New CCL program.
(ps-mule-encode-ethiopic): New fun.
(ps-mule-current-charset): New var.
(ps-mule-get-font-spec, ps-mule-font-spec-src,
ps-mule-font-spec-name, ps-mule-font-spec-encoding,
ps-mule-font-spec-bytes, ps-mule-printable-p): New funs.
(ps-mule-external-libraries): New var.
(ps-mule-init-external-library): New fun.
(ps-mule-font-cache): New var.
(ps-mule-generate-font, ps-mule-generate-glyphs): New funs.
(ps-last-font): New var.
(ps-mule-prepare-font): New fun.
(ps-mule-charset-list): New var.
(ps-mule-prologue-generated, ps-mule-prologue): New vars.
(ps-mule-skip-same-charset, ps-mule-find-wrappoint,
ps-mule-plot-string): New funs.
(ps-mule-cmpchar-prologue-generated, ps-mule-cmpchar-prologue):
New vars.
(ps-mule-plot-rule-cmpchar, ps-mule-plot-cmpchar,
ps-mule-prepare-cmpchar-font): New funs.
(ps-mule-bitmap-prologue-generated, ps-mule-bitmap-prologue): New
vars.
(ps-mule-generate-bitmap-prologue, ps-mule-generate-bitmap-font,
ps-mule-generate-bitmap-glyph): New funs.
(ps-mule-initialize, ps-mule-begin): New funs.
(ps-output-string-prim): Insert string as unibyte.
(ps-output-prologue): New fun.
(ps-flush-output): Handle the case of 'prologue.
(ps-begin-file): Call ps-mule-initialize.
(ps-begin-job): Set ps-control-or-escape-regexp differently if
printing multibyte characters.
(ps-begin-page): Set ps-mule-current-charset to 'ascii.
(ps-basic-plot-string): Handle the case of printing ASCII
characters by external libraries (e.g. BDF).
(ps-set-font): Set ps-last-font.
(ps-plot-region): Handle multibyte characters, use
ps-mule-plot-string for them.
(ps-generate): Set the spool buffer unibyte. Call ps-mule-begin.
1998-08-24 10:19:29 +00:00
|
|
|
|
(when (re-search-forward "[ \t]+" to t)
|
1998-12-15 06:31:48 +00:00
|
|
|
|
(ps-mule-set-ascii-font)
|
Multi-byte buffer handling.
(ps-print-version): New version number (4.0) and doc fix.
(ps-color-device, ps-face-bold-p, ps-face-italic-p): Conditional
compilation for GNU Emacs and emacsens.
(ps-generate-postscript-with-faces): Force invisible text to be
visible.
(dos-ps-printer): New var to avoid compilation gripes.
(ps-mule-plot-string): Pay attention to the case
that no more characters can't be printed in the current line.
(ps-mule-find-wrappoint): ENDPOS should not be greater than TO.
Add codes to make ps-print.el work also on Emacs
20.2 and the earlier version.
(ps-mule-encode-7bit, ps-mule-encode-8bit): Modified for 20.2.
(ccl-encode-ethio-unicode, ps-mule-encode-ethiopic): Likewise.
(ps-mule-find-wrappoint): Likewise.
(ps-mule-generate-font): Change `X' to `x' in format
control-string.
(ps-generate): Call ps-mule-begin before calling ps-begin-job.
(ps-mule-cmpchar-prologue): Delete unnecessary `gsave' and
`restore' form procedures `BC' and `EC'.
(ps-print-prologue-1): Handle the case that FontBBox
is an executable procedure. Make LineThickness, Xshadow, and
Yshadow relative to FontHeight. Set SpaceWidth in BeginDoc.
(ps-mule-font-info-database, ps-mule-font-info-database-ps,
ps-mule-font-info-database-bdf): New vars.
(ps-mule-encode-7bit, ps-mule-encode-8bit): New funs.
(ccl-encode-ethio-unicode): New CCL program.
(ps-mule-encode-ethiopic): New fun.
(ps-mule-current-charset): New var.
(ps-mule-get-font-spec, ps-mule-font-spec-src,
ps-mule-font-spec-name, ps-mule-font-spec-encoding,
ps-mule-font-spec-bytes, ps-mule-printable-p): New funs.
(ps-mule-external-libraries): New var.
(ps-mule-init-external-library): New fun.
(ps-mule-font-cache): New var.
(ps-mule-generate-font, ps-mule-generate-glyphs): New funs.
(ps-last-font): New var.
(ps-mule-prepare-font): New fun.
(ps-mule-charset-list): New var.
(ps-mule-prologue-generated, ps-mule-prologue): New vars.
(ps-mule-skip-same-charset, ps-mule-find-wrappoint,
ps-mule-plot-string): New funs.
(ps-mule-cmpchar-prologue-generated, ps-mule-cmpchar-prologue):
New vars.
(ps-mule-plot-rule-cmpchar, ps-mule-plot-cmpchar,
ps-mule-prepare-cmpchar-font): New funs.
(ps-mule-bitmap-prologue-generated, ps-mule-bitmap-prologue): New
vars.
(ps-mule-generate-bitmap-prologue, ps-mule-generate-bitmap-font,
ps-mule-generate-bitmap-glyph): New funs.
(ps-mule-initialize, ps-mule-begin): New funs.
(ps-output-string-prim): Insert string as unibyte.
(ps-output-prologue): New fun.
(ps-flush-output): Handle the case of 'prologue.
(ps-begin-file): Call ps-mule-initialize.
(ps-begin-job): Set ps-control-or-escape-regexp differently if
printing multibyte characters.
(ps-begin-page): Set ps-mule-current-charset to 'ascii.
(ps-basic-plot-string): Handle the case of printing ASCII
characters by external libraries (e.g. BDF).
(ps-set-font): Set ps-last-font.
(ps-plot-region): Handle multibyte characters, use
ps-mule-plot-string for them.
(ps-generate): Set the spool buffer unibyte. Call ps-mule-begin.
1998-08-24 10:19:29 +00:00
|
|
|
|
(ps-plot 'ps-basic-plot-whitespace
|
|
|
|
|
from (+ linestart (current-column))
|
|
|
|
|
bg-color))))
|
Some comment, doc and bug fixes.
(ps-print-version): New version number (3.05.3) and doc fix.
(ps-output-string-prim, ps-begin-job, ps-control-character)
(ps-plot-region): Bug fix.
(ps-print-control-characters): New custom var.
(ps-string-escape-codes, ps-string-control-codes): New var.
(ps-color-device, ps-font-lock-face-attributes, ps-eval-switch)
(ps-flatten-list, ps-flatten-list-1): New fn.
(ps-setup): Update current setup.
(ps-begin-file): Adjust PostScript header file.
(ps-plot, ps-face-attribute-list): Little programming improvement.
(ps-print-prologue-1): Replace NumberOfZebra by ZebraHeight.
(ps-print-without-faces, ps-print-with-faces): Little reprogramming.
(ps-plot-with-face): Get color only on color screen device.
(ps-build-reference-face-lists): Handle obsolete
font-lock-face-attributes.
(ps-print-ensure-fontified): Little programming setting.
(ps-generate-postscript-with-faces): Adjust initializations, get color
only on color screen device.
(ps-generate): Replace (if A B) by (and A B).
(ps-do-despool): Dynamic evaluation for ps-lpr-switches,
Replace (if A B) by (and A B).
(color-instance-rgb-components, ps-color-values): Replace
pixel-components by color-instance-rgb-components.
(ps-xemacs-face-kind-p): Replace face-font by face-font-instance,
replace x-font-properties by font-instance-properties.
1997-12-25 18:33:52 +00:00
|
|
|
|
|
|
|
|
|
((= match ?\n) ; newline
|
2000-12-29 11:48:50 +00:00
|
|
|
|
(if (looking-at "\f[^\n]")
|
|
|
|
|
;; \n\ftext\n ==>> next page, but keep line counting!!
|
|
|
|
|
(progn
|
|
|
|
|
(ps-skip-newline to)
|
|
|
|
|
(ps-next-page))
|
|
|
|
|
;; \n\f\n ==>> it'll be handled by form feed
|
|
|
|
|
;; \ntext\n ==>> next line
|
|
|
|
|
(ps-next-line)))
|
Some comment, doc and bug fixes.
(ps-print-version): New version number (3.05.3) and doc fix.
(ps-output-string-prim, ps-begin-job, ps-control-character)
(ps-plot-region): Bug fix.
(ps-print-control-characters): New custom var.
(ps-string-escape-codes, ps-string-control-codes): New var.
(ps-color-device, ps-font-lock-face-attributes, ps-eval-switch)
(ps-flatten-list, ps-flatten-list-1): New fn.
(ps-setup): Update current setup.
(ps-begin-file): Adjust PostScript header file.
(ps-plot, ps-face-attribute-list): Little programming improvement.
(ps-print-prologue-1): Replace NumberOfZebra by ZebraHeight.
(ps-print-without-faces, ps-print-with-faces): Little reprogramming.
(ps-plot-with-face): Get color only on color screen device.
(ps-build-reference-face-lists): Handle obsolete
font-lock-face-attributes.
(ps-print-ensure-fontified): Little programming setting.
(ps-generate-postscript-with-faces): Adjust initializations, get color
only on color screen device.
(ps-generate): Replace (if A B) by (and A B).
(ps-do-despool): Dynamic evaluation for ps-lpr-switches,
Replace (if A B) by (and A B).
(color-instance-rgb-components, ps-color-values): Replace
pixel-components by color-instance-rgb-components.
(ps-xemacs-face-kind-p): Replace face-font by face-font-instance,
replace x-font-properties by font-instance-properties.
1997-12-25 18:33:52 +00:00
|
|
|
|
|
|
|
|
|
((= match ?\f) ; form feed
|
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.
1998-03-07 06:04:46 +00:00
|
|
|
|
;; do not skip page if previous character is NEWLINE and
|
|
|
|
|
;; it is a beginning of page.
|
2000-12-29 11:48:50 +00:00
|
|
|
|
(unless (and (equal (char-after (1- match-point)) ?\n)
|
|
|
|
|
(= ps-height-remaining ps-print-height))
|
|
|
|
|
;; \f\n ==>> skip \n, but keep line counting!!
|
|
|
|
|
(and (equal (following-char) ?\n)
|
|
|
|
|
(ps-skip-newline to))
|
|
|
|
|
(ps-next-page)))
|
Multi-byte buffer handling.
(ps-print-version): New version number (4.0) and doc fix.
(ps-color-device, ps-face-bold-p, ps-face-italic-p): Conditional
compilation for GNU Emacs and emacsens.
(ps-generate-postscript-with-faces): Force invisible text to be
visible.
(dos-ps-printer): New var to avoid compilation gripes.
(ps-mule-plot-string): Pay attention to the case
that no more characters can't be printed in the current line.
(ps-mule-find-wrappoint): ENDPOS should not be greater than TO.
Add codes to make ps-print.el work also on Emacs
20.2 and the earlier version.
(ps-mule-encode-7bit, ps-mule-encode-8bit): Modified for 20.2.
(ccl-encode-ethio-unicode, ps-mule-encode-ethiopic): Likewise.
(ps-mule-find-wrappoint): Likewise.
(ps-mule-generate-font): Change `X' to `x' in format
control-string.
(ps-generate): Call ps-mule-begin before calling ps-begin-job.
(ps-mule-cmpchar-prologue): Delete unnecessary `gsave' and
`restore' form procedures `BC' and `EC'.
(ps-print-prologue-1): Handle the case that FontBBox
is an executable procedure. Make LineThickness, Xshadow, and
Yshadow relative to FontHeight. Set SpaceWidth in BeginDoc.
(ps-mule-font-info-database, ps-mule-font-info-database-ps,
ps-mule-font-info-database-bdf): New vars.
(ps-mule-encode-7bit, ps-mule-encode-8bit): New funs.
(ccl-encode-ethio-unicode): New CCL program.
(ps-mule-encode-ethiopic): New fun.
(ps-mule-current-charset): New var.
(ps-mule-get-font-spec, ps-mule-font-spec-src,
ps-mule-font-spec-name, ps-mule-font-spec-encoding,
ps-mule-font-spec-bytes, ps-mule-printable-p): New funs.
(ps-mule-external-libraries): New var.
(ps-mule-init-external-library): New fun.
(ps-mule-font-cache): New var.
(ps-mule-generate-font, ps-mule-generate-glyphs): New funs.
(ps-last-font): New var.
(ps-mule-prepare-font): New fun.
(ps-mule-charset-list): New var.
(ps-mule-prologue-generated, ps-mule-prologue): New vars.
(ps-mule-skip-same-charset, ps-mule-find-wrappoint,
ps-mule-plot-string): New funs.
(ps-mule-cmpchar-prologue-generated, ps-mule-cmpchar-prologue):
New vars.
(ps-mule-plot-rule-cmpchar, ps-mule-plot-cmpchar,
ps-mule-prepare-cmpchar-font): New funs.
(ps-mule-bitmap-prologue-generated, ps-mule-bitmap-prologue): New
vars.
(ps-mule-generate-bitmap-prologue, ps-mule-generate-bitmap-font,
ps-mule-generate-bitmap-glyph): New funs.
(ps-mule-initialize, ps-mule-begin): New funs.
(ps-output-string-prim): Insert string as unibyte.
(ps-output-prologue): New fun.
(ps-flush-output): Handle the case of 'prologue.
(ps-begin-file): Call ps-mule-initialize.
(ps-begin-job): Set ps-control-or-escape-regexp differently if
printing multibyte characters.
(ps-begin-page): Set ps-mule-current-charset to 'ascii.
(ps-basic-plot-string): Handle the case of printing ASCII
characters by external libraries (e.g. BDF).
(ps-set-font): Set ps-last-font.
(ps-plot-region): Handle multibyte characters, use
ps-mule-plot-string for them.
(ps-generate): Set the spool buffer unibyte. Call ps-mule-begin.
1998-08-24 10:19:29 +00:00
|
|
|
|
|
1999-12-15 00:38:58 +00:00
|
|
|
|
(composition ; a composite sequence
|
|
|
|
|
(ps-plot 'ps-mule-plot-composition match-point (point) bg-color))
|
|
|
|
|
|
1998-10-26 20:25:41 +00:00
|
|
|
|
((> match 255) ; a multi-byte character
|
2005-03-29 05:06:48 +00:00
|
|
|
|
(setq match (or (aref ps-print-translation-table match) match))
|
1999-12-15 00:38:58 +00:00
|
|
|
|
(let* ((charset (char-charset match))
|
Even/odd pages fix. Fix little bug on XEmacs. Avoid
compilation gripes. Doc fix.
(ps-print-version): New version number (6.2).
(ps-x-color-instance-p, ps-x-color-instance-rgb-components)
(ps-x-color-name, ps-x-color-specifier-p, ps-x-copy-coding-system)
(ps-x-device-class, ps-x-extent-end-position, ps-x-extent-face)
(ps-x-extent-priority, ps-x-extent-start-position)
(ps-x-face-font-instance, ps-x-find-coding-system)
(ps-x-font-instance-properties, ps-x-make-color-instance)
(ps-x-map-extents): Alias for functions without the prefix `ps-x-', to
avoid compilation gripes without defining functions.
(ps-e-find-composition): Alias for function find-composition, to have a
suitable function depending on Emacs version.
(ps-color-device, ps-color-values, ps-face-foreground-name)
(ps-face-background-name, ps-face-bold-p, ps-face-italic-p, ps-mapper)
(ps-extent-sorter, ps-xemacs-face-kind-p, ps-xemacs-color-name)
(ps-print-ensure-fontified): Function definitions surrounded by
`eval-and-compile' to avoid compilation gripes.
(ps-font-lock-face-attributes): `font-lock-face-attributes' evaluated
by symbol-value to avoid compilation gripes.
(ps-end-file, ps-header-sheet, ps-plot-region): Even/odd pages fix.
(ps-generate-postscript-with-faces): Fix little bug on XEmacs.
2000-10-19 10:46:51 +00:00
|
|
|
|
(composition (ps-e-find-composition match-point to))
|
1999-12-15 00:38:58 +00:00
|
|
|
|
(stop (if (nth 2 composition) (car composition) to)))
|
Multi-byte buffer handling.
(ps-print-version): New version number (4.0) and doc fix.
(ps-color-device, ps-face-bold-p, ps-face-italic-p): Conditional
compilation for GNU Emacs and emacsens.
(ps-generate-postscript-with-faces): Force invisible text to be
visible.
(dos-ps-printer): New var to avoid compilation gripes.
(ps-mule-plot-string): Pay attention to the case
that no more characters can't be printed in the current line.
(ps-mule-find-wrappoint): ENDPOS should not be greater than TO.
Add codes to make ps-print.el work also on Emacs
20.2 and the earlier version.
(ps-mule-encode-7bit, ps-mule-encode-8bit): Modified for 20.2.
(ccl-encode-ethio-unicode, ps-mule-encode-ethiopic): Likewise.
(ps-mule-find-wrappoint): Likewise.
(ps-mule-generate-font): Change `X' to `x' in format
control-string.
(ps-generate): Call ps-mule-begin before calling ps-begin-job.
(ps-mule-cmpchar-prologue): Delete unnecessary `gsave' and
`restore' form procedures `BC' and `EC'.
(ps-print-prologue-1): Handle the case that FontBBox
is an executable procedure. Make LineThickness, Xshadow, and
Yshadow relative to FontHeight. Set SpaceWidth in BeginDoc.
(ps-mule-font-info-database, ps-mule-font-info-database-ps,
ps-mule-font-info-database-bdf): New vars.
(ps-mule-encode-7bit, ps-mule-encode-8bit): New funs.
(ccl-encode-ethio-unicode): New CCL program.
(ps-mule-encode-ethiopic): New fun.
(ps-mule-current-charset): New var.
(ps-mule-get-font-spec, ps-mule-font-spec-src,
ps-mule-font-spec-name, ps-mule-font-spec-encoding,
ps-mule-font-spec-bytes, ps-mule-printable-p): New funs.
(ps-mule-external-libraries): New var.
(ps-mule-init-external-library): New fun.
(ps-mule-font-cache): New var.
(ps-mule-generate-font, ps-mule-generate-glyphs): New funs.
(ps-last-font): New var.
(ps-mule-prepare-font): New fun.
(ps-mule-charset-list): New var.
(ps-mule-prologue-generated, ps-mule-prologue): New vars.
(ps-mule-skip-same-charset, ps-mule-find-wrappoint,
ps-mule-plot-string): New funs.
(ps-mule-cmpchar-prologue-generated, ps-mule-cmpchar-prologue):
New vars.
(ps-mule-plot-rule-cmpchar, ps-mule-plot-cmpchar,
ps-mule-prepare-cmpchar-font): New funs.
(ps-mule-bitmap-prologue-generated, ps-mule-bitmap-prologue): New
vars.
(ps-mule-generate-bitmap-prologue, ps-mule-generate-bitmap-font,
ps-mule-generate-bitmap-glyph): New funs.
(ps-mule-initialize, ps-mule-begin): New funs.
(ps-output-string-prim): Insert string as unibyte.
(ps-output-prologue): New fun.
(ps-flush-output): Handle the case of 'prologue.
(ps-begin-file): Call ps-mule-initialize.
(ps-begin-job): Set ps-control-or-escape-regexp differently if
printing multibyte characters.
(ps-begin-page): Set ps-mule-current-charset to 'ascii.
(ps-basic-plot-string): Handle the case of printing ASCII
characters by external libraries (e.g. BDF).
(ps-set-font): Set ps-last-font.
(ps-plot-region): Handle multibyte characters, use
ps-mule-plot-string for them.
(ps-generate): Set the spool buffer unibyte. Call ps-mule-begin.
1998-08-24 10:19:29 +00:00
|
|
|
|
(or (eq charset 'composition)
|
2005-03-29 05:06:48 +00:00
|
|
|
|
(while (and (< (point) stop)
|
|
|
|
|
(let ((ch (following-char)))
|
|
|
|
|
(setq ch
|
|
|
|
|
(or (aref ps-print-translation-table ch)
|
|
|
|
|
ch))
|
|
|
|
|
(eq (char-charset ch) charset)))
|
1998-12-15 06:31:48 +00:00
|
|
|
|
(forward-char 1)))
|
Multi-byte buffer handling.
(ps-print-version): New version number (4.0) and doc fix.
(ps-color-device, ps-face-bold-p, ps-face-italic-p): Conditional
compilation for GNU Emacs and emacsens.
(ps-generate-postscript-with-faces): Force invisible text to be
visible.
(dos-ps-printer): New var to avoid compilation gripes.
(ps-mule-plot-string): Pay attention to the case
that no more characters can't be printed in the current line.
(ps-mule-find-wrappoint): ENDPOS should not be greater than TO.
Add codes to make ps-print.el work also on Emacs
20.2 and the earlier version.
(ps-mule-encode-7bit, ps-mule-encode-8bit): Modified for 20.2.
(ccl-encode-ethio-unicode, ps-mule-encode-ethiopic): Likewise.
(ps-mule-find-wrappoint): Likewise.
(ps-mule-generate-font): Change `X' to `x' in format
control-string.
(ps-generate): Call ps-mule-begin before calling ps-begin-job.
(ps-mule-cmpchar-prologue): Delete unnecessary `gsave' and
`restore' form procedures `BC' and `EC'.
(ps-print-prologue-1): Handle the case that FontBBox
is an executable procedure. Make LineThickness, Xshadow, and
Yshadow relative to FontHeight. Set SpaceWidth in BeginDoc.
(ps-mule-font-info-database, ps-mule-font-info-database-ps,
ps-mule-font-info-database-bdf): New vars.
(ps-mule-encode-7bit, ps-mule-encode-8bit): New funs.
(ccl-encode-ethio-unicode): New CCL program.
(ps-mule-encode-ethiopic): New fun.
(ps-mule-current-charset): New var.
(ps-mule-get-font-spec, ps-mule-font-spec-src,
ps-mule-font-spec-name, ps-mule-font-spec-encoding,
ps-mule-font-spec-bytes, ps-mule-printable-p): New funs.
(ps-mule-external-libraries): New var.
(ps-mule-init-external-library): New fun.
(ps-mule-font-cache): New var.
(ps-mule-generate-font, ps-mule-generate-glyphs): New funs.
(ps-last-font): New var.
(ps-mule-prepare-font): New fun.
(ps-mule-charset-list): New var.
(ps-mule-prologue-generated, ps-mule-prologue): New vars.
(ps-mule-skip-same-charset, ps-mule-find-wrappoint,
ps-mule-plot-string): New funs.
(ps-mule-cmpchar-prologue-generated, ps-mule-cmpchar-prologue):
New vars.
(ps-mule-plot-rule-cmpchar, ps-mule-plot-cmpchar,
ps-mule-prepare-cmpchar-font): New funs.
(ps-mule-bitmap-prologue-generated, ps-mule-bitmap-prologue): New
vars.
(ps-mule-generate-bitmap-prologue, ps-mule-generate-bitmap-font,
ps-mule-generate-bitmap-glyph): New funs.
(ps-mule-initialize, ps-mule-begin): New funs.
(ps-output-string-prim): Insert string as unibyte.
(ps-output-prologue): New fun.
(ps-flush-output): Handle the case of 'prologue.
(ps-begin-file): Call ps-mule-initialize.
(ps-begin-job): Set ps-control-or-escape-regexp differently if
printing multibyte characters.
(ps-begin-page): Set ps-mule-current-charset to 'ascii.
(ps-basic-plot-string): Handle the case of printing ASCII
characters by external libraries (e.g. BDF).
(ps-set-font): Set ps-last-font.
(ps-plot-region): Handle multibyte characters, use
ps-mule-plot-string for them.
(ps-generate): Set the spool buffer unibyte. Call ps-mule-begin.
1998-08-24 10:19:29 +00:00
|
|
|
|
(ps-plot 'ps-mule-plot-string match-point (point) bg-color)))
|
2000-10-18 14:31:05 +00:00
|
|
|
|
; characters from ^@ to ^_ and
|
Some comment, doc and bug fixes.
(ps-print-version): New version number (3.05.3) and doc fix.
(ps-output-string-prim, ps-begin-job, ps-control-character)
(ps-plot-region): Bug fix.
(ps-print-control-characters): New custom var.
(ps-string-escape-codes, ps-string-control-codes): New var.
(ps-color-device, ps-font-lock-face-attributes, ps-eval-switch)
(ps-flatten-list, ps-flatten-list-1): New fn.
(ps-setup): Update current setup.
(ps-begin-file): Adjust PostScript header file.
(ps-plot, ps-face-attribute-list): Little programming improvement.
(ps-print-prologue-1): Replace NumberOfZebra by ZebraHeight.
(ps-print-without-faces, ps-print-with-faces): Little reprogramming.
(ps-plot-with-face): Get color only on color screen device.
(ps-build-reference-face-lists): Handle obsolete
font-lock-face-attributes.
(ps-print-ensure-fontified): Little programming setting.
(ps-generate-postscript-with-faces): Adjust initializations, get color
only on color screen device.
(ps-generate): Replace (if A B) by (and A B).
(ps-do-despool): Dynamic evaluation for ps-lpr-switches,
Replace (if A B) by (and A B).
(color-instance-rgb-components, ps-color-values): Replace
pixel-components by color-instance-rgb-components.
(ps-xemacs-face-kind-p): Replace face-font by face-font-instance,
replace x-font-properties by font-instance-properties.
1997-12-25 18:33:52 +00:00
|
|
|
|
(t ; characters from 127 to 255
|
|
|
|
|
(ps-control-character match)))
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
(setq from (point)))
|
1998-10-26 20:25:41 +00:00
|
|
|
|
;; region without control characters nor multi-byte characters
|
1998-12-15 06:31:48 +00:00
|
|
|
|
(ps-mule-set-ascii-font)
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
(ps-plot 'ps-basic-plot-string from to bg-color)
|
|
|
|
|
(setq from to)))))
|
|
|
|
|
|
Some comment, doc and bug fixes.
(ps-print-version): New version number (3.05.3) and doc fix.
(ps-output-string-prim, ps-begin-job, ps-control-character)
(ps-plot-region): Bug fix.
(ps-print-control-characters): New custom var.
(ps-string-escape-codes, ps-string-control-codes): New var.
(ps-color-device, ps-font-lock-face-attributes, ps-eval-switch)
(ps-flatten-list, ps-flatten-list-1): New fn.
(ps-setup): Update current setup.
(ps-begin-file): Adjust PostScript header file.
(ps-plot, ps-face-attribute-list): Little programming improvement.
(ps-print-prologue-1): Replace NumberOfZebra by ZebraHeight.
(ps-print-without-faces, ps-print-with-faces): Little reprogramming.
(ps-plot-with-face): Get color only on color screen device.
(ps-build-reference-face-lists): Handle obsolete
font-lock-face-attributes.
(ps-print-ensure-fontified): Little programming setting.
(ps-generate-postscript-with-faces): Adjust initializations, get color
only on color screen device.
(ps-generate): Replace (if A B) by (and A B).
(ps-do-despool): Dynamic evaluation for ps-lpr-switches,
Replace (if A B) by (and A B).
(color-instance-rgb-components, ps-color-values): Replace
pixel-components by color-instance-rgb-components.
(ps-xemacs-face-kind-p): Replace face-font by face-font-instance,
replace x-font-properties by font-instance-properties.
1997-12-25 18:33:52 +00:00
|
|
|
|
(defvar ps-string-control-codes
|
|
|
|
|
(let ((table (make-vector 256 nil))
|
|
|
|
|
(char ?\000))
|
|
|
|
|
;; control character
|
|
|
|
|
(while (<= char ?\037)
|
|
|
|
|
(aset table char (format "^%c" (+ char ?@)))
|
|
|
|
|
(setq char (1+ char)))
|
|
|
|
|
;; printable character
|
|
|
|
|
(while (< char ?\177)
|
|
|
|
|
(aset table char (format "%c" char))
|
|
|
|
|
(setq char (1+ char)))
|
|
|
|
|
;; DEL
|
|
|
|
|
(aset table char "^?")
|
|
|
|
|
;; 8-bit character
|
|
|
|
|
(while (<= (setq char (1+ char)) ?\377)
|
|
|
|
|
(aset table char (format "\\%o" char)))
|
|
|
|
|
table)
|
|
|
|
|
"Vector used to map characters to a printable string.")
|
|
|
|
|
|
|
|
|
|
(defun ps-control-character (char)
|
|
|
|
|
(let* ((str (aref ps-string-control-codes char))
|
|
|
|
|
(from (1- (point)))
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
(len (length str))
|
|
|
|
|
(to (+ from len))
|
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.
1998-03-07 06:04:46 +00:00
|
|
|
|
(char-width (ps-avg-char-width 'ps-font-for-text))
|
|
|
|
|
(wrappoint (ps-find-wrappoint from to char-width)))
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
(if (< (car wrappoint) to)
|
|
|
|
|
(ps-continue-line))
|
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.
1998-03-07 06:04:46 +00:00
|
|
|
|
(setq ps-width-remaining (- ps-width-remaining (* len char-width)))
|
1999-06-15 08:11:35 +00:00
|
|
|
|
(ps-mule-prepare-ascii-font str)
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
(ps-output-string str)
|
|
|
|
|
(ps-output " S\n")))
|
1994-05-01 22:09:01 +00:00
|
|
|
|
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.1).
(ps-adobe-tag): Replace defvar by defcustom, and doc fix.
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): Add arg REGION-P.
(ps-print-region-with-faces, ps-print-region)
(ps-spool-region, ps-spool-region-with-faces): Fix calls to
the functions above.
(ps-setup): Print value of ps-zebra-stripe, ps-number-of-zebra,
ps-line-number, ps-print-background-image,
and ps-print-background-text.
(ps-print-prologue-1): Bug fix in PostScript programming:
/BeginDSCPage, /BeginPage.
(ps-showpage-count, ps-ref-bold-faces, ps-ref-italic-faces)
(ps-ref-underlined-faces, font-lock-face-attributes)
(ps-initialize-faces): Vars deleted.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-initialize-faces, ps-header-height)
(ps-hard-lf, ps-soft-lf, ps-get-face, ps-map-font-lock): Fn deleted.
(ps-extend-face-list, ps-extend-face): Doc fix.
(ps-print-face-alist): New var to handle face alist.
(ps-printing-region): New var and fn.
(ps-header-page, ps-set-face-bold, ps-set-face-italic)
(ps-set-face-underline, ps-set-face-attribute, ps-map-face): New fn.
(ps-rmail-mode-hook, ps-rmail-print-message-from-summary)
(ps-print-message-from-summary, ps-vm-print-message-from-summary):
Fns moved.
(ps-background): New argument PAGE-NUMBER.
(ps-begin-file): Bug fix and print proper line number in a region.
(ps-begin-page): Call ps-header-page.
(ps-get-buffer-name): Indicates in the header when printing a region.
(ps-end-page): Delete ps-showpage-count.
(ps-dummy-page): Calls ps-header-page.
(ps-set-color): Programming improvement.
(ps-plot-region): Doc fix.
(ps-face-attributes): Same functionality as deleted ps-get-face.
(ps-build-reference-face-lists): Do the job by calling
ps-set-face-bold and ps-bold-faces, and friends.
1997-09-06 02:52:00 +00:00
|
|
|
|
(defun ps-face-attributes (face)
|
|
|
|
|
"Return face attribute vector.
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.1).
(ps-adobe-tag): Replace defvar by defcustom, and doc fix.
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): Add arg REGION-P.
(ps-print-region-with-faces, ps-print-region)
(ps-spool-region, ps-spool-region-with-faces): Fix calls to
the functions above.
(ps-setup): Print value of ps-zebra-stripe, ps-number-of-zebra,
ps-line-number, ps-print-background-image,
and ps-print-background-text.
(ps-print-prologue-1): Bug fix in PostScript programming:
/BeginDSCPage, /BeginPage.
(ps-showpage-count, ps-ref-bold-faces, ps-ref-italic-faces)
(ps-ref-underlined-faces, font-lock-face-attributes)
(ps-initialize-faces): Vars deleted.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-initialize-faces, ps-header-height)
(ps-hard-lf, ps-soft-lf, ps-get-face, ps-map-font-lock): Fn deleted.
(ps-extend-face-list, ps-extend-face): Doc fix.
(ps-print-face-alist): New var to handle face alist.
(ps-printing-region): New var and fn.
(ps-header-page, ps-set-face-bold, ps-set-face-italic)
(ps-set-face-underline, ps-set-face-attribute, ps-map-face): New fn.
(ps-rmail-mode-hook, ps-rmail-print-message-from-summary)
(ps-print-message-from-summary, ps-vm-print-message-from-summary):
Fns moved.
(ps-background): New argument PAGE-NUMBER.
(ps-begin-file): Bug fix and print proper line number in a region.
(ps-begin-page): Call ps-header-page.
(ps-get-buffer-name): Indicates in the header when printing a region.
(ps-end-page): Delete ps-showpage-count.
(ps-dummy-page): Calls ps-header-page.
(ps-set-color): Programming improvement.
(ps-plot-region): Doc fix.
(ps-face-attributes): Same functionality as deleted ps-get-face.
(ps-build-reference-face-lists): Do the job by calling
ps-set-face-bold and ps-bold-faces, and friends.
1997-09-06 02:52:00 +00:00
|
|
|
|
If FACE is not in `ps-print-face-extension-alist' or in
|
|
|
|
|
`ps-print-face-alist', insert it on `ps-print-face-alist' and
|
|
|
|
|
return the attribute vector.
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
|
|
|
|
|
If FACE is not a valid face name, it is used default face."
|
2000-07-30 11:49:38 +00:00
|
|
|
|
(cond
|
2001-09-18 09:28:00 +00:00
|
|
|
|
(ps-black-white-faces-alist
|
|
|
|
|
(or (and (symbolp face)
|
|
|
|
|
(cdr (assq face ps-black-white-faces-alist)))
|
|
|
|
|
(vector 0 nil nil)))
|
2000-07-30 11:49:38 +00:00
|
|
|
|
((symbolp face)
|
|
|
|
|
(cdr (or (assq face ps-print-face-extension-alist)
|
|
|
|
|
(assq face ps-print-face-alist)
|
|
|
|
|
(let* ((the-face (if (facep face) face 'default))
|
|
|
|
|
(new-face (ps-screen-to-bit-face the-face)))
|
|
|
|
|
(or (and (eq the-face 'default)
|
|
|
|
|
(assq the-face ps-print-face-alist))
|
|
|
|
|
(setq ps-print-face-alist
|
|
|
|
|
(cons new-face ps-print-face-alist)))
|
|
|
|
|
new-face))))
|
|
|
|
|
((eq (car face) 'foreground-color)
|
|
|
|
|
(vector 0 (cdr face) nil))
|
|
|
|
|
((eq (car face) 'background-color)
|
|
|
|
|
(vector 0 nil (cdr face)))
|
|
|
|
|
(t
|
|
|
|
|
(vector 0 nil nil))))
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
|
1995-05-12 02:18:47 +00:00
|
|
|
|
|
2000-04-29 19:27:49 +00:00
|
|
|
|
(defun ps-face-background (face background)
|
|
|
|
|
(and (or (eq ps-use-face-background t)
|
|
|
|
|
(cond ((symbolp face)
|
|
|
|
|
(memq face ps-use-face-background))
|
|
|
|
|
((listp face)
|
2000-07-30 11:49:38 +00:00
|
|
|
|
(or (memq (car face) '(foreground-color background-color))
|
|
|
|
|
(let (ok)
|
|
|
|
|
(while face
|
|
|
|
|
(if (or (memq (car face) ps-use-face-background)
|
|
|
|
|
(memq (car face)
|
|
|
|
|
'(foreground-color background-color)))
|
|
|
|
|
(setq face nil
|
|
|
|
|
ok t)
|
|
|
|
|
(setq face (cdr face))))
|
|
|
|
|
ok)))
|
2000-04-29 19:27:49 +00:00
|
|
|
|
(t
|
|
|
|
|
nil)
|
|
|
|
|
))
|
|
|
|
|
background))
|
|
|
|
|
|
|
|
|
|
|
1995-05-12 02:18:47 +00:00
|
|
|
|
(defun ps-face-attribute-list (face-or-list)
|
2000-07-30 11:49:38 +00:00
|
|
|
|
(cond
|
|
|
|
|
;; simple face
|
|
|
|
|
((not (listp face-or-list))
|
|
|
|
|
(ps-face-attributes face-or-list))
|
|
|
|
|
;; only foreground color, not a `real' face
|
|
|
|
|
((eq (car face-or-list) 'foreground-color)
|
|
|
|
|
(vector 0 (cdr face-or-list) nil))
|
|
|
|
|
;; only background color, not a `real' face
|
|
|
|
|
((eq (car face-or-list) 'background-color)
|
|
|
|
|
(vector 0 nil (cdr face-or-list)))
|
|
|
|
|
;; list of faces
|
|
|
|
|
(t
|
|
|
|
|
(let ((effects 0)
|
|
|
|
|
foreground background face-attr face)
|
|
|
|
|
(while face-or-list
|
|
|
|
|
(setq face (car face-or-list)
|
|
|
|
|
face-or-list (cdr face-or-list)
|
|
|
|
|
face-attr (ps-face-attributes face)
|
|
|
|
|
effects (logior effects (aref face-attr 0)))
|
|
|
|
|
(or foreground (setq foreground (aref face-attr 1)))
|
|
|
|
|
(or background
|
|
|
|
|
(setq background (ps-face-background face (aref face-attr 2)))))
|
|
|
|
|
(vector effects foreground background)))))
|
1995-05-12 02:18:47 +00:00
|
|
|
|
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
|
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.
1998-03-07 06:04:46 +00:00
|
|
|
|
(defconst ps-font-type (vector nil 'bold 'italic 'bold-italic))
|
|
|
|
|
|
|
|
|
|
|
1995-01-20 06:09:03 +00:00
|
|
|
|
(defun ps-plot-with-face (from to face)
|
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.
1998-03-07 06:04:46 +00:00
|
|
|
|
(cond
|
|
|
|
|
((null face) ; print text with null face
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
(ps-plot-region from to 0))
|
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.
1998-03-07 06:04:46 +00:00
|
|
|
|
((eq face 'emacs--invisible--face)) ; skip invisible text!!!
|
|
|
|
|
(t ; otherwise, text has a valid face
|
|
|
|
|
(let* ((face-bit (ps-face-attribute-list face))
|
|
|
|
|
(effect (aref face-bit 0))
|
|
|
|
|
(foreground (aref face-bit 1))
|
2000-04-29 19:27:49 +00:00
|
|
|
|
(background (ps-face-background face (aref face-bit 2)))
|
User option for multibyte buffer handling and doc fix.
(ps-multibyte-buffer): New user option.
(ps-setup): Print new user option.
(ps-print-quote): New fun.
(ps-color-p, ps-mule-font-info-database-latin): New var.
(ps-default-color, ps-mule-font-info-database)
(ps-mule-font-info-database-ps-bdf): Adjust initialization.
(ps-mule-get-font-spec, ps-mule-begin, ps-begin-file)
(ps-plot-with-face, ps-generate-postscript-with-faces, ps-generate):
Little code improvement.
(ps-mule-initialize): Initialize ps-mule-font-info-database.
(ps-print-prologue-header, ps-font-family, ps-font-size)
(ps-header-font-family, ps-header-font-size, ps-header-title-font-size)
(ps-build-face-reference, ps-mule-font-info-database-bdf)
(ps-mule-external-libraries, ps-mule-init-external-library)
(ps-mule-prepare-font, ps-mule-find-wrappoint, ps-mule-plot-string): doc
fix.
To make it work also on Emacs 20.2 and the earlier
version, check the value of mule-version.
(ps-print-version): New version number (4.1.1) and doc
fix.
(ps-print-prologue-header): New user option.
(ps-color-values, ps-xemacs-face-kind-p, ps-mapper, ps-extent-sorter):
Conditional compilation for GNU Emacs and emacsens.
(ps-generate-postscript-with-faces): Skip invisible text better.
(ps-setup): Print new user option.
(ps-print-preprint): Check if input file name exists and is unwritable.
(ps-begin-file): Adjust PostScript prologue header for duplex printers
and insert user PostScript prologue header comments.
(ps-mule-encode-bit, ps-mule-string-ascii, ps-mule-string-encoding): New
funs.
(dos-ps-printer, lazy-lock-fontify-buffer): Eliminated.
(ps-mule-prologue, ps-mule-cmpchar-prologue, ps-mule-bitmap-prologue):
PostScript programming normalization.
(ps-mule-encode-7bit, ps-mule-encode-8bit, ps-mule-generate-font)
(ps-mule-generate-glyphs, ps-mule-prepare-font, ps-mule-plot-string)
(ps-mule-skip-same-charset, ps-mule-plot-rule-cmpchar)
(ps-mule-plot-cmpchar, ps-mule-prepare-cmpchar-font)
(ps-mule-initialize, ps-mule-begin, ps-face-bold-p, ps-do-despool):
Programming style normalization.
1998-10-26 20:22:17 +00:00
|
|
|
|
(fg-color (if (and ps-color-p foreground)
|
PostScript programming fix for ghostview, doc fix.
(ps-print-version): New version number (5.1.3).
(ps-begin-file, ps-begin-job, ps-set-color, ps-do-despool, ps-setup)
(ps-insert-file, ps-output-boolean, ps-plot-with-face)
(ps-generate-postscript-with-faces): Code fix.
(ps-color-values): XEmacs compatibility.
(ps-print-background-image, ps-print-background-text, ps-printer-name)
(ps-default-fg, ps-default-bg): Adjust customization.
(ps-zebra-color): Adjust customization, renaming old ps-zebra-gray var.
(ps-color-scale): Renaming old ps-color-value fun.
(ps-print-headers): Replace ps-print-header group to avoid conflict
with ps-print-header variable.
(ps-print-miscellany): New group.
(ps-format-color, ps-rgb-color): New funs.
(ps-default-foreground): New var.
(ps-printer-name-option): New const.
2000-03-30 13:21:45 +00:00
|
|
|
|
(ps-color-scale foreground)
|
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.
1998-03-07 06:04:46 +00:00
|
|
|
|
ps-default-color))
|
User option for multibyte buffer handling and doc fix.
(ps-multibyte-buffer): New user option.
(ps-setup): Print new user option.
(ps-print-quote): New fun.
(ps-color-p, ps-mule-font-info-database-latin): New var.
(ps-default-color, ps-mule-font-info-database)
(ps-mule-font-info-database-ps-bdf): Adjust initialization.
(ps-mule-get-font-spec, ps-mule-begin, ps-begin-file)
(ps-plot-with-face, ps-generate-postscript-with-faces, ps-generate):
Little code improvement.
(ps-mule-initialize): Initialize ps-mule-font-info-database.
(ps-print-prologue-header, ps-font-family, ps-font-size)
(ps-header-font-family, ps-header-font-size, ps-header-title-font-size)
(ps-build-face-reference, ps-mule-font-info-database-bdf)
(ps-mule-external-libraries, ps-mule-init-external-library)
(ps-mule-prepare-font, ps-mule-find-wrappoint, ps-mule-plot-string): doc
fix.
To make it work also on Emacs 20.2 and the earlier
version, check the value of mule-version.
(ps-print-version): New version number (4.1.1) and doc
fix.
(ps-print-prologue-header): New user option.
(ps-color-values, ps-xemacs-face-kind-p, ps-mapper, ps-extent-sorter):
Conditional compilation for GNU Emacs and emacsens.
(ps-generate-postscript-with-faces): Skip invisible text better.
(ps-setup): Print new user option.
(ps-print-preprint): Check if input file name exists and is unwritable.
(ps-begin-file): Adjust PostScript prologue header for duplex printers
and insert user PostScript prologue header comments.
(ps-mule-encode-bit, ps-mule-string-ascii, ps-mule-string-encoding): New
funs.
(dos-ps-printer, lazy-lock-fontify-buffer): Eliminated.
(ps-mule-prologue, ps-mule-cmpchar-prologue, ps-mule-bitmap-prologue):
PostScript programming normalization.
(ps-mule-encode-7bit, ps-mule-encode-8bit, ps-mule-generate-font)
(ps-mule-generate-glyphs, ps-mule-prepare-font, ps-mule-plot-string)
(ps-mule-skip-same-charset, ps-mule-plot-rule-cmpchar)
(ps-mule-plot-cmpchar, ps-mule-prepare-cmpchar-font)
(ps-mule-initialize, ps-mule-begin, ps-face-bold-p, ps-do-despool):
Programming style normalization.
1998-10-26 20:22:17 +00:00
|
|
|
|
(bg-color (and ps-color-p background
|
PostScript programming fix for ghostview, doc fix.
(ps-print-version): New version number (5.1.3).
(ps-begin-file, ps-begin-job, ps-set-color, ps-do-despool, ps-setup)
(ps-insert-file, ps-output-boolean, ps-plot-with-face)
(ps-generate-postscript-with-faces): Code fix.
(ps-color-values): XEmacs compatibility.
(ps-print-background-image, ps-print-background-text, ps-printer-name)
(ps-default-fg, ps-default-bg): Adjust customization.
(ps-zebra-color): Adjust customization, renaming old ps-zebra-gray var.
(ps-color-scale): Renaming old ps-color-value fun.
(ps-print-headers): Replace ps-print-header group to avoid conflict
with ps-print-header variable.
(ps-print-miscellany): New group.
(ps-format-color, ps-rgb-color): New funs.
(ps-default-foreground): New var.
(ps-printer-name-option): New const.
2000-03-30 13:21:45 +00:00
|
|
|
|
(ps-color-scale background))))
|
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.
1998-03-07 06:04:46 +00:00
|
|
|
|
(ps-plot-region
|
|
|
|
|
from to
|
|
|
|
|
(ps-font-number 'ps-font-for-text
|
|
|
|
|
(or (aref ps-font-type (logand effect 3))
|
|
|
|
|
face))
|
|
|
|
|
fg-color bg-color (lsh effect -2)))))
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
(goto-char to))
|
1995-01-20 06:09:03 +00:00
|
|
|
|
|
|
|
|
|
|
1995-05-12 02:18:47 +00:00
|
|
|
|
;; Ensure that face-list is fbound.
|
|
|
|
|
(or (fboundp 'face-list) (defalias 'face-list 'list-faces))
|
1995-01-20 06:09:03 +00:00
|
|
|
|
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.1).
(ps-adobe-tag): Replace defvar by defcustom, and doc fix.
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): Add arg REGION-P.
(ps-print-region-with-faces, ps-print-region)
(ps-spool-region, ps-spool-region-with-faces): Fix calls to
the functions above.
(ps-setup): Print value of ps-zebra-stripe, ps-number-of-zebra,
ps-line-number, ps-print-background-image,
and ps-print-background-text.
(ps-print-prologue-1): Bug fix in PostScript programming:
/BeginDSCPage, /BeginPage.
(ps-showpage-count, ps-ref-bold-faces, ps-ref-italic-faces)
(ps-ref-underlined-faces, font-lock-face-attributes)
(ps-initialize-faces): Vars deleted.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-initialize-faces, ps-header-height)
(ps-hard-lf, ps-soft-lf, ps-get-face, ps-map-font-lock): Fn deleted.
(ps-extend-face-list, ps-extend-face): Doc fix.
(ps-print-face-alist): New var to handle face alist.
(ps-printing-region): New var and fn.
(ps-header-page, ps-set-face-bold, ps-set-face-italic)
(ps-set-face-underline, ps-set-face-attribute, ps-map-face): New fn.
(ps-rmail-mode-hook, ps-rmail-print-message-from-summary)
(ps-print-message-from-summary, ps-vm-print-message-from-summary):
Fns moved.
(ps-background): New argument PAGE-NUMBER.
(ps-begin-file): Bug fix and print proper line number in a region.
(ps-begin-page): Call ps-header-page.
(ps-get-buffer-name): Indicates in the header when printing a region.
(ps-end-page): Delete ps-showpage-count.
(ps-dummy-page): Calls ps-header-page.
(ps-set-color): Programming improvement.
(ps-plot-region): Doc fix.
(ps-face-attributes): Same functionality as deleted ps-get-face.
(ps-build-reference-face-lists): Do the job by calling
ps-set-face-bold and ps-bold-faces, and friends.
1997-09-06 02:52:00 +00:00
|
|
|
|
|
1995-01-20 06:09:03 +00:00
|
|
|
|
(defun ps-build-reference-face-lists ()
|
Some comment, doc and bug fixes.
(ps-print-version): New version number (3.05.3) and doc fix.
(ps-output-string-prim, ps-begin-job, ps-control-character)
(ps-plot-region): Bug fix.
(ps-print-control-characters): New custom var.
(ps-string-escape-codes, ps-string-control-codes): New var.
(ps-color-device, ps-font-lock-face-attributes, ps-eval-switch)
(ps-flatten-list, ps-flatten-list-1): New fn.
(ps-setup): Update current setup.
(ps-begin-file): Adjust PostScript header file.
(ps-plot, ps-face-attribute-list): Little programming improvement.
(ps-print-prologue-1): Replace NumberOfZebra by ZebraHeight.
(ps-print-without-faces, ps-print-with-faces): Little reprogramming.
(ps-plot-with-face): Get color only on color screen device.
(ps-build-reference-face-lists): Handle obsolete
font-lock-face-attributes.
(ps-print-ensure-fontified): Little programming setting.
(ps-generate-postscript-with-faces): Adjust initializations, get color
only on color screen device.
(ps-generate): Replace (if A B) by (and A B).
(ps-do-despool): Dynamic evaluation for ps-lpr-switches,
Replace (if A B) by (and A B).
(color-instance-rgb-components, ps-color-values): Replace
pixel-components by color-instance-rgb-components.
(ps-xemacs-face-kind-p): Replace face-font by face-font-instance,
replace x-font-properties by font-instance-properties.
1997-12-25 18:33:52 +00:00
|
|
|
|
;; Ensure that face database is updated with faces on
|
|
|
|
|
;; `font-lock-face-attributes' (obsolete stuff)
|
|
|
|
|
(ps-font-lock-face-attributes)
|
|
|
|
|
;; Now, rebuild reference face lists
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.1).
(ps-adobe-tag): Replace defvar by defcustom, and doc fix.
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): Add arg REGION-P.
(ps-print-region-with-faces, ps-print-region)
(ps-spool-region, ps-spool-region-with-faces): Fix calls to
the functions above.
(ps-setup): Print value of ps-zebra-stripe, ps-number-of-zebra,
ps-line-number, ps-print-background-image,
and ps-print-background-text.
(ps-print-prologue-1): Bug fix in PostScript programming:
/BeginDSCPage, /BeginPage.
(ps-showpage-count, ps-ref-bold-faces, ps-ref-italic-faces)
(ps-ref-underlined-faces, font-lock-face-attributes)
(ps-initialize-faces): Vars deleted.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-initialize-faces, ps-header-height)
(ps-hard-lf, ps-soft-lf, ps-get-face, ps-map-font-lock): Fn deleted.
(ps-extend-face-list, ps-extend-face): Doc fix.
(ps-print-face-alist): New var to handle face alist.
(ps-printing-region): New var and fn.
(ps-header-page, ps-set-face-bold, ps-set-face-italic)
(ps-set-face-underline, ps-set-face-attribute, ps-map-face): New fn.
(ps-rmail-mode-hook, ps-rmail-print-message-from-summary)
(ps-print-message-from-summary, ps-vm-print-message-from-summary):
Fns moved.
(ps-background): New argument PAGE-NUMBER.
(ps-begin-file): Bug fix and print proper line number in a region.
(ps-begin-page): Call ps-header-page.
(ps-get-buffer-name): Indicates in the header when printing a region.
(ps-end-page): Delete ps-showpage-count.
(ps-dummy-page): Calls ps-header-page.
(ps-set-color): Programming improvement.
(ps-plot-region): Doc fix.
(ps-face-attributes): Same functionality as deleted ps-get-face.
(ps-build-reference-face-lists): Do the job by calling
ps-set-face-bold and ps-bold-faces, and friends.
1997-09-06 02:52:00 +00:00
|
|
|
|
(setq ps-print-face-alist nil)
|
1995-01-20 06:09:03 +00:00
|
|
|
|
(if ps-auto-font-detect
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.1).
(ps-adobe-tag): Replace defvar by defcustom, and doc fix.
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): Add arg REGION-P.
(ps-print-region-with-faces, ps-print-region)
(ps-spool-region, ps-spool-region-with-faces): Fix calls to
the functions above.
(ps-setup): Print value of ps-zebra-stripe, ps-number-of-zebra,
ps-line-number, ps-print-background-image,
and ps-print-background-text.
(ps-print-prologue-1): Bug fix in PostScript programming:
/BeginDSCPage, /BeginPage.
(ps-showpage-count, ps-ref-bold-faces, ps-ref-italic-faces)
(ps-ref-underlined-faces, font-lock-face-attributes)
(ps-initialize-faces): Vars deleted.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-initialize-faces, ps-header-height)
(ps-hard-lf, ps-soft-lf, ps-get-face, ps-map-font-lock): Fn deleted.
(ps-extend-face-list, ps-extend-face): Doc fix.
(ps-print-face-alist): New var to handle face alist.
(ps-printing-region): New var and fn.
(ps-header-page, ps-set-face-bold, ps-set-face-italic)
(ps-set-face-underline, ps-set-face-attribute, ps-map-face): New fn.
(ps-rmail-mode-hook, ps-rmail-print-message-from-summary)
(ps-print-message-from-summary, ps-vm-print-message-from-summary):
Fns moved.
(ps-background): New argument PAGE-NUMBER.
(ps-begin-file): Bug fix and print proper line number in a region.
(ps-begin-page): Call ps-header-page.
(ps-get-buffer-name): Indicates in the header when printing a region.
(ps-end-page): Delete ps-showpage-count.
(ps-dummy-page): Calls ps-header-page.
(ps-set-color): Programming improvement.
(ps-plot-region): Doc fix.
(ps-face-attributes): Same functionality as deleted ps-get-face.
(ps-build-reference-face-lists): Do the job by calling
ps-set-face-bold and ps-bold-faces, and friends.
1997-09-06 02:52:00 +00:00
|
|
|
|
(mapcar 'ps-map-face (face-list))
|
|
|
|
|
(mapcar 'ps-set-face-bold ps-bold-faces)
|
|
|
|
|
(mapcar 'ps-set-face-italic ps-italic-faces)
|
|
|
|
|
(mapcar 'ps-set-face-underline ps-underlined-faces))
|
1995-01-20 06:09:03 +00:00
|
|
|
|
(setq ps-build-face-reference nil))
|
1994-05-01 22:09:01 +00:00
|
|
|
|
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.1).
(ps-adobe-tag): Replace defvar by defcustom, and doc fix.
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): Add arg REGION-P.
(ps-print-region-with-faces, ps-print-region)
(ps-spool-region, ps-spool-region-with-faces): Fix calls to
the functions above.
(ps-setup): Print value of ps-zebra-stripe, ps-number-of-zebra,
ps-line-number, ps-print-background-image,
and ps-print-background-text.
(ps-print-prologue-1): Bug fix in PostScript programming:
/BeginDSCPage, /BeginPage.
(ps-showpage-count, ps-ref-bold-faces, ps-ref-italic-faces)
(ps-ref-underlined-faces, font-lock-face-attributes)
(ps-initialize-faces): Vars deleted.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-initialize-faces, ps-header-height)
(ps-hard-lf, ps-soft-lf, ps-get-face, ps-map-font-lock): Fn deleted.
(ps-extend-face-list, ps-extend-face): Doc fix.
(ps-print-face-alist): New var to handle face alist.
(ps-printing-region): New var and fn.
(ps-header-page, ps-set-face-bold, ps-set-face-italic)
(ps-set-face-underline, ps-set-face-attribute, ps-map-face): New fn.
(ps-rmail-mode-hook, ps-rmail-print-message-from-summary)
(ps-print-message-from-summary, ps-vm-print-message-from-summary):
Fns moved.
(ps-background): New argument PAGE-NUMBER.
(ps-begin-file): Bug fix and print proper line number in a region.
(ps-begin-page): Call ps-header-page.
(ps-get-buffer-name): Indicates in the header when printing a region.
(ps-end-page): Delete ps-showpage-count.
(ps-dummy-page): Calls ps-header-page.
(ps-set-color): Programming improvement.
(ps-plot-region): Doc fix.
(ps-face-attributes): Same functionality as deleted ps-get-face.
(ps-build-reference-face-lists): Do the job by calling
ps-set-face-bold and ps-bold-faces, and friends.
1997-09-06 02:52:00 +00:00
|
|
|
|
|
|
|
|
|
(defun ps-set-face-bold (face)
|
|
|
|
|
(ps-set-face-attribute face 1))
|
|
|
|
|
|
|
|
|
|
(defun ps-set-face-italic (face)
|
|
|
|
|
(ps-set-face-attribute face 2))
|
|
|
|
|
|
|
|
|
|
(defun ps-set-face-underline (face)
|
|
|
|
|
(ps-set-face-attribute face 4))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(defun ps-set-face-attribute (face effect)
|
|
|
|
|
(let ((face-bit (cdr (ps-map-face face))))
|
|
|
|
|
(aset face-bit 0 (logior (aref face-bit 0) effect))))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(defun ps-map-face (face)
|
|
|
|
|
(let* ((face-map (ps-screen-to-bit-face face))
|
|
|
|
|
(ps-face-bit (cdr (assq (car face-map) ps-print-face-alist))))
|
|
|
|
|
(if ps-face-bit
|
|
|
|
|
;; if face exists, merge both
|
|
|
|
|
(let ((face-bit (cdr face-map)))
|
|
|
|
|
(aset ps-face-bit 0 (logior (aref ps-face-bit 0) (aref face-bit 0)))
|
|
|
|
|
(or (aref ps-face-bit 1) (aset ps-face-bit 1 (aref face-bit 1)))
|
|
|
|
|
(or (aref ps-face-bit 2) (aset ps-face-bit 2 (aref face-bit 2))))
|
|
|
|
|
;; if face does not exist, insert it
|
|
|
|
|
(setq ps-print-face-alist (cons face-map ps-print-face-alist)))
|
|
|
|
|
face-map))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(defun ps-screen-to-bit-face (face)
|
|
|
|
|
(cons face
|
|
|
|
|
(vector (logior (if (ps-face-bold-p face) 1 0) ; bold
|
|
|
|
|
(if (ps-face-italic-p face) 2 0) ; italic
|
|
|
|
|
(if (ps-face-underlined-p face) 4 0)) ; underline
|
XEmacs compatibility. Doc fix. Can select page size
with/without giving an error if PostScript printer doesn't have this
kind of page size. Zebra Stripe continues or restarts on next page.
Manual/automatic paper feeding. Switch or not the header.
(ps-print-version): New version number (5.2.2).
(ps-windows-system): Include emx as a Windows system.
(ps-setup, ps-begin-file, ps-color-values, ps-screen-to-bit-face)
(ps-generate-postscript-with-faces, ps-generate-postscript-with-faces)
(ps-background-text): Code fix.
(ps-error-handler-message, ps-user-defined-prologue)
(ps-print-prologue-header, ps-printer-name)
(ps-print-control-characters, ps-n-up-filling, ps-zebra-color)
(ps-line-number-step, ps-spool-config, ps-default-fg, ps-default-bg)
(ps-use-face-background): Customization fix.
(ps-n-up-database): Data fix.
(ps-warn-paper-type, ps-zebra-stripe-follow, ps-manual-feed)
(ps-switch-header): New vars.
(ps-xemacs-color-name, ps-face-foreground-name)
(ps-face-background-name, ps-boolean-constant): New funs.
2000-06-07 15:34:55 +00:00
|
|
|
|
(ps-face-foreground-name face)
|
|
|
|
|
(ps-face-background-name face))))
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.1).
(ps-adobe-tag): Replace defvar by defcustom, and doc fix.
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): Add arg REGION-P.
(ps-print-region-with-faces, ps-print-region)
(ps-spool-region, ps-spool-region-with-faces): Fix calls to
the functions above.
(ps-setup): Print value of ps-zebra-stripe, ps-number-of-zebra,
ps-line-number, ps-print-background-image,
and ps-print-background-text.
(ps-print-prologue-1): Bug fix in PostScript programming:
/BeginDSCPage, /BeginPage.
(ps-showpage-count, ps-ref-bold-faces, ps-ref-italic-faces)
(ps-ref-underlined-faces, font-lock-face-attributes)
(ps-initialize-faces): Vars deleted.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-initialize-faces, ps-header-height)
(ps-hard-lf, ps-soft-lf, ps-get-face, ps-map-font-lock): Fn deleted.
(ps-extend-face-list, ps-extend-face): Doc fix.
(ps-print-face-alist): New var to handle face alist.
(ps-printing-region): New var and fn.
(ps-header-page, ps-set-face-bold, ps-set-face-italic)
(ps-set-face-underline, ps-set-face-attribute, ps-map-face): New fn.
(ps-rmail-mode-hook, ps-rmail-print-message-from-summary)
(ps-print-message-from-summary, ps-vm-print-message-from-summary):
Fns moved.
(ps-background): New argument PAGE-NUMBER.
(ps-begin-file): Bug fix and print proper line number in a region.
(ps-begin-page): Call ps-header-page.
(ps-get-buffer-name): Indicates in the header when printing a region.
(ps-end-page): Delete ps-showpage-count.
(ps-dummy-page): Calls ps-header-page.
(ps-set-color): Programming improvement.
(ps-plot-region): Doc fix.
(ps-face-attributes): Same functionality as deleted ps-get-face.
(ps-build-reference-face-lists): Do the job by calling
ps-set-face-bold and ps-bold-faces, and friends.
1997-09-06 02:52:00 +00:00
|
|
|
|
|
|
|
|
|
|
2004-11-21 22:30:00 +00:00
|
|
|
|
;; to avoid compilation gripes
|
|
|
|
|
(defalias 'ps-jitify 'jit-lock-fontify-now)
|
|
|
|
|
(defalias 'ps-lazify 'lazy-lock-fontify-region)
|
|
|
|
|
|
|
|
|
|
|
Even/odd pages fix. Fix little bug on XEmacs. Avoid
compilation gripes. Doc fix.
(ps-print-version): New version number (6.2).
(ps-x-color-instance-p, ps-x-color-instance-rgb-components)
(ps-x-color-name, ps-x-color-specifier-p, ps-x-copy-coding-system)
(ps-x-device-class, ps-x-extent-end-position, ps-x-extent-face)
(ps-x-extent-priority, ps-x-extent-start-position)
(ps-x-face-font-instance, ps-x-find-coding-system)
(ps-x-font-instance-properties, ps-x-make-color-instance)
(ps-x-map-extents): Alias for functions without the prefix `ps-x-', to
avoid compilation gripes without defining functions.
(ps-e-find-composition): Alias for function find-composition, to have a
suitable function depending on Emacs version.
(ps-color-device, ps-color-values, ps-face-foreground-name)
(ps-face-background-name, ps-face-bold-p, ps-face-italic-p, ps-mapper)
(ps-extent-sorter, ps-xemacs-face-kind-p, ps-xemacs-color-name)
(ps-print-ensure-fontified): Function definitions surrounded by
`eval-and-compile' to avoid compilation gripes.
(ps-font-lock-face-attributes): `font-lock-face-attributes' evaluated
by symbol-value to avoid compilation gripes.
(ps-end-file, ps-header-sheet, ps-plot-region): Even/odd pages fix.
(ps-generate-postscript-with-faces): Fix little bug on XEmacs.
2000-10-19 10:46:51 +00:00
|
|
|
|
;; to avoid compilation gripes
|
2000-10-31 11:54:38 +00:00
|
|
|
|
(defun ps-print-ensure-fontified (start end)
|
2004-11-21 22:30:00 +00:00
|
|
|
|
(cond ((and (boundp 'jit-lock-mode) (symbol-value 'jit-lock-mode))
|
|
|
|
|
(ps-jitify start end))
|
|
|
|
|
((and (boundp 'lazy-lock-mode) (symbol-value 'lazy-lock-mode))
|
|
|
|
|
(ps-lazify start end))))
|
1995-05-12 02:18:47 +00:00
|
|
|
|
|
|
|
|
|
|
1994-05-01 22:09:01 +00:00
|
|
|
|
(defun ps-generate-postscript-with-faces (from to)
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
;; Some initialization...
|
Some comment, doc and bug fixes.
(ps-print-version): New version number (3.05.3) and doc fix.
(ps-output-string-prim, ps-begin-job, ps-control-character)
(ps-plot-region): Bug fix.
(ps-print-control-characters): New custom var.
(ps-string-escape-codes, ps-string-control-codes): New var.
(ps-color-device, ps-font-lock-face-attributes, ps-eval-switch)
(ps-flatten-list, ps-flatten-list-1): New fn.
(ps-setup): Update current setup.
(ps-begin-file): Adjust PostScript header file.
(ps-plot, ps-face-attribute-list): Little programming improvement.
(ps-print-prologue-1): Replace NumberOfZebra by ZebraHeight.
(ps-print-without-faces, ps-print-with-faces): Little reprogramming.
(ps-plot-with-face): Get color only on color screen device.
(ps-build-reference-face-lists): Handle obsolete
font-lock-face-attributes.
(ps-print-ensure-fontified): Little programming setting.
(ps-generate-postscript-with-faces): Adjust initializations, get color
only on color screen device.
(ps-generate): Replace (if A B) by (and A B).
(ps-do-despool): Dynamic evaluation for ps-lpr-switches,
Replace (if A B) by (and A B).
(color-instance-rgb-components, ps-color-values): Replace
pixel-components by color-instance-rgb-components.
(ps-xemacs-face-kind-p): Replace face-font by face-font-instance,
replace x-font-properties by font-instance-properties.
1997-12-25 18:33:52 +00:00
|
|
|
|
(setq ps-current-effect 0)
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
|
1995-02-07 22:51:35 +00:00
|
|
|
|
;; Build the reference lists of faces if necessary.
|
XEmacs compatibility. Doc fix. Can select page size
with/without giving an error if PostScript printer doesn't have this
kind of page size. Zebra Stripe continues or restarts on next page.
Manual/automatic paper feeding. Switch or not the header.
(ps-print-version): New version number (5.2.2).
(ps-windows-system): Include emx as a Windows system.
(ps-setup, ps-begin-file, ps-color-values, ps-screen-to-bit-face)
(ps-generate-postscript-with-faces, ps-generate-postscript-with-faces)
(ps-background-text): Code fix.
(ps-error-handler-message, ps-user-defined-prologue)
(ps-print-prologue-header, ps-printer-name)
(ps-print-control-characters, ps-n-up-filling, ps-zebra-color)
(ps-line-number-step, ps-spool-config, ps-default-fg, ps-default-bg)
(ps-use-face-background): Customization fix.
(ps-n-up-database): Data fix.
(ps-warn-paper-type, ps-zebra-stripe-follow, ps-manual-feed)
(ps-switch-header): New vars.
(ps-xemacs-color-name, ps-face-foreground-name)
(ps-face-background-name, ps-boolean-constant): New funs.
2000-06-07 15:34:55 +00:00
|
|
|
|
(when (or ps-always-build-face-reference
|
|
|
|
|
ps-build-face-reference)
|
|
|
|
|
(message "Collecting face information...")
|
|
|
|
|
(ps-build-reference-face-lists))
|
2001-09-18 09:28:00 +00:00
|
|
|
|
|
|
|
|
|
;; Black/white printer.
|
|
|
|
|
(setq ps-black-white-faces-alist nil)
|
|
|
|
|
(and (eq ps-print-color-p 'black-white)
|
|
|
|
|
(ps-extend-face-list ps-black-white-faces nil
|
|
|
|
|
'ps-black-white-faces-alist))
|
|
|
|
|
|
1995-02-07 22:51:35 +00:00
|
|
|
|
;; Generate some PostScript.
|
1994-05-01 22:09:01 +00:00
|
|
|
|
(save-restriction
|
|
|
|
|
(narrow-to-region from to)
|
User option for multibyte buffer handling and doc fix.
(ps-multibyte-buffer): New user option.
(ps-setup): Print new user option.
(ps-print-quote): New fun.
(ps-color-p, ps-mule-font-info-database-latin): New var.
(ps-default-color, ps-mule-font-info-database)
(ps-mule-font-info-database-ps-bdf): Adjust initialization.
(ps-mule-get-font-spec, ps-mule-begin, ps-begin-file)
(ps-plot-with-face, ps-generate-postscript-with-faces, ps-generate):
Little code improvement.
(ps-mule-initialize): Initialize ps-mule-font-info-database.
(ps-print-prologue-header, ps-font-family, ps-font-size)
(ps-header-font-family, ps-header-font-size, ps-header-title-font-size)
(ps-build-face-reference, ps-mule-font-info-database-bdf)
(ps-mule-external-libraries, ps-mule-init-external-library)
(ps-mule-prepare-font, ps-mule-find-wrappoint, ps-mule-plot-string): doc
fix.
To make it work also on Emacs 20.2 and the earlier
version, check the value of mule-version.
(ps-print-version): New version number (4.1.1) and doc
fix.
(ps-print-prologue-header): New user option.
(ps-color-values, ps-xemacs-face-kind-p, ps-mapper, ps-extent-sorter):
Conditional compilation for GNU Emacs and emacsens.
(ps-generate-postscript-with-faces): Skip invisible text better.
(ps-setup): Print new user option.
(ps-print-preprint): Check if input file name exists and is unwritable.
(ps-begin-file): Adjust PostScript prologue header for duplex printers
and insert user PostScript prologue header comments.
(ps-mule-encode-bit, ps-mule-string-ascii, ps-mule-string-encoding): New
funs.
(dos-ps-printer, lazy-lock-fontify-buffer): Eliminated.
(ps-mule-prologue, ps-mule-cmpchar-prologue, ps-mule-bitmap-prologue):
PostScript programming normalization.
(ps-mule-encode-7bit, ps-mule-encode-8bit, ps-mule-generate-font)
(ps-mule-generate-glyphs, ps-mule-prepare-font, ps-mule-plot-string)
(ps-mule-skip-same-charset, ps-mule-plot-rule-cmpchar)
(ps-mule-plot-cmpchar, ps-mule-prepare-cmpchar-font)
(ps-mule-initialize, ps-mule-begin, ps-face-bold-p, ps-do-despool):
Programming style normalization.
1998-10-26 20:22:17 +00:00
|
|
|
|
(ps-print-ensure-fontified from to)
|
1995-01-20 06:09:03 +00:00
|
|
|
|
(let ((face 'default)
|
|
|
|
|
(position to))
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
(cond
|
2004-11-21 22:30:00 +00:00
|
|
|
|
((featurep 'xemacs) ; xemacs
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
;; Build the list of extents...
|
|
|
|
|
(let ((a (cons 'dummy nil))
|
|
|
|
|
record type extent extent-list)
|
Even/odd pages fix. Fix little bug on XEmacs. Avoid
compilation gripes. Doc fix.
(ps-print-version): New version number (6.2).
(ps-x-color-instance-p, ps-x-color-instance-rgb-components)
(ps-x-color-name, ps-x-color-specifier-p, ps-x-copy-coding-system)
(ps-x-device-class, ps-x-extent-end-position, ps-x-extent-face)
(ps-x-extent-priority, ps-x-extent-start-position)
(ps-x-face-font-instance, ps-x-find-coding-system)
(ps-x-font-instance-properties, ps-x-make-color-instance)
(ps-x-map-extents): Alias for functions without the prefix `ps-x-', to
avoid compilation gripes without defining functions.
(ps-e-find-composition): Alias for function find-composition, to have a
suitable function depending on Emacs version.
(ps-color-device, ps-color-values, ps-face-foreground-name)
(ps-face-background-name, ps-face-bold-p, ps-face-italic-p, ps-mapper)
(ps-extent-sorter, ps-xemacs-face-kind-p, ps-xemacs-color-name)
(ps-print-ensure-fontified): Function definitions surrounded by
`eval-and-compile' to avoid compilation gripes.
(ps-font-lock-face-attributes): `font-lock-face-attributes' evaluated
by symbol-value to avoid compilation gripes.
(ps-end-file, ps-header-sheet, ps-plot-region): Even/odd pages fix.
(ps-generate-postscript-with-faces): Fix little bug on XEmacs.
2000-10-19 10:46:51 +00:00
|
|
|
|
(ps-x-map-extents 'ps-mapper nil from to a)
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.2) and doc fix.
(ps-print, ps-header-lines, ps-show-n-of-n, ps-font-info-database)
(ps-font-family, ps-font-size, ps-header-font-family)
(ps-header-font-size, ps-header-title-font-size, ps-bold-faces)
(ps-italic-faces, ps-underlined-faces, ps-left-header, ps-right-header)
(ps-font, ps-font-bold, ps-font-italic, ps-font-bold-italic)
(ps-avg-char-width, ps-space-width, ps-line-height): Doc fix.
(ps-error-scale-font): New fn.
(ps-soft-lf, ps-hard-lf): Fn deleted.
(ps-get-page-dimensions, ps-set-bg, ps-face-bold-p, ps-face-italic-p)
(ps-set-color): Reindentation.
(ps-output-string-prim, ps-xemacs-face-kind-p): Internal blank lines
deleted.
(ps-set-font): Little programming improvement.
(ps-line-lengths-internal, ps-nb-pages, ps-select-font)
(ps-select-header-font): Simplify some expressions.
(ps-plot-region): Replace (- X 1) by (1- X).
(ps-generate-header): Replace (+ X 1) by (1+ X).
(ps-print-preprint, ps-plot-with-face, ps-print-ensure-fontified)
(ps-kill-emacs-check): Replace (if (and A B) C) by (and A B C).
(ps-init-output-queue, ps-gnus-article-prepare-hook, ps-jts-ps-setup):
Replace (setq a b)(setq c d) by (setq a b c d).
(ps-begin-file, ps-end-file): Replace (ps-output A)(ps-output B)
by (ps-output A B).
(ps-begin-page): Replace (ps-output A)(ps-output B) by (ps-output A B),
replace (setq a b)(setq c d) by (setq a b c d).
(ps-next-line, ps-continue-line): Replace (setq a b)(setq c d)
by (setq a b c d), and incorporates ps-soft-lf and ps-hard-lf,
respectively.
(ps-plot): Replace (setq a b)(setq c d) by (setq a b c d),
and programming improvement.
(ps-generate-postscript-with-faces): Initialization fix,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if (and A B) C) by (and A B C).
(ps-generate): Doc fix, reprogramming to set the page count,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if A nil B) by (or A B),
replace (if (and A B) C) by (and A B C).
(ps-info-mode-hook): Replace (list 'A 'B) by '(A B).
(ps-jack-setup): Replace (list) by nil.
1997-11-23 02:26:50 +00:00
|
|
|
|
(setq a (sort (cdr a) 'car-less-than-car)
|
|
|
|
|
extent-list nil)
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
|
|
|
|
|
;; Loop through the extents...
|
|
|
|
|
(while a
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.2) and doc fix.
(ps-print, ps-header-lines, ps-show-n-of-n, ps-font-info-database)
(ps-font-family, ps-font-size, ps-header-font-family)
(ps-header-font-size, ps-header-title-font-size, ps-bold-faces)
(ps-italic-faces, ps-underlined-faces, ps-left-header, ps-right-header)
(ps-font, ps-font-bold, ps-font-italic, ps-font-bold-italic)
(ps-avg-char-width, ps-space-width, ps-line-height): Doc fix.
(ps-error-scale-font): New fn.
(ps-soft-lf, ps-hard-lf): Fn deleted.
(ps-get-page-dimensions, ps-set-bg, ps-face-bold-p, ps-face-italic-p)
(ps-set-color): Reindentation.
(ps-output-string-prim, ps-xemacs-face-kind-p): Internal blank lines
deleted.
(ps-set-font): Little programming improvement.
(ps-line-lengths-internal, ps-nb-pages, ps-select-font)
(ps-select-header-font): Simplify some expressions.
(ps-plot-region): Replace (- X 1) by (1- X).
(ps-generate-header): Replace (+ X 1) by (1+ X).
(ps-print-preprint, ps-plot-with-face, ps-print-ensure-fontified)
(ps-kill-emacs-check): Replace (if (and A B) C) by (and A B C).
(ps-init-output-queue, ps-gnus-article-prepare-hook, ps-jts-ps-setup):
Replace (setq a b)(setq c d) by (setq a b c d).
(ps-begin-file, ps-end-file): Replace (ps-output A)(ps-output B)
by (ps-output A B).
(ps-begin-page): Replace (ps-output A)(ps-output B) by (ps-output A B),
replace (setq a b)(setq c d) by (setq a b c d).
(ps-next-line, ps-continue-line): Replace (setq a b)(setq c d)
by (setq a b c d), and incorporates ps-soft-lf and ps-hard-lf,
respectively.
(ps-plot): Replace (setq a b)(setq c d) by (setq a b c d),
and programming improvement.
(ps-generate-postscript-with-faces): Initialization fix,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if (and A B) C) by (and A B C).
(ps-generate): Doc fix, reprogramming to set the page count,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if A nil B) by (or A B),
replace (if (and A B) C) by (and A B C).
(ps-info-mode-hook): Replace (list 'A 'B) by '(A B).
(ps-jack-setup): Replace (list) by nil.
1997-11-23 02:26:50 +00:00
|
|
|
|
(setq record (car a)
|
|
|
|
|
position (car record)
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.2) and doc fix.
(ps-print, ps-header-lines, ps-show-n-of-n, ps-font-info-database)
(ps-font-family, ps-font-size, ps-header-font-family)
(ps-header-font-size, ps-header-title-font-size, ps-bold-faces)
(ps-italic-faces, ps-underlined-faces, ps-left-header, ps-right-header)
(ps-font, ps-font-bold, ps-font-italic, ps-font-bold-italic)
(ps-avg-char-width, ps-space-width, ps-line-height): Doc fix.
(ps-error-scale-font): New fn.
(ps-soft-lf, ps-hard-lf): Fn deleted.
(ps-get-page-dimensions, ps-set-bg, ps-face-bold-p, ps-face-italic-p)
(ps-set-color): Reindentation.
(ps-output-string-prim, ps-xemacs-face-kind-p): Internal blank lines
deleted.
(ps-set-font): Little programming improvement.
(ps-line-lengths-internal, ps-nb-pages, ps-select-font)
(ps-select-header-font): Simplify some expressions.
(ps-plot-region): Replace (- X 1) by (1- X).
(ps-generate-header): Replace (+ X 1) by (1+ X).
(ps-print-preprint, ps-plot-with-face, ps-print-ensure-fontified)
(ps-kill-emacs-check): Replace (if (and A B) C) by (and A B C).
(ps-init-output-queue, ps-gnus-article-prepare-hook, ps-jts-ps-setup):
Replace (setq a b)(setq c d) by (setq a b c d).
(ps-begin-file, ps-end-file): Replace (ps-output A)(ps-output B)
by (ps-output A B).
(ps-begin-page): Replace (ps-output A)(ps-output B) by (ps-output A B),
replace (setq a b)(setq c d) by (setq a b c d).
(ps-next-line, ps-continue-line): Replace (setq a b)(setq c d)
by (setq a b c d), and incorporates ps-soft-lf and ps-hard-lf,
respectively.
(ps-plot): Replace (setq a b)(setq c d) by (setq a b c d),
and programming improvement.
(ps-generate-postscript-with-faces): Initialization fix,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if (and A B) C) by (and A B C).
(ps-generate): Doc fix, reprogramming to set the page count,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if A nil B) by (or A B),
replace (if (and A B) C) by (and A B C).
(ps-info-mode-hook): Replace (list 'A 'B) by '(A B).
(ps-jack-setup): Replace (list) by nil.
1997-11-23 02:26:50 +00:00
|
|
|
|
record (cdr record)
|
2000-12-29 11:48:50 +00:00
|
|
|
|
type (car record)
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
|
2000-12-29 11:48:50 +00:00
|
|
|
|
record (cdr record)
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.2) and doc fix.
(ps-print, ps-header-lines, ps-show-n-of-n, ps-font-info-database)
(ps-font-family, ps-font-size, ps-header-font-family)
(ps-header-font-size, ps-header-title-font-size, ps-bold-faces)
(ps-italic-faces, ps-underlined-faces, ps-left-header, ps-right-header)
(ps-font, ps-font-bold, ps-font-italic, ps-font-bold-italic)
(ps-avg-char-width, ps-space-width, ps-line-height): Doc fix.
(ps-error-scale-font): New fn.
(ps-soft-lf, ps-hard-lf): Fn deleted.
(ps-get-page-dimensions, ps-set-bg, ps-face-bold-p, ps-face-italic-p)
(ps-set-color): Reindentation.
(ps-output-string-prim, ps-xemacs-face-kind-p): Internal blank lines
deleted.
(ps-set-font): Little programming improvement.
(ps-line-lengths-internal, ps-nb-pages, ps-select-font)
(ps-select-header-font): Simplify some expressions.
(ps-plot-region): Replace (- X 1) by (1- X).
(ps-generate-header): Replace (+ X 1) by (1+ X).
(ps-print-preprint, ps-plot-with-face, ps-print-ensure-fontified)
(ps-kill-emacs-check): Replace (if (and A B) C) by (and A B C).
(ps-init-output-queue, ps-gnus-article-prepare-hook, ps-jts-ps-setup):
Replace (setq a b)(setq c d) by (setq a b c d).
(ps-begin-file, ps-end-file): Replace (ps-output A)(ps-output B)
by (ps-output A B).
(ps-begin-page): Replace (ps-output A)(ps-output B) by (ps-output A B),
replace (setq a b)(setq c d) by (setq a b c d).
(ps-next-line, ps-continue-line): Replace (setq a b)(setq c d)
by (setq a b c d), and incorporates ps-soft-lf and ps-hard-lf,
respectively.
(ps-plot): Replace (setq a b)(setq c d) by (setq a b c d),
and programming improvement.
(ps-generate-postscript-with-faces): Initialization fix,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if (and A B) C) by (and A B C).
(ps-generate): Doc fix, reprogramming to set the page count,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if A nil B) by (or A B),
replace (if (and A B) C) by (and A B C).
(ps-info-mode-hook): Replace (list 'A 'B) by '(A B).
(ps-jack-setup): Replace (list) by nil.
1997-11-23 02:26:50 +00:00
|
|
|
|
extent (car record))
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
|
|
|
|
|
;; Plot up to this record.
|
|
|
|
|
;; XEmacs 19.12: for some reason, we're getting into a
|
|
|
|
|
;; situation in which some of the records have
|
|
|
|
|
;; positions less than 'from'. Since we've narrowed
|
2000-10-31 11:54:38 +00:00
|
|
|
|
;; the buffer, this'll generate errors. This is a hack,
|
|
|
|
|
;; but don't call ps-plot-with-face unless from > point-min.
|
Even/odd pages fix. Fix little bug on XEmacs. Avoid
compilation gripes. Doc fix.
(ps-print-version): New version number (6.2).
(ps-x-color-instance-p, ps-x-color-instance-rgb-components)
(ps-x-color-name, ps-x-color-specifier-p, ps-x-copy-coding-system)
(ps-x-device-class, ps-x-extent-end-position, ps-x-extent-face)
(ps-x-extent-priority, ps-x-extent-start-position)
(ps-x-face-font-instance, ps-x-find-coding-system)
(ps-x-font-instance-properties, ps-x-make-color-instance)
(ps-x-map-extents): Alias for functions without the prefix `ps-x-', to
avoid compilation gripes without defining functions.
(ps-e-find-composition): Alias for function find-composition, to have a
suitable function depending on Emacs version.
(ps-color-device, ps-color-values, ps-face-foreground-name)
(ps-face-background-name, ps-face-bold-p, ps-face-italic-p, ps-mapper)
(ps-extent-sorter, ps-xemacs-face-kind-p, ps-xemacs-color-name)
(ps-print-ensure-fontified): Function definitions surrounded by
`eval-and-compile' to avoid compilation gripes.
(ps-font-lock-face-attributes): `font-lock-face-attributes' evaluated
by symbol-value to avoid compilation gripes.
(ps-end-file, ps-header-sheet, ps-plot-region): Even/odd pages fix.
(ps-generate-postscript-with-faces): Fix little bug on XEmacs.
2000-10-19 10:46:51 +00:00
|
|
|
|
(and (>= from (point-min))
|
|
|
|
|
(ps-plot-with-face from (min position (point-max)) face))
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
|
|
|
|
|
(cond
|
|
|
|
|
((eq type 'push)
|
Even/odd pages fix. Fix little bug on XEmacs. Avoid
compilation gripes. Doc fix.
(ps-print-version): New version number (6.2).
(ps-x-color-instance-p, ps-x-color-instance-rgb-components)
(ps-x-color-name, ps-x-color-specifier-p, ps-x-copy-coding-system)
(ps-x-device-class, ps-x-extent-end-position, ps-x-extent-face)
(ps-x-extent-priority, ps-x-extent-start-position)
(ps-x-face-font-instance, ps-x-find-coding-system)
(ps-x-font-instance-properties, ps-x-make-color-instance)
(ps-x-map-extents): Alias for functions without the prefix `ps-x-', to
avoid compilation gripes without defining functions.
(ps-e-find-composition): Alias for function find-composition, to have a
suitable function depending on Emacs version.
(ps-color-device, ps-color-values, ps-face-foreground-name)
(ps-face-background-name, ps-face-bold-p, ps-face-italic-p, ps-mapper)
(ps-extent-sorter, ps-xemacs-face-kind-p, ps-xemacs-color-name)
(ps-print-ensure-fontified): Function definitions surrounded by
`eval-and-compile' to avoid compilation gripes.
(ps-font-lock-face-attributes): `font-lock-face-attributes' evaluated
by symbol-value to avoid compilation gripes.
(ps-end-file, ps-header-sheet, ps-plot-region): Even/odd pages fix.
(ps-generate-postscript-with-faces): Fix little bug on XEmacs.
2000-10-19 10:46:51 +00:00
|
|
|
|
(and (ps-x-extent-face extent)
|
User option for multibyte buffer handling and doc fix.
(ps-multibyte-buffer): New user option.
(ps-setup): Print new user option.
(ps-print-quote): New fun.
(ps-color-p, ps-mule-font-info-database-latin): New var.
(ps-default-color, ps-mule-font-info-database)
(ps-mule-font-info-database-ps-bdf): Adjust initialization.
(ps-mule-get-font-spec, ps-mule-begin, ps-begin-file)
(ps-plot-with-face, ps-generate-postscript-with-faces, ps-generate):
Little code improvement.
(ps-mule-initialize): Initialize ps-mule-font-info-database.
(ps-print-prologue-header, ps-font-family, ps-font-size)
(ps-header-font-family, ps-header-font-size, ps-header-title-font-size)
(ps-build-face-reference, ps-mule-font-info-database-bdf)
(ps-mule-external-libraries, ps-mule-init-external-library)
(ps-mule-prepare-font, ps-mule-find-wrappoint, ps-mule-plot-string): doc
fix.
To make it work also on Emacs 20.2 and the earlier
version, check the value of mule-version.
(ps-print-version): New version number (4.1.1) and doc
fix.
(ps-print-prologue-header): New user option.
(ps-color-values, ps-xemacs-face-kind-p, ps-mapper, ps-extent-sorter):
Conditional compilation for GNU Emacs and emacsens.
(ps-generate-postscript-with-faces): Skip invisible text better.
(ps-setup): Print new user option.
(ps-print-preprint): Check if input file name exists and is unwritable.
(ps-begin-file): Adjust PostScript prologue header for duplex printers
and insert user PostScript prologue header comments.
(ps-mule-encode-bit, ps-mule-string-ascii, ps-mule-string-encoding): New
funs.
(dos-ps-printer, lazy-lock-fontify-buffer): Eliminated.
(ps-mule-prologue, ps-mule-cmpchar-prologue, ps-mule-bitmap-prologue):
PostScript programming normalization.
(ps-mule-encode-7bit, ps-mule-encode-8bit, ps-mule-generate-font)
(ps-mule-generate-glyphs, ps-mule-prepare-font, ps-mule-plot-string)
(ps-mule-skip-same-charset, ps-mule-plot-rule-cmpchar)
(ps-mule-plot-cmpchar, ps-mule-prepare-cmpchar-font)
(ps-mule-initialize, ps-mule-begin, ps-face-bold-p, ps-do-despool):
Programming style normalization.
1998-10-26 20:22:17 +00:00
|
|
|
|
(setq extent-list (sort (cons extent extent-list)
|
|
|
|
|
'ps-extent-sorter))))
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
|
|
|
|
|
((eq type 'pull)
|
|
|
|
|
(setq extent-list (sort (delq extent extent-list)
|
|
|
|
|
'ps-extent-sorter))))
|
|
|
|
|
|
User option for multibyte buffer handling and doc fix.
(ps-multibyte-buffer): New user option.
(ps-setup): Print new user option.
(ps-print-quote): New fun.
(ps-color-p, ps-mule-font-info-database-latin): New var.
(ps-default-color, ps-mule-font-info-database)
(ps-mule-font-info-database-ps-bdf): Adjust initialization.
(ps-mule-get-font-spec, ps-mule-begin, ps-begin-file)
(ps-plot-with-face, ps-generate-postscript-with-faces, ps-generate):
Little code improvement.
(ps-mule-initialize): Initialize ps-mule-font-info-database.
(ps-print-prologue-header, ps-font-family, ps-font-size)
(ps-header-font-family, ps-header-font-size, ps-header-title-font-size)
(ps-build-face-reference, ps-mule-font-info-database-bdf)
(ps-mule-external-libraries, ps-mule-init-external-library)
(ps-mule-prepare-font, ps-mule-find-wrappoint, ps-mule-plot-string): doc
fix.
To make it work also on Emacs 20.2 and the earlier
version, check the value of mule-version.
(ps-print-version): New version number (4.1.1) and doc
fix.
(ps-print-prologue-header): New user option.
(ps-color-values, ps-xemacs-face-kind-p, ps-mapper, ps-extent-sorter):
Conditional compilation for GNU Emacs and emacsens.
(ps-generate-postscript-with-faces): Skip invisible text better.
(ps-setup): Print new user option.
(ps-print-preprint): Check if input file name exists and is unwritable.
(ps-begin-file): Adjust PostScript prologue header for duplex printers
and insert user PostScript prologue header comments.
(ps-mule-encode-bit, ps-mule-string-ascii, ps-mule-string-encoding): New
funs.
(dos-ps-printer, lazy-lock-fontify-buffer): Eliminated.
(ps-mule-prologue, ps-mule-cmpchar-prologue, ps-mule-bitmap-prologue):
PostScript programming normalization.
(ps-mule-encode-7bit, ps-mule-encode-8bit, ps-mule-generate-font)
(ps-mule-generate-glyphs, ps-mule-prepare-font, ps-mule-plot-string)
(ps-mule-skip-same-charset, ps-mule-plot-rule-cmpchar)
(ps-mule-plot-cmpchar, ps-mule-prepare-cmpchar-font)
(ps-mule-initialize, ps-mule-begin, ps-face-bold-p, ps-do-despool):
Programming style normalization.
1998-10-26 20:22:17 +00:00
|
|
|
|
(setq face (if extent-list
|
Even/odd pages fix. Fix little bug on XEmacs. Avoid
compilation gripes. Doc fix.
(ps-print-version): New version number (6.2).
(ps-x-color-instance-p, ps-x-color-instance-rgb-components)
(ps-x-color-name, ps-x-color-specifier-p, ps-x-copy-coding-system)
(ps-x-device-class, ps-x-extent-end-position, ps-x-extent-face)
(ps-x-extent-priority, ps-x-extent-start-position)
(ps-x-face-font-instance, ps-x-find-coding-system)
(ps-x-font-instance-properties, ps-x-make-color-instance)
(ps-x-map-extents): Alias for functions without the prefix `ps-x-', to
avoid compilation gripes without defining functions.
(ps-e-find-composition): Alias for function find-composition, to have a
suitable function depending on Emacs version.
(ps-color-device, ps-color-values, ps-face-foreground-name)
(ps-face-background-name, ps-face-bold-p, ps-face-italic-p, ps-mapper)
(ps-extent-sorter, ps-xemacs-face-kind-p, ps-xemacs-color-name)
(ps-print-ensure-fontified): Function definitions surrounded by
`eval-and-compile' to avoid compilation gripes.
(ps-font-lock-face-attributes): `font-lock-face-attributes' evaluated
by symbol-value to avoid compilation gripes.
(ps-end-file, ps-header-sheet, ps-plot-region): Even/odd pages fix.
(ps-generate-postscript-with-faces): Fix little bug on XEmacs.
2000-10-19 10:46:51 +00:00
|
|
|
|
(ps-x-extent-face (car extent-list))
|
User option for multibyte buffer handling and doc fix.
(ps-multibyte-buffer): New user option.
(ps-setup): Print new user option.
(ps-print-quote): New fun.
(ps-color-p, ps-mule-font-info-database-latin): New var.
(ps-default-color, ps-mule-font-info-database)
(ps-mule-font-info-database-ps-bdf): Adjust initialization.
(ps-mule-get-font-spec, ps-mule-begin, ps-begin-file)
(ps-plot-with-face, ps-generate-postscript-with-faces, ps-generate):
Little code improvement.
(ps-mule-initialize): Initialize ps-mule-font-info-database.
(ps-print-prologue-header, ps-font-family, ps-font-size)
(ps-header-font-family, ps-header-font-size, ps-header-title-font-size)
(ps-build-face-reference, ps-mule-font-info-database-bdf)
(ps-mule-external-libraries, ps-mule-init-external-library)
(ps-mule-prepare-font, ps-mule-find-wrappoint, ps-mule-plot-string): doc
fix.
To make it work also on Emacs 20.2 and the earlier
version, check the value of mule-version.
(ps-print-version): New version number (4.1.1) and doc
fix.
(ps-print-prologue-header): New user option.
(ps-color-values, ps-xemacs-face-kind-p, ps-mapper, ps-extent-sorter):
Conditional compilation for GNU Emacs and emacsens.
(ps-generate-postscript-with-faces): Skip invisible text better.
(ps-setup): Print new user option.
(ps-print-preprint): Check if input file name exists and is unwritable.
(ps-begin-file): Adjust PostScript prologue header for duplex printers
and insert user PostScript prologue header comments.
(ps-mule-encode-bit, ps-mule-string-ascii, ps-mule-string-encoding): New
funs.
(dos-ps-printer, lazy-lock-fontify-buffer): Eliminated.
(ps-mule-prologue, ps-mule-cmpchar-prologue, ps-mule-bitmap-prologue):
PostScript programming normalization.
(ps-mule-encode-7bit, ps-mule-encode-8bit, ps-mule-generate-font)
(ps-mule-generate-glyphs, ps-mule-prepare-font, ps-mule-plot-string)
(ps-mule-skip-same-charset, ps-mule-plot-rule-cmpchar)
(ps-mule-plot-cmpchar, ps-mule-prepare-cmpchar-font)
(ps-mule-initialize, ps-mule-begin, ps-face-bold-p, ps-do-despool):
Programming style normalization.
1998-10-26 20:22:17 +00:00
|
|
|
|
'default)
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.2) and doc fix.
(ps-print, ps-header-lines, ps-show-n-of-n, ps-font-info-database)
(ps-font-family, ps-font-size, ps-header-font-family)
(ps-header-font-size, ps-header-title-font-size, ps-bold-faces)
(ps-italic-faces, ps-underlined-faces, ps-left-header, ps-right-header)
(ps-font, ps-font-bold, ps-font-italic, ps-font-bold-italic)
(ps-avg-char-width, ps-space-width, ps-line-height): Doc fix.
(ps-error-scale-font): New fn.
(ps-soft-lf, ps-hard-lf): Fn deleted.
(ps-get-page-dimensions, ps-set-bg, ps-face-bold-p, ps-face-italic-p)
(ps-set-color): Reindentation.
(ps-output-string-prim, ps-xemacs-face-kind-p): Internal blank lines
deleted.
(ps-set-font): Little programming improvement.
(ps-line-lengths-internal, ps-nb-pages, ps-select-font)
(ps-select-header-font): Simplify some expressions.
(ps-plot-region): Replace (- X 1) by (1- X).
(ps-generate-header): Replace (+ X 1) by (1+ X).
(ps-print-preprint, ps-plot-with-face, ps-print-ensure-fontified)
(ps-kill-emacs-check): Replace (if (and A B) C) by (and A B C).
(ps-init-output-queue, ps-gnus-article-prepare-hook, ps-jts-ps-setup):
Replace (setq a b)(setq c d) by (setq a b c d).
(ps-begin-file, ps-end-file): Replace (ps-output A)(ps-output B)
by (ps-output A B).
(ps-begin-page): Replace (ps-output A)(ps-output B) by (ps-output A B),
replace (setq a b)(setq c d) by (setq a b c d).
(ps-next-line, ps-continue-line): Replace (setq a b)(setq c d)
by (setq a b c d), and incorporates ps-soft-lf and ps-hard-lf,
respectively.
(ps-plot): Replace (setq a b)(setq c d) by (setq a b c d),
and programming improvement.
(ps-generate-postscript-with-faces): Initialization fix,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if (and A B) C) by (and A B C).
(ps-generate): Doc fix, reprogramming to set the page count,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if A nil B) by (or A B),
replace (if (and A B) C) by (and A B C).
(ps-info-mode-hook): Replace (list 'A 'B) by '(A B).
(ps-jack-setup): Replace (list) by nil.
1997-11-23 02:26:50 +00:00
|
|
|
|
from position
|
|
|
|
|
a (cdr a)))))
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
|
2004-11-21 22:30:00 +00:00
|
|
|
|
(t ; emacs
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
(let ((property-change from)
|
Multi-byte buffer handling.
(ps-print-version): New version number (4.0) and doc fix.
(ps-color-device, ps-face-bold-p, ps-face-italic-p): Conditional
compilation for GNU Emacs and emacsens.
(ps-generate-postscript-with-faces): Force invisible text to be
visible.
(dos-ps-printer): New var to avoid compilation gripes.
(ps-mule-plot-string): Pay attention to the case
that no more characters can't be printed in the current line.
(ps-mule-find-wrappoint): ENDPOS should not be greater than TO.
Add codes to make ps-print.el work also on Emacs
20.2 and the earlier version.
(ps-mule-encode-7bit, ps-mule-encode-8bit): Modified for 20.2.
(ccl-encode-ethio-unicode, ps-mule-encode-ethiopic): Likewise.
(ps-mule-find-wrappoint): Likewise.
(ps-mule-generate-font): Change `X' to `x' in format
control-string.
(ps-generate): Call ps-mule-begin before calling ps-begin-job.
(ps-mule-cmpchar-prologue): Delete unnecessary `gsave' and
`restore' form procedures `BC' and `EC'.
(ps-print-prologue-1): Handle the case that FontBBox
is an executable procedure. Make LineThickness, Xshadow, and
Yshadow relative to FontHeight. Set SpaceWidth in BeginDoc.
(ps-mule-font-info-database, ps-mule-font-info-database-ps,
ps-mule-font-info-database-bdf): New vars.
(ps-mule-encode-7bit, ps-mule-encode-8bit): New funs.
(ccl-encode-ethio-unicode): New CCL program.
(ps-mule-encode-ethiopic): New fun.
(ps-mule-current-charset): New var.
(ps-mule-get-font-spec, ps-mule-font-spec-src,
ps-mule-font-spec-name, ps-mule-font-spec-encoding,
ps-mule-font-spec-bytes, ps-mule-printable-p): New funs.
(ps-mule-external-libraries): New var.
(ps-mule-init-external-library): New fun.
(ps-mule-font-cache): New var.
(ps-mule-generate-font, ps-mule-generate-glyphs): New funs.
(ps-last-font): New var.
(ps-mule-prepare-font): New fun.
(ps-mule-charset-list): New var.
(ps-mule-prologue-generated, ps-mule-prologue): New vars.
(ps-mule-skip-same-charset, ps-mule-find-wrappoint,
ps-mule-plot-string): New funs.
(ps-mule-cmpchar-prologue-generated, ps-mule-cmpchar-prologue):
New vars.
(ps-mule-plot-rule-cmpchar, ps-mule-plot-cmpchar,
ps-mule-prepare-cmpchar-font): New funs.
(ps-mule-bitmap-prologue-generated, ps-mule-bitmap-prologue): New
vars.
(ps-mule-generate-bitmap-prologue, ps-mule-generate-bitmap-font,
ps-mule-generate-bitmap-glyph): New funs.
(ps-mule-initialize, ps-mule-begin): New funs.
(ps-output-string-prim): Insert string as unibyte.
(ps-output-prologue): New fun.
(ps-flush-output): Handle the case of 'prologue.
(ps-begin-file): Call ps-mule-initialize.
(ps-begin-job): Set ps-control-or-escape-regexp differently if
printing multibyte characters.
(ps-begin-page): Set ps-mule-current-charset to 'ascii.
(ps-basic-plot-string): Handle the case of printing ASCII
characters by external libraries (e.g. BDF).
(ps-set-font): Set ps-last-font.
(ps-plot-region): Handle multibyte characters, use
ps-mule-plot-string for them.
(ps-generate): Set the spool buffer unibyte. Call ps-mule-begin.
1998-08-24 10:19:29 +00:00
|
|
|
|
(overlay-change from)
|
|
|
|
|
(save-buffer-invisibility-spec buffer-invisibility-spec)
|
2001-06-01 09:22:20 +00:00
|
|
|
|
(buffer-invisibility-spec nil)
|
|
|
|
|
before-string after-string)
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
(while (< from to)
|
User option for multibyte buffer handling and doc fix.
(ps-multibyte-buffer): New user option.
(ps-setup): Print new user option.
(ps-print-quote): New fun.
(ps-color-p, ps-mule-font-info-database-latin): New var.
(ps-default-color, ps-mule-font-info-database)
(ps-mule-font-info-database-ps-bdf): Adjust initialization.
(ps-mule-get-font-spec, ps-mule-begin, ps-begin-file)
(ps-plot-with-face, ps-generate-postscript-with-faces, ps-generate):
Little code improvement.
(ps-mule-initialize): Initialize ps-mule-font-info-database.
(ps-print-prologue-header, ps-font-family, ps-font-size)
(ps-header-font-family, ps-header-font-size, ps-header-title-font-size)
(ps-build-face-reference, ps-mule-font-info-database-bdf)
(ps-mule-external-libraries, ps-mule-init-external-library)
(ps-mule-prepare-font, ps-mule-find-wrappoint, ps-mule-plot-string): doc
fix.
To make it work also on Emacs 20.2 and the earlier
version, check the value of mule-version.
(ps-print-version): New version number (4.1.1) and doc
fix.
(ps-print-prologue-header): New user option.
(ps-color-values, ps-xemacs-face-kind-p, ps-mapper, ps-extent-sorter):
Conditional compilation for GNU Emacs and emacsens.
(ps-generate-postscript-with-faces): Skip invisible text better.
(ps-setup): Print new user option.
(ps-print-preprint): Check if input file name exists and is unwritable.
(ps-begin-file): Adjust PostScript prologue header for duplex printers
and insert user PostScript prologue header comments.
(ps-mule-encode-bit, ps-mule-string-ascii, ps-mule-string-encoding): New
funs.
(dos-ps-printer, lazy-lock-fontify-buffer): Eliminated.
(ps-mule-prologue, ps-mule-cmpchar-prologue, ps-mule-bitmap-prologue):
PostScript programming normalization.
(ps-mule-encode-7bit, ps-mule-encode-8bit, ps-mule-generate-font)
(ps-mule-generate-glyphs, ps-mule-prepare-font, ps-mule-plot-string)
(ps-mule-skip-same-charset, ps-mule-plot-rule-cmpchar)
(ps-mule-plot-cmpchar, ps-mule-prepare-cmpchar-font)
(ps-mule-initialize, ps-mule-begin, ps-face-bold-p, ps-do-despool):
Programming style normalization.
1998-10-26 20:22:17 +00:00
|
|
|
|
(and (< property-change to) ; Don't search for property change
|
1995-01-20 06:09:03 +00:00
|
|
|
|
; unless previous search succeeded.
|
User option for multibyte buffer handling and doc fix.
(ps-multibyte-buffer): New user option.
(ps-setup): Print new user option.
(ps-print-quote): New fun.
(ps-color-p, ps-mule-font-info-database-latin): New var.
(ps-default-color, ps-mule-font-info-database)
(ps-mule-font-info-database-ps-bdf): Adjust initialization.
(ps-mule-get-font-spec, ps-mule-begin, ps-begin-file)
(ps-plot-with-face, ps-generate-postscript-with-faces, ps-generate):
Little code improvement.
(ps-mule-initialize): Initialize ps-mule-font-info-database.
(ps-print-prologue-header, ps-font-family, ps-font-size)
(ps-header-font-family, ps-header-font-size, ps-header-title-font-size)
(ps-build-face-reference, ps-mule-font-info-database-bdf)
(ps-mule-external-libraries, ps-mule-init-external-library)
(ps-mule-prepare-font, ps-mule-find-wrappoint, ps-mule-plot-string): doc
fix.
To make it work also on Emacs 20.2 and the earlier
version, check the value of mule-version.
(ps-print-version): New version number (4.1.1) and doc
fix.
(ps-print-prologue-header): New user option.
(ps-color-values, ps-xemacs-face-kind-p, ps-mapper, ps-extent-sorter):
Conditional compilation for GNU Emacs and emacsens.
(ps-generate-postscript-with-faces): Skip invisible text better.
(ps-setup): Print new user option.
(ps-print-preprint): Check if input file name exists and is unwritable.
(ps-begin-file): Adjust PostScript prologue header for duplex printers
and insert user PostScript prologue header comments.
(ps-mule-encode-bit, ps-mule-string-ascii, ps-mule-string-encoding): New
funs.
(dos-ps-printer, lazy-lock-fontify-buffer): Eliminated.
(ps-mule-prologue, ps-mule-cmpchar-prologue, ps-mule-bitmap-prologue):
PostScript programming normalization.
(ps-mule-encode-7bit, ps-mule-encode-8bit, ps-mule-generate-font)
(ps-mule-generate-glyphs, ps-mule-prepare-font, ps-mule-plot-string)
(ps-mule-skip-same-charset, ps-mule-plot-rule-cmpchar)
(ps-mule-plot-cmpchar, ps-mule-prepare-cmpchar-font)
(ps-mule-initialize, ps-mule-begin, ps-face-bold-p, ps-do-despool):
Programming style normalization.
1998-10-26 20:22:17 +00:00
|
|
|
|
(setq property-change (next-property-change from nil to)))
|
|
|
|
|
(and (< overlay-change to) ; Don't search for overlay change
|
1995-01-20 06:09:03 +00:00
|
|
|
|
; unless previous search succeeded.
|
2001-02-20 10:41:10 +00:00
|
|
|
|
(setq overlay-change (min (ps-e-next-overlay-change from)
|
|
|
|
|
to)))
|
2001-06-01 09:22:20 +00:00
|
|
|
|
(setq position (min property-change overlay-change)
|
|
|
|
|
before-string nil
|
|
|
|
|
after-string nil)
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
;; The code below is not quite correct,
|
|
|
|
|
;; because a non-nil overlay invisible property
|
|
|
|
|
;; which is inactive according to the current value
|
|
|
|
|
;; of buffer-invisibility-spec nonetheless overrides
|
|
|
|
|
;; a face text property.
|
|
|
|
|
(setq face
|
|
|
|
|
(cond ((let ((prop (get-text-property from 'invisible)))
|
|
|
|
|
;; Decide whether this invisible property
|
|
|
|
|
;; really makes the text invisible.
|
Multi-byte buffer handling.
(ps-print-version): New version number (4.0) and doc fix.
(ps-color-device, ps-face-bold-p, ps-face-italic-p): Conditional
compilation for GNU Emacs and emacsens.
(ps-generate-postscript-with-faces): Force invisible text to be
visible.
(dos-ps-printer): New var to avoid compilation gripes.
(ps-mule-plot-string): Pay attention to the case
that no more characters can't be printed in the current line.
(ps-mule-find-wrappoint): ENDPOS should not be greater than TO.
Add codes to make ps-print.el work also on Emacs
20.2 and the earlier version.
(ps-mule-encode-7bit, ps-mule-encode-8bit): Modified for 20.2.
(ccl-encode-ethio-unicode, ps-mule-encode-ethiopic): Likewise.
(ps-mule-find-wrappoint): Likewise.
(ps-mule-generate-font): Change `X' to `x' in format
control-string.
(ps-generate): Call ps-mule-begin before calling ps-begin-job.
(ps-mule-cmpchar-prologue): Delete unnecessary `gsave' and
`restore' form procedures `BC' and `EC'.
(ps-print-prologue-1): Handle the case that FontBBox
is an executable procedure. Make LineThickness, Xshadow, and
Yshadow relative to FontHeight. Set SpaceWidth in BeginDoc.
(ps-mule-font-info-database, ps-mule-font-info-database-ps,
ps-mule-font-info-database-bdf): New vars.
(ps-mule-encode-7bit, ps-mule-encode-8bit): New funs.
(ccl-encode-ethio-unicode): New CCL program.
(ps-mule-encode-ethiopic): New fun.
(ps-mule-current-charset): New var.
(ps-mule-get-font-spec, ps-mule-font-spec-src,
ps-mule-font-spec-name, ps-mule-font-spec-encoding,
ps-mule-font-spec-bytes, ps-mule-printable-p): New funs.
(ps-mule-external-libraries): New var.
(ps-mule-init-external-library): New fun.
(ps-mule-font-cache): New var.
(ps-mule-generate-font, ps-mule-generate-glyphs): New funs.
(ps-last-font): New var.
(ps-mule-prepare-font): New fun.
(ps-mule-charset-list): New var.
(ps-mule-prologue-generated, ps-mule-prologue): New vars.
(ps-mule-skip-same-charset, ps-mule-find-wrappoint,
ps-mule-plot-string): New funs.
(ps-mule-cmpchar-prologue-generated, ps-mule-cmpchar-prologue):
New vars.
(ps-mule-plot-rule-cmpchar, ps-mule-plot-cmpchar,
ps-mule-prepare-cmpchar-font): New funs.
(ps-mule-bitmap-prologue-generated, ps-mule-bitmap-prologue): New
vars.
(ps-mule-generate-bitmap-prologue, ps-mule-generate-bitmap-font,
ps-mule-generate-bitmap-glyph): New funs.
(ps-mule-initialize, ps-mule-begin): New funs.
(ps-output-string-prim): Insert string as unibyte.
(ps-output-prologue): New fun.
(ps-flush-output): Handle the case of 'prologue.
(ps-begin-file): Call ps-mule-initialize.
(ps-begin-job): Set ps-control-or-escape-regexp differently if
printing multibyte characters.
(ps-begin-page): Set ps-mule-current-charset to 'ascii.
(ps-basic-plot-string): Handle the case of printing ASCII
characters by external libraries (e.g. BDF).
(ps-set-font): Set ps-last-font.
(ps-plot-region): Handle multibyte characters, use
ps-mule-plot-string for them.
(ps-generate): Set the spool buffer unibyte. Call ps-mule-begin.
1998-08-24 10:19:29 +00:00
|
|
|
|
(if (eq save-buffer-invisibility-spec t)
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
(not (null prop))
|
Multi-byte buffer handling.
(ps-print-version): New version number (4.0) and doc fix.
(ps-color-device, ps-face-bold-p, ps-face-italic-p): Conditional
compilation for GNU Emacs and emacsens.
(ps-generate-postscript-with-faces): Force invisible text to be
visible.
(dos-ps-printer): New var to avoid compilation gripes.
(ps-mule-plot-string): Pay attention to the case
that no more characters can't be printed in the current line.
(ps-mule-find-wrappoint): ENDPOS should not be greater than TO.
Add codes to make ps-print.el work also on Emacs
20.2 and the earlier version.
(ps-mule-encode-7bit, ps-mule-encode-8bit): Modified for 20.2.
(ccl-encode-ethio-unicode, ps-mule-encode-ethiopic): Likewise.
(ps-mule-find-wrappoint): Likewise.
(ps-mule-generate-font): Change `X' to `x' in format
control-string.
(ps-generate): Call ps-mule-begin before calling ps-begin-job.
(ps-mule-cmpchar-prologue): Delete unnecessary `gsave' and
`restore' form procedures `BC' and `EC'.
(ps-print-prologue-1): Handle the case that FontBBox
is an executable procedure. Make LineThickness, Xshadow, and
Yshadow relative to FontHeight. Set SpaceWidth in BeginDoc.
(ps-mule-font-info-database, ps-mule-font-info-database-ps,
ps-mule-font-info-database-bdf): New vars.
(ps-mule-encode-7bit, ps-mule-encode-8bit): New funs.
(ccl-encode-ethio-unicode): New CCL program.
(ps-mule-encode-ethiopic): New fun.
(ps-mule-current-charset): New var.
(ps-mule-get-font-spec, ps-mule-font-spec-src,
ps-mule-font-spec-name, ps-mule-font-spec-encoding,
ps-mule-font-spec-bytes, ps-mule-printable-p): New funs.
(ps-mule-external-libraries): New var.
(ps-mule-init-external-library): New fun.
(ps-mule-font-cache): New var.
(ps-mule-generate-font, ps-mule-generate-glyphs): New funs.
(ps-last-font): New var.
(ps-mule-prepare-font): New fun.
(ps-mule-charset-list): New var.
(ps-mule-prologue-generated, ps-mule-prologue): New vars.
(ps-mule-skip-same-charset, ps-mule-find-wrappoint,
ps-mule-plot-string): New funs.
(ps-mule-cmpchar-prologue-generated, ps-mule-cmpchar-prologue):
New vars.
(ps-mule-plot-rule-cmpchar, ps-mule-plot-cmpchar,
ps-mule-prepare-cmpchar-font): New funs.
(ps-mule-bitmap-prologue-generated, ps-mule-bitmap-prologue): New
vars.
(ps-mule-generate-bitmap-prologue, ps-mule-generate-bitmap-font,
ps-mule-generate-bitmap-glyph): New funs.
(ps-mule-initialize, ps-mule-begin): New funs.
(ps-output-string-prim): Insert string as unibyte.
(ps-output-prologue): New fun.
(ps-flush-output): Handle the case of 'prologue.
(ps-begin-file): Call ps-mule-initialize.
(ps-begin-job): Set ps-control-or-escape-regexp differently if
printing multibyte characters.
(ps-begin-page): Set ps-mule-current-charset to 'ascii.
(ps-basic-plot-string): Handle the case of printing ASCII
characters by external libraries (e.g. BDF).
(ps-set-font): Set ps-last-font.
(ps-plot-region): Handle multibyte characters, use
ps-mule-plot-string for them.
(ps-generate): Set the spool buffer unibyte. Call ps-mule-begin.
1998-08-24 10:19:29 +00:00
|
|
|
|
(or (memq prop save-buffer-invisibility-spec)
|
|
|
|
|
(assq prop save-buffer-invisibility-spec))))
|
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.
1998-03-07 06:04:46 +00:00
|
|
|
|
'emacs--invisible--face)
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
((get-text-property from 'face))
|
|
|
|
|
(t 'default)))
|
2001-02-20 10:41:10 +00:00
|
|
|
|
(let ((overlays (ps-e-overlays-at from))
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
(face-priority -1)) ; text-property
|
User option for multibyte buffer handling and doc fix.
(ps-multibyte-buffer): New user option.
(ps-setup): Print new user option.
(ps-print-quote): New fun.
(ps-color-p, ps-mule-font-info-database-latin): New var.
(ps-default-color, ps-mule-font-info-database)
(ps-mule-font-info-database-ps-bdf): Adjust initialization.
(ps-mule-get-font-spec, ps-mule-begin, ps-begin-file)
(ps-plot-with-face, ps-generate-postscript-with-faces, ps-generate):
Little code improvement.
(ps-mule-initialize): Initialize ps-mule-font-info-database.
(ps-print-prologue-header, ps-font-family, ps-font-size)
(ps-header-font-family, ps-header-font-size, ps-header-title-font-size)
(ps-build-face-reference, ps-mule-font-info-database-bdf)
(ps-mule-external-libraries, ps-mule-init-external-library)
(ps-mule-prepare-font, ps-mule-find-wrappoint, ps-mule-plot-string): doc
fix.
To make it work also on Emacs 20.2 and the earlier
version, check the value of mule-version.
(ps-print-version): New version number (4.1.1) and doc
fix.
(ps-print-prologue-header): New user option.
(ps-color-values, ps-xemacs-face-kind-p, ps-mapper, ps-extent-sorter):
Conditional compilation for GNU Emacs and emacsens.
(ps-generate-postscript-with-faces): Skip invisible text better.
(ps-setup): Print new user option.
(ps-print-preprint): Check if input file name exists and is unwritable.
(ps-begin-file): Adjust PostScript prologue header for duplex printers
and insert user PostScript prologue header comments.
(ps-mule-encode-bit, ps-mule-string-ascii, ps-mule-string-encoding): New
funs.
(dos-ps-printer, lazy-lock-fontify-buffer): Eliminated.
(ps-mule-prologue, ps-mule-cmpchar-prologue, ps-mule-bitmap-prologue):
PostScript programming normalization.
(ps-mule-encode-7bit, ps-mule-encode-8bit, ps-mule-generate-font)
(ps-mule-generate-glyphs, ps-mule-prepare-font, ps-mule-plot-string)
(ps-mule-skip-same-charset, ps-mule-plot-rule-cmpchar)
(ps-mule-plot-cmpchar, ps-mule-prepare-cmpchar-font)
(ps-mule-initialize, ps-mule-begin, ps-face-bold-p, ps-do-despool):
Programming style normalization.
1998-10-26 20:22:17 +00:00
|
|
|
|
(while (and overlays
|
|
|
|
|
(not (eq face 'emacs--invisible--face)))
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
(let* ((overlay (car overlays))
|
2001-06-01 09:22:20 +00:00
|
|
|
|
(overlay-invisible
|
|
|
|
|
(ps-e-overlay-get overlay 'invisible))
|
|
|
|
|
(overlay-priority
|
|
|
|
|
(or (ps-e-overlay-get overlay 'priority) 0)))
|
User option for multibyte buffer handling and doc fix.
(ps-multibyte-buffer): New user option.
(ps-setup): Print new user option.
(ps-print-quote): New fun.
(ps-color-p, ps-mule-font-info-database-latin): New var.
(ps-default-color, ps-mule-font-info-database)
(ps-mule-font-info-database-ps-bdf): Adjust initialization.
(ps-mule-get-font-spec, ps-mule-begin, ps-begin-file)
(ps-plot-with-face, ps-generate-postscript-with-faces, ps-generate):
Little code improvement.
(ps-mule-initialize): Initialize ps-mule-font-info-database.
(ps-print-prologue-header, ps-font-family, ps-font-size)
(ps-header-font-family, ps-header-font-size, ps-header-title-font-size)
(ps-build-face-reference, ps-mule-font-info-database-bdf)
(ps-mule-external-libraries, ps-mule-init-external-library)
(ps-mule-prepare-font, ps-mule-find-wrappoint, ps-mule-plot-string): doc
fix.
To make it work also on Emacs 20.2 and the earlier
version, check the value of mule-version.
(ps-print-version): New version number (4.1.1) and doc
fix.
(ps-print-prologue-header): New user option.
(ps-color-values, ps-xemacs-face-kind-p, ps-mapper, ps-extent-sorter):
Conditional compilation for GNU Emacs and emacsens.
(ps-generate-postscript-with-faces): Skip invisible text better.
(ps-setup): Print new user option.
(ps-print-preprint): Check if input file name exists and is unwritable.
(ps-begin-file): Adjust PostScript prologue header for duplex printers
and insert user PostScript prologue header comments.
(ps-mule-encode-bit, ps-mule-string-ascii, ps-mule-string-encoding): New
funs.
(dos-ps-printer, lazy-lock-fontify-buffer): Eliminated.
(ps-mule-prologue, ps-mule-cmpchar-prologue, ps-mule-bitmap-prologue):
PostScript programming normalization.
(ps-mule-encode-7bit, ps-mule-encode-8bit, ps-mule-generate-font)
(ps-mule-generate-glyphs, ps-mule-prepare-font, ps-mule-plot-string)
(ps-mule-skip-same-charset, ps-mule-plot-rule-cmpchar)
(ps-mule-plot-cmpchar, ps-mule-prepare-cmpchar-font)
(ps-mule-initialize, ps-mule-begin, ps-face-bold-p, ps-do-despool):
Programming style normalization.
1998-10-26 20:22:17 +00:00
|
|
|
|
(and (> overlay-priority face-priority)
|
2001-06-01 09:22:20 +00:00
|
|
|
|
(setq before-string
|
|
|
|
|
(or (ps-e-overlay-get overlay 'before-string)
|
|
|
|
|
before-string)
|
|
|
|
|
after-string
|
|
|
|
|
(or (and (<= (ps-e-overlay-end overlay) position)
|
|
|
|
|
(ps-e-overlay-get overlay 'after-string))
|
|
|
|
|
after-string)
|
|
|
|
|
face-priority overlay-priority
|
|
|
|
|
face
|
|
|
|
|
(cond
|
|
|
|
|
((if (eq save-buffer-invisibility-spec t)
|
|
|
|
|
(not (null overlay-invisible))
|
|
|
|
|
(or (memq overlay-invisible
|
|
|
|
|
save-buffer-invisibility-spec)
|
|
|
|
|
(assq overlay-invisible
|
|
|
|
|
save-buffer-invisibility-spec)))
|
|
|
|
|
'emacs--invisible--face)
|
|
|
|
|
((ps-e-overlay-get overlay 'face))
|
|
|
|
|
(t face)
|
|
|
|
|
))))
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
(setq overlays (cdr overlays))))
|
|
|
|
|
;; Plot up to this record.
|
2001-06-01 09:22:20 +00:00
|
|
|
|
(and before-string
|
|
|
|
|
(ps-plot-string before-string))
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
(ps-plot-with-face from position face)
|
2001-06-01 09:22:20 +00:00
|
|
|
|
(and after-string
|
|
|
|
|
(ps-plot-string after-string))
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
(setq from position)))))
|
|
|
|
|
(ps-plot-with-face from to face))))
|
1994-05-01 22:09:01 +00:00
|
|
|
|
|
|
|
|
|
(defun ps-generate-postscript (from to)
|
1995-01-20 06:09:03 +00:00
|
|
|
|
(ps-plot-region from to 0 nil))
|
1994-05-01 22:09:01 +00:00
|
|
|
|
|
|
|
|
|
(defun ps-generate (buffer from to genfunc)
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
(save-excursion
|
|
|
|
|
(let ((from (min to from))
|
|
|
|
|
(to (max to from))
|
|
|
|
|
;; This avoids trouble if chars with read-only properties
|
|
|
|
|
;; are copied into ps-spool-buffer.
|
|
|
|
|
(inhibit-read-only t))
|
|
|
|
|
(save-restriction
|
|
|
|
|
(narrow-to-region from to)
|
Some comment, doc and bug fixes.
(ps-print-version): New version number (3.05.3) and doc fix.
(ps-output-string-prim, ps-begin-job, ps-control-character)
(ps-plot-region): Bug fix.
(ps-print-control-characters): New custom var.
(ps-string-escape-codes, ps-string-control-codes): New var.
(ps-color-device, ps-font-lock-face-attributes, ps-eval-switch)
(ps-flatten-list, ps-flatten-list-1): New fn.
(ps-setup): Update current setup.
(ps-begin-file): Adjust PostScript header file.
(ps-plot, ps-face-attribute-list): Little programming improvement.
(ps-print-prologue-1): Replace NumberOfZebra by ZebraHeight.
(ps-print-without-faces, ps-print-with-faces): Little reprogramming.
(ps-plot-with-face): Get color only on color screen device.
(ps-build-reference-face-lists): Handle obsolete
font-lock-face-attributes.
(ps-print-ensure-fontified): Little programming setting.
(ps-generate-postscript-with-faces): Adjust initializations, get color
only on color screen device.
(ps-generate): Replace (if A B) by (and A B).
(ps-do-despool): Dynamic evaluation for ps-lpr-switches,
Replace (if A B) by (and A B).
(color-instance-rgb-components, ps-color-values): Replace
pixel-components by color-instance-rgb-components.
(ps-xemacs-face-kind-p): Replace face-font by face-font-instance,
replace x-font-properties by font-instance-properties.
1997-12-25 18:33:52 +00:00
|
|
|
|
(and ps-razzle-dazzle
|
|
|
|
|
(message "Formatting...%3d%%" (setq ps-razchunk 0)))
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.2) and doc fix.
(ps-print, ps-header-lines, ps-show-n-of-n, ps-font-info-database)
(ps-font-family, ps-font-size, ps-header-font-family)
(ps-header-font-size, ps-header-title-font-size, ps-bold-faces)
(ps-italic-faces, ps-underlined-faces, ps-left-header, ps-right-header)
(ps-font, ps-font-bold, ps-font-italic, ps-font-bold-italic)
(ps-avg-char-width, ps-space-width, ps-line-height): Doc fix.
(ps-error-scale-font): New fn.
(ps-soft-lf, ps-hard-lf): Fn deleted.
(ps-get-page-dimensions, ps-set-bg, ps-face-bold-p, ps-face-italic-p)
(ps-set-color): Reindentation.
(ps-output-string-prim, ps-xemacs-face-kind-p): Internal blank lines
deleted.
(ps-set-font): Little programming improvement.
(ps-line-lengths-internal, ps-nb-pages, ps-select-font)
(ps-select-header-font): Simplify some expressions.
(ps-plot-region): Replace (- X 1) by (1- X).
(ps-generate-header): Replace (+ X 1) by (1+ X).
(ps-print-preprint, ps-plot-with-face, ps-print-ensure-fontified)
(ps-kill-emacs-check): Replace (if (and A B) C) by (and A B C).
(ps-init-output-queue, ps-gnus-article-prepare-hook, ps-jts-ps-setup):
Replace (setq a b)(setq c d) by (setq a b c d).
(ps-begin-file, ps-end-file): Replace (ps-output A)(ps-output B)
by (ps-output A B).
(ps-begin-page): Replace (ps-output A)(ps-output B) by (ps-output A B),
replace (setq a b)(setq c d) by (setq a b c d).
(ps-next-line, ps-continue-line): Replace (setq a b)(setq c d)
by (setq a b c d), and incorporates ps-soft-lf and ps-hard-lf,
respectively.
(ps-plot): Replace (setq a b)(setq c d) by (setq a b c d),
and programming improvement.
(ps-generate-postscript-with-faces): Initialization fix,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if (and A B) C) by (and A B C).
(ps-generate): Doc fix, reprogramming to set the page count,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if A nil B) by (or A B),
replace (if (and A B) C) by (and A B C).
(ps-info-mode-hook): Replace (list 'A 'B) by '(A B).
(ps-jack-setup): Replace (list) by nil.
1997-11-23 02:26:50 +00:00
|
|
|
|
(setq ps-source-buffer buffer
|
|
|
|
|
ps-spool-buffer (get-buffer-create ps-spool-buffer-name))
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
(ps-init-output-queue)
|
|
|
|
|
(let (safe-marker completed-safely needs-begin-file)
|
|
|
|
|
(unwind-protect
|
1995-02-07 22:51:35 +00:00
|
|
|
|
(progn
|
|
|
|
|
(set-buffer ps-spool-buffer)
|
1998-06-08 17:25:09 +00:00
|
|
|
|
(set-buffer-multibyte nil)
|
1998-08-28 12:33:52 +00:00
|
|
|
|
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
;; Get a marker and make it point to the current end of the
|
|
|
|
|
;; buffer, If an error occurs, we'll delete everything from
|
|
|
|
|
;; the end of this marker onwards.
|
|
|
|
|
(setq safe-marker (make-marker))
|
|
|
|
|
(set-marker safe-marker (point-max))
|
|
|
|
|
|
|
|
|
|
(goto-char (point-min))
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.2) and doc fix.
(ps-print, ps-header-lines, ps-show-n-of-n, ps-font-info-database)
(ps-font-family, ps-font-size, ps-header-font-family)
(ps-header-font-size, ps-header-title-font-size, ps-bold-faces)
(ps-italic-faces, ps-underlined-faces, ps-left-header, ps-right-header)
(ps-font, ps-font-bold, ps-font-italic, ps-font-bold-italic)
(ps-avg-char-width, ps-space-width, ps-line-height): Doc fix.
(ps-error-scale-font): New fn.
(ps-soft-lf, ps-hard-lf): Fn deleted.
(ps-get-page-dimensions, ps-set-bg, ps-face-bold-p, ps-face-italic-p)
(ps-set-color): Reindentation.
(ps-output-string-prim, ps-xemacs-face-kind-p): Internal blank lines
deleted.
(ps-set-font): Little programming improvement.
(ps-line-lengths-internal, ps-nb-pages, ps-select-font)
(ps-select-header-font): Simplify some expressions.
(ps-plot-region): Replace (- X 1) by (1- X).
(ps-generate-header): Replace (+ X 1) by (1+ X).
(ps-print-preprint, ps-plot-with-face, ps-print-ensure-fontified)
(ps-kill-emacs-check): Replace (if (and A B) C) by (and A B C).
(ps-init-output-queue, ps-gnus-article-prepare-hook, ps-jts-ps-setup):
Replace (setq a b)(setq c d) by (setq a b c d).
(ps-begin-file, ps-end-file): Replace (ps-output A)(ps-output B)
by (ps-output A B).
(ps-begin-page): Replace (ps-output A)(ps-output B) by (ps-output A B),
replace (setq a b)(setq c d) by (setq a b c d).
(ps-next-line, ps-continue-line): Replace (setq a b)(setq c d)
by (setq a b c d), and incorporates ps-soft-lf and ps-hard-lf,
respectively.
(ps-plot): Replace (setq a b)(setq c d) by (setq a b c d),
and programming improvement.
(ps-generate-postscript-with-faces): Initialization fix,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if (and A B) C) by (and A B C).
(ps-generate): Doc fix, reprogramming to set the page count,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if A nil B) by (or A B),
replace (if (and A B) C) by (and A B C).
(ps-info-mode-hook): Replace (list 'A 'B) by '(A B).
(ps-jack-setup): Replace (list) by nil.
1997-11-23 02:26:50 +00:00
|
|
|
|
(or (looking-at (regexp-quote ps-adobe-tag))
|
|
|
|
|
(setq needs-begin-file t))
|
2000-10-31 11:54:38 +00:00
|
|
|
|
|
|
|
|
|
(set-buffer ps-source-buffer)
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
(save-excursion
|
2000-10-31 11:54:38 +00:00
|
|
|
|
(let ((ps-print-page-p t)
|
|
|
|
|
ps-even-or-odd-pages)
|
2000-10-24 21:17:40 +00:00
|
|
|
|
(ps-begin-job)
|
|
|
|
|
(when needs-begin-file
|
|
|
|
|
(ps-begin-file)
|
|
|
|
|
(ps-mule-initialize))
|
|
|
|
|
(ps-mule-begin-job from to)
|
2000-10-31 11:54:38 +00:00
|
|
|
|
(ps-selected-pages)))
|
|
|
|
|
(ps-begin-page)
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
(funcall genfunc from to)
|
|
|
|
|
(ps-end-page)
|
2000-10-31 11:54:38 +00:00
|
|
|
|
(ps-end-job needs-begin-file)
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
|
|
|
|
|
;; Setting this variable tells the unwind form that the
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.2) and doc fix.
(ps-print, ps-header-lines, ps-show-n-of-n, ps-font-info-database)
(ps-font-family, ps-font-size, ps-header-font-family)
(ps-header-font-size, ps-header-title-font-size, ps-bold-faces)
(ps-italic-faces, ps-underlined-faces, ps-left-header, ps-right-header)
(ps-font, ps-font-bold, ps-font-italic, ps-font-bold-italic)
(ps-avg-char-width, ps-space-width, ps-line-height): Doc fix.
(ps-error-scale-font): New fn.
(ps-soft-lf, ps-hard-lf): Fn deleted.
(ps-get-page-dimensions, ps-set-bg, ps-face-bold-p, ps-face-italic-p)
(ps-set-color): Reindentation.
(ps-output-string-prim, ps-xemacs-face-kind-p): Internal blank lines
deleted.
(ps-set-font): Little programming improvement.
(ps-line-lengths-internal, ps-nb-pages, ps-select-font)
(ps-select-header-font): Simplify some expressions.
(ps-plot-region): Replace (- X 1) by (1- X).
(ps-generate-header): Replace (+ X 1) by (1+ X).
(ps-print-preprint, ps-plot-with-face, ps-print-ensure-fontified)
(ps-kill-emacs-check): Replace (if (and A B) C) by (and A B C).
(ps-init-output-queue, ps-gnus-article-prepare-hook, ps-jts-ps-setup):
Replace (setq a b)(setq c d) by (setq a b c d).
(ps-begin-file, ps-end-file): Replace (ps-output A)(ps-output B)
by (ps-output A B).
(ps-begin-page): Replace (ps-output A)(ps-output B) by (ps-output A B),
replace (setq a b)(setq c d) by (setq a b c d).
(ps-next-line, ps-continue-line): Replace (setq a b)(setq c d)
by (setq a b c d), and incorporates ps-soft-lf and ps-hard-lf,
respectively.
(ps-plot): Replace (setq a b)(setq c d) by (setq a b c d),
and programming improvement.
(ps-generate-postscript-with-faces): Initialization fix,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if (and A B) C) by (and A B C).
(ps-generate): Doc fix, reprogramming to set the page count,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if A nil B) by (or A B),
replace (if (and A B) C) by (and A B C).
(ps-info-mode-hook): Replace (list 'A 'B) by '(A B).
(ps-jack-setup): Replace (list) by nil.
1997-11-23 02:26:50 +00:00
|
|
|
|
;; the PostScript was generated without error.
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
(setq completed-safely t))
|
|
|
|
|
|
|
|
|
|
;; Unwind form: If some bad mojo occurred while generating
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.2) and doc fix.
(ps-print, ps-header-lines, ps-show-n-of-n, ps-font-info-database)
(ps-font-family, ps-font-size, ps-header-font-family)
(ps-header-font-size, ps-header-title-font-size, ps-bold-faces)
(ps-italic-faces, ps-underlined-faces, ps-left-header, ps-right-header)
(ps-font, ps-font-bold, ps-font-italic, ps-font-bold-italic)
(ps-avg-char-width, ps-space-width, ps-line-height): Doc fix.
(ps-error-scale-font): New fn.
(ps-soft-lf, ps-hard-lf): Fn deleted.
(ps-get-page-dimensions, ps-set-bg, ps-face-bold-p, ps-face-italic-p)
(ps-set-color): Reindentation.
(ps-output-string-prim, ps-xemacs-face-kind-p): Internal blank lines
deleted.
(ps-set-font): Little programming improvement.
(ps-line-lengths-internal, ps-nb-pages, ps-select-font)
(ps-select-header-font): Simplify some expressions.
(ps-plot-region): Replace (- X 1) by (1- X).
(ps-generate-header): Replace (+ X 1) by (1+ X).
(ps-print-preprint, ps-plot-with-face, ps-print-ensure-fontified)
(ps-kill-emacs-check): Replace (if (and A B) C) by (and A B C).
(ps-init-output-queue, ps-gnus-article-prepare-hook, ps-jts-ps-setup):
Replace (setq a b)(setq c d) by (setq a b c d).
(ps-begin-file, ps-end-file): Replace (ps-output A)(ps-output B)
by (ps-output A B).
(ps-begin-page): Replace (ps-output A)(ps-output B) by (ps-output A B),
replace (setq a b)(setq c d) by (setq a b c d).
(ps-next-line, ps-continue-line): Replace (setq a b)(setq c d)
by (setq a b c d), and incorporates ps-soft-lf and ps-hard-lf,
respectively.
(ps-plot): Replace (setq a b)(setq c d) by (setq a b c d),
and programming improvement.
(ps-generate-postscript-with-faces): Initialization fix,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if (and A B) C) by (and A B C).
(ps-generate): Doc fix, reprogramming to set the page count,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if A nil B) by (or A B),
replace (if (and A B) C) by (and A B C).
(ps-info-mode-hook): Replace (list 'A 'B) by '(A B).
(ps-jack-setup): Replace (list) by nil.
1997-11-23 02:26:50 +00:00
|
|
|
|
;; PostScript, delete all the PostScript that was generated.
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
;; This protects the previously spooled files from getting
|
|
|
|
|
;; corrupted.
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.2) and doc fix.
(ps-print, ps-header-lines, ps-show-n-of-n, ps-font-info-database)
(ps-font-family, ps-font-size, ps-header-font-family)
(ps-header-font-size, ps-header-title-font-size, ps-bold-faces)
(ps-italic-faces, ps-underlined-faces, ps-left-header, ps-right-header)
(ps-font, ps-font-bold, ps-font-italic, ps-font-bold-italic)
(ps-avg-char-width, ps-space-width, ps-line-height): Doc fix.
(ps-error-scale-font): New fn.
(ps-soft-lf, ps-hard-lf): Fn deleted.
(ps-get-page-dimensions, ps-set-bg, ps-face-bold-p, ps-face-italic-p)
(ps-set-color): Reindentation.
(ps-output-string-prim, ps-xemacs-face-kind-p): Internal blank lines
deleted.
(ps-set-font): Little programming improvement.
(ps-line-lengths-internal, ps-nb-pages, ps-select-font)
(ps-select-header-font): Simplify some expressions.
(ps-plot-region): Replace (- X 1) by (1- X).
(ps-generate-header): Replace (+ X 1) by (1+ X).
(ps-print-preprint, ps-plot-with-face, ps-print-ensure-fontified)
(ps-kill-emacs-check): Replace (if (and A B) C) by (and A B C).
(ps-init-output-queue, ps-gnus-article-prepare-hook, ps-jts-ps-setup):
Replace (setq a b)(setq c d) by (setq a b c d).
(ps-begin-file, ps-end-file): Replace (ps-output A)(ps-output B)
by (ps-output A B).
(ps-begin-page): Replace (ps-output A)(ps-output B) by (ps-output A B),
replace (setq a b)(setq c d) by (setq a b c d).
(ps-next-line, ps-continue-line): Replace (setq a b)(setq c d)
by (setq a b c d), and incorporates ps-soft-lf and ps-hard-lf,
respectively.
(ps-plot): Replace (setq a b)(setq c d) by (setq a b c d),
and programming improvement.
(ps-generate-postscript-with-faces): Initialization fix,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if (and A B) C) by (and A B C).
(ps-generate): Doc fix, reprogramming to set the page count,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if A nil B) by (or A B),
replace (if (and A B) C) by (and A B C).
(ps-info-mode-hook): Replace (list 'A 'B) by '(A B).
(ps-jack-setup): Replace (list) by nil.
1997-11-23 02:26:50 +00:00
|
|
|
|
(and (markerp safe-marker) (not completed-safely)
|
|
|
|
|
(progn
|
|
|
|
|
(set-buffer ps-spool-buffer)
|
|
|
|
|
(delete-region (marker-position safe-marker) (point-max))))))
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
|
Some comment, doc and bug fixes.
(ps-print-version): New version number (3.05.3) and doc fix.
(ps-output-string-prim, ps-begin-job, ps-control-character)
(ps-plot-region): Bug fix.
(ps-print-control-characters): New custom var.
(ps-string-escape-codes, ps-string-control-codes): New var.
(ps-color-device, ps-font-lock-face-attributes, ps-eval-switch)
(ps-flatten-list, ps-flatten-list-1): New fn.
(ps-setup): Update current setup.
(ps-begin-file): Adjust PostScript header file.
(ps-plot, ps-face-attribute-list): Little programming improvement.
(ps-print-prologue-1): Replace NumberOfZebra by ZebraHeight.
(ps-print-without-faces, ps-print-with-faces): Little reprogramming.
(ps-plot-with-face): Get color only on color screen device.
(ps-build-reference-face-lists): Handle obsolete
font-lock-face-attributes.
(ps-print-ensure-fontified): Little programming setting.
(ps-generate-postscript-with-faces): Adjust initializations, get color
only on color screen device.
(ps-generate): Replace (if A B) by (and A B).
(ps-do-despool): Dynamic evaluation for ps-lpr-switches,
Replace (if A B) by (and A B).
(color-instance-rgb-components, ps-color-values): Replace
pixel-components by color-instance-rgb-components.
(ps-xemacs-face-kind-p): Replace face-font by face-font-instance,
replace x-font-properties by font-instance-properties.
1997-12-25 18:33:52 +00:00
|
|
|
|
(and ps-razzle-dazzle (message "Formatting...done"))))))
|
1994-05-01 22:09:01 +00:00
|
|
|
|
|
Multi-byte buffer handling.
(ps-print-version): New version number (4.0) and doc fix.
(ps-color-device, ps-face-bold-p, ps-face-italic-p): Conditional
compilation for GNU Emacs and emacsens.
(ps-generate-postscript-with-faces): Force invisible text to be
visible.
(dos-ps-printer): New var to avoid compilation gripes.
(ps-mule-plot-string): Pay attention to the case
that no more characters can't be printed in the current line.
(ps-mule-find-wrappoint): ENDPOS should not be greater than TO.
Add codes to make ps-print.el work also on Emacs
20.2 and the earlier version.
(ps-mule-encode-7bit, ps-mule-encode-8bit): Modified for 20.2.
(ccl-encode-ethio-unicode, ps-mule-encode-ethiopic): Likewise.
(ps-mule-find-wrappoint): Likewise.
(ps-mule-generate-font): Change `X' to `x' in format
control-string.
(ps-generate): Call ps-mule-begin before calling ps-begin-job.
(ps-mule-cmpchar-prologue): Delete unnecessary `gsave' and
`restore' form procedures `BC' and `EC'.
(ps-print-prologue-1): Handle the case that FontBBox
is an executable procedure. Make LineThickness, Xshadow, and
Yshadow relative to FontHeight. Set SpaceWidth in BeginDoc.
(ps-mule-font-info-database, ps-mule-font-info-database-ps,
ps-mule-font-info-database-bdf): New vars.
(ps-mule-encode-7bit, ps-mule-encode-8bit): New funs.
(ccl-encode-ethio-unicode): New CCL program.
(ps-mule-encode-ethiopic): New fun.
(ps-mule-current-charset): New var.
(ps-mule-get-font-spec, ps-mule-font-spec-src,
ps-mule-font-spec-name, ps-mule-font-spec-encoding,
ps-mule-font-spec-bytes, ps-mule-printable-p): New funs.
(ps-mule-external-libraries): New var.
(ps-mule-init-external-library): New fun.
(ps-mule-font-cache): New var.
(ps-mule-generate-font, ps-mule-generate-glyphs): New funs.
(ps-last-font): New var.
(ps-mule-prepare-font): New fun.
(ps-mule-charset-list): New var.
(ps-mule-prologue-generated, ps-mule-prologue): New vars.
(ps-mule-skip-same-charset, ps-mule-find-wrappoint,
ps-mule-plot-string): New funs.
(ps-mule-cmpchar-prologue-generated, ps-mule-cmpchar-prologue):
New vars.
(ps-mule-plot-rule-cmpchar, ps-mule-plot-cmpchar,
ps-mule-prepare-cmpchar-font): New funs.
(ps-mule-bitmap-prologue-generated, ps-mule-bitmap-prologue): New
vars.
(ps-mule-generate-bitmap-prologue, ps-mule-generate-bitmap-font,
ps-mule-generate-bitmap-glyph): New funs.
(ps-mule-initialize, ps-mule-begin): New funs.
(ps-output-string-prim): Insert string as unibyte.
(ps-output-prologue): New fun.
(ps-flush-output): Handle the case of 'prologue.
(ps-begin-file): Call ps-mule-initialize.
(ps-begin-job): Set ps-control-or-escape-regexp differently if
printing multibyte characters.
(ps-begin-page): Set ps-mule-current-charset to 'ascii.
(ps-basic-plot-string): Handle the case of printing ASCII
characters by external libraries (e.g. BDF).
(ps-set-font): Set ps-last-font.
(ps-plot-region): Handle multibyte characters, use
ps-mule-plot-string for them.
(ps-generate): Set the spool buffer unibyte. Call ps-mule-begin.
1998-08-24 10:19:29 +00:00
|
|
|
|
|
2000-10-31 11:54:38 +00:00
|
|
|
|
(defun ps-end-job (needs-begin-file)
|
2000-11-02 12:04:59 +00:00
|
|
|
|
(let ((previous-print ps-print-page-p)
|
|
|
|
|
(ps-print-page-p t))
|
2000-10-31 11:54:38 +00:00
|
|
|
|
(ps-flush-output)
|
|
|
|
|
(save-excursion
|
2000-11-02 12:04:59 +00:00
|
|
|
|
(let ((pages-per-sheet (mod ps-page-printed ps-n-up-printing))
|
2000-10-31 11:54:38 +00:00
|
|
|
|
(total-lines (cdr ps-printing-region))
|
(ps-end-job): Bind case-fold-search only after
switching to ps-spool-buffer.
Line number font customization. PostScript: Lines and
PageCount are initialized on each page. Doc Fix.
(ps-print-version): New version number (6.3.2).
(ps-lpr-switches, ps-font-info-database, ps-font-size)
(ps-header-font-size, ps-header-title-font-size, ps-left-header)
(ps-right-header): Customization fix.
(ps-setup, ps-select-font, ps-begin-file, ps-header-sheet, ps-end-job):
Fix code.
(ps-end-with-control-d, ps-line-number-font, ps-line-number-font-size):
New vars.
2000-11-30 13:20:49 +00:00
|
|
|
|
(total-pages (ps-page-number)))
|
2000-10-31 11:54:38 +00:00
|
|
|
|
(set-buffer ps-spool-buffer)
|
(ps-end-job): Bind case-fold-search only after
switching to ps-spool-buffer.
Line number font customization. PostScript: Lines and
PageCount are initialized on each page. Doc Fix.
(ps-print-version): New version number (6.3.2).
(ps-lpr-switches, ps-font-info-database, ps-font-size)
(ps-header-font-size, ps-header-title-font-size, ps-left-header)
(ps-right-header): Customization fix.
(ps-setup, ps-select-font, ps-begin-file, ps-header-sheet, ps-end-job):
Fix code.
(ps-end-with-control-d, ps-line-number-font, ps-line-number-font-size):
New vars.
2000-11-30 13:20:49 +00:00
|
|
|
|
(let (case-fold-search)
|
|
|
|
|
;; Back to the PS output buffer to set the last page n-up printing
|
|
|
|
|
(goto-char (point-max))
|
|
|
|
|
(and (> pages-per-sheet 0)
|
|
|
|
|
(re-search-backward "^[0-9]+ BeginSheet$" nil t)
|
|
|
|
|
(replace-match (format "%d BeginSheet" pages-per-sheet) t))
|
|
|
|
|
;; Back to the PS output buffer to set the page count
|
|
|
|
|
(goto-char (point-min))
|
|
|
|
|
(while (re-search-forward "^/Lines 0 def\n/PageCount 0 def$" nil t)
|
|
|
|
|
(replace-match (format "/Lines %d def\n/PageCount %d def"
|
|
|
|
|
total-lines total-pages) t)))))
|
2000-10-31 11:54:38 +00:00
|
|
|
|
;; Set dummy page
|
|
|
|
|
(and ps-spool-duplex (= (mod ps-page-order 2) 1)
|
|
|
|
|
(let ((ps-n-up-printing 0))
|
|
|
|
|
(ps-header-sheet)
|
|
|
|
|
(ps-output "/PrintHeader false def\n/ColumnIndex 0 def\n"
|
2000-12-29 11:48:50 +00:00
|
|
|
|
"/PrintLineNumber false def\n"
|
|
|
|
|
(number-to-string ps-lines-printed) " BeginPage\n")
|
2000-10-31 11:54:38 +00:00
|
|
|
|
(ps-end-page)))
|
|
|
|
|
;; Set end of PostScript file
|
2000-11-02 12:04:59 +00:00
|
|
|
|
(and previous-print
|
|
|
|
|
(ps-output "EndSheet\n"))
|
|
|
|
|
(ps-output "\n%%Trailer\n%%Pages: "
|
2000-10-31 11:54:38 +00:00
|
|
|
|
(number-to-string
|
|
|
|
|
(if (and needs-begin-file
|
|
|
|
|
ps-banner-page-when-duplexing)
|
|
|
|
|
(1+ ps-page-order)
|
|
|
|
|
ps-page-order))
|
|
|
|
|
"\n\nEndDoc\n\n%%EOF\n")
|
(ps-end-job): Bind case-fold-search only after
switching to ps-spool-buffer.
Line number font customization. PostScript: Lines and
PageCount are initialized on each page. Doc Fix.
(ps-print-version): New version number (6.3.2).
(ps-lpr-switches, ps-font-info-database, ps-font-size)
(ps-header-font-size, ps-header-title-font-size, ps-left-header)
(ps-right-header): Customization fix.
(ps-setup, ps-select-font, ps-begin-file, ps-header-sheet, ps-end-job):
Fix code.
(ps-end-with-control-d, ps-line-number-font, ps-line-number-font-size):
New vars.
2000-11-30 13:20:49 +00:00
|
|
|
|
(and ps-end-with-control-d
|
|
|
|
|
(ps-output "\C-d"))
|
2000-10-31 11:54:38 +00:00
|
|
|
|
(ps-flush-output))
|
|
|
|
|
;; disable selected pages
|
Fix bug: if ^L is the very first buffer character,
ps-print crashes. New feature: page selection for printing. Create
raw-text-unix coding system for XEmacs. Doc fix.
(ps-print-version): New version number (5.2.3).
(ps-plot-region): Bug fix.
(ps-setup, ps-init-output-queue, ps-output, ps-begin-job, ps-end-file)
(ps-header-sheet, ps-generate, ps-end-job): Code fix.
(ps-restore-selected-pages, ps-selected-pages, ps-print-page-p): New
funs.
(ps-selected-pages, ps-last-selected-pages, ps-first-page)
(ps-last-page): New vars.
2000-06-22 12:27:49 +00:00
|
|
|
|
(setq ps-selected-pages nil))
|
Doc fix, font size specifies landscape and portrait sizes.
(ps-print-version): New version number (4.1.4).
(ps-font-size, ps-header-font-size, ps-header-title-font-size):
Specifies landscape and portrait sizes.
(ps-setup, ps-print-quote, ps-line-lengths-internal, ps-nb-pages)
(ps-get-page-dimensions, ps-begin-file, ps-begin-job, ps-generate): Fun
fix.
(ps-get-font-size): New fun.
(ps-font-size-internal, ps-header-font-size-internal)
(ps-header-title-font-size-internal): New vars.
PostScript programming fix.
(ps-print-prologue-1): Fix BeginDoc PostScript procedure (do'nt use
setpagedevice operator).
1999-02-27 01:37:15 +00:00
|
|
|
|
|
|
|
|
|
|
Some comment, doc and bug fixes.
(ps-print-version): New version number (3.05.3) and doc fix.
(ps-output-string-prim, ps-begin-job, ps-control-character)
(ps-plot-region): Bug fix.
(ps-print-control-characters): New custom var.
(ps-string-escape-codes, ps-string-control-codes): New var.
(ps-color-device, ps-font-lock-face-attributes, ps-eval-switch)
(ps-flatten-list, ps-flatten-list-1): New fn.
(ps-setup): Update current setup.
(ps-begin-file): Adjust PostScript header file.
(ps-plot, ps-face-attribute-list): Little programming improvement.
(ps-print-prologue-1): Replace NumberOfZebra by ZebraHeight.
(ps-print-without-faces, ps-print-with-faces): Little reprogramming.
(ps-plot-with-face): Get color only on color screen device.
(ps-build-reference-face-lists): Handle obsolete
font-lock-face-attributes.
(ps-print-ensure-fontified): Little programming setting.
(ps-generate-postscript-with-faces): Adjust initializations, get color
only on color screen device.
(ps-generate): Replace (if A B) by (and A B).
(ps-do-despool): Dynamic evaluation for ps-lpr-switches,
Replace (if A B) by (and A B).
(color-instance-rgb-components, ps-color-values): Replace
pixel-components by color-instance-rgb-components.
(ps-xemacs-face-kind-p): Replace face-font by face-font-instance,
replace x-font-properties by font-instance-properties.
1997-12-25 18:33:52 +00:00
|
|
|
|
;; Permit dynamic evaluation at print time of `ps-lpr-switches'.
|
1994-05-01 22:09:01 +00:00
|
|
|
|
(defun ps-do-despool (filename)
|
1995-01-20 06:09:03 +00:00
|
|
|
|
(if (or (not (boundp 'ps-spool-buffer))
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
(not (symbol-value 'ps-spool-buffer)))
|
1995-01-20 06:09:03 +00:00
|
|
|
|
(message "No spooled PostScript to print")
|
1994-05-01 22:09:01 +00:00
|
|
|
|
(if filename
|
|
|
|
|
(save-excursion
|
Some comment, doc and bug fixes.
(ps-print-version): New version number (3.05.3) and doc fix.
(ps-output-string-prim, ps-begin-job, ps-control-character)
(ps-plot-region): Bug fix.
(ps-print-control-characters): New custom var.
(ps-string-escape-codes, ps-string-control-codes): New var.
(ps-color-device, ps-font-lock-face-attributes, ps-eval-switch)
(ps-flatten-list, ps-flatten-list-1): New fn.
(ps-setup): Update current setup.
(ps-begin-file): Adjust PostScript header file.
(ps-plot, ps-face-attribute-list): Little programming improvement.
(ps-print-prologue-1): Replace NumberOfZebra by ZebraHeight.
(ps-print-without-faces, ps-print-with-faces): Little reprogramming.
(ps-plot-with-face): Get color only on color screen device.
(ps-build-reference-face-lists): Handle obsolete
font-lock-face-attributes.
(ps-print-ensure-fontified): Little programming setting.
(ps-generate-postscript-with-faces): Adjust initializations, get color
only on color screen device.
(ps-generate): Replace (if A B) by (and A B).
(ps-do-despool): Dynamic evaluation for ps-lpr-switches,
Replace (if A B) by (and A B).
(color-instance-rgb-components, ps-color-values): Replace
pixel-components by color-instance-rgb-components.
(ps-xemacs-face-kind-p): Replace face-font by face-font-instance,
replace x-font-properties by font-instance-properties.
1997-12-25 18:33:52 +00:00
|
|
|
|
(and ps-razzle-dazzle (message "Saving..."))
|
1995-01-20 06:09:03 +00:00
|
|
|
|
(set-buffer ps-spool-buffer)
|
1994-05-01 22:09:01 +00:00
|
|
|
|
(setq filename (expand-file-name filename))
|
1998-04-15 15:37:58 +00:00
|
|
|
|
(let ((coding-system-for-write 'raw-text-unix))
|
|
|
|
|
(write-region (point-min) (point-max) filename))
|
Some comment, doc and bug fixes.
(ps-print-version): New version number (3.05.3) and doc fix.
(ps-output-string-prim, ps-begin-job, ps-control-character)
(ps-plot-region): Bug fix.
(ps-print-control-characters): New custom var.
(ps-string-escape-codes, ps-string-control-codes): New var.
(ps-color-device, ps-font-lock-face-attributes, ps-eval-switch)
(ps-flatten-list, ps-flatten-list-1): New fn.
(ps-setup): Update current setup.
(ps-begin-file): Adjust PostScript header file.
(ps-plot, ps-face-attribute-list): Little programming improvement.
(ps-print-prologue-1): Replace NumberOfZebra by ZebraHeight.
(ps-print-without-faces, ps-print-with-faces): Little reprogramming.
(ps-plot-with-face): Get color only on color screen device.
(ps-build-reference-face-lists): Handle obsolete
font-lock-face-attributes.
(ps-print-ensure-fontified): Little programming setting.
(ps-generate-postscript-with-faces): Adjust initializations, get color
only on color screen device.
(ps-generate): Replace (if A B) by (and A B).
(ps-do-despool): Dynamic evaluation for ps-lpr-switches,
Replace (if A B) by (and A B).
(color-instance-rgb-components, ps-color-values): Replace
pixel-components by color-instance-rgb-components.
(ps-xemacs-face-kind-p): Replace face-font by face-font-instance,
replace x-font-properties by font-instance-properties.
1997-12-25 18:33:52 +00:00
|
|
|
|
(and ps-razzle-dazzle (message "Wrote %s" filename)))
|
1994-05-01 22:09:01 +00:00
|
|
|
|
;; Else, spool to the printer
|
Some comment, doc and bug fixes.
(ps-print-version): New version number (3.05.3) and doc fix.
(ps-output-string-prim, ps-begin-job, ps-control-character)
(ps-plot-region): Bug fix.
(ps-print-control-characters): New custom var.
(ps-string-escape-codes, ps-string-control-codes): New var.
(ps-color-device, ps-font-lock-face-attributes, ps-eval-switch)
(ps-flatten-list, ps-flatten-list-1): New fn.
(ps-setup): Update current setup.
(ps-begin-file): Adjust PostScript header file.
(ps-plot, ps-face-attribute-list): Little programming improvement.
(ps-print-prologue-1): Replace NumberOfZebra by ZebraHeight.
(ps-print-without-faces, ps-print-with-faces): Little reprogramming.
(ps-plot-with-face): Get color only on color screen device.
(ps-build-reference-face-lists): Handle obsolete
font-lock-face-attributes.
(ps-print-ensure-fontified): Little programming setting.
(ps-generate-postscript-with-faces): Adjust initializations, get color
only on color screen device.
(ps-generate): Replace (if A B) by (and A B).
(ps-do-despool): Dynamic evaluation for ps-lpr-switches,
Replace (if A B) by (and A B).
(color-instance-rgb-components, ps-color-values): Replace
pixel-components by color-instance-rgb-components.
(ps-xemacs-face-kind-p): Replace face-font by face-font-instance,
replace x-font-properties by font-instance-properties.
1997-12-25 18:33:52 +00:00
|
|
|
|
(and ps-razzle-dazzle (message "Printing..."))
|
1994-05-01 22:09:01 +00:00
|
|
|
|
(save-excursion
|
1995-01-20 06:09:03 +00:00
|
|
|
|
(set-buffer ps-spool-buffer)
|
1998-07-13 19:58:49 +00:00
|
|
|
|
(let* ((coding-system-for-write 'raw-text-unix)
|
1998-12-15 06:31:48 +00:00
|
|
|
|
(ps-printer-name (or ps-printer-name
|
|
|
|
|
(and (boundp 'printer-name)
|
2001-02-20 10:41:10 +00:00
|
|
|
|
(symbol-value 'printer-name))))
|
1998-07-13 19:58:49 +00:00
|
|
|
|
(ps-lpr-switches
|
2000-10-18 14:31:05 +00:00
|
|
|
|
(append ps-lpr-switches
|
|
|
|
|
(and (stringp ps-printer-name)
|
|
|
|
|
(string< "" ps-printer-name)
|
|
|
|
|
(list (concat
|
|
|
|
|
(and (stringp ps-printer-name-option)
|
|
|
|
|
ps-printer-name-option)
|
|
|
|
|
ps-printer-name))))))
|
1999-01-17 18:57:20 +00:00
|
|
|
|
(apply (or ps-print-region-function 'call-process-region)
|
|
|
|
|
(point-min) (point-max) ps-lpr-command nil
|
|
|
|
|
(and (fboundp 'start-process) 0)
|
|
|
|
|
nil
|
|
|
|
|
(ps-flatten-list ; dynamic evaluation
|
|
|
|
|
(mapcar 'ps-eval-switch ps-lpr-switches)))))
|
Some comment, doc and bug fixes.
(ps-print-version): New version number (3.05.3) and doc fix.
(ps-output-string-prim, ps-begin-job, ps-control-character)
(ps-plot-region): Bug fix.
(ps-print-control-characters): New custom var.
(ps-string-escape-codes, ps-string-control-codes): New var.
(ps-color-device, ps-font-lock-face-attributes, ps-eval-switch)
(ps-flatten-list, ps-flatten-list-1): New fn.
(ps-setup): Update current setup.
(ps-begin-file): Adjust PostScript header file.
(ps-plot, ps-face-attribute-list): Little programming improvement.
(ps-print-prologue-1): Replace NumberOfZebra by ZebraHeight.
(ps-print-without-faces, ps-print-with-faces): Little reprogramming.
(ps-plot-with-face): Get color only on color screen device.
(ps-build-reference-face-lists): Handle obsolete
font-lock-face-attributes.
(ps-print-ensure-fontified): Little programming setting.
(ps-generate-postscript-with-faces): Adjust initializations, get color
only on color screen device.
(ps-generate): Replace (if A B) by (and A B).
(ps-do-despool): Dynamic evaluation for ps-lpr-switches,
Replace (if A B) by (and A B).
(color-instance-rgb-components, ps-color-values): Replace
pixel-components by color-instance-rgb-components.
(ps-xemacs-face-kind-p): Replace face-font by face-font-instance,
replace x-font-properties by font-instance-properties.
1997-12-25 18:33:52 +00:00
|
|
|
|
(and ps-razzle-dazzle (message "Printing...done")))
|
1995-01-20 06:09:03 +00:00
|
|
|
|
(kill-buffer ps-spool-buffer)))
|
|
|
|
|
|
Some comment, doc and bug fixes.
(ps-print-version): New version number (3.05.3) and doc fix.
(ps-output-string-prim, ps-begin-job, ps-control-character)
(ps-plot-region): Bug fix.
(ps-print-control-characters): New custom var.
(ps-string-escape-codes, ps-string-control-codes): New var.
(ps-color-device, ps-font-lock-face-attributes, ps-eval-switch)
(ps-flatten-list, ps-flatten-list-1): New fn.
(ps-setup): Update current setup.
(ps-begin-file): Adjust PostScript header file.
(ps-plot, ps-face-attribute-list): Little programming improvement.
(ps-print-prologue-1): Replace NumberOfZebra by ZebraHeight.
(ps-print-without-faces, ps-print-with-faces): Little reprogramming.
(ps-plot-with-face): Get color only on color screen device.
(ps-build-reference-face-lists): Handle obsolete
font-lock-face-attributes.
(ps-print-ensure-fontified): Little programming setting.
(ps-generate-postscript-with-faces): Adjust initializations, get color
only on color screen device.
(ps-generate): Replace (if A B) by (and A B).
(ps-do-despool): Dynamic evaluation for ps-lpr-switches,
Replace (if A B) by (and A B).
(color-instance-rgb-components, ps-color-values): Replace
pixel-components by color-instance-rgb-components.
(ps-xemacs-face-kind-p): Replace face-font by face-font-instance,
replace x-font-properties by font-instance-properties.
1997-12-25 18:33:52 +00:00
|
|
|
|
;; Dynamic evaluation
|
|
|
|
|
(defun ps-eval-switch (arg)
|
|
|
|
|
(cond ((stringp arg) arg)
|
|
|
|
|
((functionp arg) (apply arg nil))
|
|
|
|
|
((symbolp arg) (symbol-value arg))
|
|
|
|
|
((consp arg) (apply (car arg) (cdr arg)))
|
|
|
|
|
(t nil)))
|
|
|
|
|
|
|
|
|
|
;; `ps-flatten-list' is defined here (copied from "message.el" and
|
|
|
|
|
;; enhanced to handle dotted pairs as well) until we can get some
|
|
|
|
|
;; sensible autoloads, or `flatten-list' gets put somewhere decent.
|
|
|
|
|
|
|
|
|
|
;; (ps-flatten-list '((a . b) c (d . e) (f g h) i . j))
|
|
|
|
|
;; => (a b c d e f g h i j)
|
|
|
|
|
|
|
|
|
|
(defun ps-flatten-list (&rest list)
|
|
|
|
|
(ps-flatten-list-1 list))
|
|
|
|
|
|
|
|
|
|
(defun ps-flatten-list-1 (list)
|
|
|
|
|
(cond ((null list) nil)
|
|
|
|
|
((consp list) (append (ps-flatten-list-1 (car list))
|
|
|
|
|
(ps-flatten-list-1 (cdr list))))
|
|
|
|
|
(t (list list))))
|
|
|
|
|
|
1995-01-20 06:09:03 +00:00
|
|
|
|
(defun ps-kill-emacs-check ()
|
|
|
|
|
(let (ps-buffer)
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.2) and doc fix.
(ps-print, ps-header-lines, ps-show-n-of-n, ps-font-info-database)
(ps-font-family, ps-font-size, ps-header-font-family)
(ps-header-font-size, ps-header-title-font-size, ps-bold-faces)
(ps-italic-faces, ps-underlined-faces, ps-left-header, ps-right-header)
(ps-font, ps-font-bold, ps-font-italic, ps-font-bold-italic)
(ps-avg-char-width, ps-space-width, ps-line-height): Doc fix.
(ps-error-scale-font): New fn.
(ps-soft-lf, ps-hard-lf): Fn deleted.
(ps-get-page-dimensions, ps-set-bg, ps-face-bold-p, ps-face-italic-p)
(ps-set-color): Reindentation.
(ps-output-string-prim, ps-xemacs-face-kind-p): Internal blank lines
deleted.
(ps-set-font): Little programming improvement.
(ps-line-lengths-internal, ps-nb-pages, ps-select-font)
(ps-select-header-font): Simplify some expressions.
(ps-plot-region): Replace (- X 1) by (1- X).
(ps-generate-header): Replace (+ X 1) by (1+ X).
(ps-print-preprint, ps-plot-with-face, ps-print-ensure-fontified)
(ps-kill-emacs-check): Replace (if (and A B) C) by (and A B C).
(ps-init-output-queue, ps-gnus-article-prepare-hook, ps-jts-ps-setup):
Replace (setq a b)(setq c d) by (setq a b c d).
(ps-begin-file, ps-end-file): Replace (ps-output A)(ps-output B)
by (ps-output A B).
(ps-begin-page): Replace (ps-output A)(ps-output B) by (ps-output A B),
replace (setq a b)(setq c d) by (setq a b c d).
(ps-next-line, ps-continue-line): Replace (setq a b)(setq c d)
by (setq a b c d), and incorporates ps-soft-lf and ps-hard-lf,
respectively.
(ps-plot): Replace (setq a b)(setq c d) by (setq a b c d),
and programming improvement.
(ps-generate-postscript-with-faces): Initialization fix,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if (and A B) C) by (and A B C).
(ps-generate): Doc fix, reprogramming to set the page count,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if A nil B) by (or A B),
replace (if (and A B) C) by (and A B C).
(ps-info-mode-hook): Replace (list 'A 'B) by '(A B).
(ps-jack-setup): Replace (list) by nil.
1997-11-23 02:26:50 +00:00
|
|
|
|
(and (setq ps-buffer (get-buffer ps-spool-buffer-name))
|
2004-03-02 04:54:04 +00:00
|
|
|
|
(buffer-name ps-buffer) ; check if it's not killed
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.2) and doc fix.
(ps-print, ps-header-lines, ps-show-n-of-n, ps-font-info-database)
(ps-font-family, ps-font-size, ps-header-font-family)
(ps-header-font-size, ps-header-title-font-size, ps-bold-faces)
(ps-italic-faces, ps-underlined-faces, ps-left-header, ps-right-header)
(ps-font, ps-font-bold, ps-font-italic, ps-font-bold-italic)
(ps-avg-char-width, ps-space-width, ps-line-height): Doc fix.
(ps-error-scale-font): New fn.
(ps-soft-lf, ps-hard-lf): Fn deleted.
(ps-get-page-dimensions, ps-set-bg, ps-face-bold-p, ps-face-italic-p)
(ps-set-color): Reindentation.
(ps-output-string-prim, ps-xemacs-face-kind-p): Internal blank lines
deleted.
(ps-set-font): Little programming improvement.
(ps-line-lengths-internal, ps-nb-pages, ps-select-font)
(ps-select-header-font): Simplify some expressions.
(ps-plot-region): Replace (- X 1) by (1- X).
(ps-generate-header): Replace (+ X 1) by (1+ X).
(ps-print-preprint, ps-plot-with-face, ps-print-ensure-fontified)
(ps-kill-emacs-check): Replace (if (and A B) C) by (and A B C).
(ps-init-output-queue, ps-gnus-article-prepare-hook, ps-jts-ps-setup):
Replace (setq a b)(setq c d) by (setq a b c d).
(ps-begin-file, ps-end-file): Replace (ps-output A)(ps-output B)
by (ps-output A B).
(ps-begin-page): Replace (ps-output A)(ps-output B) by (ps-output A B),
replace (setq a b)(setq c d) by (setq a b c d).
(ps-next-line, ps-continue-line): Replace (setq a b)(setq c d)
by (setq a b c d), and incorporates ps-soft-lf and ps-hard-lf,
respectively.
(ps-plot): Replace (setq a b)(setq c d) by (setq a b c d),
and programming improvement.
(ps-generate-postscript-with-faces): Initialization fix,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if (and A B) C) by (and A B C).
(ps-generate): Doc fix, reprogramming to set the page count,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if A nil B) by (or A B),
replace (if (and A B) C) by (and A B C).
(ps-info-mode-hook): Replace (list 'A 'B) by '(A B).
(ps-jack-setup): Replace (list) by nil.
1997-11-23 02:26:50 +00:00
|
|
|
|
(buffer-modified-p ps-buffer)
|
|
|
|
|
(y-or-n-p "Unprinted PostScript waiting; print now? ")
|
|
|
|
|
(ps-despool))
|
|
|
|
|
(and (setq ps-buffer (get-buffer ps-spool-buffer-name))
|
2004-03-02 04:54:04 +00:00
|
|
|
|
(buffer-name ps-buffer) ; check if it's not killed
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.2) and doc fix.
(ps-print, ps-header-lines, ps-show-n-of-n, ps-font-info-database)
(ps-font-family, ps-font-size, ps-header-font-family)
(ps-header-font-size, ps-header-title-font-size, ps-bold-faces)
(ps-italic-faces, ps-underlined-faces, ps-left-header, ps-right-header)
(ps-font, ps-font-bold, ps-font-italic, ps-font-bold-italic)
(ps-avg-char-width, ps-space-width, ps-line-height): Doc fix.
(ps-error-scale-font): New fn.
(ps-soft-lf, ps-hard-lf): Fn deleted.
(ps-get-page-dimensions, ps-set-bg, ps-face-bold-p, ps-face-italic-p)
(ps-set-color): Reindentation.
(ps-output-string-prim, ps-xemacs-face-kind-p): Internal blank lines
deleted.
(ps-set-font): Little programming improvement.
(ps-line-lengths-internal, ps-nb-pages, ps-select-font)
(ps-select-header-font): Simplify some expressions.
(ps-plot-region): Replace (- X 1) by (1- X).
(ps-generate-header): Replace (+ X 1) by (1+ X).
(ps-print-preprint, ps-plot-with-face, ps-print-ensure-fontified)
(ps-kill-emacs-check): Replace (if (and A B) C) by (and A B C).
(ps-init-output-queue, ps-gnus-article-prepare-hook, ps-jts-ps-setup):
Replace (setq a b)(setq c d) by (setq a b c d).
(ps-begin-file, ps-end-file): Replace (ps-output A)(ps-output B)
by (ps-output A B).
(ps-begin-page): Replace (ps-output A)(ps-output B) by (ps-output A B),
replace (setq a b)(setq c d) by (setq a b c d).
(ps-next-line, ps-continue-line): Replace (setq a b)(setq c d)
by (setq a b c d), and incorporates ps-soft-lf and ps-hard-lf,
respectively.
(ps-plot): Replace (setq a b)(setq c d) by (setq a b c d),
and programming improvement.
(ps-generate-postscript-with-faces): Initialization fix,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if (and A B) C) by (and A B C).
(ps-generate): Doc fix, reprogramming to set the page count,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if A nil B) by (or A B),
replace (if (and A B) C) by (and A B C).
(ps-info-mode-hook): Replace (list 'A 'B) by '(A B).
(ps-jack-setup): Replace (list) by nil.
1997-11-23 02:26:50 +00:00
|
|
|
|
(buffer-modified-p ps-buffer)
|
|
|
|
|
(not (yes-or-no-p "Unprinted PostScript waiting; exit anyway? "))
|
|
|
|
|
(error "Unprinted PostScript"))))
|
1995-01-20 06:09:03 +00:00
|
|
|
|
|
User option for multibyte buffer handling and doc fix.
(ps-multibyte-buffer): New user option.
(ps-setup): Print new user option.
(ps-print-quote): New fun.
(ps-color-p, ps-mule-font-info-database-latin): New var.
(ps-default-color, ps-mule-font-info-database)
(ps-mule-font-info-database-ps-bdf): Adjust initialization.
(ps-mule-get-font-spec, ps-mule-begin, ps-begin-file)
(ps-plot-with-face, ps-generate-postscript-with-faces, ps-generate):
Little code improvement.
(ps-mule-initialize): Initialize ps-mule-font-info-database.
(ps-print-prologue-header, ps-font-family, ps-font-size)
(ps-header-font-family, ps-header-font-size, ps-header-title-font-size)
(ps-build-face-reference, ps-mule-font-info-database-bdf)
(ps-mule-external-libraries, ps-mule-init-external-library)
(ps-mule-prepare-font, ps-mule-find-wrappoint, ps-mule-plot-string): doc
fix.
To make it work also on Emacs 20.2 and the earlier
version, check the value of mule-version.
(ps-print-version): New version number (4.1.1) and doc
fix.
(ps-print-prologue-header): New user option.
(ps-color-values, ps-xemacs-face-kind-p, ps-mapper, ps-extent-sorter):
Conditional compilation for GNU Emacs and emacsens.
(ps-generate-postscript-with-faces): Skip invisible text better.
(ps-setup): Print new user option.
(ps-print-preprint): Check if input file name exists and is unwritable.
(ps-begin-file): Adjust PostScript prologue header for duplex printers
and insert user PostScript prologue header comments.
(ps-mule-encode-bit, ps-mule-string-ascii, ps-mule-string-encoding): New
funs.
(dos-ps-printer, lazy-lock-fontify-buffer): Eliminated.
(ps-mule-prologue, ps-mule-cmpchar-prologue, ps-mule-bitmap-prologue):
PostScript programming normalization.
(ps-mule-encode-7bit, ps-mule-encode-8bit, ps-mule-generate-font)
(ps-mule-generate-glyphs, ps-mule-prepare-font, ps-mule-plot-string)
(ps-mule-skip-same-charset, ps-mule-plot-rule-cmpchar)
(ps-mule-plot-cmpchar, ps-mule-prepare-cmpchar-font)
(ps-mule-initialize, ps-mule-begin, ps-face-bold-p, ps-do-despool):
Programming style normalization.
1998-10-26 20:22:17 +00:00
|
|
|
|
(cond ((fboundp 'add-hook)
|
|
|
|
|
(funcall 'add-hook 'kill-emacs-hook 'ps-kill-emacs-check))
|
|
|
|
|
(kill-emacs-hook
|
|
|
|
|
(message "Won't override existing `kill-emacs-hook'"))
|
|
|
|
|
(t
|
|
|
|
|
(setq kill-emacs-hook 'ps-kill-emacs-check)))
|
1994-05-01 22:09:01 +00:00
|
|
|
|
|
1998-12-15 06:31:48 +00:00
|
|
|
|
|
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
1995-01-20 06:09:03 +00:00
|
|
|
|
;;; Sample Setup Code:
|
1994-05-01 22:09:01 +00:00
|
|
|
|
|
2000-01-05 07:17:31 +00:00
|
|
|
|
|
1995-01-20 06:09:03 +00:00
|
|
|
|
;; This stuff is for anybody that's brave enough to look this far,
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
;; and able to figure out how to use it. It isn't really part of
|
|
|
|
|
;; ps-print, but I'll leave it here in hopes it might be useful:
|
1994-05-01 22:09:01 +00:00
|
|
|
|
|
1998-12-15 06:31:48 +00:00
|
|
|
|
;; WARNING!!! The following code is *sample* code only.
|
|
|
|
|
;; Don't use it unless you understand what it does!
|
1995-05-12 02:18:47 +00:00
|
|
|
|
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
(defmacro ps-prsc ()
|
2004-11-21 22:30:00 +00:00
|
|
|
|
`(if (featurep 'xemacs) 'f22 [f22]))
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
(defmacro ps-c-prsc ()
|
2004-11-21 22:30:00 +00:00
|
|
|
|
`(if (featurep 'xemacs) '(control f22) [C-f22]))
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
(defmacro ps-s-prsc ()
|
2004-11-21 22:30:00 +00:00
|
|
|
|
`(if (featurep 'xemacs) '(shift f22) [S-f22]))
|
1995-02-07 22:51:35 +00:00
|
|
|
|
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.1).
(ps-adobe-tag): Replace defvar by defcustom, and doc fix.
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): Add arg REGION-P.
(ps-print-region-with-faces, ps-print-region)
(ps-spool-region, ps-spool-region-with-faces): Fix calls to
the functions above.
(ps-setup): Print value of ps-zebra-stripe, ps-number-of-zebra,
ps-line-number, ps-print-background-image,
and ps-print-background-text.
(ps-print-prologue-1): Bug fix in PostScript programming:
/BeginDSCPage, /BeginPage.
(ps-showpage-count, ps-ref-bold-faces, ps-ref-italic-faces)
(ps-ref-underlined-faces, font-lock-face-attributes)
(ps-initialize-faces): Vars deleted.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-initialize-faces, ps-header-height)
(ps-hard-lf, ps-soft-lf, ps-get-face, ps-map-font-lock): Fn deleted.
(ps-extend-face-list, ps-extend-face): Doc fix.
(ps-print-face-alist): New var to handle face alist.
(ps-printing-region): New var and fn.
(ps-header-page, ps-set-face-bold, ps-set-face-italic)
(ps-set-face-underline, ps-set-face-attribute, ps-map-face): New fn.
(ps-rmail-mode-hook, ps-rmail-print-message-from-summary)
(ps-print-message-from-summary, ps-vm-print-message-from-summary):
Fns moved.
(ps-background): New argument PAGE-NUMBER.
(ps-begin-file): Bug fix and print proper line number in a region.
(ps-begin-page): Call ps-header-page.
(ps-get-buffer-name): Indicates in the header when printing a region.
(ps-end-page): Delete ps-showpage-count.
(ps-dummy-page): Calls ps-header-page.
(ps-set-color): Programming improvement.
(ps-plot-region): Doc fix.
(ps-face-attributes): Same functionality as deleted ps-get-face.
(ps-build-reference-face-lists): Do the job by calling
ps-set-face-bold and ps-bold-faces, and friends.
1997-09-06 02:52:00 +00:00
|
|
|
|
;; A hook to bind to `rmail-mode-hook' to locally bind prsc and set the
|
|
|
|
|
;; `ps-left-headers' specially for mail messages.
|
|
|
|
|
(defun ps-rmail-mode-hook ()
|
|
|
|
|
(local-set-key (ps-prsc) 'ps-rmail-print-message-from-summary)
|
|
|
|
|
(setq ps-header-lines 3
|
|
|
|
|
ps-left-header
|
|
|
|
|
;; The left headers will display the message's subject, its
|
|
|
|
|
;; author, and the name of the folder it was in.
|
|
|
|
|
'(ps-article-subject ps-article-author buffer-name)))
|
|
|
|
|
|
|
|
|
|
;; See `ps-gnus-print-article-from-summary'. This function does the
|
|
|
|
|
;; same thing for rmail.
|
|
|
|
|
(defun ps-rmail-print-message-from-summary ()
|
|
|
|
|
(interactive)
|
|
|
|
|
(ps-print-message-from-summary 'rmail-summary-buffer "RMAIL"))
|
|
|
|
|
|
|
|
|
|
;; Used in `ps-rmail-print-article-from-summary',
|
|
|
|
|
;; `ps-gnus-print-article-from-summary' and `ps-vm-print-message-from-summary'.
|
|
|
|
|
(defun ps-print-message-from-summary (summary-buffer summary-default)
|
|
|
|
|
(let ((ps-buf (or (and (boundp summary-buffer)
|
|
|
|
|
(symbol-value summary-buffer))
|
|
|
|
|
summary-default)))
|
|
|
|
|
(and (get-buffer ps-buf)
|
|
|
|
|
(save-excursion
|
|
|
|
|
(set-buffer ps-buf)
|
|
|
|
|
(ps-spool-buffer-with-faces)))))
|
|
|
|
|
|
1995-01-20 06:09:03 +00:00
|
|
|
|
;; Look in an article or mail message for the Subject: line. To be
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
;; placed in `ps-left-headers'.
|
1995-01-20 06:09:03 +00:00
|
|
|
|
(defun ps-article-subject ()
|
1994-05-01 22:09:01 +00:00
|
|
|
|
(save-excursion
|
1995-01-20 06:09:03 +00:00
|
|
|
|
(goto-char (point-min))
|
1996-07-07 17:30:04 +00:00
|
|
|
|
(if (re-search-forward "^Subject:[ \t]+\\(.*\\)$" nil t)
|
2000-04-13 19:15:23 +00:00
|
|
|
|
(buffer-substring (match-beginning 1) (match-end 1))
|
1995-01-20 06:09:03 +00:00
|
|
|
|
"Subject ???")))
|
|
|
|
|
|
|
|
|
|
;; Look in an article or mail message for the From: line. Sorta-kinda
|
|
|
|
|
;; understands RFC-822 addresses and can pull the real name out where
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
;; it's provided. To be placed in `ps-left-headers'.
|
1995-01-20 06:09:03 +00:00
|
|
|
|
(defun ps-article-author ()
|
|
|
|
|
(save-excursion
|
|
|
|
|
(goto-char (point-min))
|
1996-07-07 17:35:32 +00:00
|
|
|
|
(if (re-search-forward "^From:[ \t]+\\(.*\\)$" nil t)
|
2000-04-13 19:15:23 +00:00
|
|
|
|
(let ((fromstring (buffer-substring (match-beginning 1) (match-end 1))))
|
1995-01-20 06:09:03 +00:00
|
|
|
|
(cond
|
|
|
|
|
|
|
|
|
|
;; Try first to match addresses that look like
|
|
|
|
|
;; thompson@wg2.waii.com (Jim Thompson)
|
|
|
|
|
((string-match ".*[ \t]+(\\(.*\\))" fromstring)
|
|
|
|
|
(substring fromstring (match-beginning 1) (match-end 1)))
|
|
|
|
|
|
|
|
|
|
;; Next try to match addresses that look like
|
2000-04-13 19:15:23 +00:00
|
|
|
|
;; Jim Thompson <thompson@wg2.waii.com> or
|
|
|
|
|
;; "Jim Thompson" <thompson@wg2.waii.com>
|
|
|
|
|
((string-match "\\(\"?\\)\\(.*\\)\\1[ \t]+<.*>" fromstring)
|
|
|
|
|
(substring fromstring (match-beginning 2) (match-end 2)))
|
1995-01-20 06:09:03 +00:00
|
|
|
|
|
|
|
|
|
;; Couldn't find a real name -- show the address instead.
|
|
|
|
|
(t fromstring)))
|
|
|
|
|
"From ???")))
|
|
|
|
|
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.1).
(ps-adobe-tag): Replace defvar by defcustom, and doc fix.
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): Add arg REGION-P.
(ps-print-region-with-faces, ps-print-region)
(ps-spool-region, ps-spool-region-with-faces): Fix calls to
the functions above.
(ps-setup): Print value of ps-zebra-stripe, ps-number-of-zebra,
ps-line-number, ps-print-background-image,
and ps-print-background-text.
(ps-print-prologue-1): Bug fix in PostScript programming:
/BeginDSCPage, /BeginPage.
(ps-showpage-count, ps-ref-bold-faces, ps-ref-italic-faces)
(ps-ref-underlined-faces, font-lock-face-attributes)
(ps-initialize-faces): Vars deleted.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-initialize-faces, ps-header-height)
(ps-hard-lf, ps-soft-lf, ps-get-face, ps-map-font-lock): Fn deleted.
(ps-extend-face-list, ps-extend-face): Doc fix.
(ps-print-face-alist): New var to handle face alist.
(ps-printing-region): New var and fn.
(ps-header-page, ps-set-face-bold, ps-set-face-italic)
(ps-set-face-underline, ps-set-face-attribute, ps-map-face): New fn.
(ps-rmail-mode-hook, ps-rmail-print-message-from-summary)
(ps-print-message-from-summary, ps-vm-print-message-from-summary):
Fns moved.
(ps-background): New argument PAGE-NUMBER.
(ps-begin-file): Bug fix and print proper line number in a region.
(ps-begin-page): Call ps-header-page.
(ps-get-buffer-name): Indicates in the header when printing a region.
(ps-end-page): Delete ps-showpage-count.
(ps-dummy-page): Calls ps-header-page.
(ps-set-color): Programming improvement.
(ps-plot-region): Doc fix.
(ps-face-attributes): Same functionality as deleted ps-get-face.
(ps-build-reference-face-lists): Do the job by calling
ps-set-face-bold and ps-bold-faces, and friends.
1997-09-06 02:52:00 +00:00
|
|
|
|
;; A hook to bind to `gnus-article-prepare-hook'. This will set the
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
;; `ps-left-headers' specially for gnus articles. Unfortunately,
|
|
|
|
|
;; `gnus-article-mode-hook' is called only once, the first time the *Article*
|
1995-01-20 06:09:03 +00:00
|
|
|
|
;; buffer enters that mode, so it would only work for the first time
|
|
|
|
|
;; we ran gnus. The second time, this hook wouldn't get set up. The
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
;; only alternative is `gnus-article-prepare-hook'.
|
1995-01-20 06:09:03 +00:00
|
|
|
|
(defun ps-gnus-article-prepare-hook ()
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.2) and doc fix.
(ps-print, ps-header-lines, ps-show-n-of-n, ps-font-info-database)
(ps-font-family, ps-font-size, ps-header-font-family)
(ps-header-font-size, ps-header-title-font-size, ps-bold-faces)
(ps-italic-faces, ps-underlined-faces, ps-left-header, ps-right-header)
(ps-font, ps-font-bold, ps-font-italic, ps-font-bold-italic)
(ps-avg-char-width, ps-space-width, ps-line-height): Doc fix.
(ps-error-scale-font): New fn.
(ps-soft-lf, ps-hard-lf): Fn deleted.
(ps-get-page-dimensions, ps-set-bg, ps-face-bold-p, ps-face-italic-p)
(ps-set-color): Reindentation.
(ps-output-string-prim, ps-xemacs-face-kind-p): Internal blank lines
deleted.
(ps-set-font): Little programming improvement.
(ps-line-lengths-internal, ps-nb-pages, ps-select-font)
(ps-select-header-font): Simplify some expressions.
(ps-plot-region): Replace (- X 1) by (1- X).
(ps-generate-header): Replace (+ X 1) by (1+ X).
(ps-print-preprint, ps-plot-with-face, ps-print-ensure-fontified)
(ps-kill-emacs-check): Replace (if (and A B) C) by (and A B C).
(ps-init-output-queue, ps-gnus-article-prepare-hook, ps-jts-ps-setup):
Replace (setq a b)(setq c d) by (setq a b c d).
(ps-begin-file, ps-end-file): Replace (ps-output A)(ps-output B)
by (ps-output A B).
(ps-begin-page): Replace (ps-output A)(ps-output B) by (ps-output A B),
replace (setq a b)(setq c d) by (setq a b c d).
(ps-next-line, ps-continue-line): Replace (setq a b)(setq c d)
by (setq a b c d), and incorporates ps-soft-lf and ps-hard-lf,
respectively.
(ps-plot): Replace (setq a b)(setq c d) by (setq a b c d),
and programming improvement.
(ps-generate-postscript-with-faces): Initialization fix,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if (and A B) C) by (and A B C).
(ps-generate): Doc fix, reprogramming to set the page count,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if A nil B) by (or A B),
replace (if (and A B) C) by (and A B C).
(ps-info-mode-hook): Replace (list 'A 'B) by '(A B).
(ps-jack-setup): Replace (list) by nil.
1997-11-23 02:26:50 +00:00
|
|
|
|
(setq ps-header-lines 3
|
|
|
|
|
ps-left-header
|
1995-01-20 06:09:03 +00:00
|
|
|
|
;; The left headers will display the article's subject, its
|
|
|
|
|
;; author, and the newsgroup it was in.
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.2) and doc fix.
(ps-print, ps-header-lines, ps-show-n-of-n, ps-font-info-database)
(ps-font-family, ps-font-size, ps-header-font-family)
(ps-header-font-size, ps-header-title-font-size, ps-bold-faces)
(ps-italic-faces, ps-underlined-faces, ps-left-header, ps-right-header)
(ps-font, ps-font-bold, ps-font-italic, ps-font-bold-italic)
(ps-avg-char-width, ps-space-width, ps-line-height): Doc fix.
(ps-error-scale-font): New fn.
(ps-soft-lf, ps-hard-lf): Fn deleted.
(ps-get-page-dimensions, ps-set-bg, ps-face-bold-p, ps-face-italic-p)
(ps-set-color): Reindentation.
(ps-output-string-prim, ps-xemacs-face-kind-p): Internal blank lines
deleted.
(ps-set-font): Little programming improvement.
(ps-line-lengths-internal, ps-nb-pages, ps-select-font)
(ps-select-header-font): Simplify some expressions.
(ps-plot-region): Replace (- X 1) by (1- X).
(ps-generate-header): Replace (+ X 1) by (1+ X).
(ps-print-preprint, ps-plot-with-face, ps-print-ensure-fontified)
(ps-kill-emacs-check): Replace (if (and A B) C) by (and A B C).
(ps-init-output-queue, ps-gnus-article-prepare-hook, ps-jts-ps-setup):
Replace (setq a b)(setq c d) by (setq a b c d).
(ps-begin-file, ps-end-file): Replace (ps-output A)(ps-output B)
by (ps-output A B).
(ps-begin-page): Replace (ps-output A)(ps-output B) by (ps-output A B),
replace (setq a b)(setq c d) by (setq a b c d).
(ps-next-line, ps-continue-line): Replace (setq a b)(setq c d)
by (setq a b c d), and incorporates ps-soft-lf and ps-hard-lf,
respectively.
(ps-plot): Replace (setq a b)(setq c d) by (setq a b c d),
and programming improvement.
(ps-generate-postscript-with-faces): Initialization fix,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if (and A B) C) by (and A B C).
(ps-generate): Doc fix, reprogramming to set the page count,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if A nil B) by (or A B),
replace (if (and A B) C) by (and A B C).
(ps-info-mode-hook): Replace (list 'A 'B) by '(A B).
(ps-jack-setup): Replace (list) by nil.
1997-11-23 02:26:50 +00:00
|
|
|
|
'(ps-article-subject ps-article-author gnus-newsgroup-name)))
|
1995-01-20 06:09:03 +00:00
|
|
|
|
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.1).
(ps-adobe-tag): Replace defvar by defcustom, and doc fix.
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): Add arg REGION-P.
(ps-print-region-with-faces, ps-print-region)
(ps-spool-region, ps-spool-region-with-faces): Fix calls to
the functions above.
(ps-setup): Print value of ps-zebra-stripe, ps-number-of-zebra,
ps-line-number, ps-print-background-image,
and ps-print-background-text.
(ps-print-prologue-1): Bug fix in PostScript programming:
/BeginDSCPage, /BeginPage.
(ps-showpage-count, ps-ref-bold-faces, ps-ref-italic-faces)
(ps-ref-underlined-faces, font-lock-face-attributes)
(ps-initialize-faces): Vars deleted.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-initialize-faces, ps-header-height)
(ps-hard-lf, ps-soft-lf, ps-get-face, ps-map-font-lock): Fn deleted.
(ps-extend-face-list, ps-extend-face): Doc fix.
(ps-print-face-alist): New var to handle face alist.
(ps-printing-region): New var and fn.
(ps-header-page, ps-set-face-bold, ps-set-face-italic)
(ps-set-face-underline, ps-set-face-attribute, ps-map-face): New fn.
(ps-rmail-mode-hook, ps-rmail-print-message-from-summary)
(ps-print-message-from-summary, ps-vm-print-message-from-summary):
Fns moved.
(ps-background): New argument PAGE-NUMBER.
(ps-begin-file): Bug fix and print proper line number in a region.
(ps-begin-page): Call ps-header-page.
(ps-get-buffer-name): Indicates in the header when printing a region.
(ps-end-page): Delete ps-showpage-count.
(ps-dummy-page): Calls ps-header-page.
(ps-set-color): Programming improvement.
(ps-plot-region): Doc fix.
(ps-face-attributes): Same functionality as deleted ps-get-face.
(ps-build-reference-face-lists): Do the job by calling
ps-set-face-bold and ps-bold-faces, and friends.
1997-09-06 02:52:00 +00:00
|
|
|
|
;; A hook to bind to `vm-mode-hook' to locally bind prsc and set the
|
|
|
|
|
;; `ps-left-headers' specially for mail messages.
|
1995-01-20 06:09:03 +00:00
|
|
|
|
(defun ps-vm-mode-hook ()
|
1995-02-07 22:51:35 +00:00
|
|
|
|
(local-set-key (ps-prsc) 'ps-vm-print-message-from-summary)
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.2) and doc fix.
(ps-print, ps-header-lines, ps-show-n-of-n, ps-font-info-database)
(ps-font-family, ps-font-size, ps-header-font-family)
(ps-header-font-size, ps-header-title-font-size, ps-bold-faces)
(ps-italic-faces, ps-underlined-faces, ps-left-header, ps-right-header)
(ps-font, ps-font-bold, ps-font-italic, ps-font-bold-italic)
(ps-avg-char-width, ps-space-width, ps-line-height): Doc fix.
(ps-error-scale-font): New fn.
(ps-soft-lf, ps-hard-lf): Fn deleted.
(ps-get-page-dimensions, ps-set-bg, ps-face-bold-p, ps-face-italic-p)
(ps-set-color): Reindentation.
(ps-output-string-prim, ps-xemacs-face-kind-p): Internal blank lines
deleted.
(ps-set-font): Little programming improvement.
(ps-line-lengths-internal, ps-nb-pages, ps-select-font)
(ps-select-header-font): Simplify some expressions.
(ps-plot-region): Replace (- X 1) by (1- X).
(ps-generate-header): Replace (+ X 1) by (1+ X).
(ps-print-preprint, ps-plot-with-face, ps-print-ensure-fontified)
(ps-kill-emacs-check): Replace (if (and A B) C) by (and A B C).
(ps-init-output-queue, ps-gnus-article-prepare-hook, ps-jts-ps-setup):
Replace (setq a b)(setq c d) by (setq a b c d).
(ps-begin-file, ps-end-file): Replace (ps-output A)(ps-output B)
by (ps-output A B).
(ps-begin-page): Replace (ps-output A)(ps-output B) by (ps-output A B),
replace (setq a b)(setq c d) by (setq a b c d).
(ps-next-line, ps-continue-line): Replace (setq a b)(setq c d)
by (setq a b c d), and incorporates ps-soft-lf and ps-hard-lf,
respectively.
(ps-plot): Replace (setq a b)(setq c d) by (setq a b c d),
and programming improvement.
(ps-generate-postscript-with-faces): Initialization fix,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if (and A B) C) by (and A B C).
(ps-generate): Doc fix, reprogramming to set the page count,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if A nil B) by (or A B),
replace (if (and A B) C) by (and A B C).
(ps-info-mode-hook): Replace (list 'A 'B) by '(A B).
(ps-jack-setup): Replace (list) by nil.
1997-11-23 02:26:50 +00:00
|
|
|
|
(setq ps-header-lines 3
|
|
|
|
|
ps-left-header
|
1995-01-20 06:09:03 +00:00
|
|
|
|
;; The left headers will display the message's subject, its
|
|
|
|
|
;; author, and the name of the folder it was in.
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.2) and doc fix.
(ps-print, ps-header-lines, ps-show-n-of-n, ps-font-info-database)
(ps-font-family, ps-font-size, ps-header-font-family)
(ps-header-font-size, ps-header-title-font-size, ps-bold-faces)
(ps-italic-faces, ps-underlined-faces, ps-left-header, ps-right-header)
(ps-font, ps-font-bold, ps-font-italic, ps-font-bold-italic)
(ps-avg-char-width, ps-space-width, ps-line-height): Doc fix.
(ps-error-scale-font): New fn.
(ps-soft-lf, ps-hard-lf): Fn deleted.
(ps-get-page-dimensions, ps-set-bg, ps-face-bold-p, ps-face-italic-p)
(ps-set-color): Reindentation.
(ps-output-string-prim, ps-xemacs-face-kind-p): Internal blank lines
deleted.
(ps-set-font): Little programming improvement.
(ps-line-lengths-internal, ps-nb-pages, ps-select-font)
(ps-select-header-font): Simplify some expressions.
(ps-plot-region): Replace (- X 1) by (1- X).
(ps-generate-header): Replace (+ X 1) by (1+ X).
(ps-print-preprint, ps-plot-with-face, ps-print-ensure-fontified)
(ps-kill-emacs-check): Replace (if (and A B) C) by (and A B C).
(ps-init-output-queue, ps-gnus-article-prepare-hook, ps-jts-ps-setup):
Replace (setq a b)(setq c d) by (setq a b c d).
(ps-begin-file, ps-end-file): Replace (ps-output A)(ps-output B)
by (ps-output A B).
(ps-begin-page): Replace (ps-output A)(ps-output B) by (ps-output A B),
replace (setq a b)(setq c d) by (setq a b c d).
(ps-next-line, ps-continue-line): Replace (setq a b)(setq c d)
by (setq a b c d), and incorporates ps-soft-lf and ps-hard-lf,
respectively.
(ps-plot): Replace (setq a b)(setq c d) by (setq a b c d),
and programming improvement.
(ps-generate-postscript-with-faces): Initialization fix,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if (and A B) C) by (and A B C).
(ps-generate): Doc fix, reprogramming to set the page count,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if A nil B) by (or A B),
replace (if (and A B) C) by (and A B C).
(ps-info-mode-hook): Replace (list 'A 'B) by '(A B).
(ps-jack-setup): Replace (list) by nil.
1997-11-23 02:26:50 +00:00
|
|
|
|
'(ps-article-subject ps-article-author buffer-name)))
|
1995-01-20 06:09:03 +00:00
|
|
|
|
|
|
|
|
|
;; Every now and then I forget to switch from the *Summary* buffer to
|
|
|
|
|
;; the *Article* before hitting prsc, and a nicely formatted list of
|
|
|
|
|
;; article subjects shows up at the printer. This function, bound to
|
|
|
|
|
;; prsc for the gnus *Summary* buffer means I don't have to switch
|
|
|
|
|
;; buffers first.
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
;; sb: Updated for Gnus 5.
|
1995-01-20 06:09:03 +00:00
|
|
|
|
(defun ps-gnus-print-article-from-summary ()
|
|
|
|
|
(interactive)
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.1).
(ps-adobe-tag): Replace defvar by defcustom, and doc fix.
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): Add arg REGION-P.
(ps-print-region-with-faces, ps-print-region)
(ps-spool-region, ps-spool-region-with-faces): Fix calls to
the functions above.
(ps-setup): Print value of ps-zebra-stripe, ps-number-of-zebra,
ps-line-number, ps-print-background-image,
and ps-print-background-text.
(ps-print-prologue-1): Bug fix in PostScript programming:
/BeginDSCPage, /BeginPage.
(ps-showpage-count, ps-ref-bold-faces, ps-ref-italic-faces)
(ps-ref-underlined-faces, font-lock-face-attributes)
(ps-initialize-faces): Vars deleted.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-initialize-faces, ps-header-height)
(ps-hard-lf, ps-soft-lf, ps-get-face, ps-map-font-lock): Fn deleted.
(ps-extend-face-list, ps-extend-face): Doc fix.
(ps-print-face-alist): New var to handle face alist.
(ps-printing-region): New var and fn.
(ps-header-page, ps-set-face-bold, ps-set-face-italic)
(ps-set-face-underline, ps-set-face-attribute, ps-map-face): New fn.
(ps-rmail-mode-hook, ps-rmail-print-message-from-summary)
(ps-print-message-from-summary, ps-vm-print-message-from-summary):
Fns moved.
(ps-background): New argument PAGE-NUMBER.
(ps-begin-file): Bug fix and print proper line number in a region.
(ps-begin-page): Call ps-header-page.
(ps-get-buffer-name): Indicates in the header when printing a region.
(ps-end-page): Delete ps-showpage-count.
(ps-dummy-page): Calls ps-header-page.
(ps-set-color): Programming improvement.
(ps-plot-region): Doc fix.
(ps-face-attributes): Same functionality as deleted ps-get-face.
(ps-build-reference-face-lists): Do the job by calling
ps-set-face-bold and ps-bold-faces, and friends.
1997-09-06 02:52:00 +00:00
|
|
|
|
(ps-print-message-from-summary 'gnus-article-buffer "*Article*"))
|
1994-05-01 22:09:01 +00:00
|
|
|
|
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
;; See `ps-gnus-print-article-from-summary'. This function does the
|
1995-01-20 06:09:03 +00:00
|
|
|
|
;; same thing for vm.
|
|
|
|
|
(defun ps-vm-print-message-from-summary ()
|
|
|
|
|
(interactive)
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.1).
(ps-adobe-tag): Replace defvar by defcustom, and doc fix.
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): Add arg REGION-P.
(ps-print-region-with-faces, ps-print-region)
(ps-spool-region, ps-spool-region-with-faces): Fix calls to
the functions above.
(ps-setup): Print value of ps-zebra-stripe, ps-number-of-zebra,
ps-line-number, ps-print-background-image,
and ps-print-background-text.
(ps-print-prologue-1): Bug fix in PostScript programming:
/BeginDSCPage, /BeginPage.
(ps-showpage-count, ps-ref-bold-faces, ps-ref-italic-faces)
(ps-ref-underlined-faces, font-lock-face-attributes)
(ps-initialize-faces): Vars deleted.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-initialize-faces, ps-header-height)
(ps-hard-lf, ps-soft-lf, ps-get-face, ps-map-font-lock): Fn deleted.
(ps-extend-face-list, ps-extend-face): Doc fix.
(ps-print-face-alist): New var to handle face alist.
(ps-printing-region): New var and fn.
(ps-header-page, ps-set-face-bold, ps-set-face-italic)
(ps-set-face-underline, ps-set-face-attribute, ps-map-face): New fn.
(ps-rmail-mode-hook, ps-rmail-print-message-from-summary)
(ps-print-message-from-summary, ps-vm-print-message-from-summary):
Fns moved.
(ps-background): New argument PAGE-NUMBER.
(ps-begin-file): Bug fix and print proper line number in a region.
(ps-begin-page): Call ps-header-page.
(ps-get-buffer-name): Indicates in the header when printing a region.
(ps-end-page): Delete ps-showpage-count.
(ps-dummy-page): Calls ps-header-page.
(ps-set-color): Programming improvement.
(ps-plot-region): Doc fix.
(ps-face-attributes): Same functionality as deleted ps-get-face.
(ps-build-reference-face-lists): Do the job by calling
ps-set-face-bold and ps-bold-faces, and friends.
1997-09-06 02:52:00 +00:00
|
|
|
|
(ps-print-message-from-summary 'vm-mail-buffer ""))
|
1994-05-01 22:09:01 +00:00
|
|
|
|
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
;; A hook to bind to bind to `gnus-summary-setup-buffer' to locally bind
|
1995-01-20 06:09:03 +00:00
|
|
|
|
;; prsc.
|
|
|
|
|
(defun ps-gnus-summary-setup ()
|
1995-02-07 22:51:35 +00:00
|
|
|
|
(local-set-key (ps-prsc) 'ps-gnus-print-article-from-summary))
|
1995-01-20 06:09:03 +00:00
|
|
|
|
|
|
|
|
|
;; Look in an article or mail message for the Subject: line. To be
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
;; placed in `ps-left-headers'.
|
1995-01-20 06:09:03 +00:00
|
|
|
|
(defun ps-info-file ()
|
|
|
|
|
(save-excursion
|
|
|
|
|
(goto-char (point-min))
|
1996-07-07 17:35:32 +00:00
|
|
|
|
(if (re-search-forward "File:[ \t]+\\([^, \t\n]*\\)" nil t)
|
2000-04-13 19:15:23 +00:00
|
|
|
|
(buffer-substring (match-beginning 1) (match-end 1))
|
1995-01-20 06:09:03 +00:00
|
|
|
|
"File ???")))
|
|
|
|
|
|
|
|
|
|
;; Look in an article or mail message for the Subject: line. To be
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
;; placed in `ps-left-headers'.
|
1995-01-20 06:09:03 +00:00
|
|
|
|
(defun ps-info-node ()
|
|
|
|
|
(save-excursion
|
|
|
|
|
(goto-char (point-min))
|
1996-07-07 17:35:32 +00:00
|
|
|
|
(if (re-search-forward "Node:[ \t]+\\([^,\t\n]*\\)" nil t)
|
2000-04-13 19:15:23 +00:00
|
|
|
|
(buffer-substring (match-beginning 1) (match-end 1))
|
1995-01-20 06:09:03 +00:00
|
|
|
|
"Node ???")))
|
|
|
|
|
|
|
|
|
|
(defun ps-info-mode-hook ()
|
|
|
|
|
(setq ps-left-header
|
|
|
|
|
;; The left headers will display the node name and file name.
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.2) and doc fix.
(ps-print, ps-header-lines, ps-show-n-of-n, ps-font-info-database)
(ps-font-family, ps-font-size, ps-header-font-family)
(ps-header-font-size, ps-header-title-font-size, ps-bold-faces)
(ps-italic-faces, ps-underlined-faces, ps-left-header, ps-right-header)
(ps-font, ps-font-bold, ps-font-italic, ps-font-bold-italic)
(ps-avg-char-width, ps-space-width, ps-line-height): Doc fix.
(ps-error-scale-font): New fn.
(ps-soft-lf, ps-hard-lf): Fn deleted.
(ps-get-page-dimensions, ps-set-bg, ps-face-bold-p, ps-face-italic-p)
(ps-set-color): Reindentation.
(ps-output-string-prim, ps-xemacs-face-kind-p): Internal blank lines
deleted.
(ps-set-font): Little programming improvement.
(ps-line-lengths-internal, ps-nb-pages, ps-select-font)
(ps-select-header-font): Simplify some expressions.
(ps-plot-region): Replace (- X 1) by (1- X).
(ps-generate-header): Replace (+ X 1) by (1+ X).
(ps-print-preprint, ps-plot-with-face, ps-print-ensure-fontified)
(ps-kill-emacs-check): Replace (if (and A B) C) by (and A B C).
(ps-init-output-queue, ps-gnus-article-prepare-hook, ps-jts-ps-setup):
Replace (setq a b)(setq c d) by (setq a b c d).
(ps-begin-file, ps-end-file): Replace (ps-output A)(ps-output B)
by (ps-output A B).
(ps-begin-page): Replace (ps-output A)(ps-output B) by (ps-output A B),
replace (setq a b)(setq c d) by (setq a b c d).
(ps-next-line, ps-continue-line): Replace (setq a b)(setq c d)
by (setq a b c d), and incorporates ps-soft-lf and ps-hard-lf,
respectively.
(ps-plot): Replace (setq a b)(setq c d) by (setq a b c d),
and programming improvement.
(ps-generate-postscript-with-faces): Initialization fix,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if (and A B) C) by (and A B C).
(ps-generate): Doc fix, reprogramming to set the page count,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if A nil B) by (or A B),
replace (if (and A B) C) by (and A B C).
(ps-info-mode-hook): Replace (list 'A 'B) by '(A B).
(ps-jack-setup): Replace (list) by nil.
1997-11-23 02:26:50 +00:00
|
|
|
|
'(ps-info-node ps-info-file)))
|
1995-01-20 06:09:03 +00:00
|
|
|
|
|
1995-05-12 02:18:47 +00:00
|
|
|
|
;; WARNING! The following function is a *sample* only, and is *not*
|
|
|
|
|
;; meant to be used as a whole unless you understand what the effects
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
;; will be! (In fact, this is a copy of Jim's setup for ps-print --
|
|
|
|
|
;; I'd be very surprised if it was useful to *anybody*, without
|
1995-05-12 02:18:47 +00:00
|
|
|
|
;; modification.)
|
|
|
|
|
|
1995-01-20 06:09:03 +00:00
|
|
|
|
(defun ps-jts-ps-setup ()
|
1995-02-07 22:51:35 +00:00
|
|
|
|
(global-set-key (ps-prsc) 'ps-spool-buffer-with-faces) ;f22 is prsc
|
|
|
|
|
(global-set-key (ps-s-prsc) 'ps-spool-region-with-faces)
|
|
|
|
|
(global-set-key (ps-c-prsc) 'ps-despool)
|
1995-01-20 06:09:03 +00:00
|
|
|
|
(add-hook 'gnus-article-prepare-hook 'ps-gnus-article-prepare-hook)
|
|
|
|
|
(add-hook 'gnus-summary-mode-hook 'ps-gnus-summary-setup)
|
|
|
|
|
(add-hook 'vm-mode-hook 'ps-vm-mode-hook)
|
1995-02-07 22:51:35 +00:00
|
|
|
|
(add-hook 'vm-mode-hooks 'ps-vm-mode-hook)
|
1995-01-20 06:09:03 +00:00
|
|
|
|
(add-hook 'Info-mode-hook 'ps-info-mode-hook)
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.2) and doc fix.
(ps-print, ps-header-lines, ps-show-n-of-n, ps-font-info-database)
(ps-font-family, ps-font-size, ps-header-font-family)
(ps-header-font-size, ps-header-title-font-size, ps-bold-faces)
(ps-italic-faces, ps-underlined-faces, ps-left-header, ps-right-header)
(ps-font, ps-font-bold, ps-font-italic, ps-font-bold-italic)
(ps-avg-char-width, ps-space-width, ps-line-height): Doc fix.
(ps-error-scale-font): New fn.
(ps-soft-lf, ps-hard-lf): Fn deleted.
(ps-get-page-dimensions, ps-set-bg, ps-face-bold-p, ps-face-italic-p)
(ps-set-color): Reindentation.
(ps-output-string-prim, ps-xemacs-face-kind-p): Internal blank lines
deleted.
(ps-set-font): Little programming improvement.
(ps-line-lengths-internal, ps-nb-pages, ps-select-font)
(ps-select-header-font): Simplify some expressions.
(ps-plot-region): Replace (- X 1) by (1- X).
(ps-generate-header): Replace (+ X 1) by (1+ X).
(ps-print-preprint, ps-plot-with-face, ps-print-ensure-fontified)
(ps-kill-emacs-check): Replace (if (and A B) C) by (and A B C).
(ps-init-output-queue, ps-gnus-article-prepare-hook, ps-jts-ps-setup):
Replace (setq a b)(setq c d) by (setq a b c d).
(ps-begin-file, ps-end-file): Replace (ps-output A)(ps-output B)
by (ps-output A B).
(ps-begin-page): Replace (ps-output A)(ps-output B) by (ps-output A B),
replace (setq a b)(setq c d) by (setq a b c d).
(ps-next-line, ps-continue-line): Replace (setq a b)(setq c d)
by (setq a b c d), and incorporates ps-soft-lf and ps-hard-lf,
respectively.
(ps-plot): Replace (setq a b)(setq c d) by (setq a b c d),
and programming improvement.
(ps-generate-postscript-with-faces): Initialization fix,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if (and A B) C) by (and A B C).
(ps-generate): Doc fix, reprogramming to set the page count,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if A nil B) by (or A B),
replace (if (and A B) C) by (and A B C).
(ps-info-mode-hook): Replace (list 'A 'B) by '(A B).
(ps-jack-setup): Replace (list) by nil.
1997-11-23 02:26:50 +00:00
|
|
|
|
(setq ps-spool-duplex t
|
|
|
|
|
ps-print-color-p nil
|
|
|
|
|
ps-lpr-command "lpr"
|
|
|
|
|
ps-lpr-switches '("-Jjct,duplex_long"))
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
'ps-jts-ps-setup)
|
|
|
|
|
|
|
|
|
|
;; WARNING! The following function is a *sample* only, and is *not*
|
|
|
|
|
;; meant to be used as a whole unless it corresponds to your needs.
|
|
|
|
|
;; (In fact, this is a copy of Jack's setup for ps-print --
|
|
|
|
|
;; I would not be that surprised if it was useful to *anybody*,
|
|
|
|
|
;; without modification.)
|
|
|
|
|
|
|
|
|
|
(defun ps-jack-setup ()
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
(setq ps-print-color-p nil
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
ps-lpr-command "lpr"
|
Some comment and doc fixes.
(ps-print-version): New version number (3.05.2) and doc fix.
(ps-print, ps-header-lines, ps-show-n-of-n, ps-font-info-database)
(ps-font-family, ps-font-size, ps-header-font-family)
(ps-header-font-size, ps-header-title-font-size, ps-bold-faces)
(ps-italic-faces, ps-underlined-faces, ps-left-header, ps-right-header)
(ps-font, ps-font-bold, ps-font-italic, ps-font-bold-italic)
(ps-avg-char-width, ps-space-width, ps-line-height): Doc fix.
(ps-error-scale-font): New fn.
(ps-soft-lf, ps-hard-lf): Fn deleted.
(ps-get-page-dimensions, ps-set-bg, ps-face-bold-p, ps-face-italic-p)
(ps-set-color): Reindentation.
(ps-output-string-prim, ps-xemacs-face-kind-p): Internal blank lines
deleted.
(ps-set-font): Little programming improvement.
(ps-line-lengths-internal, ps-nb-pages, ps-select-font)
(ps-select-header-font): Simplify some expressions.
(ps-plot-region): Replace (- X 1) by (1- X).
(ps-generate-header): Replace (+ X 1) by (1+ X).
(ps-print-preprint, ps-plot-with-face, ps-print-ensure-fontified)
(ps-kill-emacs-check): Replace (if (and A B) C) by (and A B C).
(ps-init-output-queue, ps-gnus-article-prepare-hook, ps-jts-ps-setup):
Replace (setq a b)(setq c d) by (setq a b c d).
(ps-begin-file, ps-end-file): Replace (ps-output A)(ps-output B)
by (ps-output A B).
(ps-begin-page): Replace (ps-output A)(ps-output B) by (ps-output A B),
replace (setq a b)(setq c d) by (setq a b c d).
(ps-next-line, ps-continue-line): Replace (setq a b)(setq c d)
by (setq a b c d), and incorporates ps-soft-lf and ps-hard-lf,
respectively.
(ps-plot): Replace (setq a b)(setq c d) by (setq a b c d),
and programming improvement.
(ps-generate-postscript-with-faces): Initialization fix,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if (and A B) C) by (and A B C).
(ps-generate): Doc fix, reprogramming to set the page count,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if A nil B) by (or A B),
replace (if (and A B) C) by (and A B C).
(ps-info-mode-hook): Replace (list 'A 'B) by '(A B).
(ps-jack-setup): Replace (list) by nil.
1997-11-23 02:26:50 +00:00
|
|
|
|
ps-lpr-switches nil
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
|
A lot of comment and doc fixes.
Replace: 'nil by nil, '() by nil, 't by t.
(ps-print-version): New version number (3.05).
(ps-zebra-stripe, ps-number-of-zebra, ps-line-number)
(ps-print-background-image, ps-print-background-text): New variables
to customize zebra stripes, line number, image background and text
background features, respectively.
(ps-adobe-tag): Tagged to PostScript level 3.
(ps-print-buffer, ps-print-buffer-with-faces)
(ps-print-region, ps-print-region-with-faces)
(ps-spool-buffer, ps-spool-buffer-with-faces)
(ps-spool-region, ps-spool-region-with-faces): Call more primitive
functions for PostScript printing (functions below).
(ps-print-with-faces, ps-print-without-faces)
(ps-spool-with-faces, ps-spool-without-faces): More primitive
functions for PostScript printing.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region)
(ps-line-lengths-internal, ps-nb-pages): Doc fixes.
(ps-print-prologue-1): a lot of PostScript programming:
/dobackgroundstring, /dounderline, /UL: Postscript functions deleted.
/reencodeFontISO, /F, /BG, /HL, /W, /S, /BeginDSCPage, /BeginPage,
/EndPage: adjusted for new effects (outline, shadow, etc).
/PLN, /EF, /Hline, /doBox, /doRect, /doShadow, /doOutline,
/FillBgColor, /doLineNumber, /printZebra, /doColumnZebra,
/doZebra, /BeginBackImage, /EndBackImage, /ShowBackText: New procedures.
(ps-current-underline-p, ps-set-underline): Var and fn deleted.
(ps-showline-count, ps-background-pages, ps-background-all-pages)
(ps-background-text-count, ps-background-image-count): New variables.
(ps-header-font, ps-header-title-font)
(ps-header-line-height, ps-header-title-line-height)
(ps-landscape-page-height): Set initial value to nil.
(ps-print-face-extension-alist, ps-print-face-map-alist):
New variables for face remapping.
(ps-new-faces, ps-extend-face-list, ps-extend-face):
New functions for face remapping.
(ps-override-list, ps-extension-to-bit-face)
(ps-extension-to-screen-face, ps-extension-bit)
(ps-initialize-faces, ps-map-font-lock, ps-screen-to-bit-face):
New internal functions for face remapping.
(ps-get-page-dimensions): Fix error message.
(ps-insert-file): Doc fix and programming enhancement.
(ps-begin-file, ps-end-file, ps-get-buffer-name, ps-begin-page)
(ps-next-line, ps-plot-region, ps-face-attributes)
(ps-face-attribute-list, ps-plot-with-face)
(ps-generate-postscript-with-faces): Handle new output features.
(ps-generate): save-excursion inserted to return back point at
position before calling ps-print.
(ps-do-spool): Access dos-ps-printer variable through symbol-value.
(ps-prsc, ps-c-prsc, ps-s-prsc): Use backquote.
(ps-basic-plot-whitespace, ps-emacs-face-kind-p): Internal blank
line eliminated.
(ps-float-format, ps-current-effect): New internal variables.
(ps-output-list, ps-count-lines, ps-background-pages)
(ps-get-boundingbox, ps-float-format, ps-background-text)
(ps-background-image, ps-background, ps-header-height)
(ps-get-face): New internal functions.
(ps-control-character): Handle control characters.
(ps-gnus-print-article-from-summary): Updated for Gnus 5.
(ps-jack-setup): Replace 'nil by nil, 't by t.
1997-08-20 23:11:35 +00:00
|
|
|
|
ps-paper-type 'a4
|
|
|
|
|
ps-landscape-mode t
|
(ps-print-prologue-1): Fix bug in postscript comment lines.
(ps-nb-pages): Call ps-setup _before_ switching to the other
buffer, because of buffer variables.
Major rewrite.
(ps-page-dimensions-database, ps-paper-type): Replace the
following global variables:
(ps-a4-page-height, ps-a4-page-width, ps-legal-page-height,
ps-legal-page-width, ps-letter-page-height, ps-letter-page-width,
ps-pages-alist, ps-page-dimensions): Variables deleted.
(ps-page-height-i, ps-page-width-i): Variables deleted.
(ps-print-prologue): Variable deleted.
(ps-print-prologue-1, ps-print-prologue-2): New variables.
Major rewrite of the postscript code to handle landscape mode,
multiple columns and new font management.
(ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
variables.
Add landscape mode and multiple columns with interspacing.
(ps-font-info-database, ps-font-family, ps-font-size,
ps-header-font-family, ps-header-font-size, ps-header-title-font,
ps-header-title-font-size): New variables.
New font management interface.
(ps-header-line-pad, ps-header-offset): New variables.
(ps-header-font, ps-landscape-page-height): New internal variables.
(ps-top-margin): Change its semantics. It is now really the top
margin, not anymore twice the top margin.
(/ReportAllFontInfo): New postscript function to get all the font
families of the printer.
(ps-setup): New function.
(ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
utility functions.
(ps-page-dimensions-get-width, ps-page-dimensions-get-height): New macros.
(/HeaderOffset): Fix bug with /PrintStartY.
(/SetHeaderLines): Fix bug.
1996-09-28 04:34:34 +00:00
|
|
|
|
ps-number-of-columns 2
|
|
|
|
|
|
|
|
|
|
ps-left-margin (/ (* 72 1.0) 2.54) ; 1.0 cm
|
|
|
|
|
ps-right-margin (/ (* 72 1.0) 2.54) ; 1.0 cm
|
|
|
|
|
ps-inter-column (/ (* 72 1.0) 2.54) ; 1.0 cm
|
|
|
|
|
ps-bottom-margin (/ (* 72 1.5) 2.54) ; 1.5 cm
|
|
|
|
|
ps-top-margin (/ (* 72 1.5) 2.54) ; 1.5 cm
|
|
|
|
|
ps-header-offset (/ (* 72 1.0) 2.54) ; 1.0 cm
|
|
|
|
|
ps-header-line-pad .15
|
|
|
|
|
ps-print-header t
|
|
|
|
|
ps-print-header-frame t
|
|
|
|
|
ps-header-lines 2
|
|
|
|
|
ps-show-n-of-n t
|
|
|
|
|
ps-spool-duplex nil
|
|
|
|
|
|
|
|
|
|
ps-font-family 'Courier
|
|
|
|
|
ps-font-size 5.5
|
|
|
|
|
ps-header-font-family 'Helvetica
|
|
|
|
|
ps-header-font-size 6
|
|
|
|
|
ps-header-title-font-size 8)
|
|
|
|
|
'ps-jack-setup)
|
1995-01-20 06:09:03 +00:00
|
|
|
|
|
1998-12-15 06:31:48 +00:00
|
|
|
|
|
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
|
;; To make this file smaller, some commands go in a separate file.
|
|
|
|
|
;; But autoload them here to make the separation invisible.
|
|
|
|
|
|
|
|
|
|
(autoload 'ps-mule-prepare-ascii-font "ps-mule"
|
|
|
|
|
"Setup special ASCII font for STRING.
|
|
|
|
|
STRING should contain only ASCII characters.")
|
|
|
|
|
|
|
|
|
|
(autoload 'ps-mule-set-ascii-font "ps-mule"
|
|
|
|
|
"Adjust current font if current charset is not ASCII.")
|
|
|
|
|
|
|
|
|
|
(autoload 'ps-mule-plot-string "ps-mule"
|
Line and paragraph spacing feature. Region to cut
out when printing. Doc fix.
(ps-print-version): New version number (6.5).
(ps-line-spacing, ps-paragraph-spacing, ps-paragraph-regexp): New
vars. Line and paragraph spacing feature.
(ps-begin-cut-regexp, ps-end-cut-regexp): New vars. Region to cut
out when printing.
(ps-setup, ps-nb-pages, ps-get-page-dimensions, ps-begin-file)
(ps-get-font-size, ps-begin-job, ps-continue-line)
(ps-plot-region): Code fix.
(ps-print-prologue-2): Var eliminated.
(ps-line-spacing-internal, ps-paragraph-spacing-internal): New
internal vars.
(ps-get-size): New fun.
(ps-output-string-prim, ps-init-output-queue, ps-print-page-p)
(ps-next-line): Replace defun by defsubst.
(ps-mule-plot-string): Autoload doc fix.
(ps-mule-generate-font): New arg HEADER-P. If it is
non-nil, generate font for the header strings.
(ps-mule-prepare-font): Likewise.
(ps-mule-generate-glyphs): Likewise.
(ps-mule-string-encoding): Likewise.
(ps-mule-header-charsets): New variable.
(ps-mule-encode-header-string): New function.
(ps-mule-header-string-charsets): New function.
(ps-mule-begin-job): Check charsets in the header strings. If there
are non-ASCII and non-Latin1 charsets, prepare fonts for them.
2001-04-02 10:35:07 +00:00
|
|
|
|
"Generate PostScript code for plotting characters in the region FROM and TO.
|
1998-12-15 06:31:48 +00:00
|
|
|
|
|
|
|
|
|
It is assumed that all characters in this region belong to the same charset.
|
|
|
|
|
|
|
|
|
|
Optional argument BG-COLOR specifies background color.
|
|
|
|
|
|
|
|
|
|
Returns the value:
|
|
|
|
|
|
|
|
|
|
(ENDPOS . RUN-WIDTH)
|
|
|
|
|
|
|
|
|
|
Where ENDPOS is the end position of the sequence and RUN-WIDTH is the width of
|
|
|
|
|
the sequence.")
|
|
|
|
|
|
|
|
|
|
(autoload 'ps-mule-initialize "ps-mule"
|
|
|
|
|
"Initialize global data for printing multi-byte characters.")
|
|
|
|
|
|
|
|
|
|
(autoload 'ps-mule-begin-job "ps-mule"
|
|
|
|
|
"Start printing job for multi-byte chars between FROM and TO.
|
|
|
|
|
This checks if all multi-byte characters in the region are printable or not.")
|
|
|
|
|
|
|
|
|
|
(autoload 'ps-mule-begin-page "ps-mule"
|
|
|
|
|
"Initialize multi-byte charset for printing current page.")
|
|
|
|
|
|
Line and paragraph spacing feature. Region to cut
out when printing. Doc fix.
(ps-print-version): New version number (6.5).
(ps-line-spacing, ps-paragraph-spacing, ps-paragraph-regexp): New
vars. Line and paragraph spacing feature.
(ps-begin-cut-regexp, ps-end-cut-regexp): New vars. Region to cut
out when printing.
(ps-setup, ps-nb-pages, ps-get-page-dimensions, ps-begin-file)
(ps-get-font-size, ps-begin-job, ps-continue-line)
(ps-plot-region): Code fix.
(ps-print-prologue-2): Var eliminated.
(ps-line-spacing-internal, ps-paragraph-spacing-internal): New
internal vars.
(ps-get-size): New fun.
(ps-output-string-prim, ps-init-output-queue, ps-print-page-p)
(ps-next-line): Replace defun by defsubst.
(ps-mule-plot-string): Autoload doc fix.
(ps-mule-generate-font): New arg HEADER-P. If it is
non-nil, generate font for the header strings.
(ps-mule-prepare-font): Likewise.
(ps-mule-generate-glyphs): Likewise.
(ps-mule-string-encoding): Likewise.
(ps-mule-header-charsets): New variable.
(ps-mule-encode-header-string): New function.
(ps-mule-header-string-charsets): New function.
(ps-mule-begin-job): Check charsets in the header strings. If there
are non-ASCII and non-Latin1 charsets, prepare fonts for them.
2001-04-02 10:35:07 +00:00
|
|
|
|
(autoload 'ps-mule-encode-header-string "ps-mule"
|
|
|
|
|
"Generate PostScript code for plotting characters in header STRING.
|
|
|
|
|
|
|
|
|
|
It is assumed that the length of STRING is not zero.")
|
|
|
|
|
|
1998-12-15 06:31:48 +00:00
|
|
|
|
|
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
|
|
1995-01-20 06:09:03 +00:00
|
|
|
|
(provide 'ps-print)
|
1995-02-14 05:55:53 +00:00
|
|
|
|
|
2003-09-01 15:45:59 +00:00
|
|
|
|
;;; arch-tag: fb06a585-1112-4206-885d-a57d95d50579
|
1995-01-20 06:09:03 +00:00
|
|
|
|
;;; ps-print.el ends here
|