# HG changeset patch
# User aidan
# Date 1136750443 0
# Node ID 827b833cd3ceb2fecd7117fae9f785bdc91ee41c
# Parent  44b3e4dda13e0cfe7132c0d2bf0bab2c5c1cc061
[xemacs-hg @ 2006-01-08 20:00:41 by aidan]
Handle some GNU read-quoted-char integration difficulties.

diff -r 44b3e4dda13e -r 827b833cd3ce lisp/ChangeLog
--- a/lisp/ChangeLog	Sat Jan 07 22:51:50 2006 +0000
+++ b/lisp/ChangeLog	Sun Jan 08 20:00:43 2006 +0000
@@ -1,3 +1,9 @@
+2006-01-08  Aidan Kehoe  <kehoea@parhasard.net>
+
+	* cmdloop.el (read-quoted-char):
+	Eliminate some char/event confusion introduced by a GNU Emacs
+	sync.
+	
 2006-01-06  Adrian Aichner  <adrian@xemacs.org>
 
 	* package-get.el (package-get-download-sites): Add pt.xemacs.org,
diff -r 44b3e4dda13e -r 827b833cd3ce lisp/cmdloop.el
--- 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)))