# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1009741067 0
# Node ID db303f307b7aad24a557eaba412b24d38983625f
# Parent  3bdd1146412434de3b9d5cb07694ca9bc7d96d41
(query-replace-read-args): Immediate error if read-only.

diff -r 3bdd11464124 -r db303f307b7a lisp/replace.el
--- a/lisp/replace.el	Sun Dec 30 19:33:13 2001 +0000
+++ b/lisp/replace.el	Sun Dec 30 19:37:47 2001 +0000
@@ -63,6 +63,7 @@
   :version "21.3")
 
 (defun query-replace-read-args (string regexp-flag)
+  (barf-if-buffer-read-only)
   (let (from to)
     (if query-replace-interactive
 	(setq from (car (if regexp-flag regexp-search-ring search-ring)))