changeset 4757:c21680a58d1e

(compile-internal): Back out jimb change of making buffer read-only. It is non-ergonomic.
author Brian Fox <bfox@gnu.org>
date Tue, 21 Sep 1993 07:00:37 +0000
parents 1079bcdb68b4
children 9331a313e498
files lisp/progmodes/compile.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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