From: Chong Yidong <cyd@stupidchicken.com>
Date: Fri, 12 Sep 2008 00:37:41 +0000 (+0000)
Subject: (perform-replace): Don't set inhibit-read-only using
X-Git-Tag: emacs-pretest-23.0.90~2920
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f2e7b9ef887c547b76fd5cff1a98efbe10e0f345;p=emacs.git

(perform-replace): Don't set inhibit-read-only using
query-replace-skip-read-only (bug#956).
---

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)