diff options
| author | Eric S. Raymond <esr@snark.thyrsus.com> | 1992-06-11 02:31:08 +0000 |
|---|---|---|
| committer | Eric S. Raymond <esr@snark.thyrsus.com> | 1992-06-11 02:31:08 +0000 |
| commit | df63cd6f2c5fecf735bfe36707869cc33d45c8a7 (patch) | |
| tree | 9b9f094ab4803af9fb31b71821eafab7fd956883 | |
| parent | c4f4f759128f09dc17a761964ecedae85fbc091f (diff) | |
| download | emacs-df63cd6f2c5fecf735bfe36707869cc33d45c8a7.tar.gz | |
*** empty log message ***
| -rw-r--r-- | lisp/progmodes/compile.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index 48e061c3481..a71ac512dd4 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el @@ -1,5 +1,7 @@ +;;; compile.el --- run compiler as inferior of Emacs, and parse its error messages. + ;;;!!! dup removal is broken. -;; Run compiler as inferior of Emacs, and parse its error messages. + ;; Copyright (C) 1985-1991 Free Software Foundation, Inc. ;; This file is part of GNU Emacs. @@ -266,6 +268,7 @@ means the default). The defaults for these variables are the global values of (setq outwin (display-buffer outbuf)) (set-buffer outbuf) (compilation-mode) + (buffer-disable-undo (current-buffer)) (set (make-local-variable 'compilation-parse-errors-function) parser) (set (make-local-variable 'compilation-error-message) error-message) (set (make-local-variable 'compilation-error-regexp-alist) regexp-alist) @@ -309,7 +312,6 @@ Runs `compilation-mode-hook' with `run-hooks' (which see)." (interactive) (fundamental-mode) (use-local-map compilation-mode-map) - (buffer-disable-undo (current-buffer)) (setq major-mode 'compilation-mode) (setq mode-name "Compilation") ;; Make buffer's mode line show process state @@ -804,3 +806,5 @@ See variable `compilation-parse-errors-function' for the interface it uses." (define-key ctl-x-map "`" 'next-error) (provide 'compile) + +;;; compile.el ends here |