Skip to content
GitLab
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
57d59275
Commit
57d59275
authored
Feb 13, 1997
by
David Kågedal
Browse files
* lyskom-rest.el (lyskom-enter-conf): Använd text-list->length.
(lyskom-set-mode-line): Dito. (lyskom-what-to-do): Dito.
parent
00c2d96f
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/lyskom-rest.el
View file @
57d59275
...
...
@@ -476,9 +476,7 @@ according to the value of kom-print-number-of-unread-on-entrance.
Args: CONF-STAT READ-INFO"
(
initiate-pepsi
'main
nil
(
conf-stat->conf-no
conf-stat
))
(
setq
lyskom-current-conf
(
conf-stat->conf-no
conf-stat
))
(
let
((
num-unread
(
length
(
text-list->texts
(
read-info->text-list
read-info
)))))
(
let
((
num-unread
(
text-list->length
(
read-info->text-list
read-info
))))
(
lyskom-format-insert
(
if
(
not
kom-print-number-of-unread-on-entrance
)
'enter-conf
(
if
(
=
num-unread
1
)
...
...
@@ -537,9 +535,8 @@ CONF can be a a conf-stat or a string."
(
while
read-info-list
(
if
(
read-info->conf-stat
(
car
read-info-list
))
(
progn
(
setq
len
(
length
(
text-list->texts
(
read-info->text-list
(
car
read-info-list
)))))
(
setq
len
(
text-list->length
(
read-info->text-list
(
car
read-info-list
))))
(
if
(
=
(
conf-stat->conf-no
conf
)
(
conf-stat->conf-no
(
read-info->conf-stat
(
car
read-info-list
))))
...
...
@@ -1699,10 +1696,8 @@ Set lyskom-current-prompt accordingly. Tell server what I am doing."
(
eq
type
'REVIEW-MARK
)))
(
>
(
read-info->priority
(
read-list->first
lyskom-to-do-list
))
(
read-info->priority
(
read-list->first
lyskom-reading-list
))))
(
if
(
>
(
length
(
text-list->texts
(
read-info->text-list
(
read-list->first
lyskom-to-do-list
))))
(
if
(
>
(
text-list->length
(
read-info->text-list
(
read-list->first
lyskom-to-do-list
)))
1
)
'next-pri-conf
'next-pri-text
))
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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