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
53bb1c5a
Commit
53bb1c5a
authored
Jul 19, 1996
by
David Kågedal
Browse files
Lite fixar
parent
93ad621e
Changes
3
Hide whitespace changes
Inline
Side-by-side
src/ChangeLog
View file @
53bb1c5a
Fri Jul 19 18:29:41 1996 David Kgedal <davidk@lysator.liu.se>
* view-text.el (lyskom-follow-comments): Det stod comments p ett
stllet dr det skulle ha sttt footnotes.
Thu Jul 18 10:53:36 1996 David Kgedal <davidk@lysator.liu.se>
* commands1.el (kom-status-session): Ny kod frn David.
* view-text.el (lyskom-follow-comments): Frskte lsa hemliga
kommentarer om kom-follow-comments-outside-membership var t.
Gjorde om frsket att f fotnoter att lsas frst om
kom-show-footnotes-immediately r nil. Frhoppningsvis lyckades
det den hr gngen (Jag tjuvkikade p 0.38.2).
Thu Jul 18 10:18:13 1996 David Byers <davby@sen2.ida.liu.se>
* lyskom-rest.el (lyskom-format-conf-type): Bugfix (det fungerade
...
...
@@ -11,6 +26,11 @@ Wed Jul 17 11:35:10 1996 David Byers <davby@sen2.ida.liu.se>
alltid texter man skriver sjlv.) Detta gr att det gr snabbare
att skicka personliga svar.
Wed Jul 17 01:07:40 1996 David Kgedal <davidk@lysator.liu.se>
* view-text.el (lyskom-follow-comments): Frskte fixa s att
fotnoter fr lsas frst om kom-show-footnotes-immediately r nil.
Tue Jul 16 10:25:47 1996 David Byers <davby@sen2.ida.liu.se>
* swedish-strings.el (lyskom-strings): Bytte \345 -> \344 p en
...
...
src/commands1.el
View file @
53bb1c5a
...
...
@@ -1638,7 +1638,7 @@ If MARK-NO == 0, review all marked texts."
(
defun
lyskom-return-username
(
who-info
)
"Takes the username from the WHO-INFO and returns it on a better format."
(
let*
((
username
(
if
(
eq
'SESSION-INFO
who-info
)
(
let*
((
username
(
if
(
eq
'SESSION-INFO
who-info
)
; Weird...
(
session-info->username
who-info
)
(
who-info->username
who-info
)))
(
type
(
or
...
...
@@ -1677,17 +1677,15 @@ If MARK-NO == 0, review all marked texts."
Optional argument ARG should be a list of sessions to get information
about or a single session number."
(
interactive
)
(
let
((
sessions
(
or
arg
(
let
((
sessions
(
or
(
cond
((
listp
arg
)
arg
)
((
numberp
arg
)
(
list
arg
)))
(
lyskom-read-session-no
(
lyskom-get-string
'status-for-session
))))
(
who-info
(
listify-vector
(
blocking-do
'who-is-on
))))
(
cond
((
listp
arg
))
((
numberp
arg
)
(
list
arg
))
(
t
(
setq
arg
(
lyskom-read-session-no
(
lyskom-get-string
'status-for-session
)))))
(
mapcar
(
function
(
lambda
(
x
)
(
lyskom-status-session
x
who-info
)))
sessions
)))
(
defun
lyskom-status-session
(
sid
who-info
)
"Show session status for session SID. WHO-INFO is a list of
WHO-INFOS that are potential sessions."
...
...
src/view-text.el
View file @
53bb1c5a
...
...
@@ -173,6 +173,8 @@ Note that this function must not be called asynchronously."
(
lyskom-view-text-handle-saved-comments
text-stat
))
(
if
(
or
follow-comments
;; Checking build-review-tree should not be
;; necessary, really /davidk
build-review-tree
)
;; This shows footnotes also.
(
lyskom-follow-comments
text-stat
conf-stat
mark-as-read
...
...
@@ -200,7 +202,7 @@ lyskom-reading-list."
;; . Fix the reading-list
;; . Issue cache-filling initiate-calls for everything left comments.
(
let
(
(
list
)
)
(
let
(
flist
c
list
)
(
lyskom-traverse
misc
(
text-stat->misc-info-list
text-stat
)
(
cond
((
and
(
eq
(
misc-info->type
misc
)
'FOOTN-IN
)
...
...
@@ -211,17 +213,20 @@ lyskom-reading-list."
mark-as-read
t
conf-stat
priority
review-tree
)
(
lyskom-is-read
(
misc-info->footn-in
misc
)))
((
eq
(
misc-info->type
misc
)
'FOOTN-IN
)
(
setq
list
(
cons
(
misc-info->footn-in
misc
)
list
)))
(
setq
f
list
(
cons
(
misc-info->footn-in
misc
)
f
list
)))
((
eq
(
misc-info->type
misc
)
'COMM-IN
)
(
if
lyskom-show-comments
; +++SOJGE
(
setq
list
(
cons
(
misc-info->comm-in
misc
)
list
))))))
(
let
((
comments
nil
))
(
lyskom-traverse
no
list
(
cond
((
or
review-tree
(
not
(
lyskom-text-read-p
(
blocking-do
'get-text-stat
no
))))
(
setq
comments
(
cons
no
comments
)))))
(
setq
clist
(
cons
(
misc-info->comm-in
misc
)
clist
))))))
(
let
(
comments
footnotes
)
;; Find the comments that we should read and enter them into the
;; read-list.
(
lyskom-traverse
no
clist
(
let
((
text-stat
(
blocking-do
'get-text-stat
no
)))
(
if
(
or
review-tree
(
and
text-stat
(
not
(
lyskom-text-read-p
text-stat
))))
(
setq
comments
(
cons
no
comments
)))))
(
if
comments
(
read-list-enter-read-info
(
lyskom-create-read-info
(
if
review-tree
'REVIEW-TREE
'COMM-IN
)
...
...
@@ -229,10 +234,22 @@ lyskom-reading-list."
(
lyskom-create-text-list
comments
)
(
text-stat->text-no
text-stat
))
lyskom-reading-list
t
))
;; We have most of the text stats in the cache...
;; Just a few stray things to fill the cache...
(
lyskom-traverse
no
comments
(
initiate-get-text-stat
'fill-cache
'lyskom-fetch-text-for-cache
no
)))))
;; Find the footnotes that we should read and enter them into
;; the read-list. A slight trick is to increase the priority so
;; that they will be read first.
(
lyskom-traverse
no
flist
(
let
((
text-stat
(
blocking-do
'get-text-stat
no
)))
(
if
(
or
review-tree
(
and
text-stat
(
not
(
lyskom-text-read-p
text-stat
))))
(
setq
footnotes
(
cons
no
footnotes
)))))
(
if
footnotes
(
read-list-enter-read-info
(
lyskom-create-read-info
(
if
review-tree
'REVIEW-TREE
'FOOTN-IN
)
conf-stat
(
1+
priority
)
(
lyskom-create-text-list
footnotes
)
(
text-stat->text-no
text-stat
))
lyskom-reading-list
t
)))))
(
defun
lyskom-fetch-text-for-cache
(
text-stat
)
...
...
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