[elpa] 01/01: [gnugo int] Accomodate XPM w/ :color-symbols property.

[Thien-Thi Nguyen]

ttn pushed a commit to branch master
in repository elpa.

commit 43ce3a879cd61af56a24fee4e249f82a763dd4a2
Author: Thien-Thi Nguyen <address@hidden>
Date:   Sun May 18 12:19:44 2014 +0200

    [gnugo int] Accomodate XPM w/ :color-symbols property.
    
    * packages/gnugo/gnugo.el (gnugo-venerate):
    ...here, propagating the foreground :color-symbols
    and value, if available, to the new XPM.
---
 packages/gnugo/gnugo.el |    9 +++++++--
 1 files changed, 7 insertions(+), 2 deletions(-)

diff --git a/packages/gnugo/gnugo.el b/packages/gnugo/gnugo.el
index 304d34e..f6fafaa 100644
--- a/packages/gnugo/gnugo.el
+++ b/packages/gnugo/gnugo.el
@@ -1455,7 +1455,9 @@ This fails if the monkey is on the current branch
   (let* ((fg-yy (gnugo-yy yin yang))
          (fg-disp (or (get fg-yy 'display)
                       (get fg-yy 'do-not-display)))
-         (fg-data (plist-get (cdr fg-disp) :data))
+         (fg-props (cdr fg-disp))
+         (fg-data (plist-get fg-props :data))
+         (c-symbs (plist-get fg-props :color-symbols))
          (bg-yy (gnugo-yy yin (gnugo-yang ?.)))
          (bg-disp (or (get bg-yy 'display)
                       (get bg-yy 'do-not-display)))
@@ -1483,7 +1485,10 @@ This fails if the monkey is on the current branch
         (aset new sx (aref bg-data sb)))
       (incf sx)
       (incf sb))
-    (create-image new 'xpm t :ascent 'center)))
+    (apply 'create-image new 'xpm t
+           :ascent 'center (when c-symbs
+                             (list :color-symbols
+                                   c-symbs)))))
 
 (defun gnugo-refresh (&optional nocache)
   "Update GNUGO Board buffer display.