[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/10 19:52:11

Index: progmodes/compile.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/progmodes/compile.el,v
retrieving revision 1.429
retrieving revision 1.430
diff -u -b -r1.429 -r1.430
--- progmodes/compile.el        10 Jul 2007 16:01:23 -0000      1.429
+++ progmodes/compile.el        10 Jul 2007 19:52:11 -0000      1.430
@@ -1098,8 +1098,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)
@@ -1114,23 +1113,12 @@
        (if compilation-process-setup-function
            (funcall compilation-process-setup-function))
        (compilation-set-window-height outwin)
-       ;; Redefine temporarily `start-process' in order to handle
-       ;; remote compilation.
-       (fset 'start-process
-             (lambda (name buffer program &rest program-args)
-               (apply
-                (if (file-remote-p default-directory)
-                    'start-file-process
-                  start-process)
-                name buffer program program-args)))
        ;; Start the compilation.
-       (unwind-protect
            (let ((proc (if (eq mode t)
                            (get-buffer-process
                             (with-no-warnings
                               (comint-exec outbuf (downcase mode-name)
-                                           shell-file-name nil
-                                           `("-c" ,command))))
+                                       shell-file-name nil `("-c" ,command))))
                          (start-process-shell-command (downcase mode-name)
                                                       outbuf command))))
              ;; Make the buffer's mode line show process state.
@@ -1144,9 +1132,7 @@
                   ;; The process may have exited already.
                   (error nil)))
              (setq compilation-in-progress
-                   (cons proc compilation-in-progress)))
-         ;; Unwindform: Reset original definition of `start-process'
-         (fset 'start-process start-process)))
+               (cons proc compilation-in-progress))))
       ;; Now finally cd to where the shell started make/grep/...
       (setq default-directory thisdir))
     (if (buffer-local-value 'compilation-scroll-output outbuf)