Function: org-uniquify-alist

org-uniquify-alist is a byte-compiled function defined in org-macs.el.gz.

Signature

(org-uniquify-alist ALIST)

Documentation

Merge elements of ALIST with the same key.

For example, in this alist:

(org-uniquify-alist '((a 1) (b 2) (a 3)))
  => ((a 1 3) (b 2))

merge (a 1) and (a 3) into (a 1 3).

The function returns the new ALIST.

Source Code

;; Defined in /usr/src/emacs/lisp/org/org-macs.el.gz
(defun org-uniquify-alist (alist)
  "Merge elements of ALIST with the same key.

For example, in this alist:

\(org-uniquify-alist \\='((a 1) (b 2) (a 3)))
  => ((a 1 3) (b 2))

merge (a 1) and (a 3) into (a 1 3).

The function returns the new ALIST."
  (let (rtn)
    (dolist (e alist rtn)
      (let (n)
	(if (not (assoc (car e) rtn))
	    (push e rtn)
	  (setq n (cons (car e) (append (cdr (assoc (car e) rtn)) (cdr e))))
	  (setq rtn (assq-delete-all (car e) rtn))
	  (push n rtn))))))