New helper function: elmo-union
authorvitaly <v.mayatskih@gmail.com>
Sun, 8 Feb 2009 13:26:30 +0000 (8 14:26 +0100)
committervitaly <v.mayatskih@gmail.com>
Sun, 8 Feb 2009 13:26:30 +0000 (8 14:26 +0100)
Makes a union of two possibly unsorted lists.

elmo/elmo-util.el

index f5191fb..b796432 100644 (file)
@@ -485,6 +485,10 @@ Return value is a cons cell of (STRUCTURE . REST)"
       (setq list (cdr list))))
   list)
 
+(defun elmo-union (l1 l2)
+  "Make a union of two lists"
+  (elmo-uniq-sorted-list (sort (append l1 l2) #'<)))
+
 (defun elmo-list-insert (list element after)
   (let* ((match (memq after list))
         (rest (and match (cdr (memq after list)))))