[elpa] externals/gnugo 6170d2a 333/357: [gnugo] Make ‘C-c C-p’ output more spacious.

[Stefan Monnier]

branch: externals/gnugo
commit 6170d2af61119e3d50859ed28ba1605c3c889afb
Author: Thien-Thi Nguyen <ttn@gnu.org>
Commit: Thien-Thi Nguyen <ttn@gnu.org>

    [gnugo] Make ‘C-c C-p’ output more spacious.
    
    * packages/gnugo/gnugo.el (gnugo-describe-internal-properties):
    Don't display the properties as one form; instead, display both
    property name and value starting in column zero, and add a blank
    line between properties.
---
 gnugo.el | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

diff --git a/gnugo.el b/gnugo.el
index 0fad0ac..ed5e07d 100644
--- a/gnugo.el
+++ b/gnugo.el
@@ -336,9 +336,16 @@ Handle the big, slow-to-render, and/or uninteresting ones 
specially."
     (erase-buffer)
     (emacs-lisp-mode)
     (setq truncate-lines t)
+    (insert ";;; " (message "%d properties" (length acc)))
     (save-excursion
-      (pp acc
-          (current-buffer))
+      (cl-loop
+       with standard-output = (current-buffer)
+       for (key . val) in acc
+       do (progn
+            (unless (bolp)
+              (newline))
+            (print key)
+            (pp val)))
       (goto-char (point-min))
       (let ((rx (format "overlay from \\([0-9]+\\).+\n%s\\s-+"
                         (if (string= "" d)
@@ -348,8 +355,7 @@ Handle the big, slow-to-render, and/or uninteresting ones 
specially."
           (let ((pos (get-text-property (string-to-number (match-string 1))
                                         'gnugo-position buf)))
             (delete-region (+ 2 (match-beginning 0)) (point))
-            (insert (format " %S" pos))))))
-    (message "%d properties" (length acc))))
+            (insert (format " %S" pos))))))))
 
 (defun gnugo-board-buffer-p (&optional buffer)
   "Return non-nil if BUFFER is a GNUGO Board buffer."