Commits

zck committed 1462844

fixed two bugs: use 'is-mine properly; move mismarked-overlay properly

  • Participants
  • Parent commits dd57f86

Comments (0)

Files changed (1)

File minesweeper.el

         (minesweeper-for newrow 0 *minesweeper-board-height*
                          (minesweeper-for newcol 0 *minesweeper-board-width*
                                           (when (and (minesweeper-marked newrow newcol)
-                                                     (not (eq (minesweeper-is-mine newrow newcol))))
+                                                     (not (minesweeper-is-mine newrow newcol)))
                                             (let ((pt (+ (* newrow
                                                             (1+ *minesweeper-board-height*))
+                                                         newcol
                                                          1)))
-                                                         newcol
                                               (minesweeper-debug "(" (number-to-string newrow) ", " (number-to-string newcol) ") is mismarked.")
                                               (move-overlay (copy-overlay *minesweeper-mismarked-overlay*)
                                                             pt