diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-08-30 07:07:39 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-08-30 07:07:39 +0000 |
| commit | 301a9d17972ce60d0ecbb6df74a81322c0667f2f (patch) | |
| tree | b8921a78ff7de1ac4a295750c0e0a53cf6511527 /lisp/replace.el | |
| parent | 0daa17f3faa638c7ef7b0f8020c2c9a67892ccf6 (diff) | |
| download | emacs-301a9d17972ce60d0ecbb6df74a81322c0667f2f.tar.gz | |
(perform-replace): Restore match data before highlighting.
Diffstat (limited to 'lisp/replace.el')
| -rw-r--r-- | lisp/replace.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/replace.el b/lisp/replace.el index 65818667ede..7c6b8ea257d 100644 --- a/lisp/replace.el +++ b/lisp/replace.el @@ -528,13 +528,13 @@ which will run faster and probably do exactly what you want." ;; Loop reading commands until one of them sets done, ;; which means it has finished handling this occurrence. (while (not done) + (store-match-data real-match-data) (replace-highlight (match-beginning 0) (match-end 0)) (message message from-string next-replacement) (setq key (read-event)) (setq key (vector key)) (setq def (lookup-key map key)) ;; Restore the match data while we process the command. - (store-match-data real-match-data) (cond ((eq def 'help) (with-output-to-temp-buffer "*Help*" (princ |