User: aidan
Date: 06/01/08 21:00:45
Modified: xemacs/lisp ChangeLog cmdloop.el
Log:
Handle some GNU read-quoted-char integration difficulties.
Revision Changes Path
1.720 +6 -0 XEmacs/xemacs/lisp/ChangeLog
Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/ChangeLog,v
retrieving revision 1.719
retrieving revision 1.720
diff -u -p -r1.719 -r1.720
--- ChangeLog 2006/01/06 12:24:19 1.719
+++ ChangeLog 2006/01/08 20:00:41 1.720
@@ -1,3 +1,9 @@
+2006-01-08 Aidan Kehoe <kehoea(a)parhasard.net>
+
+ * cmdloop.el (read-quoted-char):
+ Eliminate some char/event confusion introduced by a GNU Emacs
+ sync.
+
2006-01-06 Adrian Aichner <adrian(a)xemacs.org>
* package-get.el (package-get-download-sites): Add
pt.xemacs.org,
1.19 +4 -2 XEmacs/xemacs/lisp/cmdloop.el
Index: cmdloop.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/cmdloop.el,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -p -r1.18 -r1.19
--- cmdloop.el 2005/06/26 18:04:49 1.18
+++ cmdloop.el 2006/01/08 20:00:43 1.19
@@ -579,7 +579,8 @@ any other non-digit terminates the chara
(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 @@ any other non-digit terminates the chara
((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)))