From xemacs-m  Thu Jan 16 13:13:18 1997
Received: from newman (root@newman.aventail.com [38.225.141.10])
          by xemacs.org (8.8.4/8.8.4) with SMTP
	  id NAA29498 for <xemacs-beta@xemacs.org>; Thu, 16 Jan 1997 13:13:17 -0600 (CST)
Received: from kramer.in.aventail.com.aventail.com (wmperry@kramer [192.168.1.12]) by newman (8.6.12/8.6.9) with SMTP id LAA32555 for <xemacs-beta@xemacs.org>; Thu, 16 Jan 1997 11:11:54 -0800
Date: Thu, 16 Jan 1997 11:11:54 -0800
Message-Id: <199701161911.LAA32555@newman>
From: "William M. Perry" <wmperry@aventail.com>
To: xemacs-beta@xemacs.org
Subject: PostScript output...
Errors-to: wmperry@aventail.com
Reply-to: wmperry@aventail.com
X-Face: O~Rn;(l][/-o1sALg4A@xpE:9-"'IR[%;,,!m7</SYF`{vYQ(&RI1&EiH[FvT;J}@f!4kfz
 x_!Y#=y{Uuj9GvUi=cPuajQ(Z42R[wE@{G,sn$qGr5g/wnb*"*ktI+,CD}1Z'wxrM2ag-r0p5I6\nA
 [WJopW_J.WY;

Hey, why don't we have a 'postscript' device class?  This would kick ass
for printing.  Just:

(defun cool-print (buffer)
   (let ((old-message (symbol-function 'message))
         (old-dev (selected-device))
         (dev (make-device 'postscript "/path/to/file/to/save.ps")))
      (fset 'message 'ignore)
      (select-device dev)
      (display-buffer buffer) ; send the entire buffer to the device
      (select-device old-dev)
      (delete-device dev) ; This would close the file
      (fset 'message old-message)))

-Bill P.

