diff options
| author | Richard M. Stallman | 1993-12-23 04:53:48 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-12-23 04:53:48 +0000 |
| commit | 5975546182c203c04b712f07414595daf894a4c0 (patch) | |
| tree | 0878b246d07ce1586109723c17f1795b4689a6b3 /lisp/emulation | |
| parent | 5f5d794a226abf294f3a247ca81e631619d3b735 (diff) | |
| download | emacs-5975546182c203c04b712f07414595daf894a4c0.tar.gz emacs-5975546182c203c04b712f07414595daf894a4c0.zip | |
(vip-replace-string): Don't use replace-regexp.
Diffstat (limited to 'lisp/emulation')
| -rw-r--r-- | lisp/emulation/vip.el | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/lisp/emulation/vip.el b/lisp/emulation/vip.el index 3c307625059..b710df35f66 100644 --- a/lisp/emulation/vip.el +++ b/lisp/emulation/vip.el | |||
| @@ -926,9 +926,13 @@ the query replace mode will toggle between string replace and regexp replace." | |||
| 926 | (if vip-re-replace "regexp replace" | 926 | (if vip-re-replace "regexp replace" |
| 927 | "string replace")))) | 927 | "string replace")))) |
| 928 | (if vip-re-replace | 928 | (if vip-re-replace |
| 929 | (replace-regexp | 929 | ;; (replace-regexp |
| 930 | str | 930 | ;; str |
| 931 | (vip-read-string (format "Replace regexp \"%s\" with: " str))) | 931 | ;; (vip-read-string (format "Replace regexp \"%s\" with: " str))) |
| 932 | (while (re-search-forward str nil t) | ||
| 933 | (replace-match (vip-read-string | ||
| 934 | (format "Replace regexp \"%s\" with: " str)) | ||
| 935 | nil nil)) | ||
| 932 | (replace-string | 936 | (replace-string |
| 933 | str | 937 | str |
| 934 | (vip-read-string (format "Replace \"%s\" with: " str))))))) | 938 | (vip-read-string (format "Replace \"%s\" with: " str))))))) |