[elpa] 01/01: [gnugo sgf] Move gratuitous newline from after to before (sub)trees.

[Thien-Thi Nguyen]

ttn pushed a commit to branch master
in repository elpa.

commit e01f269a337552198d92ffd9b6daf0e7488b90e1
Author: Thien-Thi Nguyen <address@hidden>
Date:   Fri Mar 14 08:44:20 2014 +0100

    [gnugo sgf] Move gratuitous newline from after to before (sub)trees.
    
    * packages/gnugo/gnugo.el (gnugo/sgf-write-file >>tree):
    At the start, insert a newline if not at bol;
    at the end, don't insert a newline.
    (gnugo/sgf-write-file): Insert a newline at EOF.
---
 packages/gnugo/gnugo.el |    3 +++
 1 files changed, 3 insertions(+), 0 deletions(-)

diff --git a/packages/gnugo/gnugo.el b/packages/gnugo/gnugo.el
index af71c59..ab59591 100644
--- a/packages/gnugo/gnugo.el
+++ b/packages/gnugo/gnugo.el
@@ -2219,6 +2219,8 @@ starting a new one.  See `gnugo-board-mode' documentation 
for more info."
                        for prop in node
                        do (>>prop prop)))
          (>>tree (tree)
+                 (unless (zerop (current-column))
+                   (newline))
                  (insert "(")
                  (dolist (node tree)
                    (>>node node))
@@ -2226,6 +2228,7 @@ starting a new one.  See `gnugo-board-mode' documentation 
for more info."
       (with-temp-buffer
         (dolist (tree collection)
           (>>tree tree))
+        (newline)
         (write-file filename)))))
 
 ;;; gnugo.el ends here