Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
climacs
climacs
Commits
45790ee0
Commit
45790ee0
authored
Mar 28, 2008
by
Troels Henriksen
Browse files
Update to use a global kill ring.
parent
97a64eca
Changes
1
Hide whitespace changes
Inline
Side-by-side
gui.lisp
View file @
45790ee0
...
@@ -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
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment