forked from pool/anthy
17 lines
702 B
Diff
17 lines
702 B
Diff
|
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))
|