🚀 go-pugleaf

In article <1990Dec31.101727.1@nerus.pfc.mit.edu>, mrl@nerus.pfc.mit.edu writes...
>Is it possible to use the print-buffer command under VMS?  Presently, it
>tries to use the LPR.EL procedure which is for UNIX.  Is there an equivalent
>LPR.EL for VMS?  Thanks.
>							Mark

I use the following to make print-buffer and print-region work. 

Change VMS-print-command to suit your tastes.

-marc


(load-library "lpr")

(defvar VMS-print-command
  "print/delete/para=(lay=lps$singleholes)/queue=$printer_1 "
  "*Command used to print on VMS. The /delete qualifier is important.")

(defun print-region-1 (start end switches)
  "Nozell's print region 1"
  (let ((name (concat (buffer-name) " Emacs buffer"))
	(width tab-width))
    (save-excursion
      (message "Spooling...")
      (if (/= tab-width 8)
	  (let ((oldbuf (current-buffer)))
	    (set-buffer (get-buffer-create " *spool temp*"))
	    (widen) 
	    (erase-buffer)
	    (insert-buffer-substring oldbuf start end)
	    (setq tab-width width)
	    (untabify (point-min) (point-max))
	    (setq start (point-min) end (point-max))))
      (setq nozbuf (get-buffer-create "*print file*"))
      (copy-to-buffer "*print file*" start end)
      (set-buffer nozbuf)
      (write-file "sys$login:delete-me.txt")
      (send-command-to-subprocess 1 
				  (concat  VMS-print-command " sys$login:delete-me.txt/name=""GNUprintbuffer""")
				  )
      (message (concat "Spooling " (buffer-file-name) "..."))
      (kill-buffer "delete-me.txt")
      (message "Spooling...done"))))



---

Marc Nozell				nozell@star.enet.dec.com
VMS Development				nozell%star.enet.dec@decwrl.dec.com
System Management Engineering Group	decwrl!star.enet.dec.com!nozell
Digital Equipment Corp			42 49 N / 71 31 W
110 Spit Brook Road ZK03-2/Y05, Nashua NH 03063
The views expressed are my own.