From df63cd6f2c5fecf735bfe36707869cc33d45c8a7 Mon Sep 17 00:00:00 2001 From: "Eric S. Raymond" Date: Thu, 11 Jun 1992 02:31:08 +0000 Subject: *** empty log message *** --- lisp/progmodes/compile.el | 8 ++++++-- 1 file 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 -- cgit v1.2.1