diff options
| author | Jim Blandy <jimb@redhat.com> | 1993-01-26 01:56:29 +0000 |
|---|---|---|
| committer | Jim Blandy <jimb@redhat.com> | 1993-01-26 01:56:29 +0000 |
| commit | 72766144811cd7258b2a59e56f6e3657537ea508 (patch) | |
| tree | b9da3020bfdfe94ea8ffd73af7190b989b60d0bc | |
| parent | ed015bddf710ee92b0ff30ec87844520a53f7c1d (diff) | |
| download | emacs-72766144811cd7258b2a59e56f6e3657537ea508.tar.gz | |
JimB's changes from January 18 to present
| -rw-r--r-- | lisp/emulation/mlsupport.el | 2 | ||||
| -rw-r--r-- | lisp/replace.el | 5 |
2 files changed, 4 insertions, 3 deletions
diff --git a/lisp/emulation/mlsupport.el b/lisp/emulation/mlsupport.el index 1d51db77d04..04c5f18396f 100644 --- a/lisp/emulation/mlsupport.el +++ b/lisp/emulation/mlsupport.el @@ -80,7 +80,7 @@ (fset (intern name) defn)) (defun push-back-character (char) - (setq unread-command-event char)) + (setq unread-command-events (list char))) (defun to-col (column) (indent-to column 0)) diff --git a/lisp/replace.el b/lisp/replace.el index 45326714469..daa9d728131 100644 --- a/lisp/replace.el +++ b/lisp/replace.el @@ -443,7 +443,8 @@ 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-event help-char char help-char)))) + (setq unread-command-events (list 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 +499,7 @@ which will run faster and do exactly what you probably want." (setq replaced t)) (t (setq keep-going nil) - (setq unread-command-event char) + (setq unread-command-events (list char)) (setq done t)))) ;; Record previous position for ^ when we move on. ;; Change markers to numbers in the match data |