Function: eudc-translate-attribute-list

eudc-translate-attribute-list is a byte-compiled function defined in eudc.el.gz.

Signature

(eudc-translate-attribute-list LIST &optional REVERSE)

Documentation

Translate a list of attribute names LIST.

The translation is done according to eudc-protocol-attributes-translation-alist.

When REVERSE is nil or omitted, the attribute names are translated from EUDC generic names to protocol-specific names. When REVERSE is non-nil, the translation is from protocol-specific names back to EUDC generic names.

Source Code

;; Defined in /usr/src/emacs/lisp/net/eudc.el.gz
(defun eudc-translate-attribute-list (list &optional reverse)
  "Translate a list of attribute names LIST.
The translation is done according to
`eudc-protocol-attributes-translation-alist'.

When REVERSE is nil or omitted, the attribute names are
translated from EUDC generic names to protocol-specific
names.  When REVERSE is non-nil, the translation is from
protocol-specific names back to EUDC generic names."
  (if eudc-protocol-attributes-translation-alist
      (let (trans)
	(mapcar (lambda (attribute)
		  (setq trans
                        (if reverse
                            (rassq attribute
				   (symbol-value eudc-protocol-attributes-translation-alist))
                          (assq attribute
				(symbol-value eudc-protocol-attributes-translation-alist))))
		  (if trans
		      (if reverse (car trans) (cdr trans))
		    attribute))
		list))
    list))