Mercurial > emacs
comparison lisp/replace.el @ 9847:dc6c0b5fa4f0
(perform-replace): Set help-mode in *Help* buffer.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Wed, 09 Nov 1994 05:48:05 +0000 |
| parents | 0e9e6ff083e8 |
| children | 32d20ec5ed51 |
comparison
equal
deleted
inserted
replaced
| 9846:6a9a8abb0b6e | 9847:dc6c0b5fa4f0 |
|---|---|
| 567 (concat "Query replacing " | 567 (concat "Query replacing " |
| 568 (if regexp-flag "regexp " "") | 568 (if regexp-flag "regexp " "") |
| 569 from-string " with " | 569 from-string " with " |
| 570 next-replacement ".\n\n" | 570 next-replacement ".\n\n" |
| 571 (substitute-command-keys | 571 (substitute-command-keys |
| 572 query-replace-help))))) | 572 query-replace-help))) |
| 573 (save-excursion | |
| 574 (set-buffer standard-output) | |
| 575 (help-mode)))) | |
| 573 ((eq def 'exit) | 576 ((eq def 'exit) |
| 574 (setq keep-going nil) | 577 (setq keep-going nil) |
| 575 (setq done t)) | 578 (setq done t)) |
| 576 ((eq def 'backup) | 579 ((eq def 'backup) |
| 577 (if stack | 580 (if stack |