Function: gulp-create-m-p-alist

gulp-create-m-p-alist is a byte-compiled function defined in gulp.el.gz.

Signature

(gulp-create-m-p-alist FLIST DIR)

Documentation

Create the maintainer/package alist for files in FLIST in DIR.

That is a list of elements, each of the form (MAINTAINER PACKAGES...).

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/gulp.el.gz
(defun gulp-create-m-p-alist (flist dir)
  "Create the maintainer/package alist for files in FLIST in DIR.
That is a list of elements, each of the form (MAINTAINER PACKAGES...)."
  (save-excursion
    (let (mplist filen node mnt tm fl-tm)
      (get-buffer-create gulp-tmp-buffer)
      (set-buffer gulp-tmp-buffer)
      (setq buffer-undo-list t)
      (while flist
	(setq fl-tm (gulp-maintainer (setq filen (car flist)) dir))
	(if (setq tm (cdr fl-tm) mnt (car fl-tm));; there is a definite maintainer
	    (if (setq node (assoc mnt mplist));; this is not a new maintainer
		(setq mplist (cons (cons mnt (cons (cons filen tm) (cdr node)))
				   (delete node mplist)))
	      (setq mplist (cons (list mnt (cons filen (cdr fl-tm))) mplist))))
	(setq flist (cdr flist)))
      (erase-buffer)
      mplist)))