Mercurial > emacs

comparison lisp/progmodes/compile.el @ 5456:b34aaec781fc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(compile-internal): Extended to work without asynchronous subprocesses.
author Richard M. Stallman <rms@gnu.org>
date Thu, 06 Jan 1994 04:33:55 +0000
parents d9a58377567c
children ed690a728e13
comparison
equal deleted inserted replaced
5455:cbc904743f16 5456:b34aaec781fc
347 (select-window outwin) 347 (select-window outwin)
348 (enlarge-window (- compilation-window-height 348 (enlarge-window (- compilation-window-height
349 (window-height)))) 349 (window-height))))
350 (select-window w)))) 350 (select-window w))))
351 ;; Start the compilation. 351 ;; Start the compilation.
352 (let ((proc (start-process-shell-command (downcase mode-name) 352 (if (fboundp 'start-process)
353 outbuf 353 (let ((proc (start-process-shell-command (downcase mode-name)
354 command))) 354 outbuf
355 (set-process-sentinel proc 'compilation-sentinel) 355 command)))
356 (set-process-filter proc 'compilation-filter) 356 (set-process-sentinel proc 'compilation-sentinel)
357 (set-marker (process-mark proc) (point) outbuf) 357 (set-process-filter proc 'compilation-filter)
358 (setq compilation-in-progress (cons proc compilation-in-progress))))) 358 (set-marker (process-mark proc) (point) outbuf)
359 (setq compilation-in-progress
360 (cons proc compilation-in-progress)))
361 ;; No asynchronous processes available
362 (message (format "Executing `%s'..." command))
363 (let ((status (call-process shell-file-name nil outbuf nil "-c"
364 command))))
365 (message (format "Executing `%s'...done" command)))))
359 ;; Make it so the next C-x ` will use this buffer. 366 ;; Make it so the next C-x ` will use this buffer.
360 (setq compilation-last-buffer outbuf))) 367 (setq compilation-last-buffer outbuf)))
361 368
362 (defvar compilation-minor-mode-map 369 (defvar compilation-minor-mode-map
363 (let ((map (make-sparse-keymap))) 370 (let ((map (make-sparse-keymap)))