Lines Matching +defs:plist +defs:member
125 (defun eudc-plist-member (plist prop)
127 (if (not (= 0 (% (length plist) 2)))
128 (error "Malformed plist"))
130 (while plist
131 (if (eq prop (car plist))
133 (setq plist (cdr (cdr plist))))
136 ;; Emacs' plist-get lacks third parameter
137 (defun eudc-plist-get (plist prop &optional default)
143 (if (eudc-plist-member plist prop)
144 (plist-get plist prop)
147 (defun eudc-lax-plist-get (plist prop &optional default)
155 (if (not (= 0 (% (length plist) 2)))
156 (error "Malformed plist"))
158 (while plist
159 (if (equal prop (car plist))
160 (throw 'found (car (cdr plist))))
161 (setq plist (cdr (cdr plist))))
204 (eudc-plist-member (get var 'eudc-locals) 'server))
208 (eudc-plist-member (get var 'eudc-locals) 'protocol))
214 (plist-put (get var 'eudc-locals) 'default val))
224 (protocol-locals (eudc-plist-get eudc-locals 'protocol)))
225 (setq protocol-locals (plist-put protocol-locals (or protocol
228 (plist-put eudc-locals 'protocol protocol-locals))
241 (server-locals (eudc-plist-get eudc-locals 'server)))
242 (setq server-locals (plist-put server-locals (or server
245 (plist-put eudc-locals 'server server-locals))
270 (eudc-plist-get eudc-locals 'default 'unbound)
281 (eudc-plist-member eudc-locals 'protocol)))
283 (setq protocol-locals (eudc-plist-get eudc-locals 'protocol))
284 (eudc-lax-plist-get protocol-locals
296 (eudc-plist-member eudc-locals 'server)))
298 (setq server-locals (eudc-plist-get eudc-locals 'server))
299 (eudc-lax-plist-get server-locals
699 (unless (or (member protocol
1023 (if (member (cons server protocol) eudc-server-hotlist)