Mercurial > emacs
comparison lisp/replace.el @ 866:ae5c412a32ec
entered into RCS
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Fri, 24 Jul 1992 20:13:03 +0000 |
parents | fe5f6b7c9727 |
children | c49077849583 |
comparison
equal
deleted
inserted
replaced
865:637812e90946 | 866:ae5c412a32ec |
---|---|
436 (progn | 436 (progn |
437 (store-match-data real-match-data) | 437 (store-match-data real-match-data) |
438 (replace-match next-replacement nocasify literal) | 438 (replace-match next-replacement nocasify literal) |
439 (setq replace-count (1+ replace-count))) | 439 (setq replace-count (1+ replace-count))) |
440 (undo-boundary) | 440 (undo-boundary) |
441 (let (done replaced) | 441 (let (done replaced char) |
442 (while (not done) | 442 (while (not done) |
443 (let ((help-form | 443 (let ((help-form |
444 '(concat "Query replacing " | 444 '(concat "Query replacing " |
445 (if regexp-flag "regexp " "") | 445 (if regexp-flag "regexp " "") |
446 from-string " with " next-replacement ".\n\n" | 446 from-string " with " next-replacement ".\n\n" |