Function: ps-output-string-prim

ps-output-string-prim is a byte-compiled function defined in ps-print.el.gz.

Signature

(ps-output-string-prim STRING)

Source Code

;; Defined in /usr/src/emacs/lisp/ps-print.el.gz
(defsubst ps-output-string-prim (string)
  (insert "(")				;insert start-string delimiter
  (save-excursion			;insert string
    (insert (if (multibyte-string-p string)
                (encode-coding-string string 'utf-8)
              string)))
  ;; Find and quote special characters as necessary for PS
  ;; This skips everything except control chars, non-ASCII chars, (, ) and \.
  (while (progn (skip-chars-forward " -'*-[]-~") (not (eobp)))
    (let ((special (following-char)))
      (delete-char 1)
      (insert
       (if (and (<= 0 special) (<= special 255))
	   (aref ps-string-escape-codes special)
	 ;; insert hexadecimal representation if character code is out of range
	 (format "\\%04X" special)
	 ))))
  (goto-char (point-max))
  (insert ")"))				;insert end-string delimiter