(occur): Bind inhibit-read-only to t.

2 files changed, 7 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7b3fb57d7d0..b61e1dd0a61 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2001-08-16  Gerd Moellmann  <gerd@gnu.org>
+
+        * replace.el (occur): Bind inhibit-read-only to t.
+
 2001-08-16  Miles Bader  <miles@gnu.org>
 
         * simple.el (line-move): Pass an ESCAPE-FROM-EDGE argument of t
@@ -18,6 +22,8 @@
         * Makefile.in (finder_setwins): Renamed from nonobsolete_setwins.
         Don't include term/.
 
+        * mail/sc.el:  Moved to obsolete/.
+
 2001-08-14  Vinicius Jose Latorre  <vinicius@cpqd.com.br>
 
         * ps-print.el: Change error function arguments to follow Emacs
diff --git a/lisp/replace.el b/lisp/replace.el
index e307f56caac..e9bd75b9f88 100644
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -568,6 +568,7 @@ the matching is case-sensitive."
                      (prefix-numeric-value nlines)
                    list-matching-lines-default-context-lines))
          (current-tab-width tab-width)
+         (inhibit-read-only t)
          ;; Minimum width of line number plus trailing colon.
          (min-line-number-width 6)
          ;; Width of line number prefix without the colon.  Choose a