Skip to content
GitLab
Menu
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
lyskom-elisp-client
lyskom-elisp-client
Commits
a6fa5357
Commit
a6fa5357
authored
Dec 19, 1993
by
Linus Tolke
Browse files
review-kommands are now telling the world we are reviewing.
parent
3fefe569
Changes
3
Hide whitespace changes
Inline
Side-by-side
src/ChangeLog
View file @
a6fa5357
No preview for this file type
src/lyskom-rest.el
View file @
a6fa5357
No preview for this file type
src/review.el
View file @
a6fa5357
...
...
@@ -58,6 +58,7 @@ No argument is equivalent to COUNT 1.
The defaults for this command is the conference that you are in."
(
interactive
"p"
)
(
lyskom-start-of-command
'kom-review-by-to
)
(
lyskom-tell-internat
'kom-tell-review
)
(
if
(
and
(
listp
count
)
(
integerp
(
car
count
))
(
null
(
cdr
count
)))
...
...
@@ -404,6 +405,7 @@ instead. In this case the text TEXT-NO is first shown."
(
t
(
signal
'lyskom-internat-error
'
(
kom-review-tree
))))))
(
lyskom-start-of-command
'kom-review-tree
)
(
lyskom-tell-internat
'kom-tell-review
)
(
if
text-no
(
progn
(
initiate-get-text-stat
'main
'lyskom-follow-comments
text-no
...
...
@@ -419,6 +421,7 @@ instead. In this case the text TEXT-NO is first shown."
"Finds the root text of the tree containing the text in lyskom-current-text."
(
interactive
)
(
lyskom-start-of-command
'kom-find-root
)
(
lyskom-tell-internat
'kom-tell-review
)
(
cond
(
lyskom-current-text
(
lyskom-collect
'review
)
...
...
@@ -442,6 +445,7 @@ and then runs lyskom-end-of-command."
reviews the whole tree in deep-first order."
(
interactive
)
(
lyskom-start-of-command
'kom-find-root-review
)
(
lyskom-tell-internat
'kom-tell-review
)
(
cond
(
lyskom-current-text
(
lyskom-collect
'review
)
...
...
@@ -517,6 +521,7 @@ the lyskom-reading-list to the beginning. i.e by moving all other types to the
end."
(
interactive
)
(
lyskom-start-of-command
'kom-review-next
)
(
lyskom-tell-internat
'kom-tell-review
)
(
let
((
len
(
read-list-length
lyskom-reading-list
))
(
finished
nil
))
(
while
(
and
(
not
finished
)
...
...
@@ -602,7 +607,7 @@ If the current text has comments in (footnotes in) some texts then the first
text is shown and a REVIEW list is built to shown the other ones."
(
interactive
)
(
lyskom-start-of-command
'kom-review-comments
)
(
lyskom-tell-internat
'kom-tell-re
ad
)
(
lyskom-tell-internat
'kom-tell-re
view
)
(
initiate-get-text-stat
'read
'lyskom-review-comments
lyskom-current-text
))
...
...
@@ -652,6 +657,7 @@ text is shown and a REVIEW list is built to shown the other ones."
(
list
(
lyskom-read-number
(
lyskom-get-string
'read-normally-read
)
1
)))
(
lyskom-start-of-command
'kom-review-last-normally-read
)
(
lyskom-tell-internat
'kom-tell-review
)
(
let*
((
text-nos
(
reverse
(
nfirst
no
lyskom-normally-read-texts
))))
(
if
text-nos
(
progn
...
...
Write
Preview
Supports
Markdown
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