Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Support
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
C
climacs
Project overview
Project overview
Details
Activity
Releases
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
0
Issues
0
List
Boards
Labels
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Wiki
Wiki
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
climacs
climacs
Commits
5fa89770
Commit
5fa89770
authored
Aug 20, 2006
by
Troels Henriksen
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Improve performance slighly by changing the use of `updating-output'
parent
81c95f9a
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
12 additions
and
11 deletions
+12
-11
pane.lisp
pane.lisp
+12
-11
No files found.
pane.lisp
View file @
5fa89770
...
...
@@ -371,6 +371,7 @@ is made to alter a buffer which has been set read only."))
(
unless
(
null
saved-index
)
(
let
((
contents
(
coerce
(
subseq
line
saved-index
index
)
'string
)))
(
updating-output
(
pane
:unique-id
(
incf
id
)
:id-test
#'
=
:cache-value
contents
:cache-test
#'
string=
)
(
present-contents
contents
pane
)))
...
...
@@ -400,13 +401,16 @@ is made to alter a buffer which has been set read only."))
((
characterp
obj
)
(
output-word
index
)
(
updating-output
(
pane
:unique-id
(
incf
id
)
:cache-value
obj
)
:id-test
#'
=
:cache-value
obj
:cache-test
#'
equal
)
(
present
obj
'character
:stream
pane
)))
(
t
(
output-word
index
)
(
updating-output
(
pane
:unique-id
(
incf
id
)
:id-test
#'
=
:cache-value
obj
:cache-test
#'
eq
)
:cache-test
#'
eq
ual
)
(
present
obj
'character
:stream
pane
))))
(
incf
scan
)
finally
(
output-word
index
)
...
...
@@ -547,15 +551,12 @@ is made to alter a buffer which has been set read only."))
for
id
from
0
below
(
nb-elements
cache
)
do
(
setf
scan
start-offset
)
(
updating-output
(
pane
:unique-id
(
element*
cache
id
)
:cache-value
(
if
(
<=
start-offset
(
offset
(
point
pane
))
(
+
start-offset
(
length
(
element*
cache
id
))))
(
cons
nil
nil
)
(
element*
cache
id
))
:cache-test
#'
eq
)
(
display-line
pane
(
element*
cache
id
)
start-offset
(
syntax
(
buffer
pane
))
(
stream-default-view
pane
)))
(
pane
:unique-id
id
:id-test
#'
equal
:cache-value
(
element*
cache
id
)
:cache-test
#'
equal
)
(
display-line
pane
(
element*
cache
id
)
start-offset
(
syntax
(
buffer
pane
))
(
stream-default-view
pane
)))
(
incf
start-offset
(
1+
(
length
(
element*
cache
id
)))))
(
when
(
mark=
scan
(
point
pane
))
(
multiple-value-bind
(
x
y
)
(
stream-cursor-position
pane
)
...
...
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