1. zck
  2. minesweeper.el

Commits

zck  committed b3244fd

make 'mark take arguments (row col) instead of (col row)

  • Participants
  • Parent commits 95b4c49
  • Branches default

Comments (0)

Files changed (1)

File minesweeper-mode.el

View file
   (gethash (list col row)
 	   *minesweeper-reveals*))
 
-(defun minesweeper-mark (col row)
-  "Marks the square (col, row) as having a mine. It can't be selected until it is unmarked"
-  (minesweeper-debug "marking square " (number-to-string col) "\t" (number-to-string row))
+(defun minesweeper-mark (row col)
+  "Marks the square (row, col) as having a mine. It can't be selected until it is unmarked"
+  (minesweeper-debug "marking square " (number-to-string row) "\t" (number-to-string col))
   (unless (minesweeper-marked col row)
     (puthash (list col row)
 	     't
 	     (not (minesweeper-is-revealed row col)))
     (if (minesweeper-marked col row)
 	(minesweeper-unmark col row)
-      (minesweeper-mark col row))))
+      (minesweeper-mark row col))))
 
 (defun minesweeper-marked (col row)
   "Returns 't if (col, row) is marked as having a mine, nil otherwise"