From 3e5c509173425e0ea24de7d2522841d5e6feae80 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 30 Dec 2001 19:37:47 +0000 Subject: [PATCH] (query-replace-read-args): Immediate error if read-only. --- lisp/replace.el | 1 + 1 file changed, 1 insertion(+) 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))) -- 2.39.5