# HG changeset patch
# User Eric S. Raymond <esr@snark.thyrsus.com>
# Date 708229868 0
# Node ID 16823e891d562d536c3b6361899c467ccb514e70
# Parent  22b98190b7ef1a66f736c46f15d3fbf944397060
*** empty log message ***

diff -r 22b98190b7ef -r 16823e891d56 lisp/progmodes/compile.el
--- a/lisp/progmodes/compile.el	Wed Jun 10 21:41:54 1992 +0000
+++ b/lisp/progmodes/compile.el	Thu Jun 11 02:31:08 1992 +0000
@@ -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 @@
       (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 @@
   (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 @@
 (define-key ctl-x-map "`" 'next-error)
 
 (provide 'compile)
+
+;;; compile.el ends here