From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 23 Dec 1993 02:00:55 +0000 (+0000)
Subject: (Fcall_process): Call prepare_menu_bars.
X-Git-Tag: emacs-19.34~10599
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=696810ff0a618e781158efd8c9dfc3cf25b83ddc;p=emacs.git

(Fcall_process): Call prepare_menu_bars.
---

diff --git a/src/vmsproc.c b/src/vmsproc.c
index fff0aec6d60..777ae61876e 100644
--- a/src/vmsproc.c
+++ b/src/vmsproc.c
@@ -573,6 +573,9 @@ if you quit, the process is killed.")
       return Qnil;
     }
 
+  if (!NILP (display) && INTERACTIVE)
+    prepare_menu_bars ();
+
   record_unwind_protect (call_process_cleanup,
 			 Fcons (make_number (fd[0]), make_number (pid)));
 
@@ -604,9 +607,10 @@ if you quit, the process is killed.")
       else
 	break;
     }
-    sys$dassgn (inchannel);
-    sys$dassgn (outchannel);
-    give_back_vms_process_stuff (vs);
+
+  sys$dassgn (inchannel);
+  sys$dassgn (outchannel);
+  give_back_vms_process_stuff (vs);
 
   /* Wait for it to terminate, unless it already has.  */
   wait_for_termination (pid);