emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] 15/17: [gnugo int] Use ‘(spli t-string STR SEP t)’.


From: Thien-Thi Nguyen
Subject: [elpa] 15/17: [gnugo int] Use ‘(spli t-string STR SEP t)’.
Date: Mon, 03 Feb 2014 09:35:10 +0000

ttn pushed a commit to branch ttn-gnugo
in repository elpa.

commit 587174232eeca6407435e683dc491850b27d2949
Author: Thien-Thi Nguyen <address@hidden>
Date:   Fri Jan 31 13:51:08 2014 +0100

    [gnugo int] Use ‘(split-string STR SEP t)’.
    
    * packages/gnugo/gnugo.el (gnugo-animate-group): ...here,
    instead of manually deleting the empty strings
    returned from a two-arg call to ‘split-string’.
---
 packages/gnugo/ChangeLog |    8 ++++++++
 packages/gnugo/gnugo.el  |    5 +----
 2 files changed, 9 insertions(+), 4 deletions(-)

diff --git a/packages/gnugo/ChangeLog b/packages/gnugo/ChangeLog
index 88dd071..7e833e8 100644
--- a/packages/gnugo/ChangeLog
+++ b/packages/gnugo/ChangeLog
@@ -1,5 +1,13 @@
 2014-01-31  Thien-Thi Nguyen  <address@hidden>
 
+       [gnugo int] Use ‘(split-string STR SEP t)’.
+
+       * gnugo.el (gnugo-animate-group): ...here,
+       instead of manually deleting the empty strings
+       returned from a two-arg call to ‘split-string’.
+
+2014-01-31  Thien-Thi Nguyen  <address@hidden>
+
        [gnugo int] Use ‘display’ property more.
 
        * gnugo.el (gnugo-toggle-image-display): ...here,
diff --git a/packages/gnugo/gnugo.el b/packages/gnugo/gnugo.el
index b3b3cdf..17cb428 100644
--- a/packages/gnugo/gnugo.el
+++ b/packages/gnugo/gnugo.el
@@ -1050,10 +1050,7 @@ To start a game try M-x gnugo."
                    (error "No stone at %s" pos))))
     (message "Computing %s ... %s in group." command (length stones))
     (setplist (gnugo-f 'anim) nil)
-    (let* ((spec (let ((spec
-                        ;; `(split-string gnugo-animation-string "" t)'
-                        ;; works as well, for newer emacs versions
-                        (delete "" (split-string gnugo-animation-string ""))))
+    (let* ((spec (let ((spec (split-string gnugo-animation-string "" t)))
                    (cond ((gnugo-get :display-using-images)
                           (let* ((yin (get-text-property (point) 'gnugo-yin))
                                  (yang (gnugo-yang (char-after)))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]