Mercurial > emacs

diff lisp/replace.el @ 22531:ab25969db484

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(occur): Set buffer-read-only.
author Karl Heuer <kwzh@gnu.org>
date Sat, 20 Jun 1998 22:25:31 +0000
parents 402ebb81ae84
children 043c6a4da2df
line wrap: on
line diff
--- 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.