aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman1998-05-16 03:49:47 +0000
committerRichard M. Stallman1998-05-16 03:49:47 +0000
commit984e7bd979a0f4bdffa4c780ba0cc4ebb9d34beb (patch)
tree0ea8ace7f69efedc621d7351aec5c43c696ff3a1
parent38f30d582d659c0304cbbb510c2a01cd654b9d3d (diff)
downloademacs-984e7bd979a0f4bdffa4c780ba0cc4ebb9d34beb.tar.gz
emacs-984e7bd979a0f4bdffa4c780ba0cc4ebb9d34beb.zip
(ps-file-end): Put Trailer and Pages before EndDoc.
(ps-print-control-characters): Doc fix.
-rw-r--r--lisp/ps-print.el22
1 files changed, 11 insertions, 11 deletions
diff --git a/lisp/ps-print.el b/lisp/ps-print.el
index 5203cb360fb..6c037b1275c 100644
--- a/lisp/ps-print.el
+++ b/lisp/ps-print.el
@@ -7,11 +7,11 @@
7;; Author: Vinicius Jose Latorre <vinicius@cpqd.com.br> 7;; Author: Vinicius Jose Latorre <vinicius@cpqd.com.br>
8;; Maintainer: Vinicius Jose Latorre <vinicius@cpqd.com.br> 8;; Maintainer: Vinicius Jose Latorre <vinicius@cpqd.com.br>
9;; Keywords: print, PostScript 9;; Keywords: print, PostScript
10;; Time-stamp: <98/05/05 12:36:30 vinicius> 10;; Time-stamp: <98/05/15 21:15:06 vinicius>
11;; Version: 3.06.1 11;; Version: 3.06.1
12 12
13(defconst ps-print-version "3.06.1" 13(defconst ps-print-version "3.06.1"
14 "ps-print.el, v 3.06.1 <98/05/05 vinicius> 14 "ps-print.el, v 3.06.1 <98/05/15 vinicius>
15 15
16Vinicius's last change version -- this file may have been edited as part of 16Vinicius's last change version -- this file may have been edited as part of
17Emacs without changes to the version number. When reporting bugs, 17Emacs without changes to the version number. When reporting bugs,
@@ -839,7 +839,7 @@ Please send all bug fixes and enhancements to
839;; Thanks to some suggestions on: 839;; Thanks to some suggestions on:
840;; * Face color map: Marco Melgazzi <marco@techie.com> 840;; * Face color map: Marco Melgazzi <marco@techie.com>
841;; * XEmacs compatibility: William J. Henney <will@astrosmo.unam.mx> 841;; * XEmacs compatibility: William J. Henney <will@astrosmo.unam.mx>
842;; * Check ps-paper-type: Sudhakar Frederick <sfrederi@asc.corp.mot.com> 842;; * Check `ps-paper-type': Sudhakar Frederick <sfrederi@asc.corp.mot.com>
843;; 843;;
844;; Thanks to Jacques Duthen <duthen@cegelec-red.fr> (Jack) for the 3.4 version 844;; Thanks to Jacques Duthen <duthen@cegelec-red.fr> (Jack) for the 3.4 version
845;; I started from. [vinicius] 845;; I started from. [vinicius]
@@ -995,25 +995,25 @@ example `letter', `legal' or `a4'."
995(defcustom ps-print-control-characters 'control-8-bit 995(defcustom ps-print-control-characters 'control-8-bit
996 "*Specifies the printable form for control and 8-bit characters. 996 "*Specifies the printable form for control and 8-bit characters.
997That is, instead of sending, for example, a ^D (\004) to printer, 997That is, instead of sending, for example, a ^D (\004) to printer,
998it is sent the string \"^D\". 998you can send ^ and D.
999 999
1000Valid values are: 1000Valid values are:
1001 1001
1002 `8-bit' This is the value to use when you want an ascii encoding of 1002 `8-bit' This is the value to use when you want an ASCII encoding of
1003 any control or non-ascii character. Control characters are 1003 any control or non-ASCII character. Control characters are
1004 encoded as \"^D\", and non-ascii characters have an 1004 encoded as \"^D\", and non-ascii characters have an
1005 octal encoding. 1005 octal encoding.
1006 1006
1007 `control-8-bit' This is the value to use when you want an ascii encoding of 1007 `control-8-bit' This is the value to use when you want an ASCII encoding of
1008 any control character, whether it is 7 or 8-bit. 1008 any control character, whether it is 7 or 8-bit.
1009 European 8-bits accented characters are printed according 1009 European 8-bits accented characters are printed according
1010 the current font. 1010 the current font.
1011 1011
1012 `control' Only ascii control characters have an ascii encoding. 1012 `control' Only ascii control characters have an ASCII encoding.
1013 European 8-bits accented characters are printed according 1013 European 8-bits accented characters are printed according
1014 the current font. 1014 the current font.
1015 1015
1016 nil No ascii encoding. Any character is printed according the 1016 nil No ASCII encoding. Any character is printed according the
1017 current font. 1017 current font.
1018 1018
1019Any other value is treated as nil." 1019Any other value is treated as nil."
@@ -3339,9 +3339,9 @@ page-height == bm + print-height + tm - ho - hh
3339 `(1+ (/ (1- ps-page-count) ps-number-of-columns))) 3339 `(1+ (/ (1- ps-page-count) ps-number-of-columns)))
3340 3340
3341(defun ps-end-file () 3341(defun ps-end-file ()
3342 (ps-output "\nEndDoc\n\n%%Trailer\n%%Pages: " 3342 (ps-output "\n%%Trailer\n%%Pages: "
3343 (format "%d" (ps-page-number)) 3343 (format "%d" (ps-page-number))
3344 "\n%%EOF\n")) 3344 "\n\nEndDoc\n\n%%EOF\n"))
3345 3345
3346 3346
3347(defun ps-next-page () 3347(defun ps-next-page ()