From 41ac53c7e8f3b94f8466b49b8b9da76db2da0466 Mon Sep 17 00:00:00 2001
From: eknauel <eknauel>
Date: Wed, 11 May 2005 13:27:59 +0000
Subject: [PATCH] Add mutators to BUFFER records

---
 scheme/input-buffer.scm     | 21 ++++++++++-----------
 scheme/ncurses-packages.scm | 10 ++++++++++
 2 files changed, 20 insertions(+), 11 deletions(-)

diff --git a/scheme/input-buffer.scm b/scheme/input-buffer.scm
index b96db97..f1a74df 100644
--- a/scheme/input-buffer.scm
+++ b/scheme/input-buffer.scm
@@ -46,17 +46,16 @@
 	       num-cols
 	       can-write
 	       history-pos)
-  (text buffer-text)
-  (pos-line buffer-pos-line)
-  (pos-col buffer-pos-col)
-  (pos-fin-ln buffer-pos-fin-ln)
-  (pos-y buffer-pos-y)
-  (pos-x buffer-pos-x)
-  (num-lines buffer-num-lines)
-  (num-cols buffer-num-cols)
-  (can-write buffer-can-write)
-  (history-pos buffer-history-pos))  
-
+  (text buffer-text set-buffer-text!)
+  (pos-line buffer-pos-line set-buffer-pos-line!)
+  (pos-col buffer-pos-col set-buffer-pos-col!)
+  (pos-fin-ln buffer-pos-fin-ln set-buffer-pos-fin-ln!)
+  (pos-y buffer-pos-y set-buffer-pos-y!)
+  (pos-x buffer-pos-x set-buffer-pos-x!)
+  (num-lines buffer-num-lines set-buffer-num-lines!)
+  (num-cols buffer-num-cols set-buffer-num-cols!)
+  (can-write buffer-can-write set-buffer-can-write!)
+  (history-pos buffer-history-pos set-buffer-history-pos!))
 
 ;;handle input
 (define input
diff --git a/scheme/ncurses-packages.scm b/scheme/ncurses-packages.scm
index b7640c6..30e0617 100644
--- a/scheme/ncurses-packages.scm
+++ b/scheme/ncurses-packages.scm
@@ -342,15 +342,25 @@
 
 	  buffer
 	  buffer-text
+	  set-buffer-text!
 	  buffer-pos-line
+	  set-buffer-pos-line!
 	  buffer-pos-col
+	  set-buffer-pos-col!
 	  buffer-pos-fin-ln
+	  set-buffer-pos-fin-ln!
 	  buffer-pos-y
+	  set-buffer-pos-y!
 	  buffer-pos-x
+	  set-buffer-pos-x!
 	  buffer-num-lines
+	  set-buffer-num-lines!
 	  buffer-num-cols
+	  set-buffer-num-cols!
 	  buffer-can-write
+	  set-buffer-can-write!
 	  buffer-history-pos
+	  set-buffer-history-pos!
 	  make-buffer
 	  input
 	  print-command-buffer