diff options
| author | Glenn Morris <rgm@gnu.org> | 2009-01-09 04:23:38 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2009-01-09 04:23:38 +0000 |
| commit | 1ba983e8d9da561ccbdf15fb1544895fad40cce8 (patch) | |
| tree | 88210d37a85f0ef4a8d3341074b185c9d0187dad /lisp/play/mpuz.el | |
| parent | e93c003eb15f85f744a39c28a8fb43b8c6da9904 (diff) | |
Replace last-command-char with last-command-event.
Diffstat (limited to 'lisp/play/mpuz.el')
| -rw-r--r-- | lisp/play/mpuz.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/play/mpuz.el b/lisp/play/mpuz.el index 5c03e7a09d2..5725bc1d825 100644 --- a/lisp/play/mpuz.el +++ b/lisp/play/mpuz.el @@ -1,7 +1,7 @@ ;;; mpuz.el --- multiplication puzzle for GNU Emacs -;; Copyright (C) 1990, 2001, 2002, 2003, 2004, 2005, -;; 2006, 2007, 2008, 2009 Free Software Foundation, Inc. +;; Copyright (C) 1990, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, +;; 2009 Free Software Foundation, Inc. ;; Author: Philippe Schnoebelen <phs@lsv.ens-cachan.fr> ;; Overhauled: Daniel Pfeiffer <occitan@esperanto.org> @@ -424,7 +424,7 @@ You may abort a game by typing \\<mpuz-mode-map>\\[mpuz-offer-abort]." (interactive) (if mpuz-in-progress (let (letter-char digit digit-char message) - (setq letter-char (upcase last-command-char) + (setq letter-char (upcase last-command-event) digit (mpuz-to-digit (- letter-char ?A))) (cond ((mpuz-digit-solved-p digit) (message "%c already solved." letter-char) |