Function: eudc-print-attribute-value

eudc-print-attribute-value is a byte-compiled function defined in eudc.el.gz.

Signature

(eudc-print-attribute-value FIELD)

Documentation

Insert the value of the directory FIELD at point.

The directory attribute name in car of FIELD is looked up in eudc-attribute-display-method-alist and the corresponding method, if any, is called to print the value in cdr of FIELD.

Source Code

;; Defined in /usr/src/emacs/lisp/net/eudc.el.gz
(defun eudc-print-attribute-value (field)
  "Insert the value of the directory FIELD at point.
The directory attribute name in car of FIELD is looked up in
`eudc-attribute-display-method-alist' and the corresponding method,
if any, is called to print the value in cdr of FIELD."
  (let ((match (assoc (downcase (car field))
		      eudc-attribute-display-method-alist))
	(col (current-column))
	(val (cdr field)))
    (if match
	(progn
	  (funcall (cdr match) val)
	  (insert "\n"))
      (mapc
       (lambda (val-elem)
         (indent-to col)
         (insert val-elem "\n"))
       (cond
	((listp val) val)
	((stringp val) (split-string val "\n"))
	((null val) '(""))
	(t (list val)))))))