From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 14 Feb 1995 14:23:49 +0000 (+0000)
Subject: (Fstart_process): Make process marker point into proc buf.
X-Git-Tag: emacs-19.34~5114
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7af71e17c1d0b1614e1aaf1ba4e0d249323c5378;p=emacs.git

(Fstart_process): Make process marker point into proc buf.
---

diff --git a/src/process.c b/src/process.c
index 3f93cd807eb..67d1609ad9d 100644
--- a/src/process.c
+++ b/src/process.c
@@ -1035,9 +1035,9 @@ Remaining arguments are strings to give program as arguments.")
 
     GCPRO2 (buffer, current_dir);
 
-    current_dir = 
-      expand_and_dir_to_file
-	(Funhandled_file_name_directory (current_dir), Qnil);
+    current_dir 
+      = expand_and_dir_to_file (Funhandled_file_name_directory (current_dir),
+				Qnil);
     if (NILP (Ffile_accessible_directory_p (current_dir)))
       report_file_error ("Setting current directory",
 			 Fcons (current_buffer->directory, Qnil));
@@ -1117,6 +1117,11 @@ Remaining arguments are strings to give program as arguments.")
   XPROCESS (proc)->filter = Qnil;
   XPROCESS (proc)->command = Flist (nargs - 2, args + 2);
 
+  /* Make the process marker point into the process buffer (if any).  */
+  if (!NILP (buffer))
+    Fset_marker (XPROCESS (proc)->mark,
+		 make_number (BUF_ZV (XBUFFER (buffer))), buffer);
+
   create_process (proc, new_argv, current_dir);
 
   return unbind_to (count, proc);