Mercurial > emacs

changeset 1820:b95bdb97c3e8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
JimB's changes from January 18 to present
author Jim Blandy <jimb@redhat.com>
date Tue, 26 Jan 1993 01:56:29 +0000
parents df06a60f3362
children 04fb1d3d6992
files lisp/emulation/mlsupport.el lisp/replace.el
diffstat 2 files changed, 4 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emulation/mlsupport.el	Tue Jan 26 01:36:02 1993 +0000
+++ b/lisp/emulation/mlsupport.el	Tue Jan 26 01:56:29 1993 +0000
@@ -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))
--- a/lisp/replace.el	Tue Jan 26 01:36:02 1993 +0000
+++ b/lisp/replace.el	Tue Jan 26 01:56:29 1993 +0000
@@ -443,7 +443,8 @@
 		(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 @@
 		   (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