[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)))
(cl-loop
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")