[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/progmodes/compile.el,v
From: |
Michael Albinus |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/progmodes/compile.el,v |
Date: |
Tue, 10 Jul 2007 19:52:13 +0000 |
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)
- [Emacs-diffs] Changes to emacs/lisp/progmodes/compile.el,v, Michael Albinus, 2007/07/08
- [Emacs-diffs] Changes to emacs/lisp/progmodes/compile.el,v, Stefan Monnier, 2007/07/10
- [Emacs-diffs] Changes to emacs/lisp/progmodes/compile.el,v,
Michael Albinus <=
- [Emacs-diffs] Changes to emacs/lisp/progmodes/compile.el,v, Michael Albinus, 2007/07/11
- [Emacs-diffs] Changes to emacs/lisp/progmodes/compile.el,v, Stefan Monnier, 2007/07/20
- [Emacs-diffs] Changes to emacs/lisp/progmodes/compile.el,v, Dan Nicolaescu, 2007/07/20
- [Emacs-diffs] Changes to emacs/lisp/progmodes/compile.el,v, Michael Albinus, 2007/07/24
- [Emacs-diffs] Changes to emacs/lisp/progmodes/compile.el,v, Stefan Monnier, 2007/07/25
- [Emacs-diffs] Changes to emacs/lisp/progmodes/compile.el,v, Miles Bader, 2007/07/26
- [Emacs-diffs] Changes to emacs/lisp/progmodes/compile.el,v, Stefan Monnier, 2007/07/30