Show
Ignore:
Timestamp:
09/18/06 20:48:14 (2 years ago)
Author:
miyoshi
Message:

Sync up with Emacs CVS HEAD.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/lisp/play/life.el

    r4037 r4166  
    5757    "               @@") 
    5858   ("@@@@@@@@@" "@   @   @" "@ @@@@@ @" "@ @   @ @" "@@@   @@@" 
    59     "@ @   @ @" "@ @@@@@ @" "@   @   @" "@@@@@@@@@")] 
     59    "@ @   @ @" "@ @@@@@ @" "@   @   @" "@@@@@@@@@") 
     60   ("                        @           " 
     61    "                      @ @           " 
     62    "            @@      @@            @@" 
     63    "           @   @    @@            @@" 
     64    "@@        @     @   @@              " 
     65    "@@        @   @ @@    @ @           " 
     66    "          @     @       @           " 
     67    "           @   @                    " 
     68    "            @@                      ") 
     69   ("      @ " 
     70    "    @ @@" 
     71    "    @ @ " 
     72    "    @   " 
     73    "  @     " 
     74    "@ @     ") 
     75   ("@@@ @" 
     76    "@    " 
     77    "   @@" 
     78    " @@ @" 
     79    "@ @ @") 
     80   ("@@@@@@@@ @@@@@   @@@      @@@@@@@ @@@@@")] 
    6081  "Vector of rectangles containing some Life startup patterns.") 
    6182 
    …… 
    129150          major-mode 'life-mode 
    130151          truncate-lines t 
     152          show-trailing-whitespace nil 
    131153          life-current-generation 0 
    132154          life-generation-string "0" 
    …… 
    270292 
    271293  ;; Redisplay; if the user has hit a key, exit the loop. 
    272   (or (eq t (sit-for sleeptime)) 
     294  (or (and (sit-for sleeptime) (< 0 sleeptime)) 
     295      (not (input-pending-p)) 
    273296      (throw 'life-exit nil))) 
    274297