From a72ba9295c622f71da2b7524f14ca4d9dd7f5106 Mon Sep 17 00:00:00 2001 From: Brian Fox Date: Tue, 21 Sep 1993 07:00:37 +0000 Subject: [PATCH] (compile-internal): Back out jimb change of making buffer read-only. It is non-ergonomic. --- lisp/progmodes/compile.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index 752d278033c..b4fbc4c29a5 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el @@ -313,7 +313,7 @@ Returns the compilation buffer created." (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 @@ Does NOT find the source line like \\[next-error]." (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 -- 2.39.5