Mercurial > emacs
changeset 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 | 78a128b99e05 |
| children | b091b787e3e4 |
| files | lisp/replace.el |
| diffstat | 1 files changed, 3 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/replace.el Fri May 23 17:33:32 1997 +0000 +++ b/lisp/replace.el Fri May 23 17:34:11 1997 +0000 @@ -646,6 +646,9 @@ (let ((message-log-max nil)) (message message from-string next-replacement)) (setq key (read-event)) + ;; Necessary in case something happens during read-event + ;; that clobbers the match data. + (store-match-data real-match-data) (setq key (vector key)) (setq def (lookup-key map key)) ;; Restore the match data while we process the command.