[climacs-cvs] CVS climacs

[thenriksen]

Update of /project/climacs/cvsroot/climacs
In directory clnet:/tmp/cvs-serv28879

Modified Files:
	core.lisp 
Log Message:
Fixed memory creep issue.


--- /project/climacs/cvsroot/climacs/core.lisp	2007/12/12 23:44:42	1.18
+++ /project/climacs/cvsroot/climacs/core.lisp	2007/12/13 19:09:39	1.19
@@ -87,6 +87,11 @@
        (filepath (buffer view))
        (needs-saving (buffer view))))
 
+(defun dummy-buffer ()
+  "Create a dummy buffer object for use when killing views, to
+prevent increasing memory usage."
+  (make-instance 'drei-buffer))
+
 (defgeneric kill-view (view)
   (:documentation "Remove `view' from the Climacs specified in
 `*esa-instance*'. If `view' is currently displayed in a window,
@@ -106,6 +111,11 @@
                                   (return-from kill-view nil)))))
       (save-buffer (buffer view)))
     (setf views (remove view views))
+    ;; If we don't change the buffer of the view, a reference to the
+    ;; view will be kept in the buffer, and the view will thus not be
+    ;; garbage-collected. So create a circular reference structure
+    ;; that can be garbage-collected instead.
+    (setf (buffer view) (dummy-buffer))
     (full-redisplay (current-window))
     (current-view)))