Mercurial > hg > xemacs-beta

diff lisp/cmdloop.el @ 3196:827b833cd3ce

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2006-01-08 20:00:41 by aidan] Handle some GNU read-quoted-char integration difficulties.
author aidan
date Sun, 08 Jan 2006 20:00:43 +0000
parents a25c824ed558
children 591c4e52c6d5
line wrap: on
line diff
--- a/lisp/cmdloop.el	Sat Jan 07 22:51:50 2006 +0000
+++ b/lisp/cmdloop.el	Sun Jan 08 20:00:43 2006 +0000
@@ -579,7 +579,8 @@
 		 (setq char (aref translated 0)))))
       (cond ((null char))
 	    ((not (characterp char))
-	     (setq unread-command-events (list char)
+	     ;; XEmacs change; event instead of char. 
+	     (setq unread-command-events (list event)
 		   done t))
 ; 	    ((/= (logand char ?\M-\^@) 0)
 ; 	     ;; Turn a meta-character into a character with the 0200 bit set.
@@ -598,7 +599,8 @@
 	    ((and (not first) (eq char ?\C-m))
 	     (setq done t))
 	    ((not first)
-	     (setq unread-command-events (list char)
+	     ;; XEmacs change; event instead of char. 
+	     (setq unread-command-events (list event)
 		   done t))
 	    (t (setq code (char-to-int char)
 		     done t)))