mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

*** empty log message ***

Browse Source
This commit is contained in:
Jim Blandy 1991-01-02 23:33:51 +00:00
parent d6c7e99a9c
commit 86581d9680
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/vms-patch.el
View File

@ -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)))