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
