Commit 45790ee0 authored by Troels Henriksen's avatar Troels Henriksen
Browse files

Update to use a global kill ring.

parent 97a64eca
......@@ -250,7 +250,6 @@ window"))
((%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 @@ window"))
(: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 ")))))))
(esa-top-level frame :prompt "M-x "))))))
(define-esa-top-level ((frame climacs) command-parser
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment