Mercurial > emacs
comparison src/callproc.c @ 648:70b112526394
*** empty log message ***
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Mon, 18 May 1992 08:14:41 +0000 |
| parents | 40b255f55df3 |
| children | 012c1f6e9e7d |
comparison
equal
deleted
inserted
replaced
| 647:529171c8b71c | 648:70b112526394 |
|---|---|
| 123 { | 123 { |
| 124 infile = Fexpand_file_name (args[1], current_buffer->directory); | 124 infile = Fexpand_file_name (args[1], current_buffer->directory); |
| 125 CHECK_STRING (infile, 1); | 125 CHECK_STRING (infile, 1); |
| 126 } | 126 } |
| 127 else | 127 else |
| 128 #ifdef VMS | |
| 129 infile = build_string ("NLA0:"); | |
| 130 #else | |
| 128 infile = build_string ("/dev/null"); | 131 infile = build_string ("/dev/null"); |
| 129 | 132 #endif /* not VMS */ |
| 130 { | 133 |
| 131 register Lisp_Object tem; | 134 if (nargs >= 3) |
| 132 if (nargs < 3) | 135 { |
| 133 buffer = Qnil; | 136 register Lisp_Object tem; |
| 134 else | 137 |
| 135 { | 138 buffer = tem = args[2]; |
| 136 buffer = tem = args[2]; | 139 if (!(EQ (tem, Qnil) |
| 137 if (!(EQ (tem, Qnil) || EQ (tem, Qt) | 140 || EQ (tem, Qt) |
| 138 || XFASTINT (tem) == 0)) | 141 || XFASTINT (tem) == 0)) |
| 139 { | 142 { |
| 140 buffer = Fget_buffer (tem); | 143 buffer = Fget_buffer (tem); |
| 141 CHECK_BUFFER (buffer, 2); | 144 CHECK_BUFFER (buffer, 2); |
| 142 } | 145 } |
| 143 } | 146 } |
| 144 } | 147 else |
| 145 | 148 buffer = Qnil; |
| 146 display = nargs >= 3 ? args[3] : Qnil; | 149 |
| 150 display = nargs >= 4 ? args[3] : Qnil; | |
| 147 | 151 |
| 148 { | 152 { |
| 149 register int i; | 153 register int i; |
| 150 for (i = 4; i < nargs; i++) | 154 for (i = 4; i < nargs; i++) |
| 151 { | 155 { |