*scratch*.el

;; This is a bad idea.

(defun restart-process (process)
  (let ((name (process-name process))
        (buffer (process-buffer process))
        (program-and-args (process-command process))
        (sentinel (process-sentinel process))
        (filter (process-filter process))
        (new-process))
    (with-current-buffer buffer
      (set-process-sentinel process nil)
      (delete-process process)
      (setq new-process (apply #'start-process
                               name buffer program-and-args))
      (set-process-sentinel new-process sentinel)
      (set-process-filter new-process filter)
      (mapatoms (lambda (sym)
                  (ignore-errors
                    (when (equal (symbol-value sym)
                                 process)
                      (set sym new-process))))))))