From 403ca8d9a7937b68bc93c2230f8bed2f243584d5 Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Tue, 14 Jan 2003 10:16:00 +0000 Subject: [PATCH] (clone-process): Copy process' plist to new process. --- lisp/simple.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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'): -- 2.39.2