[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] 01/01: [gnugo sgf] Move gratuitous newline from after to before (
From: |
Thien-Thi Nguyen |
Subject: |
[elpa] 01/01: [gnugo sgf] Move gratuitous newline from after to before (sub)trees. |
Date: |
Fri, 14 Mar 2014 07:41:20 +0000 |
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