Replace last-input-char with last-input-event.

[bpt/emacs.git] / lisp / double.el

diff --git a/lisp/double.el b/lisp/double.el
index 7204e33..e7f6e6c 100644 (file)
--- a/lisp/double.el
+++ b/lisp/double.el
@@ -103,7 +103,7 @@ but not `C-u X' or `ESC X' since the X is not the prefix key."
 
 (defun double-translate-key (prompt)
   ;; Translate input events using double map.
-  (let ((key last-input-char))
+  (let ((key last-input-event))
     (cond (unread-command-events
           ;; Artificial event, ignore it.
           (vector key))