Lines Matching defs:ps
73 (defvar ps-printer-name)
74 (defvar ps-lpr-command)
151 (ps-ypos 63)
157 (ps-buf-name) ;name of the PostScript buffer
173 (setq ps-buf-name
174 (format "*handwritten%d.ps*" handwrite-psindex))
176 (switch-to-buffer ps-buf-name)
202 (switch-to-buffer ps-buf-name)
205 (setq ps-ypos (+ ps-ypos handwrite-linespace))
220 (setq ps-ypos 63)
222 (insert "44 " (number-to-string ps-ypos) " m\n")
228 (switch-to-buffer ps-buf-name)
240 (require 'ps-print)
242 (ps-printer-name (or ps-printer-name
245 (ps-lpr-switches
246 (if (stringp ps-printer-name)
247 (list (concat "-P" ps-printer-name)))))
248 (apply (or (and (boundp 'ps-print-region-function)
249 ps-print-region-function)
251 (point-min) (point-max) ps-lpr-command nil nil nil))))