[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/gnugo 5524a47 262/357: [gnugo int] Maintain current bu
From: |
Stefan Monnier |
Subject: |
[elpa] externals/gnugo 5524a47 262/357: [gnugo int] Maintain current buffer in ‘gnugo--finish-move’. |
Date: |
Sun, 29 Nov 2020 14:51:35 -0500 (EST) |
branch: externals/gnugo
commit 5524a47d2ec815769e1ce35790535d6a58b53af4
Author: Thien-Thi Nguyen <ttn@gnu.org>
Commit: Thien-Thi Nguyen <ttn@gnu.org>
[gnugo int] Maintain current buffer in ‘gnugo--finish-move’.
* packages/gnugo/gnugo.el (gnugo--finish-move):
Don't take arg BUF; instead, note and restore
the current buffer around the call to ‘run-hooks’.
(gnugo-get-move-insertion-filter)
(gnugo-user-play): Update accordingly.
---
gnugo.el | 24 +++++++++++-------------
1 file changed, 11 insertions(+), 13 deletions(-)
diff --git a/gnugo.el b/gnugo.el
index d4cc344..563dff4 100644
--- a/gnugo.el
+++ b/gnugo.el
@@ -1622,10 +1622,11 @@ its move."
(when (setq last (gnugo-get :last-user-bpos))
(gnugo-goto-pos last))))
-(defun gnugo--finish-move (buf)
- (run-hooks 'gnugo-post-move-hook)
- (with-current-buffer buf
- (gnugo-refresh)))
+(defun gnugo--finish-move ()
+ (let ((buf (current-buffer)))
+ (run-hooks 'gnugo-post-move-hook)
+ (set-buffer buf))
+ (gnugo-refresh))
;;;---------------------------------------------------------------------------
;;; Game play actions
@@ -1661,9 +1662,8 @@ its move."
(eq 'nowarp suggestion))
(gnugo-goto-pos full))
(gnugo--display-suggestion color full))
- (let* ((donep (gnugo-push-move color full))
- (buf (current-buffer)))
- (gnugo--finish-move buf)
+ (let ((donep (gnugo-push-move color full)))
+ (gnugo--finish-move)
(when (gnugo-get :abd)
(gnugo-put :abd
(unless donep
@@ -1672,7 +1672,7 @@ its move."
nil (lambda (buf color)
(with-current-buffer buf
(gnugo-get-move color)))
- buf
+ (current-buffer)
(gnugo-other color))))))))))))
(defun gnugo-get-move (color &optional suggestion)
@@ -1728,12 +1728,10 @@ cursor to the suggested position. Prefix arg inhibits
warp."
;; Now, it signifies only the former.
(let* ((gcolor (gnugo-get :gnugo-color))
(userp (string= gcolor (gnugo-get :last-mover)))
- (donep (gnugo-push-move userp pos-or-pass))
- (buf (current-buffer)))
- (gnugo--finish-move buf)
+ (donep (gnugo-push-move userp pos-or-pass)))
+ (gnugo--finish-move)
(when (and userp (not donep))
- (with-current-buffer buf
- (gnugo-get-move gcolor)))))
+ (gnugo-get-move gcolor))))
(defun gnugo-move ()
"Make a move on the GNUGO Board buffer.
- [elpa] externals/gnugo d4a4afd 289/357: [gnugo int] Add section "Tip Jar" in Commentary; nfc., (continued)
- [elpa] externals/gnugo d4a4afd 289/357: [gnugo int] Add section "Tip Jar" in Commentary; nfc., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo c09c26a 304/357: [gnugo int] Use "%F" and "%T"., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 53fe424 306/357: [gnugo maint] Update HACKING; nfc., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 21e1d9a 303/357: [gnugo int] Expose function to byte-compiler., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 0469947 322/357: [gnugo slog] Prefer Cursor Intangible mode, if available., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 4930156 239/357: [gnugo int] Move ‘gnugo-position’ call down-chain., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 57faa71 256/357: [gnugo] Don't display "Abdication {en, dis}abled"., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 6edd793 252/357: [gnugo] Make undo commands silently handle overkill., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo b0b18d0 254/357: [gnugo int] Decorate w/ plist instead of alist., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo b07f602 248/357: [gnugo int] Move ‘gnugo--passp’ earlier in file., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 5524a47 262/357: [gnugo int] Maintain current buffer in ‘gnugo--finish-move’.,
Stefan Monnier <=
- [elpa] externals/gnugo 2b8d5aa 258/357: [gnugo int] Compute "Abd" in mode-line at time of change., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 6a7af2a 274/357: [gnugo int] Decruft: Presume ‘display-images-p’., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 35571e3 287/357: [gnugo int] Use private obarray for :all-yy elems, display props., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 0473d72 264/357: [gnugo int] Comment munging; nfc., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 5b49aad 316/357: [gnugo int] Use ‘line-end-position’., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 7544ffe 311/357: [gnugo maint] Add copyright policy to HACKING; nfc., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 1ff7a11 307/357: [gnugo maint] Add ‘URL’ header; trim Hacking URL; drop Tip Jar URL., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 10d29a9 301/357: [gnugo] Only set AP for modified gametrees in the collection., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo da98bc8 288/357: [gnugo int] Replace COND expression w/ IF., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 26c849f 330/357: [gnugo int] Decruft: Don't declare hook and keymap vars., Stefan Monnier, 2020/11/29