Commit 68b88a69 authored by Ulrik Haugen's avatar Ulrik Haugen
Browse files

don't use endp from cl.

moved around kom-who-is-* keybindings.
parenthesised kom-who-is-command-names.
parent 12544eaf
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> 2001-08-24 Ulrik Haugen <qha@lysator.liu.se>
* vars.el.in (lyskom-help-categories, lyskom-commands): added * vars.el.in (lyskom-help-categories, lyskom-commands): added
......
...@@ -3099,7 +3099,7 @@ Uses Protocol A version 9 calls" ...@@ -3099,7 +3099,7 @@ Uses Protocol A version 9 calls"
(defun lyskom-select-friends-from-who-list (who-list) (defun lyskom-select-friends-from-who-list (who-list)
"Returns a list of friends in WHO-LIST" "Returns a list of friends in WHO-LIST"
(let ((result nil)) (let ((result nil))
(while (not (endp who-list)) (while (not (null who-list))
(when (memq (dynamic-session-info->person (car who-list)) (when (memq (dynamic-session-info->person (car who-list))
kom-friends) kom-friends)
(setq result (cons (car who-list) result))) (setq result (cons (car who-list) result)))
......
...@@ -1633,12 +1633,12 @@ You must become an active member of the conference to enter it.\n") ...@@ -1633,12 +1633,12 @@ You must become an active member of the conference to enter it.\n")
(kom-review-presentation . "Review presentation") (kom-review-presentation . "Review presentation")
(kom-review-backward . "(Review) Backwards") (kom-review-backward . "(Review) Backwards")
(kom-view-next-text . "(Read) next text") (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 (kom-who-is-on-in-conference
. "Who is on in conference") . "Who (is on in) conference")
(kom-who-is-present-in-conference (kom-who-is-present-in-conference
. "Who is present in conference") . "Who (is) present (in) conference")
(kom-who-is-on-and-friend . "Which friends are on") (kom-who-is-on-and-friend . "Which friends (are on)")
(kom-who-am-i . "Where (am) i") (kom-who-am-i . "Where (am) i")
(kom-list-clients . "List clients") (kom-list-clients . "List clients")
(kom-busy-wait . "Wait (for news)") (kom-busy-wait . "Wait (for news)")
...@@ -2026,9 +2026,9 @@ You must become an active member of the conference to enter it.\n") ...@@ -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 s") 'kom-filter-subject)
(define-key lyskom-en-mode-map (kbd "f a") 'kom-filter-author) (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 "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 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 "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 "I") 'kom-who-am-i)
(define-key lyskom-en-mode-map (kbd "W") 'kom-busy-wait) (define-key lyskom-en-mode-map (kbd "W") 'kom-busy-wait)
......
...@@ -1631,12 +1631,12 @@ Du m ...@@ -1631,12 +1631,12 @@ Du m
(kom-review-presentation . "terse presentation") (kom-review-presentation . "terse presentation")
(kom-review-backward . "(terse) Baklnges") (kom-review-backward . "(terse) Baklnges")
(kom-view-next-text . "Lsa nsta inlgg") (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 (kom-who-is-on-in-conference
. "Vilka r inloggade i mte") . "Vilka (r inloggade i) mte")
(kom-who-is-present-in-conference (kom-who-is-present-in-conference
. "Vilka r nrvarande i mte") . "Vilka (r) nrvarande (i mte)")
(kom-who-is-on-and-friend . "Vilka vnner r inloggade") (kom-who-is-on-and-friend . "Vilka vnner (r inloggade)")
(kom-who-am-i . "Var (r) jag") (kom-who-am-i . "Var (r) jag")
; (kom-display-who-buffer "Visa vilkalistan") ; (kom-display-who-buffer "Visa vilkalistan")
(kom-list-clients . "Lista klienter") (kom-list-clients . "Lista klienter")
...@@ -2467,7 +2467,7 @@ Visar vilka som f ...@@ -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 "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 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 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 "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 "J") 'kom-who-am-i)
(define-key lyskom-sv-mode-map (kbd "V") 'kom-busy-wait) (define-key lyskom-sv-mode-map (kbd "V") 'kom-busy-wait)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment