mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-03 11:33:37 +00:00
Code Issues Releases Activity

*** empty log message ***

Browse Source
This commit is contained in:
Eric S. Raymond 1992-06-11 02:31:08 +00:00
parent 08b684de7c
commit fad160d5e1
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/progmodes/compile.el
View File

@ -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