[elpa] 48/51: [gnugo] Fix bug: Compute grid spacing using offset math.

[Thien-Thi Nguyen]

ttn pushed a commit to branch master
in repository elpa.

commit fd1fb6d2f588e9f7da7567bb00a42a8e28134ea5
Author: Thien-Thi Nguyen <address@hidden>
Date:   Mon Feb 24 13:02:09 2014 +0100

    [gnugo] Fix bug: Compute grid spacing using offset math.
    
    OBOE introduced 2006-04-09 (release 2.2.13).
    
    * packages/gnugo/gnugo.el (gnugo-refresh):
    Don't use ‘wmul’ directly to compute ‘gspc’;
    instead, use one plus the re-derived image pixel-width.
---
 packages/gnugo/gnugo.el |   12 +++++++++++-
 1 files changed, 11 insertions(+), 1 deletions(-)

diff --git a/packages/gnugo/gnugo.el b/packages/gnugo/gnugo.el
index dc646ef..1dc73ee 100644
--- a/packages/gnugo/gnugo.el
+++ b/packages/gnugo/gnugo.el
@@ -917,7 +917,17 @@ its move."
                                                   (under10p 0)
                                                   (t 1))))))
                         (gspc . ,(when imagesp
-                                   `(display (space-width ,(- wmul 1.0)))))
+                                   `(display
+                                     (space-width
+                                      ,(-
+                                        ;; DWR: image width alone => OBOE!
+                                        ;;- wmul
+                                        ;; NB: ‘(* wmul cw)’ is the same
+                                        ;; as ‘(car (image-size ... t))’.
+                                        (let ((cw (frame-char-width)))
+                                          (/ (+ 1.0 (* wmul cw))
+                                             cw))
+                                        1.0)))))
                         (lpad . ,(let ((d `(display (space :align-to ,w))))
                                    ;; We distinguish between these cases to
                                    ;; workaround a display bug whereby the