diff options
| author | Chong Yidong | 2008-09-12 00:37:41 +0000 |
|---|---|---|
| committer | Chong Yidong | 2008-09-12 00:37:41 +0000 |
| commit | f2e7b9ef887c547b76fd5cff1a98efbe10e0f345 (patch) | |
| tree | b30cd207c1b3642203e4c5e9c0c480670836d2e5 | |
| parent | b13f8bd52dd0e0da87779ca09ce066fc98353d51 (diff) | |
| download | emacs-f2e7b9ef887c547b76fd5cff1a98efbe10e0f345.tar.gz emacs-f2e7b9ef887c547b76fd5cff1a98efbe10e0f345.zip | |
(perform-replace): Don't set inhibit-read-only using
query-replace-skip-read-only (bug#956).
| -rw-r--r-- | lisp/replace.el | 3 |
1 files changed, 1 insertions, 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." | |||
| 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) |