Mercurial > emacs
comparison lisp/replace.el @ 17933:a7579056d62e
(perform-replace): Restore match data after read-event.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 23 May 1997 17:34:11 +0000 |
| parents | d8cb277f0ce8 |
| children | 1de7cef26431 |
comparison
equal
deleted
inserted
replaced
| 17932:78a128b99e05 | 17933:a7579056d62e |
|---|---|
| 644 ;; Bind message-log-max so we don't fill up the message log | 644 ;; Bind message-log-max so we don't fill up the message log |
| 645 ;; with a bunch of identical messages. | 645 ;; with a bunch of identical messages. |
| 646 (let ((message-log-max nil)) | 646 (let ((message-log-max nil)) |
| 647 (message message from-string next-replacement)) | 647 (message message from-string next-replacement)) |
| 648 (setq key (read-event)) | 648 (setq key (read-event)) |
| 649 ;; Necessary in case something happens during read-event | |
| 650 ;; that clobbers the match data. | |
| 651 (store-match-data real-match-data) | |
| 649 (setq key (vector key)) | 652 (setq key (vector key)) |
| 650 (setq def (lookup-key map key)) | 653 (setq def (lookup-key map key)) |
| 651 ;; Restore the match data while we process the command. | 654 ;; Restore the match data while we process the command. |
| 652 (cond ((eq def 'help) | 655 (cond ((eq def 'help) |
| 653 (with-output-to-temp-buffer "*Help*" | 656 (with-output-to-temp-buffer "*Help*" |