mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Kim F. Storm 2003-01-14 10:16:00 +00:00
parent 63e4e4c6d4
commit 403ca8d9a7
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/simple.el
View File

@ -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'):