Commit d9e73728 authored by David Kågedal's avatar David Kågedal
Browse files

* completing-read.el (lyskom-completing-who-is-on): Använd

who-is-on-dynamic om den finns.
(lyskom-read-conf-get-logins): Dito.
(lyskom-session-from-conf): Dito.

* startup.el (lyskom-clear-vars): Gör
kom-membership-default-priority buffertlokal.

* commands1.el (lyskom-try-add-member): Tillåt prioritet 0 när man
går med i nya möten.

* lyskom-rest.el (lyskom-filter): Sätt lyskom-is-parsing med en
let istället för med setq.
parent d4293be9
Tue Sep 3 03:39:58 1996 David Kgedal <kg@infovav.se>
* completing-read.el (lyskom-completing-who-is-on): Anvnd
who-is-on-dynamic om den finns.
(lyskom-read-conf-get-logins): Dito.
(lyskom-session-from-conf): Dito.
* startup.el (lyskom-clear-vars): Gr
kom-membership-default-priority buffertlokal.
* commands1.el (lyskom-try-add-member): Tillt prioritet 0 nr man
gr med i nya mten.
* lyskom-rest.el (lyskom-filter): Stt lyskom-is-parsing med en
let istllet fr med setq.
Mon Sep 2 08:47:36 1996 David Byers <davby@sen2.ida.liu.se>
* Version 0.44.1 slppt.
* completing-read.el (lyskom-read-conf-internal): Returnera t fr
'lambda vid lite fler tillfllen, hantera try-completion p det
stt som C-koden sger att det skall fungera, inte som
......
......@@ -337,7 +337,7 @@ Returns t if it was possible, otherwise nil."
(> kom-membership-default-priority 0))
kom-membership-default-priority
(lyskom-read-num-range
1 255 (lyskom-get-string 'priority-q)))))
0 255 (lyskom-get-string 'priority-q)))))
(where
(if (/= lyskom-pers-no (conf-stat->conf-no pers-conf-stat))
1 ; When adding someone else
......
......@@ -63,7 +63,10 @@
(if lyskom-completing-who-info-cache
lyskom-completing-who-info-cache
(setq lyskom-completing-who-info-cache
(listify-vector (blocking-do 'who-is-on)))))
(listify-vector
(if use-dynamic-info
(blocking-do 'who-is-on-dynamic t t 0)
(blocking-do 'who-is-on))))))
(defun lyskom-completing-cache-completion (string data)
(let* ((downs (lyskom-unicase string))
......@@ -194,8 +197,14 @@ A string: A name that matched nothing in the database."
(defun lyskom-read-conf-get-logins ()
"Used internally by lyskom-read-conf-internal to get a list of
persons who are logged on."
(mapcar (function (lambda (el) (who-info->pers-no el)))
(lyskom-completing-who-is-on)))
(let ((use-dynamic-info
(cdr-safe (assq 'lyskom-dynamic-session-info-flag
(buffer-local-variables
(process-buffer lyskom-blocking-process))))))
(mapcar (if use-dynamic-info
(function (lambda (el) (dynamic-session-info->person el)))
(function (lambda (el) (who-info->pers-no el))))
(lyskom-completing-who-is-on))))
(defun lyskom-read-conf-expand-specials (string
......@@ -867,11 +876,20 @@ the LysKOM rules of string matching."
(defun lyskom-session-from-conf (conf-no)
(let ((who-list (lyskom-completing-who-is-on))
(sessions nil))
(while who-list
(if (eq (who-info->pers-no (car who-list)) conf-no)
(setq sessions (cons (who-info->connection (car who-list))
sessions)))
(setq who-list (cdr who-list)))
(if lyskom-dynamic-session-info-flag
(while who-list
(if (eq (dynamic-session-info->person (car who-list))
conf-no)
(setq sessions (cons (dynamic-session-info->session
(car who-list))
sessions)))
(setq who-list (cdr who-list)))
(while who-list
(if (eq (who-info->pers-no (car who-list))
conf-no)
(setq sessions (cons (who-info->connection (car who-list))
sessions)))
(setq who-list (cdr who-list))))
(cond ((and (null sessions) kom-permissive-completion) (list (- conf-no)))
(t sessions))))
......
No preview for this file type
......@@ -594,14 +594,15 @@ to see, set of call."
(kill-all-local-variables)
(make-local-variable 'kom-ansaphone-show-messages)
(make-local-variable 'kom-ansaphone-record-messages)
(make-local-variable 'kom-prompt-format)
(make-local-variable 'kom-ansaphone-on)
(make-local-variable 'kom-ansaphone-default-reply)
(make-local-variable 'kom-remote-control)
(make-local-variable 'kom-remote-controllers)
(make-local-variable 'kom-login-hook)
(make-local-variable 'kom-friends)
(make-local-variable 'kom-login-hook)
(make-local-variable 'kom-membership-default-priority)
(make-local-variable 'kom-permanent-filter-list)
(make-local-variable 'kom-prompt-format)
(make-local-variable 'kom-remote-control)
(make-local-variable 'kom-remote-controllers)
(make-local-variable 'kom-session-filter-list)
(make-local-variable 'lyskom-accept-async-flag)
(make-local-variable 'lyskom-blocking-return)
......
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