query-replace-regexp and read-only text properties (Was: wdired and query-replace)

[David Hansen]

Seems this has nothing to do with wdired.el.  Eval this

(progn
  (with-current-buffer (get-buffer-create "*query-replace-bug*")
    (save-excursion
      (insert "foo foo \nfoo foo \n")
      (goto-char (point-min))
      (put-text-property (point-at-bol) (+ 3 (point-at-bol)) 'read-only t)
      (next-line)
      (put-text-property (point-at-bol) (+ 3 (point-at-bol)) 'read-only t)
      (set (make-local-variable 'query-replace-skip-read-only) t)))
  (pop-to-buffer (get-buffer "*query-replace-bug*")))

and

C-M-% foo  RET bar  RET
!

(Note again that it's "foo " and not "foo").

Only the first non read-only "foo " gets replaced.

David