Mercurial > emacs

changeset 49227:b03a9c537356

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(clone-process): Copy process' plist to new process.
author Kim F. Storm <storm@cua.dk>
date Tue, 14 Jan 2003 10:16:00 +0000
parents 98b5c90cebb6
children ac42843384b3
files lisp/simple.el
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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'):