;;; double.el --- support for keyboard remapping with double clicking
;; Copyright (C) 1994, 1997, 1998, 2001, 2002, 2003, 2004,
-;; 2005, 2006, 2007, 2008 Free Software Foundation, Inc.
+;; 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
;; Author: Per Abrahamsen <abraham@dina.kvl.dk>
;; Keywords: i18n
(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))