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)) |