diff options
| author | Jim Blandy <jimb@redhat.com> | 1991-01-02 23:33:51 +0000 |
|---|---|---|
| committer | Jim Blandy <jimb@redhat.com> | 1991-01-02 23:33:51 +0000 |
| commit | d4f70862f1937a619b58d786bb2d4b682f63b745 (patch) | |
| tree | 2c0558bd6c6ac61e8a704340a91d0dfb21368227 /lisp/vms-patch.el | |
| parent | 8117e81180b5e76dca0c3bb53368898f1808cec0 (diff) | |
| download | emacs-d4f70862f1937a619b58d786bb2d4b682f63b745.tar.gz | |
*** empty log message ***
Diffstat (limited to 'lisp/vms-patch.el')
| -rw-r--r-- | lisp/vms-patch.el | 10 |
1 files changed, 10 insertions, 0 deletions
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))) |