Mercurial > emacs

changeset 156:29a528f78681

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Jim Blandy <jimb@redhat.com>
date Wed, 02 Jan 1991 23:33:51 +0000
parents 5dfb6532c1b1
children 01ad7ec29c98
files lisp/vms-patch.el
diffstat 1 files changed, 10 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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)))