# HG changeset patch
# User Brian Fox <bfox@gnu.org>
# Date 748594837 0
# Node ID c21680a58d1ec48e67e33cdab2599fe1413d0f1a
# Parent  1079bcdb68b4103e6f77ca9cc8d7333f43b5e717
(compile-internal): Back out jimb change of making buffer read-only.  It
is non-ergonomic.

diff -r 1079bcdb68b4 -r c21680a58d1e lisp/progmodes/compile.el
--- a/lisp/progmodes/compile.el	Tue Sep 21 06:51:15 1993 +0000
+++ b/lisp/progmodes/compile.el	Tue Sep 21 07:00:37 1993 +0000
@@ -313,7 +313,7 @@
 	(set-buffer outbuf)
 	(compilation-mode)
 	(buffer-disable-undo (current-buffer))
-	(setq buffer-read-only t)
+	;; (setq buffer-read-only t)  ;;; Non-ergonomic.
 	(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)
@@ -614,7 +614,7 @@
 	     (or (not limit-search)
 		 (> compilation-parsing-end limit-search))
 	     (or (not find-at-least)
-		 (> (length compilation-error-list) find-at-least)))
+		 (>= (length compilation-error-list) find-at-least)))
 	;; Since compilation-error-list is non-nil, it points to a specific
 	;; error the user wanted.  So don't move it around.
 	nil