From: Karl Heuer <kwzh@gnu.org>
Date: Sat, 20 Jun 1998 22:25:31 +0000 (+0000)
Subject: (occur): Set buffer-read-only.
X-Git-Tag: emacs-20.3~548
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5ddf4bdac08268def3cb46c6bc1f0178e60c4882;p=emacs.git

(occur): Set buffer-read-only.
---

diff --git a/lisp/replace.el b/lisp/replace.el
index e82eb3bdafb..29ca29384e8 100644
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -622,7 +622,8 @@ the matching is case-sensitive."
 		     (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.