|
@@ -2359,11 +2359,11 @@ parameters when merging lists."
|
|
|
(lambda (param)
|
|
|
(when (assoc param params)
|
|
|
(setf (cdr (assoc param params))
|
|
|
- (remove-if (lambda (pair) (equal (car pair) name))
|
|
|
- (cdr (assoc param params))))
|
|
|
- (setf params (remove-if (lambda (pair) (and (equal (car pair) param)
|
|
|
- (null (cdr pair))))
|
|
|
- params))))
|
|
|
+ (org-remove-if (lambda (pair) (equal (car pair) name))
|
|
|
+ (cdr (assoc param params))))
|
|
|
+ (setf params (org-remove-if (lambda (pair) (and (equal (car pair) param)
|
|
|
+ (null (cdr pair))))
|
|
|
+ params))))
|
|
|
(list :colname-names :rowname-names)))
|
|
|
clearnames)
|
|
|
(mapc
|