[elpa] 01/01: [gnugo int] Use ‘follo wing-char’ instead of ‘char-after’.

[Thien-Thi Nguyen]

ttn pushed a commit to branch master
in repository elpa.

commit bfb5f9a62d558243c022365a740b9fe33ae1bbce
Author: Thien-Thi Nguyen <address@hidden>
Date:   Fri Mar 14 09:54:59 2014 +0100

    [gnugo int] Use ‘following-char’ instead of ‘char-after’.
    
    * packages/gnugo/gnugo.el (gnugo-animate-group
    (gnugo-magic-undo, gnugo/sgf-read-file): ...here.
---
 packages/gnugo/gnugo.el |   16 ++++++++--------
 1 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/packages/gnugo/gnugo.el b/packages/gnugo/gnugo.el
index 39531e9..a1da4de 100644
--- a/packages/gnugo/gnugo.el
+++ b/packages/gnugo/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))