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
309d3db0
Commit
309d3db0
authored
Jan 17, 2008
by
Troels Henriksen
Browse files
Update in response to *drei-instance* changes.
parent
2b4b7100
Changes
2
Hide whitespace changes
Inline
Side-by-side
gui.lisp
View file @
309d3db0
...
...
@@ -302,8 +302,7 @@ window"))
partial-command-parser
prompt
)
:bindings
((
*default-target-creator*
*climacs-target-creator*
)
(
*drei-instance*
(
esa-current-window
frame
))
(
*previous-command*
(
previous-command
*drei-instance*
))
(
*previous-command*
(
previous-command
(
drei-instance
)))
(
*standard-output*
(
or
(
output-stream
frame
)
*terminal-io*
))))
...
...
@@ -326,6 +325,9 @@ window"))
(
setf
(
buffer
(
current-view
(
esa-current-window
application-frame
)))
new-buffer
))
(
defmethod
drei-instance-of
((
frame
climacs
))
(
esa-current-window
frame
))
(
defmethod
(
setf
windows
)
:after
(
new-val
(
climacs
climacs
))
;; Ensures that we don't end up with two views that both believe
;; they are active.
...
...
java-syntax-commands.lisp
View file @
309d3db0
...
...
@@ -79,7 +79,7 @@ string at point."
(
if
(
plusp
count
)
(
loop
repeat
count
do
(
forward-expression
mark
(
current-syntax
)))
(
loop
repeat
(
-
count
)
do
(
backward-expression
mark
(
current-syntax
))))
(
indent-region
*drei-instance*
(
point
)
mark
)))
(
indent-region
(
current-view
)
(
point
)
mark
)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
...
...
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