(defcustom ps-mode-print-function
(lambda ()
(let ((lpr-switches nil)
- (lpr-command (if (memq system-type '(usg-unix-v hpux irix))
+ (lpr-command (if (memq system-type '(usg-unix-v hpux))
"lp" "lpr")))
(lpr-buffer)))
"Lisp function to print current buffer as PostScript."
(goto-char (max 1 (1- (point)))))
(when (looking-at "[0-9]")
(forward-char 1)
- (forward-word -1)
+ (forward-word-strictly -1)
(when (looking-at "[0-9]+")
(let (i)
(setq