[climacs-cvs] CVS climacs

[thenriksen]

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

Modified Files:
	gui.lisp 
Log Message:
Update to use a global kill ring.


--- /project/climacs/cvsroot/climacs/gui.lisp	2008/02/06 09:22:58	1.261
+++ /project/climacs/cvsroot/climacs/gui.lisp	2008/03/28 21:10:31	1.262
@@ -250,7 +250,6 @@
   ((%views :initform '() :accessor views)
    (%groups :initform (make-hash-table :test #'equal) :accessor groups)
    (%active-group :initform nil :accessor active-group)
-   (%kill-ring :initform (make-instance 'kill-ring :max-size 7) :accessor kill-ring)
    (%command-table :initform (find-command-table 'climacs-global-table)
                    :accessor find-applicable-command-table
                    :accessor frame-command-table)
@@ -283,9 +282,8 @@
            climacs-window
            minibuffer))))
   (:top-level ((lambda (frame)
-                 (let ((*kill-ring* (kill-ring frame)))
-                   (with-frame-manager ((make-instance 'climacs-frame-manager))
-                     (esa-top-level frame :prompt "M-x ")))))))
+                 (with-frame-manager ((make-instance 'climacs-frame-manager))
+                   (esa-top-level frame :prompt "M-x "))))))
 
 (define-esa-top-level ((frame climacs) command-parser
                        command-unparser