/* Prepends a list to the current list Returns the new properties list.  */
CRPropList* cr_prop_list_prepend(CRPropList *a_this, CRPropList *a_to_prepend)
/* Prepends a list to the current list Returns the new properties list.  */
CRPropList* cr_prop_list_prepend(CRPropList *a_this, CRPropList *a_to_prepend)
{
        CRPropList *cur = NULL;
        g_return_val_if_fail (a_to_prepend, NULL);
        if (!a_this)
                return a_to_prepend;
        for (cur = a_to_prepend; cur && PRIVATE (cur)->next;
             cur = PRIVATE (cur)->next) ;
        g_return_val_if_fail (cur, NULL);
        PRIVATE (cur)->next = a_this;
        PRIVATE (a_this)->prev = cur;
        return a_to_prepend;
}