[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/play/5x5.el,v
From: |
Juanma Barranquero |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/play/5x5.el,v |
Date: |
Thu, 15 Feb 2007 10:58:11 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Juanma Barranquero <lektu> 07/02/15 10:58:11
Index: 5x5.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/play/5x5.el,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -b -r1.18 -r1.19
--- 5x5.el 21 Jan 2007 03:05:07 -0000 1.18
+++ 5x5.el 15 Feb 2007 10:58:11 -0000 1.19
@@ -170,7 +170,7 @@
(put '5x5-mode 'mode-class 'special)
(defun 5x5-mode ()
- "A mode for playing `5x5'
+ "A mode for playing `5x5'.
The key bindings for 5x5-mode are:
@@ -282,7 +282,7 @@
(loop for y from 0 to (1- 5x5-grid-size) sum (5x5-row-value (aref grid y))))
(defun 5x5-draw-grid-end ()
- "Draw the top/bottom of the grid"
+ "Draw the top/bottom of the grid."
(insert "+")
(loop for x from 0 to (1- 5x5-grid-size) do
(insert "-" (make-string 5x5-x-scale ?-)))
@@ -347,7 +347,7 @@
;;;###autoload
(defun 5x5-crack-xor-mutate ()
- "Attempt to crack 5x5 by xor the current and best solution.
+ "Attempt to crack 5x5 by xoring the current and best solution.
Mutate the result."
(interactive)
(5x5-crack #'5x5-make-xor-with-mutation))
@@ -393,7 +393,7 @@
(5x5-mutate-solution best))
(defun 5x5-make-xor-with-mutation (current best)
- "xor current and best solution then mutate the result."
+ "Xor current and best solution then mutate the result."
(let ((xored (5x5-make-new-grid)))
(loop for y from 0 to (1- 5x5-grid-size) do
(loop for x from 0 to (1- 5x5-grid-size) do
@@ -412,8 +412,8 @@
solution)
(defun 5x5-play-solution (solution best)
- "Play a solution on an empty grid. This destroys the current game in
-progress because it is an animated attempt."
+ "Play a solution on an empty grid. This destroys the current game
+in progress because it is an animated attempt."
(5x5-new-game)
(let ((inhibit-quit t))
(loop for y from 0 to (1- 5x5-grid-size) do
@@ -514,7 +514,7 @@
(and (or x y) (not (and x y))))
(defun 5x5-y-or-n-p (prompt)
- "5x5 wrapper for y-or-n-p which respects the 5x5-hassle-me setting."
+ "5x5 wrapper for `y-or-n-p' which respects the `5x5-hassle-me' setting."
(if 5x5-hassle-me
(y-or-n-p prompt)
t))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/play/5x5.el,v,
Juanma Barranquero <=