From: Jim Blandy <jimb@redhat.com>
Date: Wed, 2 Jan 1991 23:33:51 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Tag: emacs-19.34~15668
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=86581d9680f9d645fed687e59f9522e2c005d62a;p=emacs.git

*** empty log message ***
---

diff --git a/lisp/vms-patch.el b/lisp/vms-patch.el
index 1e173e897e6..15302b3fd90 100644
--- a/lisp/vms-patch.el
+++ b/lisp/vms-patch.el
@@ -97,3 +97,13 @@ If the logical name `EMACS_FILE_NAME' is defined, `find-file' that file."
 
 (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)))