[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/gnugo 1eb43f1 342/357: [gnugo int] Add abstraction: gnu
From: |
Stefan Monnier |
Subject: |
[elpa] externals/gnugo 1eb43f1 342/357: [gnugo int] Add abstraction: gnugo--zonk-ovs |
Date: |
Sun, 29 Nov 2020 14:51:53 -0500 (EST) |
branch: externals/gnugo
commit 1eb43f1eef5664c40c77fc521220576ee7ba9b32
Author: Thien-Thi Nguyen <ttn@gnu.org>
Commit: Thien-Thi Nguyen <ttn@gnu.org>
[gnugo int] Add abstraction: gnugo--zonk-ovs
* packages/gnugo/gnugo.el (gnugo--zonk-ovs): New defsubst.
(gnugo-refresh, gnugo-animate-group): Use ‘gnugo--zonk-ovs’.
---
gnugo.el | 11 +++++++----
1 file changed, 7 insertions(+), 4 deletions(-)
diff --git a/gnugo.el b/gnugo.el
index 1503f72..f1f70ad 100644
--- a/gnugo.el
+++ b/gnugo.el
@@ -1015,6 +1015,9 @@ For all other values of RSEL, do nothing and return nil."
(list :color-symbols
c-symbs)))))
+(defsubst gnugo--zonk-ovs (ovs)
+ (mapc 'delete-overlay ovs))
+
(defun gnugo-refresh (&optional nocache)
"Update GNUGO Board buffer display.
While a game is in progress, parenthesize the last-played stone (no parens
@@ -1035,14 +1038,14 @@ its move."
(when (and nocache (not (gnugo-get :waiting)))
;; (search-forward "pall of death")
(dolist (group (gnugo-aqr 'dead game-over))
- (mapc 'delete-overlay (cdar group))
+ (gnugo--zonk-ovs (cdar group))
(setcdr (car group) nil))
(gnugo-propertize-board-buffer))
;; last move
(when move
(cl-destructuring-bind (l-ov . r-ov) (gnugo-get :paren-ov)
(if (member move '("PASS" "resign"))
- (mapc 'delete-overlay (list l-ov r-ov))
+ (gnugo--zonk-ovs (list l-ov r-ov))
(let* ((p (gnugo-goto-pos move))
(hspec (gnugo-get :highlight-last-move-spec))
(display-value (nth 0 hspec))
@@ -1074,7 +1077,7 @@ its move."
(gnugo-aqr sel game-over))
'(live dead))
(dolist (head (mapcar #'car live))
- (mapc 'delete-overlay (cdr head))
+ (gnugo--zonk-ovs (cdr head))
(setcdr head nil))
(cl-loop
for (head . positions) in dead
@@ -1411,7 +1414,7 @@ To start a game try M-x gnugo."
;; Force redisplay of overlays.
(set-buffer-modified-p orig-b-m-p))
(sit-for 5)
- (mapc 'delete-overlay ovs)
+ (gnugo--zonk-ovs ovs)
t)))
(defun gnugo-display-group-data (command buffer-name)
- [elpa] externals/gnugo 2d4e59e 292/357: [gnugo imgen] New feature: gnugo-imgen, (continued)
- [elpa] externals/gnugo 2d4e59e 292/357: [gnugo imgen] New feature: gnugo-imgen, Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 7478f81 302/357: [gnugo int] Bump required ‘xpm’ version to "1.0.1"., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo f1c7c8d 319/357: [gnugo int] Fix verse meter; nfc., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo da8901f 314/357: [gnugo] Release: 3.0.1, Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo a667440 298/357: [gnugo int] Fix up gnugo-frolic.el ‘require’ forms., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo abd1fa0 315/357: [gnugo int] Use ‘replace-regexp-in-string’., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 2e6bbe5 300/357: [gnugo int] Whitespace, comment munging; nfc., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo c0f6ed5 328/357: [gnugo int] Comment munging; nfc., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo cf36ccd 331/357: [gnugo int] Whitespace munging; nfc., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo a70a854 336/357: [gnugo] Add abstraction: gnugo-aqr, Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 1eb43f1 342/357: [gnugo int] Add abstraction: gnugo--zonk-ovs,
Stefan Monnier <=
- [elpa] externals/gnugo abb12ef 345/357: [gnugo] Include seki groups in game-over data., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 82c5b64 351/357: [gnugo imgen] New fit func to ignore bottom grid line, Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 152c53c 354/357: [gnugo] Move two funcs internal., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 5566285 026/357: [gnugo] Give names and docstrings to ‘lambda’ commands., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 62a7c8d 052/357: [gnugo slog] Specify second arg to ‘unintern’., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo eae8444 113/357: [gnugo int] Specify STREAM to ‘pp’ directly., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 00ae088 120/357: [gnugo int] Use ‘gnugo--tree-ends’ more., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo fa99b79 134/357: [gnugo int] Make ‘gnugo-board-buffer-p’ precise., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 8f99c83 151/357: [gnugo frolic int] Don't bother to awake w/ ‘col’., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 283534a 157/357: [gnugo sgf int] Consolidate loops., Stefan Monnier, 2020/11/29