From thenriksen at common-lisp.net Fri Mar 28 21:10:32 2008 From: thenriksen at common-lisp.net (thenriksen) Date: Fri, 28 Mar 2008 16:10:32 -0500 (EST) Subject: [climacs-cvs] CVS climacs Message-ID: <20080328211032.2DCE25C188@common-lisp.net> 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