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
acf522d2
Commit
acf522d2
authored
Oct 07, 1991
by
Linus Tolke
Browse files
Fixes while going to an empty conf.
parent
0efe2257
Changes
3
Hide whitespace changes
Inline
Side-by-side
src/ChangeLog
View file @
acf522d2
No preview for this file type
src/commands1.el
View file @
acf522d2
...
...
@@ -1067,19 +1067,6 @@ Args: CONF-STAT MEMBERSHIP"
(
lyskom-enter-conf
conf-stat
(
read-list->first
lyskom-reading-list
))
(
lyskom-end-of-command
))
((
>
(
+
(
conf-stat->first-local-no
conf-stat
)
(
conf-stat->no-of-texts
conf-stat
)
-1
)
(
membership->last-text-read
membership
))
;; There are (probably) some unread texts in this conf.
(
initiate-get-map
'main
'lyskom-go-to-conf-handle-map
(
conf-stat->conf-no
conf-stat
)
(
1+
(
membership->last-text-read
membership
))
(
conf-stat->no-of-texts
conf-stat
)
membership
conf-stat
priority
))
(
t
(
lyskom-go-to-empty-conf
conf-stat
)))))
...
...
@@ -1118,7 +1105,7 @@ PRIORITY is the smallest priority the conference can be read with."
"Go to a conference with no unseen messages. Args: CONF-STAT."
(
initiate-pepsi
'main
nil
(
conf-stat->conf-no
conf-stat
))
(
setq
lyskom-current-conf
(
conf-stat->conf-no
conf-stat
))
(
lyskom-
insert-string
'conf-all-read
)
(
lyskom-
format-insert
'conf-all-read
(
conf-stat->name
conf-stat
)
)
(
lyskom-end-of-command
))
...
...
src/swedish-strings.el
View file @
acf522d2
...
...
@@ -181,7 +181,7 @@ Lyskom-sessionen
(
who-to-remove-motd-for
.
"Vilket mte/person vill du ta bort lapp p drr fr: "
)
(
conf-all-read
.
"
Du har sett alla texter i detta mte.
\n"
)
(
conf-all-read
.
"
%#1s - inga ol{sta
.\n"
)
(
no-in-conf
.
"Du r inte nrvarande i ngot mte.\n"
)
(
search-for-pers
.
"Ange skvillkor (RETURN fr alla personer) "
)
...
...
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