- (pointer (sort (copy-sequence riece-addon-dependencies)
- (lambda (dependency1 dependency2)
- (string-lessp (symbol-name (car dependency1))
- (symbol-name (car dependency2))))))
- enabled description point)
+ (pointer riece-addon-dependencies)
+ module-description-alist
+ description enabled point)
+ (while pointer
+
+ (setq description (intern-soft (concat (symbol-name (car (car pointer)))
+ "-description"))
+ module-description-alist
+ (cons (cons (car (car pointer))
+ (if description
+ (symbol-value description)
+ "(no description)"))
+ module-description-alist)
+ pointer (cdr pointer)))
+ (setq pointer riece-addon-modules)
+ (while pointer
+ (unless (assq (car (car pointer))
+ module-description-alist)
+ (setq module-description-alist
+ (cons (car pointer) module-description-alist)))
+ (setq pointer (cdr pointer)))