Mercurial > emacs
comparison lisp/replace.el @ 98145:9d5c120a08ec
(perform-replace): Don't set inhibit-read-only using
query-replace-skip-read-only (bug#956).
author | Chong Yidong <cyd@stupidchicken.com> |
---|---|
date | Fri, 12 Sep 2008 00:37:41 +0000 |
parents | 922b39c63813 |
children | 5574362352ff |
comparison
equal
deleted
inserted
replaced
98144:142baa998501 | 98145:9d5c120a08ec |
---|---|
1663 (set-match-data real-match-data) | 1663 (set-match-data real-match-data) |
1664 (setq next-replacement | 1664 (setq next-replacement |
1665 (funcall (car replacements) (cdr replacements) | 1665 (funcall (car replacements) (cdr replacements) |
1666 replace-count))) | 1666 replace-count))) |
1667 (if (not query-flag) | 1667 (if (not query-flag) |
1668 (let ((inhibit-read-only | 1668 (progn |
1669 query-replace-skip-read-only)) | |
1670 (unless (or literal noedit) | 1669 (unless (or literal noedit) |
1671 (replace-highlight | 1670 (replace-highlight |
1672 (nth 0 real-match-data) (nth 1 real-match-data) | 1671 (nth 0 real-match-data) (nth 1 real-match-data) |
1673 start end search-string | 1672 start end search-string |
1674 (or delimited-flag regexp-flag) case-fold-search)) | 1673 (or delimited-flag regexp-flag) case-fold-search)) |