From f2e7b9ef887c547b76fd5cff1a98efbe10e0f345 Mon Sep 17 00:00:00 2001
From: Chong Yidong <cyd@stupidchicken.com>
Date: Fri, 12 Sep 2008 00:37:41 +0000
Subject: [PATCH] (perform-replace): Don't set inhibit-read-only using
 query-replace-skip-read-only (bug#956).

---
 lisp/replace.el | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/lisp/replace.el b/lisp/replace.el
index 086380ffc4c..5efbe417b04 100644
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -1665,8 +1665,7 @@ make, or the user didn't cancel the call."
 		    (funcall (car replacements) (cdr replacements)
 			     replace-count)))
 	    (if (not query-flag)
-		(let ((inhibit-read-only
-		       query-replace-skip-read-only))
+		(progn
 		  (unless (or literal noedit)
 		    (replace-highlight
 		     (nth 0 real-match-data) (nth 1 real-match-data)
-- 
2.39.5