From: Kim F. Storm <storm@cua.dk>
Date: Tue, 14 Jan 2003 10:16:00 +0000 (+0000)
Subject: (clone-process): Copy process' plist to new process.
X-Git-Tag: ttn-vms-21-2-B4~11670
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=403ca8d9a7937b68bc93c2230f8bed2f243584d5;p=emacs.git

(clone-process): Copy process' plist to new process.
---

diff --git a/lisp/simple.el b/lisp/simple.el
index 9ed9e2e84d7..fe92a0e367d 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -4106,7 +4106,8 @@ Returns nil if PROCESS has already terminated."
 		(let ((args (process-contact process t)))
 		  (setq args (plist-put args :name newname))
 		  (setq args (plist-put args :buffer
-					(if (process-buffer process) (current-buffer))))
+					(if (process-buffer process)
+					    (current-buffer))))
 		  (apply 'make-network-process args))
 	      (apply 'start-process newname
 		     (if (process-buffer process) (current-buffer))
@@ -4117,6 +4118,7 @@ Returns nil if PROCESS has already terminated."
        new-process (process-inherit-coding-system-flag process))
       (set-process-filter new-process (process-filter process))
       (set-process-sentinel new-process (process-sentinel process))
+      (set-process-plist new-process (copy-sequence (process-plist process)))
       new-process)))
 
 ;; things to maybe add (currently partly covered by `funcall mode'):