Mercurial > emacs
changeset 101004:6f10422080eb
Replace last-command-char with last-command-event.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Fri, 09 Jan 2009 04:21:17 +0000 |
| parents | cc189e8cf211 |
| children | b1e378ad4ae9 |
| files | lisp/ChangeLog lisp/play/mpuz.el |
| diffstat | 2 files changed, 4 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Fri Jan 09 04:19:08 2009 +0000 +++ b/lisp/ChangeLog Fri Jan 09 04:21:17 2009 +0000 @@ -7,6 +7,7 @@ * calc/calc-keypd.el, calc/calc-misc.el, calc/calc-prog.el: * calc/calc-sel.el, calc/calc-store.el, calc/calc-stuff.el: * calc/calc-units.el, calc/calc-yank.el, calc/calc.el: + * play/mpuz.el: * progmodes/ada-mode.el, progmodes/antlr-mode.el, progmodes/cc-align.el: * progmodes/cc-cmds.el, progmodes/cperl-mode.el, progmodes/f90.el: * progmodes/fortran.el, progmodes/icon.el, progmodes/idlwave.el:
--- a/lisp/play/mpuz.el Fri Jan 09 04:19:08 2009 +0000 +++ b/lisp/play/mpuz.el Fri Jan 09 04:21:17 2009 +0000 @@ -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 @@ (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)