[Emacs-diffs] emacs/lisp ChangeLog play/mpuz.el

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/01/09 04:21:21

Modified files:
        lisp           : ChangeLog 
        lisp/play      : mpuz.el 

Log message:
        Replace last-command-char with last-command-event.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15067&r2=1.15068
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/play/mpuz.el?cvsroot=emacs&r1=1.42&r2=1.43

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15067
retrieving revision 1.15068
diff -u -b -r1.15067 -r1.15068
--- ChangeLog   9 Jan 2009 04:19:08 -0000       1.15067
+++ ChangeLog   9 Jan 2009 04:21:17 -0000       1.15068
@@ -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:

Index: play/mpuz.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/play/mpuz.el,v
retrieving revision 1.42
retrieving revision 1.43
diff -u -b -r1.42 -r1.43
--- play/mpuz.el        5 Jan 2009 03:23:10 -0000       1.42
+++ play/mpuz.el        9 Jan 2009 04:21:20 -0000       1.43
@@ -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 <address@hidden>
 ;; Overhauled: Daniel Pfeiffer <address@hidden>
@@ -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)