mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-21 21:41:40 -07:00
Code Issues Projects Releases Wiki Activity

(perform-replace): Restore match data after read-event.

Browse source
This commit is contained in:
Richard M. Stallman 1997-05-23 17:34:11 +00:00
parent 6418ea1619
commit f5e52cd303
1 changed files with 3 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/replace.el
View file

@ -646,6 +646,9 @@ which will run faster and probably do exactly what you want."
(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.