world-monitor: truncate lines

diff --git a/src/edwin/world-monitor.scm b/src/edwin/world-monitor.scm
index 5b02a344b6374f010d27d7bdae3142202519eaa8..6705693b40ca46ef5a5f090bab0a1390c1817081 100644 (file)
--- a/src/edwin/world-monitor.scm
+++ b/src/edwin/world-monitor.scm
@@ -49,6 +49,7 @@ it, and spawn a thread to update it after every
 
 (define (start-world-monitor buffer)
   (set-buffer-major-mode! buffer (ref-mode-object read-only))
+  (local-set-variable! truncate-lines #t buffer)
   (let ((registration #f)
        (report #f)
        (thread-flags (list (cons (current-thread) "edwin"))))