# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1042539360 0
# Node ID b03a9c5373560474709307a99779572bf0a37ce0
# Parent  98b5c90cebb6410a9e91000193907dc850acb787
(clone-process): Copy process' plist to new process.

diff -r 98b5c90cebb6 -r b03a9c537356 lisp/simple.el
--- a/lisp/simple.el	Tue Jan 14 10:15:40 2003 +0000
+++ b/lisp/simple.el	Tue Jan 14 10:16:00 2003 +0000
@@ -4106,7 +4106,8 @@
 		(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 @@
        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'):