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
68b88a69
Commit
68b88a69
authored
Aug 25, 2001
by
Ulrik Haugen
Browse files
don't use endp from cl.
moved around kom-who-is-* keybindings. parenthesised kom-who-is-command-names.
parent
12544eaf
Changes
4
Hide whitespace changes
Inline
Side-by-side
src/ChangeLog
View file @
68b88a69
2001-08-25 Ulrik Haugen <qha@lysator.liu.se>
* commands1.el (lyskom-select-friends-from-who-list): change endp
to null which is built in.
* english-strings.el (lyskom-en-mode-map): moved "w l" to "w w",
"w a" to "w p"
* swedish-strings.el (lyskom-sv-mode-map): moved "v a" to "v n".
* swedish-strings.el, english-strings.el (lyskom-command):
Parenthesised kom-who-is-command-names.
2001-08-24 Ulrik Haugen <qha@lysator.liu.se>
* vars.el.in (lyskom-help-categories, lyskom-commands): added
...
...
src/commands1.el
View file @
68b88a69
...
...
@@ -3099,7 +3099,7 @@ Uses Protocol A version 9 calls"
(
defun
lyskom-select-friends-from-who-list
(
who-list
)
"Returns a list of friends in WHO-LIST"
(
let
((
result
nil
))
(
while
(
not
(
endp
who-list
))
(
while
(
not
(
null
who-list
))
(
when
(
memq
(
dynamic-session-info->person
(
car
who-list
))
kom-friends
)
(
setq
result
(
cons
(
car
who-list
)
result
)))
...
...
src/english-strings.el
View file @
68b88a69
...
...
@@ -1633,12 +1633,12 @@ You must become an active member of the conference to enter it.\n")
(
kom-review-presentation
.
"Review presentation"
)
(
kom-review-backward
.
"(Review) Backwards"
)
(
kom-view-next-text
.
"(Read) next text"
)
(
kom-who-is-on
.
"Who is on"
)
(
kom-who-is-on
.
"Who
(
is on
)
"
)
(
kom-who-is-on-in-conference
.
"Who is on in conference"
)
.
"Who
(
is on in
)
conference"
)
(
kom-who-is-present-in-conference
.
"Who is present in conference"
)
(
kom-who-is-on-and-friend
.
"Which friends are on"
)
.
"Who
(
is
)
present
(
in
)
conference"
)
(
kom-who-is-on-and-friend
.
"Which friends
(
are on
)
"
)
(
kom-who-am-i
.
"Where (am) i"
)
(
kom-list-clients
.
"List clients"
)
(
kom-busy-wait
.
"Wait (for news)"
)
...
...
@@ -2026,9 +2026,9 @@ You must become an active member of the conference to enter it.\n")
(
define-key
lyskom-en-mode-map
(
kbd
"f s"
)
'kom-filter-subject
)
(
define-key
lyskom-en-mode-map
(
kbd
"f a"
)
'kom-filter-author
)
(
define-key
lyskom-en-mode-map
(
kbd
"f c"
)
'kom-filter-text
)
(
define-key
lyskom-en-mode-map
(
kbd
"w
l
"
)
'kom-who-is-on
)
(
define-key
lyskom-en-mode-map
(
kbd
"w
w
"
)
'kom-who-is-on
)
(
define-key
lyskom-en-mode-map
(
kbd
"w c"
)
'kom-who-is-on-in-conference
)
(
define-key
lyskom-en-mode-map
(
kbd
"w
a
"
)
'kom-who-is-present-in-conference
)
(
define-key
lyskom-en-mode-map
(
kbd
"w
p
"
)
'kom-who-is-present-in-conference
)
(
define-key
lyskom-en-mode-map
(
kbd
"w f"
)
'kom-who-is-on-and-friend
)
(
define-key
lyskom-en-mode-map
(
kbd
"I"
)
'kom-who-am-i
)
(
define-key
lyskom-en-mode-map
(
kbd
"W"
)
'kom-busy-wait
)
...
...
src/swedish-strings.el
View file @
68b88a69
...
...
@@ -1631,12 +1631,12 @@ Du m
(
kom-review-presentation
.
"terse presentation"
)
(
kom-review-backward
.
"(terse) Baklnges"
)
(
kom-view-next-text
.
"Lsa nsta inlgg"
)
(
kom-who-is-on
.
"Vilka r inloggade"
)
(
kom-who-is-on
.
"Vilka
(
r)
inloggade"
)
(
kom-who-is-on-in-conference
.
"Vilka r inloggade i mte"
)
.
"Vilka
(
r inloggade i)
mte"
)
(
kom-who-is-present-in-conference
.
"Vilka r nrvarande i mte"
)
(
kom-who-is-on-and-friend
.
"Vilka vnner r inloggade"
)
.
"Vilka
(
r)
nrvarande (i
mte)"
)
(
kom-who-is-on-and-friend
.
"Vilka vnner (
r
inloggade)"
)
(
kom-who-am-i
.
"Var (r) jag"
)
; (kom-display-who-buffer "Visa vilkalistan")
(
kom-list-clients
.
"Lista klienter"
)
...
...
@@ -2467,7 +2467,7 @@ Visar vilka som f
(define-key lyskom-sv-mode-map (kbd "
f
i
") 'kom-filter-text)
(define-key lyskom-sv-mode-map (kbd "
v
i
") 'kom-who-is-on)
(define-key lyskom-sv-mode-map (kbd "
v
m
") 'kom-who-is-on-in-conference)
(define-key lyskom-sv-mode-map (kbd "
v
a
") 'kom-who-is-present-in-conference)
(define-key lyskom-sv-mode-map (kbd "
v
n
") 'kom-who-is-present-in-conference)
(define-key lyskom-sv-mode-map (kbd "
v
v
") 'kom-who-is-on-and-friend)
(define-key lyskom-sv-mode-map (kbd "
J
") 'kom-who-am-i)
(define-key lyskom-sv-mode-map (kbd "
V
") 'kom-busy-wait)
...
...
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