File anthy-last-command-char-xemacs.patch of Package anthy

diff -ru anthy-6024.orig/src-util/anthy.el anthy-6024/src-util/anthy.el
--- anthy-6024.orig/src-util/anthy.el	2004-08-31 18:20:12.000000000 +0200
+++ anthy-6024/src-util/anthy.el	2005-01-18 15:48:34.755323462 +0100
@@ -863,9 +863,9 @@
   (if anthy-xemacs
       (let ((event last-command-event))
 	(cond
-	 ((event-matches-key-specifier-p event 'left)      2)
-	 ((event-matches-key-specifier-p event 'right)     6)
-	 ((event-matches-key-specifier-p event 'backspace) 8)
+ 	 ((equal event (character-to-event 'left)) 2)
+	 ((equal event (character-to-event 'right)) 6)
+	 ((equal event (character-to-event 'backspace)) 8)
 	 (t
 	  (char-to-int (event-to-character event)))))
     last-command-char))