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