[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] master 3afbd19 2/2: [gnugo int] Whitespace munging; nfc.

From: Thien-Thi Nguyen
Subject: [elpa] master 3afbd19 2/2: [gnugo int] Whitespace munging; nfc.
Date: Wed, 8 Feb 2017 09:18:59 +0000 (UTC)

branch: master
commit 3afbd199ed11e7df4e8688d95559249877637dcd
Author: Thien-Thi Nguyen <address@hidden>
Commit: Thien-Thi Nguyen <address@hidden>

    [gnugo int] Whitespace munging; nfc.
 packages/gnugo/gnugo.el |   15 +++++++++------
 1 file changed, 9 insertions(+), 6 deletions(-)

diff --git a/packages/gnugo/gnugo.el b/packages/gnugo/gnugo.el
index 2c92916..ae86e77 100644
--- a/packages/gnugo/gnugo.el
+++ b/packages/gnugo/gnugo.el
@@ -1663,7 +1663,8 @@ If FILENAME already exists, Emacs confirms that you wish 
to overwrite it."
         (aset ends (aref monkey 1) (aref monkey 0)))
       (when ulastp
         (let ((g (gnugo-get :gnugo-color)))
-          (cl-flet ((turn () (gnugo--turn-the-wheel t)))
+          (cl-flet
+              ((turn () (gnugo--turn-the-wheel t)))
             (cl-case (or reaction gnugo-undo-reaction)
               (play (turn))
               (play! (let ((wheel (gnugo-get :wheel)))
@@ -1730,7 +1731,8 @@ Prefix arg means to redo all the undone moves."
              (end (aref ends bidx))
              (ucolor (gnugo-get :user-color))
              (uprop (gnugo--prop<-color ucolor)))
-        (cl-flet ((mvno (node) (gethash node mnum)))
+        (cl-flet
+            ((mvno (node) (gethash node mnum)))
            with ok = (if full
                          (mvno (car end))
@@ -1870,10 +1872,11 @@ to the last move, as a comment."
            (insert blurb)
            (when (search-backward "\n\nGame start:" nil t)
              (delete-region (point) (point-max)))
-           (cl-flet ((rep (old new)
-                          (goto-char (point-min))
-                          (while (search-forward old nil t)
-                            (replace-match new))))
+           (cl-flet
+               ((rep (old new)
+                     (goto-char (point-min))
+                     (while (search-forward old nil t)
+                       (replace-match new))))
              (rep "The game is over.  " "")
              (rep "territory" "T")
              (rep "captures"  "C")

reply via email to

[Prev in Thread] Current Thread [Next in Thread]