# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 898381531 0
# Node ID ab25969db484861041849ab6e7e0bdfbbc6186d6
# Parent  6d2e22a169529be9c6ba6ce24c92133c65f5f983
(occur): Set buffer-read-only.

diff -r 6d2e22a16952 -r ab25969db484 lisp/replace.el
--- a/lisp/replace.el	Sat Jun 20 22:17:48 1998 +0000
+++ b/lisp/replace.el	Sat Jun 20 22:25:31 1998 +0000
@@ -622,7 +622,8 @@
 		     (format "%d lines" occur-num-matches))))
 	      (insert message-string)
 	      (if (interactive-p)
-		  (message "%s matched" message-string)))))))))
+		  (message "%s matched" message-string)))
+	    (setq buffer-read-only t)))))))
 
 ;; It would be nice to use \\[...], but there is no reasonable way
 ;; to make that display both SPC and Y.