Mercurial > emacs
changeset 712:16823e891d56
*** empty log message ***
| author | Eric S. Raymond <esr@snark.thyrsus.com> |
|---|---|
| date | Thu, 11 Jun 1992 02:31:08 +0000 |
| parents | 22b98190b7ef |
| children | 9d04c281a9bd |
| files | lisp/progmodes/compile.el |
| diffstat | 1 files changed, 6 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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