Mercurial > emacs

changeset 75296:72790464e9ea

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(type-break-demo-hanoi, type-break-demo-life) (type-break-demo-boring): Call read-event instead of read-char.
author Chong Yidong <cyd@stupidchicken.com>
date Sat, 20 Jan 2007 02:48:45 +0000
parents b1b2424e2f41
children 60a9bd63bf7c
files lisp/type-break.el
diffstat 1 files changed, 4 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/type-break.el	Sat Jan 20 02:48:35 2007 +0000
+++ b/lisp/type-break.el	Sat Jan 20 02:48:45 2007 +0000
@@ -1131,11 +1131,10 @@
       (progn
         (hanoi (/ (window-width) 8))
         ;; Wait for user to come back.
-        (read-char)
+        (read-event)
         (kill-buffer "*Hanoi*"))
     (quit
-     ;; eat char
-     (read-char)
+     (read-event)
      (and (get-buffer "*Hanoi*")
           (kill-buffer "*Hanoi*")))))
 
@@ -1153,11 +1152,10 @@
           (progn
             (life 3)
             ;; wait for user to return
-            (read-char)
+            (read-event)
             (kill-buffer "*Life*"))
         (life-extinct
          (message "%s" (get 'life-extinct 'error-message))
-         (sit-for 3)
          ;; restart demo
          (setq continue t))
         (quit
@@ -1246,7 +1244,7 @@
                      message))))
             (goto-char (point-min))
             (sit-for 60))
-          (read-char)
+          (read-event)
           (kill-buffer buffer-name))
       (quit
        (and (get-buffer buffer-name)