[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/gnugo 423683d 055/357: [gnugo int] Use ‘dolist’, ‘dest
From: |
Stefan Monnier |
Subject: |
[elpa] externals/gnugo 423683d 055/357: [gnugo int] Use ‘dolist’, ‘destructuring-bind’ more. |
Date: |
Sun, 29 Nov 2020 14:50:47 -0500 (EST) |
branch: externals/gnugo
commit 423683dc7cf173ea8df3a3fb6dccb984bf2ed58d
Author: Thien-Thi Nguyen <ttn@gnu.org>
Commit: Thien-Thi Nguyen <ttn@gnu.org>
[gnugo int] Use ‘dolist’, ‘destructuring-bind’ more.
* packages/gnugo/gnugo.el (gnugo-board-mode): ...here,
instead of ‘mapc’ + ‘apply’, for post-‘-l’ fixup.
---
gnugo.el | 12 +++++-------
1 file changed, 5 insertions(+), 7 deletions(-)
diff --git a/gnugo.el b/gnugo.el
index 274b563..43ee423 100644
--- a/gnugo.el
+++ b/gnugo.el
@@ -1724,13 +1724,11 @@ In this mode, keys do not self insert.
;; Emacs is too protective sometimes, blech.
(set-process-query-on-exit-flag (gnugo-get :proc) nil)
(when (or minus-l infile)
- (mapc (lambda (x)
- (apply (lambda (prop q)
- (set prop (string-to-number (gnugo-query q))))
- x))
- '((board-size "query_boardsize")
- (komi "get_komi")
- (handicap "get_handicap"))))
+ (dolist (x '((board-size "query_boardsize")
+ (komi "get_komi")
+ (handicap "get_handicap")))
+ (destructuring-bind (prop q) x
+ (set prop (string-to-number (gnugo-query q))))))
(gnugo-put :diamond (substring (process-name (gnugo-get :proc)) 5))
(gnugo-put :gnugo-color (gnugo-other (gnugo-get :user-color)))
(gnugo-put :highlight-last-move-spec
- [elpa] externals/gnugo d02a500 095/357: [gnugo maint] NEWS futzing; nfc., (continued)
- [elpa] externals/gnugo d02a500 095/357: [gnugo maint] NEWS futzing; nfc., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 273da4b 098/357: [gnugo sgf] Normalize PASS internal rep on read, as ""., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 61be18a 022/357: [gnugo maint] Add .dir-locals.el file, link in HACKING; nfc., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 0c7bc82 025/357: [gnugo int] Use cl-{plus, minus}p more., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 6d835b3 023/357: [gnugo int] Drop unused local var., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 2a75447 034/357: [gnugo int] Use ‘set-process-query-on-exit-flag’., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo bd4d40f 028/357: [gnugo int] Drop leading "*" in docstrings., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 7ef5c66 036/357: [gnugo int] Revamp gnugo-{put, get} doc / indentation decl., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo d41a581 029/357: [gnugo] Indicate buffer not modified after load., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 80a22a5 032/357: [gnugo] Use ‘user-error’., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 423683d 055/357: [gnugo int] Use ‘dolist’, ‘destructuring-bind’ more.,
Stefan Monnier <=
- [elpa] externals/gnugo 7c3a30f 100/357: [gnugo int] Use ‘pop’ more., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo a35692a 106/357: [gnugo int] Add abstraction: gnugo--move-prop, Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 6ee477d 112/357: [gnugo int] Remove abstraction: continue-on, Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 58d4d6d 117/357: [gnugo int] Add abstractions: gnugo--{, set-}tree-ends, Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo f107328 122/357: [gnugo int] Expand gametree IR: MNUM, KIDS, ROOT., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo c3b3c3f 123/357: [gnugo int] Fix bug: Detect case for KIDS addition correctly., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo a63d31b 128/357: [gnugo int] Comment munging; nfc., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 3a7f75e 132/357: [gnugo] Define "GNUGO Frolic" mode., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo cb78651 138/357: [gnugo frolic] Add command to prune a branch., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 7025924 156/357: [gnugo sgf] Fix bug: Add ‘\’-escapes on write., Stefan Monnier, 2020/11/29