Function: eudc-lax-plist-get

eudc-lax-plist-get is a byte-compiled function defined in eudc.el.gz.

Signature

(eudc-lax-plist-get PLIST PROP &optional DEFAULT)

Documentation

Extract a value from a lax property list.

PLIST is a lax property list, which is a list of the form (PROP1 VALUE1 PROP2 VALUE2...), where comparisons between properties are done using equal instead of eq. This function returns the value corresponding to PROP, or DEFAULT if PROP is not one of the properties on the list.

Source Code

;; Defined in /usr/src/emacs/lisp/net/eudc.el.gz
(defun eudc-lax-plist-get (plist prop &optional default)
  "Extract a value from a lax property list.

PLIST is a lax property list, which is a list of the form (PROP1
VALUE1 PROP2 VALUE2...), where comparisons between properties are done
using `equal' instead of `eq'.  This function returns the value
corresponding to PROP, or DEFAULT if PROP is not one of the
properties on the list."
  (if (not (= 0 (% (length plist) 2)))
      (error "Malformed plist"))
  (catch 'found
    (while plist
      (if (equal prop (car plist))
	  (throw 'found (car (cdr plist))))
      (setq plist (cdr (cdr plist))))
    default))