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
7771706a
Commit
7771706a
authored
Jan 18, 2008
by
Troels Henriksen
Browse files
Added `switch-or-move-to-view' function.
parent
21321fe1
Changes
3
Hide whitespace changes
Inline
Side-by-side
climacs-lisp-syntax.lisp
View file @
7771706a
...
...
@@ -262,7 +262,7 @@ Each newline and following whitespace is replaced by a single space."
all
))
(
expansion-string
(
with-output-to-string
(
s
)
(
pprint
expansion
s
))))
(
let
((
view
(
climacs-core:switch-to-view
(
current-window
)
"*Macroexpansion*"
)))
(
let
((
view
(
climacs-core:switch-
or-move-
to-view
(
current-window
)
"*Macroexpansion*"
)))
(
set-syntax
view
"Lisp"
))
(
let
((
header-string
(
one-line-ify
(
subseq
string
0
(
min
40
(
length
string
))))))
...
...
core.lisp
View file @
7771706a
...
...
@@ -71,6 +71,15 @@ displayed by a Drei instance."))
(
pane-frame
pane
)
'textual-drei-syntax-view
:name
name
)))))
(
defun
switch-or-move-to-view
(
pane
view
)
"Switch `pane' to show `view'. If `view' is already on display
in some other pane, switch that pane to be the active one."
(
handler-bind
((
view-already-displayed
#'
(
lambda
(
c
)
(
declare
(
ignore
c
))
(
invoke-restart
'switch-to-pane
))))
(
switch-to-view
pane
view
)))
(
defun
views-having-buffer
(
climacs
buffer
)
"Return a list of the buffer-views of `climacs' showing
`buffer'."
...
...
packages.lisp
View file @
7771706a
...
...
@@ -98,7 +98,7 @@
#:no-upper-p
#:case-relevant-test
#:switch-to-view
#:switch-to-view
#:switch-or-move-to-view
#:make-new-buffer
#:make-new-named-buffer
#:erase-buffer
...
...
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