mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(vip-replace-string): Don't use replace-regexp.

Browse Source
This commit is contained in:
Richard M. Stallman 1993-12-23 04:53:48 +00:00
parent 5f5d794a22
commit 5975546182
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/emulation/vip.el
View File

@ -926,9 +926,13 @@ the query replace mode will toggle between string replace and regexp replace."
(if vip-re-replace "regexp replace"
"string replace"))))
(if vip-re-replace
(replace-regexp
str
(vip-read-string (format "Replace regexp \"%s\" with: " str)))
;; (replace-regexp
;; str
;; (vip-read-string (format "Replace regexp \"%s\" with: " str)))
(while (re-search-forward str nil t)
(replace-match (vip-read-string
(format "Replace regexp \"%s\" with: " str))
nil nil))
(replace-string
str
(vip-read-string (format "Replace \"%s\" with: " str)))))))