Commit 0b6f036b authored by David Byers's avatar David Byers
Browse files

Bug fix:

        Feature tests now work in the minibuffer
        Completing read of logins works as a result
parent e97b68ce
1999-06-17 David Byers <davby@ida.liu.se>
* feature.el (lyskom-define-feature): Inherit feature variables
into the minibuffer.
* completing-read.el (lyskom-completing-who-is-on): Use dynamic
session info when it should be used.
1999-06-15 David Byers <davby@ida.liu.se>
* lyskom-rest.el (lyskom-format-aux-help): Handle actual character
......
......@@ -66,9 +66,7 @@
lyskom-completing-who-info-cache
(setq lyskom-completing-who-info-cache
(listify-vector
(if (or (and (lyskom-is-in-minibuffer)
lyskom-completing-use-dynamic-info)
(lyskom-have-feature dynamic-session-info))
(if (lyskom-have-feature dynamic-session-info)
(blocking-do 'who-is-on-dynamic t t 0)
(blocking-do 'who-is-on))))))
......@@ -307,9 +305,9 @@ function work as a name-to-conf-stat translator."
((and (null all)
(string= string "")) "")
((and (eq all 'lyskom-lookup)
(string= string "")) nil)
(string-match "^\\s-*$" string)) nil)
((and (eq all 'lambda)
(string= string "")) nil)
(string-match "^\\s-*$" string)) nil)
(t
(let* ((login-list (and (memq 'login predicate)
......@@ -893,8 +891,7 @@ the LysKOM rules of string matching."
(sessions nil))
(if (lyskom-have-feature dynamic-session-info)
(while who-list
(if (eq (dynamic-session-info->person (car who-list))
conf-no)
(if (eq (dynamic-session-info->person (car who-list)) conf-no)
(setq sessions (cons (dynamic-session-info->session
(car who-list))
sessions)))
......
......@@ -49,7 +49,7 @@
(cons (cons ',name ,default) lyskom-feature-defaults))
(def-kom-var ,(lyskom-feature-variable name) ,default
"LysKOM feature flag variable."
inherited local)))
inherited minibuffer local)))
(defmacro lyskom-set-feature (name value)
"Set the value of feature NAME to VALUE"
......
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