[Emacs-diffs] Changes to emacs/lisp/progmodes/compile.el,v

[Michael Albinus]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Michael Albinus <albinus>       07/07/24 20:49:18

Index: progmodes/compile.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/progmodes/compile.el,v
retrieving revision 1.433
retrieving revision 1.434
diff -u -b -r1.433 -r1.434
--- progmodes/compile.el        20 Jul 2007 20:25:32 -0000      1.433
+++ progmodes/compile.el        24 Jul 2007 20:49:18 -0000      1.434
@@ -1101,8 +1101,7 @@
              (unless (getenv "EMACS")
                (list "EMACS=t"))
              (list "INSIDE_EMACS=t")
-             (copy-sequence process-environment)))
-           (start-process (symbol-function 'start-process)))
+             (copy-sequence process-environment))))
        (set (make-local-variable 'compilation-arguments)
             (list command mode name-function highlight-regexp))
        (set (make-local-variable 'revert-buffer-function)
@@ -1123,22 +1122,14 @@
                   ;; comint uses `start-file-process'.
                   (get-buffer-process
                    (with-no-warnings
-                     (comint-exec outbuf (downcase mode-name)
-                                  shell-file-name nil `("-c" ,command))))
-                ;; Redefine temporarily `start-process' in order to
-                ;; handle remote compilation.
-                (fset 'start-process
-                      (lambda (name buffer program &rest program-args)
-                        (apply
+                     (comint-exec
+                      outbuf (downcase mode-name)
                          (if (file-remote-p default-directory)
-                             'start-file-process
-                           start-process)
-                         name buffer program program-args)))
-                (unwind-protect
-                    (start-process-shell-command (downcase mode-name)
-                                                 outbuf command)
-                  ;; Unwindform: Reset original definition of `start-process'.
-                  (fset 'start-process start-process)))))
+                          "/bin/sh"
+                        shell-file-name)
+                      `("-c" ,command))))
+                (start-file-process-shell-command (downcase mode-name)
+                                                  outbuf command))))
          ;; Make the buffer's mode line show process state.
          (setq mode-line-process '(":%s"))
          (set-process-sentinel proc 'compilation-sentinel)