From 5ddf4bdac08268def3cb46c6bc1f0178e60c4882 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Sat, 20 Jun 1998 22:25:31 +0000 Subject: [PATCH] (occur): Set buffer-read-only. --- lisp/replace.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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. -- 2.39.5