Function: eudc-extract-n-word-formats

eudc-extract-n-word-formats is a byte-compiled function defined in eudc.el.gz.

Signature

(eudc-extract-n-word-formats FORMAT-LIST N)

Documentation

Extract a list of N-long formats from FORMAT-LIST.

If none try N - 1 and so forth.

Source Code

;; Defined in /usr/src/emacs/lisp/net/eudc.el.gz
(defun eudc-extract-n-word-formats (format-list n)
  "Extract a list of N-long formats from FORMAT-LIST.
If none try N - 1 and so forth."
  (let (formats)
    (while (and (null formats)
		(> n 0))
      (setq formats
	    (delq nil
		  (mapcar (lambda (format)
			     (if (= n
				    (length format))
				 format
			       nil))
			  format-list)))
      (setq n (1- n)))
    formats))