diff options
| author | Jim Blandy <jimb@redhat.com> | 1992-11-16 01:40:51 +0000 |
|---|---|---|
| committer | Jim Blandy <jimb@redhat.com> | 1992-11-16 01:40:51 +0000 |
| commit | f4c7ad34bebaaed409e0169844a10bbdea03d80f (patch) | |
| tree | 266092eddf36f773d37b2547d3805eb3aa5a8e43 /lisp/replace.el | |
| parent | 08ce70d1ab0a5bf81fd0074a6a5e54e1a4542149 (diff) | |
| download | emacs-f4c7ad34bebaaed409e0169844a10bbdea03d80f.tar.gz | |
* bytecomp.el: Declare unread-command-char an obsolete variable.
* vip.el (vip-escape-to-emacs, vip-prefix-arg-value,
vip-prefix-arg-com): Use unread-command-event instead of
unread-command-char; respect its new semantics.
* replace.el (perform-replace): Same.
Diffstat (limited to 'lisp/replace.el')
| -rw-r--r-- | lisp/replace.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/replace.el b/lisp/replace.el index beee0df738a..45326714469 100644 --- a/lisp/replace.el +++ b/lisp/replace.el @@ -443,7 +443,7 @@ which will run faster and do exactly what you probably want." (message "Query replacing %s with %s: " from-string next-replacement) (setq char (read-event)) (if (and (numberp char) (= char ??)) - (setq unread-command-char help-char char help-char)))) + (setq unread-command-event help-char char help-char)))) ;; Restore the match data while we process the command. (store-match-data real-match-data) (cond ((or (= char ?\e) @@ -498,7 +498,7 @@ which will run faster and do exactly what you probably want." (setq replaced t)) (t (setq keep-going nil) - (setq unread-command-char char) + (setq unread-command-event char) (setq done t)))) ;; Record previous position for ^ when we move on. ;; Change markers to numbers in the match data |