[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/gnugo f82c526 078/357: [gnugo int] Use ‘following-char
From: |
Stefan Monnier |
Subject: |
[elpa] externals/gnugo f82c526 078/357: [gnugo int] Use ‘following-char’ instead of ‘char-after’. |
Date: |
Sun, 29 Nov 2020 14:50:53 -0500 (EST) |
branch: externals/gnugo
commit f82c526e187f82983797218f4e92c6d0a34975e8
Author: Thien-Thi Nguyen <ttn@gnu.org>
Commit: Thien-Thi Nguyen <ttn@gnu.org>
[gnugo int] Use ‘following-char’ instead of ‘char-after’.
* packages/gnugo/gnugo.el (gnugo-animate-group
(gnugo-magic-undo, gnugo/sgf-read-file): ...here.
---
gnugo.el | 16 ++++++++--------
1 file changed, 8 insertions(+), 8 deletions(-)
diff --git a/gnugo.el b/gnugo.el
index 39531e9..a1da4de 100644
--- a/gnugo.el
+++ b/gnugo.el
@@ -1112,7 +1112,7 @@ To start a game try M-x gnugo."
(let* ((pos (gnugo-position))
(orig-b-m-p (buffer-modified-p))
blurb stones)
- (unless (memq (char-after) '(?X ?O))
+ (unless (memq (following-char) '(?X ?O))
(user-error "No stone at %s" pos))
(setq blurb (message "Computing %s stones ..." w/d)
stones (gnugo-lsquery "%s_stones %s" w/d pos))
@@ -1120,7 +1120,7 @@ To start a game try M-x gnugo."
(setplist (gnugo-f 'anim) nil)
(let* ((spec (if (gnugo-get :display-using-images)
(loop with yin = (get-text-property (point) 'gnugo-yin)
- with yang = (gnugo-yang (char-after))
+ with yang = (gnugo-yang (following-char))
with up = (get (gnugo-yy yin yang t) 'display)
with dn = (get (gnugo-yy yin yang) 'display)
for n below (length gnugo-animation-string)
@@ -1378,12 +1378,12 @@ turn to play. Optional second arg NOALT non-nil
inhibits this."
(let ((pos (upcase spec)))
(setq done `(lambda ()
(gnugo-goto-pos ,pos)
- (memq (char-after) '(?. ?+))))
+ (memq (following-char) '(?. ?+))))
(when (funcall done)
(user-error "%s already clear" pos))
(when (= (save-excursion
(gnugo-goto-pos pos)
- (char-after))
+ (following-char))
(if (string= "black" user-color)
?O
?X))
@@ -2076,7 +2076,7 @@ starting a new one. See `gnugo-board-mode' documentation
for more info."
(t (lambda (char) (or (= ?\: char)
(= ?\] char))))))
c)
- (while (not (funcall endp (setq c (char-after))))
+ (while (not (funcall endp (setq c (following-char))))
(cond ((= ?\\ c)
(delete-char 1)
(if (eolp)
@@ -2103,7 +2103,7 @@ starting a new one. See `gnugo-board-mode' documentation
for more info."
(one (aref spec 0) :end))
((eq 'or (car spec))
(let ((v (one (cadr spec) t)))
- (if (= ?\] (char-after))
+ (if (= ?\] (following-char))
v
(forward-char 1)
;; todo: this assumes `spec' has the form
@@ -2117,7 +2117,7 @@ starting a new one. See `gnugo-board-mode' documentation
for more info."
(one (cdr spec) :end)))))
(short (who) (when (eobp)
(error "Unexpected EOF while reading %s" who)))
- (atvalp () (= ?\[ (char-after)))
+ (atvalp () (= ?\[ (following-char)))
(PROP () (let (name spec ltype)
(sw) (short 'property)
(when (looking-at "[A-Z]")
@@ -2143,7 +2143,7 @@ starting a new one. See `gnugo-board-mode' documentation
for more info."
(forward-char -1)
(nreverse ls))))
(forward-char 1))))))
- (seek (c) (and (sw) (not (eobp)) (= c (char-after))))
+ (seek (c) (and (sw) (not (eobp)) (= c (following-char))))
(seek-into (c) (when (seek c)
(forward-char 1)
t))
- [elpa] externals/gnugo a4c246e 188/357: [gnugo frolic] Display "!" for comment; add as ‘help-echo’., (continued)
- [elpa] externals/gnugo a4c246e 188/357: [gnugo frolic] Display "!" for comment; add as ‘help-echo’., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 8203f46 194/357: [gnugo int] Centralize some constant strings., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo b1f2856 183/357: [gnugo] Fix bug: Keep subproc informed of forced PASS., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 3112192 056/357: [gnugo int] Streamline subproc (de-)marshalling., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 294bdc1 047/357: [gnugo maint] Update NEWS; nfc., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo b5f47cb 059/357: [gnugo int] Use ‘pcase’ more., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 8cabdfa 042/357: [gnugo int] Use internal macros more., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo b484515 064/357: [gnugo int] Use ‘loop’, functional style more., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo a7dffa0 067/357: [gnugo maint] Update NEWS; nfc., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo d2b4549 068/357: [gnugo] Bind ‘M-u’ to ‘gnugo-undo-one-move’., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo f82c526 078/357: [gnugo int] Use ‘following-char’ instead of ‘char-after’.,
Stefan Monnier <=
- [elpa] externals/gnugo f29b22f 081/357: [gnugo int] Use ‘setq’ less., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 38137d3 079/357: [gnugo int] Cache gametree prop ‘:SZ’ as gnugo prop ‘:SZ’., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo d6f3956 089/357: [gnugo int] Decruft: Infer MOVEP from PROPERTY., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 5ca5b0a 097/357: [gnugo int] Add abstraction: gnugo--nodep, Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo a86a897 013/357: [gnugo int] Use ‘redisplay’ more., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 3063f95 041/357: [gnugo] Make proc-status change mode-line elem more informative., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo c2f7717 053/357: [gnugo slog] Fix bug: Avoid ‘cl-lib’ funcs; use only macros., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 02926a1 049/357: [gnugo] Rename var to ‘gnugo-inhibit-refresh’., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 5e4b5a8 051/357: [gnugo] Release: 2.3.0, Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 400e27d 069/357: [gnugo int] Add abstraction: gnugo--who-is-who, Stefan Monnier, 2020/11/29