# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 662859231 0
# Node ID 29a528f7868122cc519dee3add1564879b287398
# Parent  5dfb6532c1b12292ae791ac2cba1da0980beb89c
*** empty log message ***

diff -r 5dfb6532c1b1 -r 29a528f78681 lisp/vms-patch.el
--- a/lisp/vms-patch.el	Wed Jan 02 23:29:10 1991 +0000
+++ b/lisp/vms-patch.el	Wed Jan 02 23:33:51 1991 +0000
@@ -97,3 +97,13 @@
 
 (setq dired-listing-switches
       "/SIZE/DATE/OWNER/WIDTH=(FILENAME=32,SIZE=5)")
+
+(setq print-region-function
+      '(lambda (start end command ign1 ign2 ign3 &rest switches)
+	 (write-region start end "sys$login:delete-me.txt")
+	 (send-command-to-subprocess
+	  1
+	  (concat command
+		  " sys$login:delete-me.txt/name=""GNUprintbuffer"" "
+		  (mapconcat 'identity switches " "))
+	  nil nil nil)))