[Emacs-diffs] Changes to emacs/lisp/play/hanoi.el,v

[Chong Yidong]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      06/07/10 18:52:13

Index: play/hanoi.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/play/hanoi.el,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -b -r1.19 -r1.20
--- play/hanoi.el       1 Sep 2003 15:45:34 -0000       1.19
+++ play/hanoi.el       10 Jul 2006 18:52:13 -0000      1.20
@@ -399,8 +399,7 @@
 ;; update display and pause, quitting with a pithy comment if the user
 ;; hits a key.
 (defun hanoi-sit-for (seconds)
-  (sit-for seconds)
-  (if (input-pending-p)
+  (unless (sit-for seconds)
       (signal 'quit '("I can tell you've had enough"))))
 
 ;; move ring to a given buffer position and update ring's car.