Commit f86be15f authored by David Byers's avatar David Byers
Browse files

Added missing commands to lyskom-default-conference-strategy.

Detailed changes:
> 	* commands1.el (kom-status-session): Pass prompt to
> 	lyskom-read-session-no as symbol.
>
> 	* commands2.el (kom-force-logout): Pass prompt to
> 	lyskom-read-session-no as symbol.
>
> 	* remote-control.el (kom-remote-autoreply): Pass prompt to
> 	lyskom-read-session-no as symbol.
> 	(kom-remote-set-message): Same.
> 	(kom-remote-list-messages): Same.
> 	(kom-remote-erase-messages): Same.
> 	(kom-remote-quit): Same.
>
parent dd2be52e
2003-08-24 David Byers <byers@lysator.liu.se>
* commands1.el (kom-status-session): Pass prompt to
lyskom-read-session-no as symbol.
* commands2.el (kom-force-logout): Pass prompt to
lyskom-read-session-no as symbol.
* remote-control.el (kom-remote-autoreply): Pass prompt to
lyskom-read-session-no as symbol.
(kom-remote-set-message): Same.
(kom-remote-list-messages): Same.
(kom-remote-erase-messages): Same.
(kom-remote-quit): Same.
* Makefile (TARGET): Default to debug compile.
Fix bug 459:
......
......@@ -3285,8 +3285,7 @@ argument is used to find a text whose author's status is shown."
(cond
((listp text-or-session-no) text-or-session-no)
((numberp text-or-session-no) (list text-or-session-no)))
(lyskom-read-session-no
(lyskom-get-string 'status-for-session))))
(lyskom-read-session-no 'status-for-session)))
who-info)
(cond ((null sessions)
(lyskom-insert-string 'no-such-session-r))
......
......@@ -1738,9 +1738,8 @@ You can log out any sessions logged on as users you are the
supervisor of. With administrative rights you can log out any
user."
(interactive)
(let ((session (car-safe (lyskom-read-session-no
(lyskom-get-string 'who-to-throw-out)
nil nil t))))
(let ((session (car-safe (lyskom-read-session-no 'who-to-throw-out
nil nil t))))
(cond ((> session 0)
(lyskom-format-insert 'throwing-out session)
(lyskom-report-command-answer
......
......@@ -74,7 +74,7 @@ affect remote control."
(interactive)
(setq session-no (or session-no
(car (lyskom-read-session-no
(lyskom-get-string 'remote-control-who)
'remote-control-who
nil nil t))))
(setq state (or state
(cdr-safe (assoc
......@@ -110,7 +110,7 @@ affect remote control."
(interactive)
(setq session-no (or session-no
(car (lyskom-read-session-no
(lyskom-get-string 'remote-control-who)
'remote-control-who
nil nil t))))
(setq message (or message
(lyskom-read-string
......@@ -137,7 +137,7 @@ affect remote control."
(interactive)
(setq session-no (or session-no
(car (lyskom-read-session-no
(lyskom-get-string 'remote-control-who)
'remote-control-who
nil nil t))))
(let ((info (blocking-do 'get-session-info session-no)))
(lyskom-send-message (session-info->pers-no info)
......@@ -162,7 +162,7 @@ affect remote control."
(interactive)
(setq session-no (or session-no
(car (lyskom-read-session-no
(lyskom-get-string 'remote-control-who)
'remote-control-who
nil nil t))))
(let ((info (blocking-do 'get-session-info session-no)))
(lyskom-send-message (session-info->pers-no info)
......@@ -188,7 +188,7 @@ affect remote control."
(interactive)
(setq session-no (or session-no
(car (lyskom-read-session-no
(lyskom-get-string 'remote-control-who)
'remote-control-who
nil nil t))))
(let ((info (blocking-do 'get-session-info session-no)))
(lyskom-send-message (session-info->pers-no info)
......
......@@ -199,7 +199,10 @@ the priority among links that match the same text is undefined."
(def-kom-var lyskom-default-conference-strategy
'((kom-delete-conf (what-conf-to-delete
'((kom-start-anew (what-is-your-name
(default . (lyskom-default-conference-empty))))
(kom-delete-conf (what-conf-to-delete
(default . (lyskom-default-conference-empty))))
(kom-sub-self (leave-what-conf
......@@ -356,6 +359,11 @@ the priority among links that match the same text is undefined."
;; Defaults and commands that use the defaults
(kom-remote-autoreply (remote-control-who))
(kom-remote-set-message (remote-control-who))
(kom-remote-list-messages (remote-control-who))
(kom-remote-erase-messages (remote-control-who))
(kom-remote-quit (remote-control-who))
(kom-review-presentation (presentation-for-whom))
(kom-unread-presentation (unread-presentation-for-whom))
(kom-add-member (who-to-add) (where-to-add))
......@@ -364,6 +372,7 @@ the priority among links that match the same text is undefined."
(kom-sub-member (who-to-exclude) (where-from-exclude))
(kom-write-text (who-send-text-to))
(kom-send-letter (who-letter-to))
(kom-force-logoout (who-to-throw-out))
(kom-change-supervisor (what-to-change-supervisor-for) (new-supervisor))
(kom-who-is-on-in-conference (who-is-on-in-what-conference))
(kom-who-is-present-in-conference (who-is-present-in-what-conference))
......@@ -371,6 +380,7 @@ the priority among links that match the same text is undefined."
(kom-edit-add-cross-reference (which-conf-to-xref) (which-pers-to-xref))
(kom-edit-insert-link (which-conf-to-link) (which-pers-to-link))
(kom-status-conf (conf-for-status))
(kom-status-session (session-for-status))
(kom-status-person (pers-for-status))
(kom-set-keep-commented (conf-to-set-keep-commented-q))
(kom-set-garb-nice (conf-to-set-garb-nice-q))
......
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