comparison lisp/ps-print.el @ 23138:14e74d2a49cb

(ps-print-control-characters): Doc-string modified. (ps-output-string-prim): Comment format changed. (ps-do-despool): Indentation of source code changed.

23137:fed2ba47003f

;; 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.
;;
;; The variable `ps-font-size' determines the size (in points)
;; of the font for ordinary text, when generating Postscript.
;; Its value is a float.
;;
;; 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,

;;
;;
;; Acknowledgements
;; ----------------
;;
;; Thanks to Roland Ducournau <[e-mail]> for
;; `ps-print-control-characters' variable documentation.
;;
;; Thanks to Kein'ichi Handa <[e-mail]> for multi-byte buffer handling.
;;
;; Thanks to Marcus G Daniels <[e-mail]> for a better
;; database font management.
;;
;; Thanks to Martin Boyer <[e-mail]> for some ideas on putting one

  :group 'ps-print)

(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.

Valid values are:

  `8-bit'         This is the value to use when you want an ASCII encoding of
                  any control or non-ASCII character.  Control characters are

(defun ps-output-string-prim (string)
  (insert "(")				;insert start-string delimiter
  (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 \.
  (while (progn (skip-chars-forward " -'*-[]-~") (not (eobp)))
    (let ((special (following-char)))
      (delete-char 1)
      (insert (aref ps-string-escape-codes special))))
  (goto-char (point-max))

	(let (safe-marker completed-safely needs-begin-file)
	  (unwind-protect
	      (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.
		(setq safe-marker (make-marker))
		(set-marker safe-marker (point-max))

      (save-excursion
	(set-buffer ps-spool-buffer)
	(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)))
	  (if (and (memq system-type '(ms-dos windows-nt))
		   (or (stringp dos-ps-printer)
		       (stringp ps-printer-name)))
	      (write-region (point-min) (point-max)
			    (if (stringp  dos-ps-printer)

23138:14e74d2a49cb

;; 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.
;;
;; The variable `ps-font-size' determines the size (in points)
;; of the font for ordinary text, when generating PostScript.
;; Its value is a float.
;;
;; 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,

;;
;;
;; Acknowledgements
;; ----------------
;;
;; Thanks to Kein'ichi Handa <[e-mail]> for multi-byte buffer handling.
;;
;; Thanks to Matthew O Persico <[e-mail]> for line number on
;; empty columns.
;;
;; Thanks to Theodore Jump <[e-mail]> for adjust PostScript code order on
;; last page.
;;
;; Thanks to Roland Ducournau <[e-mail]> for
;; `ps-print-control-characters' variable documentation.
;;
;; Thanks to Marcus G Daniels <[e-mail]> for a better
;; database font management.
;;
;; Thanks to Martin Boyer <[e-mail]> for some ideas on putting one

  :group 'ps-print)

(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,
it is sent the string \"^D\".

Valid values are:

  `8-bit'         This is the value to use when you want an ASCII encoding of
                  any control or non-ASCII character.  Control characters are

(defun ps-output-string-prim (string)
  (insert "(")				;insert start-string delimiter
  (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 \.
  (while (progn (skip-chars-forward " -'*-[]-~") (not (eobp)))
    (let ((special (following-char)))
      (delete-char 1)
      (insert (aref ps-string-escape-codes special))))
  (goto-char (point-max))

	(let (safe-marker completed-safely needs-begin-file)
	  (unwind-protect
	      (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.
		(setq safe-marker (make-marker))
		(set-marker safe-marker (point-max))

      (save-excursion
	(set-buffer ps-spool-buffer)
	(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)))
	  (if (and (memq system-type '(ms-dos windows-nt))
		   (or (stringp dos-ps-printer)
		       (stringp ps-printer-name)))
	      (write-region (point-min) (point-max)
			    (if (stringp  dos-ps-printer)