Mercurial > emacs
changeset 23138:14e74d2a49cb
(ps-print-control-characters): Doc-string modified.
(ps-output-string-prim): Comment format changed.
(ps-do-despool): Indentation of source code changed.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Fri, 28 Aug 1998 12:33:52 +0000 |
| parents | fed2ba47003f |
| children | bdfd64faa90a |
| files | lisp/ps-print.el |
| diffstat | 1 files changed, 15 insertions(+), 10 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ps-print.el Fri Aug 28 12:33:52 1998 +0000 +++ b/lisp/ps-print.el Fri Aug 28 12:33:52 1998 +0000 @@ -502,7 +502,7 @@ ;; 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 @@ ;; 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 @@ (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 @@ (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 @@ (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 @@ (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)))