Print Edwin buffer names.

diff --git a/src/edwin/buffer.scm b/src/edwin/buffer.scm
index 29ca8d3bb642442559611e02c41adfefa155b6d6..eca2e35e7d27f34a039e0051369affa34aaec9c5 100644 (file)
--- a/src/edwin/buffer.scm
+++ b/src/edwin/buffer.scm
@@ -29,7 +29,11 @@ USA.
 (declare (usual-integrations))
 \f
 (define-structure (buffer
-                  (constructor %make-buffer (%name %default-directory)))
+                  (constructor %make-buffer (%name %default-directory))
+                  (print-procedure
+                   (standard-print-method 'BUFFER
+                     (lambda (buffer)
+                       (list (buffer-name buffer))))))
   %name
   group
   mark-ring