diff src/callproc.c @ 648:70b112526394

*** empty log message ***

--- a/src/callproc.c	Mon May 18 08:13:37 1992 +0000
+++ b/src/callproc.c	Mon May 18 08:14:41 1992 +0000
@@ -125,25 +125,29 @@
       CHECK_STRING (infile, 1);
     }
   else
+#ifdef VMS
+    infile = build_string ("NLA0:");
+#else
     infile = build_string ("/dev/null");
+#endif /* not VMS */
+
+  if (nargs >= 3)
+    {
+      register Lisp_Object tem;
 
-  {
-    register Lisp_Object tem;
-    if (nargs < 3)
-      buffer = Qnil;
-    else 
-      {
-	buffer = tem = args[2];
-	if (!(EQ (tem, Qnil) || EQ (tem, Qt)
-	      || XFASTINT (tem) == 0))
-	  {
-	    buffer = Fget_buffer (tem);
-	    CHECK_BUFFER (buffer, 2);
-	  }
-      }
-  }
+      buffer = tem = args[2];
+      if (!(EQ (tem, Qnil)
+	    || EQ (tem, Qt)
+	    || XFASTINT (tem) == 0))
+	{
+	  buffer = Fget_buffer (tem);
+	  CHECK_BUFFER (buffer, 2);
+	}
+    }
+  else 
+    buffer = Qnil;
 
-  display = nargs >= 3 ? args[3] : Qnil;
+  display = nargs >= 4 ? args[3] : Qnil;
 
   {
     register int i;