diff options
| author | Jim Blandy | 1991-01-02 23:33:51 +0000 |
|---|---|---|
| committer | Jim Blandy | 1991-01-02 23:33:51 +0000 |
| commit | 86581d9680f9d645fed687e59f9522e2c005d62a (patch) | |
| tree | 2e424c4ac4cd65828e6b1b58f2b873b740260f21 /lisp | |
| parent | d6c7e99a9c19abef6fb3698967ca6e25cb2acbbc (diff) | |
| download | emacs-86581d9680f9d645fed687e59f9522e2c005d62a.tar.gz emacs-86581d9680f9d645fed687e59f9522e2c005d62a.zip | |
*** empty log message ***
Diffstat (limited to 'lisp')
| -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." | |||
| 97 | 97 | ||
| 98 | (setq dired-listing-switches | 98 | (setq dired-listing-switches |
| 99 | "/SIZE/DATE/OWNER/WIDTH=(FILENAME=32,SIZE=5)") | 99 | "/SIZE/DATE/OWNER/WIDTH=(FILENAME=32,SIZE=5)") |
| 100 | |||
| 101 | (setq print-region-function | ||
| 102 | '(lambda (start end command ign1 ign2 ign3 &rest switches) | ||
| 103 | (write-region start end "sys$login:delete-me.txt") | ||
| 104 | (send-command-to-subprocess | ||
| 105 | 1 | ||
| 106 | (concat command | ||
| 107 | " sys$login:delete-me.txt/name=""GNUprintbuffer"" " | ||
| 108 | (mapconcat 'identity switches " ")) | ||
| 109 | nil nil nil))) | ||