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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7b3fb57d7d0851adc2c812098be41a9c0dc05dd4..b61e1dd0a61c00b8666b8d1b722d252f9e91846c 100644 (file)
--- 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 e307f56caacf9a440e74cfe9c7230af8e4f0f561..e9bd75b9f88547c286bcd3c3ae06c7e111ab5f8a 100644 (file)
--- 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