Function: regi-mapcar

regi-mapcar is a byte-compiled function defined in regi.el.gz.

Signature

(regi-mapcar PREDLIST FUNC &optional NEGATE-P CASE-FOLD-SEARCH-P)

Documentation

Build a regi frame where each element of PREDLIST appears exactly once.

The frame contains elements where each member of PREDLIST is associated with FUNC, and optionally NEGATE-P and CASE-FOLD-SEARCH-P.

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/regi.el.gz
(defun regi-mapcar (predlist func &optional negate-p case-fold-search-p)
  "Build a regi frame where each element of PREDLIST appears exactly once.
The frame contains elements where each member of PREDLIST is
associated with FUNC, and optionally NEGATE-P and CASE-FOLD-SEARCH-P."
  (let (frame tail)
    (if (or negate-p case-fold-search-p)
	(setq tail (list negate-p)))
    (if case-fold-search-p
	(setq tail (append tail (list case-fold-search-p))))
    (while predlist
      (let ((element (list (car predlist) func)))
	(if tail
	    (setq element (append element tail)))
	(setq frame (append frame (list element))
	      predlist (cdr predlist))
	))
    frame))