Lines Matching +defs:value +defs:get
44 ;; `eudc-get-phone': Get a phone number from a directory server
45 ;; `eudc-get-email': Get an e-mail address from a directory server
126 "Return t if PROP has a value specified in PLIST."
136 ;; Emacs' plist-get lacks third parameter
137 (defun eudc-plist-get (plist prop &optional default)
138 "Extract a value from a property list.
140 \(PROP1 VALUE1 PROP2 VALUE2...). This function returns the value
144 (plist-get plist prop)
147 (defun eudc-lax-plist-get (plist prop &optional default)
148 "Extract a value from a lax property list.
152 using `equal' instead of `eq'. This function returns the value
204 (eudc-plist-member (get var 'eudc-locals) 'server))
208 (eudc-plist-member (get var 'eudc-locals) 'protocol))
211 "Set the EUDC default value of VAR to VAL.
214 (plist-put (get var 'eudc-locals) 'default val))
219 If omitted PROTOCOL defaults to the current value of `eudc-protocol'.
221 (if (eq 'unbound (eudc-variable-default-value var))
222 (eudc-default-set var (symbol-value var)))
223 (let* ((eudc-locals (get var 'eudc-locals))
224 (protocol-locals (eudc-plist-get eudc-locals 'protocol)))
236 If omitted SERVER defaults to the current value of `eudc-server'.
238 (if (eq 'unbound (eudc-variable-default-value var))
239 (eudc-default-set var (symbol-value var)))
240 (let* ((eudc-locals (get var 'eudc-locals))
241 (server-locals (eudc-plist-get eudc-locals 'server)))
256 ((not (eq 'unbound (eudc-variable-server-value var)))
258 ((not (eq 'unbound (eudc-variable-protocol-value var)))
264 (defun eudc-variable-default-value (var)
266 Return `unbound' if VAR has no EUDC default value."
267 (let ((eudc-locals (get var 'eudc-locals)))
270 (eudc-plist-get eudc-locals 'default 'unbound)
273 (defun eudc-variable-protocol-value (var &optional protocol)
274 "Return the value of VAR local to PROTOCOL.
275 Return `unbound' if VAR has no value local to PROTOCOL.
277 (let* ((eudc-locals (get var 'eudc-locals))
283 (setq protocol-locals (eudc-plist-get eudc-locals 'protocol))
284 (eudc-lax-plist-get protocol-locals
288 (defun eudc-variable-server-value (var &optional server)
289 "Return the value of VAR local to SERVER.
290 Return `unbound' if VAR has no value local to SERVER.
292 (let* ((eudc-locals (get var 'eudc-locals))
298 (setq server-locals (eudc-plist-get eudc-locals 'server))
299 (eudc-lax-plist-get server-locals
304 "Set the value of VAR according to its locals.
305 If the VAR has a server- or protocol-local value corresponding
310 ((not (eq 'unbound (setq val (eudc-variable-server-value var))))
312 ((not (eq 'unbound (setq val (eudc-variable-protocol-value var))))
314 ((not (eq 'unbound (setq val (eudc-variable-default-value var))))
356 (symbol-value eudc-protocol-attributes-translation-alist))))
371 (symbol-value eudc-protocol-attributes-translation-alist)))
391 name and VALUE the corresponding value.
425 (defun eudc-print-attribute-value (field)
426 "Insert the value of the directory FIELD at point.
429 if any, is called to print the value in cdr of FIELD."
462 (eudc-print-attribute-value field)))
509 ;; Map over the record fields to print the attribute/value pairs
539 value)
545 (setq value (widget-value (cdr wid-field)))
546 (if (not (string= value ""))
547 (setq query-alist (cons (cons (car wid-field) value)
586 (symbol-value
636 "Duplicate each individual record in RECORDS according to value of FIELD.
646 (lambda (value)
649 (cons (car field) value)
714 (defun eudc-get-email (name &optional error)
732 (defun eudc-get-phone (name &optional error)
749 (defun eudc-get-attribute-list ()
858 (error "Wrong value for `eudc-inline-expansion-servers': %S"
940 (defun eudc-query-form (&optional get-fields-from-server)
945 (let ((fields (or (and get-fields-from-server
946 (eudc-get-attribute-list))
948 (buffer (get-buffer-create "*Directory Query Form*"))
1136 (overlay-get (car (overlays-at (point))) 'eudc-record))]
1142 ["Get Email" eudc-get-email t]
1143 ["Get Phone" eudc-get-phone t]
1144 ["List Valid Attribute Names" eudc-get-attribute-list t]
1241 (fset 'eudc-tools-menu (symbol-value 'eudc-tools-menu))
1243 '("Get Phone" . eudc-get-phone))
1245 '("Get Email" . eudc-get-email))
1267 ["Get Email" eudc-get-email t]
1268 ["Get Phone" eudc-get-phone t])))