condition-case affecting read-only text

[Alex Schroeder]

I have difficulties formulating...  Therefore, consider this:

(with-temp-buffer
  (insert "XXX")
  (put-text-property (point-min) (point-max) 'read-only t)
  (goto-char (point-min))
  (re-search-forward "X")
  (replace-match "-")
  (buffer-substring-no-properties (point-min) (point-max)))

An error is raised.  Great.

Now, consider this:

(with-temp-buffer
  (insert "XXX")
  (put-text-property (point-min) (point-max) 'read-only t)
  (goto-char (point-min))
  (re-search-forward "X")
  (condition-case nil
      (replace-match "-")
    (error))
  (buffer-substring-no-properties (point-min) (point-max)))

The replace-match will insert a hyphen eventhough the entire buffer is
marked read-only.  I expect there to be no error, but I also expect
there to be no modification to the buffer content.  This is a bug.

Alex.