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")) ...@@ -250,7 +250,6 @@ window"))
((%views :initform '() :accessor views) ((%views :initform '() :accessor views)
(%groups :initform (make-hash-table :test #'equal) :accessor groups) (%groups :initform (make-hash-table :test #'equal) :accessor groups)
(%active-group :initform nil :accessor active-group) (%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) (%command-table :initform (find-command-table 'climacs-global-table)
:accessor find-applicable-command-table :accessor find-applicable-command-table
:accessor frame-command-table) :accessor frame-command-table)
...@@ -283,9 +282,8 @@ window")) ...@@ -283,9 +282,8 @@ window"))
climacs-window climacs-window
minibuffer)))) minibuffer))))
(:top-level ((lambda (frame) (:top-level ((lambda (frame)
(let ((*kill-ring* (kill-ring frame))) (with-frame-manager ((make-instance 'climacs-frame-manager))
(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 (define-esa-top-level ((frame climacs) command-parser
command-unparser command-unparser
......
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