diff options
author | Kenichi Handa <handa@m17n.org> | 1998-08-28 12:33:52 +0000 |
---|---|---|
committer | Kenichi Handa <handa@m17n.org> | 1998-08-28 12:33:52 +0000 |
commit | 915293a22edbbd22a3c91e9ba45eb0eb15b2fec9 (patch) | |
tree | 725d55e9fe4ab9aa8cc98107fc53676ac48cb817 /lisp/ps-print.el | |
parent | 4a7cf15f4792060922601fe1a8f2cc1024ac2273 (diff) | |
download | emacs-915293a22edbbd22a3c91e9ba45eb0eb15b2fec9.tar.gz |
(ps-print-control-characters): Doc-string modified.
(ps-output-string-prim): Comment format changed.
(ps-do-despool): Indentation of source code changed.
Diffstat (limited to 'lisp/ps-print.el')
-rw-r--r-- | lisp/ps-print.el | 25 |
1 files changed, 15 insertions, 10 deletions
diff --git a/lisp/ps-print.el b/lisp/ps-print.el index 0ded650e1ea..a2de18d534e 100644 --- a/lisp/ps-print.el +++ b/lisp/ps-print.el @@ -502,7 +502,7 @@ Please send all bug fixes and enhancements to ;; which lists the currently available font families. ;; ;; The variable `ps-font-size' determines the size (in points) -;; of the font for ordinary text, when generating Postscript. +;; of the font for ordinary text, when generating PostScript. ;; Its value is a float. ;; ;; Similarly, the variable `ps-header-font-family' determines @@ -852,11 +852,17 @@ Please send all bug fixes and enhancements to ;; Acknowledgements ;; ---------------- ;; +;; Thanks to Kein'ichi Handa <handa@etl.go.jp> for multi-byte buffer handling. +;; +;; 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. +;; ;; Thanks to Roland Ducournau <ducour@lirmm.fr> for ;; `ps-print-control-characters' variable documentation. ;; -;; Thanks to Kein'ichi Handa <handa@etl.go.jp> for multi-byte buffer handling. -;; ;; Thanks to Marcus G Daniels <marcus@cathcart.sysc.pdx.edu> for a better ;; database font management. ;; @@ -1053,7 +1059,7 @@ example `letter', `legal' or `a4'." (defcustom ps-print-control-characters 'control-8-bit "*Specifies the printable form for control and 8-bit characters. That is, instead of sending, for example, a ^D (\004) to printer, -you can send ^ and D. +it is sent the string \"^D\". Valid values are: @@ -4004,8 +4010,7 @@ page-height == bm + print-height + tm - ho - hh (save-excursion ;insert string (insert (string-as-unibyte string))) ;; Find and quote special characters as necessary for PS - ;; This skips everything except control chars, nonascii chars, - ;; (, ) and \. + ;; This skips everything except control chars, nonascii chars, (, ) and \. (while (progn (skip-chars-forward " -'*-[]-~") (not (eobp))) (let ((special (following-char))) (delete-char 1) @@ -5024,6 +5029,7 @@ If FACE is not a valid face name, it is used default face." (progn (set-buffer ps-spool-buffer) (set-buffer-multibyte nil) + ;; 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. @@ -5100,10 +5106,9 @@ If FACE is not a valid face name, it is used default face." (let* ((coding-system-for-write 'raw-text-unix) (ps-printer-name (or ps-printer-name printer-name)) (ps-lpr-switches - (append - (and (stringp ps-printer-name) - (list (concat "-P" ps-printer-name))) - ps-lpr-switches))) + (append (and (stringp ps-printer-name) + (list (concat "-P" ps-printer-name))) + ps-lpr-switches))) (if (and (memq system-type '(ms-dos windows-nt)) (or (stringp dos-ps-printer) (stringp ps-printer-name))) |