[Emacs-diffs] Changes to emacs/lisp/simple.el

[Kim F. Storm]

Index: emacs/lisp/simple.el
diff -c emacs/lisp/simple.el:1.584 emacs/lisp/simple.el:1.585
*** emacs/lisp/simple.el:1.584  Tue Jan  7 14:25:20 2003
--- emacs/lisp/simple.el        Tue Jan 14 05:16:00 2003
***************
*** 4106,4112 ****
                (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))))
                  (apply 'make-network-process args))
              (apply 'start-process newname
                     (if (process-buffer process) (current-buffer))
--- 4106,4113 ----
                (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))))
                  (apply 'make-network-process args))
              (apply 'start-process newname
                     (if (process-buffer process) (current-buffer))
***************
*** 4117,4122 ****
--- 4118,4124 ----
         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'):