From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 30 Dec 2001 19:37:47 +0000 (+0000)
Subject: (query-replace-read-args): Immediate error if read-only.
X-Git-Tag: ttn-vms-21-2-B4~17404
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3e5c509173425e0ea24de7d2522841d5e6feae80;p=emacs.git

(query-replace-read-args): Immediate error if read-only.
---

diff --git a/lisp/replace.el b/lisp/replace.el
index 28e0d06f720..474e6158e87 100644
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -63,6 +63,7 @@ strings or patterns."
   :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)))