Function: ps-control-character

ps-control-character is a byte-compiled function defined in ps-print.el.gz.

Signature

(ps-control-character CHAR)

Source Code

;; Defined in /usr/src/emacs/lisp/ps-print.el.gz
(defun ps-control-character (char)
  (let* ((str (aref ps-string-control-codes char))
	 (from (1- (point)))
	 (len (length str))
	 (to (+ from len))
	 (char-width (ps-avg-char-width 'ps-font-for-text))
	 (wrappoint (ps-find-wrappoint from to char-width)))
    (if (< (car wrappoint) to)
	(ps-continue-line))
    (setq ps-width-remaining (- ps-width-remaining (* len char-width)))
    (ps-output-string str)
    (ps-output " S\n")))