[elpa] 01/01: [gnugo int] Use ‘incf ’ more.

[Thien-Thi Nguyen]

ttn pushed a commit to branch master
in repository elpa.

commit 046d6a37faf86fefd9227694441b51f1b3fc7b43
Author: Thien-Thi Nguyen <address@hidden>
Date:   Tue Mar 18 18:44:03 2014 +0100

    [gnugo int] Use ‘incf’ more.
    
    * packages/gnugo/gnugo.el (gnugo-note, gnugo-refresh): ...here.
---
 packages/gnugo/gnugo.el |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/packages/gnugo/gnugo.el b/packages/gnugo/gnugo.el
index 2f3db1c..889f799 100644
--- a/packages/gnugo/gnugo.el
+++ b/packages/gnugo/gnugo.el
@@ -705,7 +705,7 @@ For all other values of RSEL, do nothing and return nil."
           (setcdr loc (list fruit))
           (aset monkey 0 (setq loc (cdr loc)))
           (aset monkey 1 (cons loc mem))
-          (aset monkey 2 (1+ (aref monkey 2))))
+          (incf (aref monkey 2)))
       (setcdr (last (car loc)) fruit))))
 
 (defun gnugo-close-game (end-time resign)
@@ -977,7 +977,7 @@ its move."
                  (let (acc cut c)
                    (while (setq cut (string-match "~[bwpmtu]" cur))
                      (aset cur cut ?%)
-                     (setq cut (1+ cut) c (aref cur cut))
+                     (setq c (aref cur (incf cut)))
                      (aset cur cut ?s)
                      (push
                       `(,(intern (format "squig-%c" c))