Function: nnoo-map-functions

nnoo-map-functions is a macro defined in nnoo.el.gz.

Signature

(nnoo-map-functions BACKEND &rest MAPS)

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/nnoo.el.gz
(defmacro nnoo-map-functions (backend &rest maps)
  (declare (indent 1))
  `(progn
     ,@(mapcar
        (lambda (m)
          (let ((margs nil))
            (dotimes (i (length (cdr m)))
	      (push (if (numberp (nth i (cdr m)))
                        `(nth ,i args)
                      (nth i (cdr m)))
                    margs))
	    `(deffoo ,(nnoo-symbol backend (nnoo-rest-symbol (car m)))
		 (&rest args)
	       (ignore args) ;; Not always used!
	       (nnoo-parent-function ',backend ',(car m)
				     ,(cons 'list (nreverse margs))))))
	maps)))