|
@@ -646,7 +646,7 @@ Return a list (session vars result-params result-type colnames rownames)."
|
|
(setq row '())
|
|
(setq row '())
|
|
(dotimes (n width) (setq row (cons 'hline row)))
|
|
(dotimes (n width) (setq row (cons 'hline row)))
|
|
row))
|
|
row))
|
|
- tab))))
|
|
|
|
|
|
+ table))))
|
|
(cons (mapcar (lambda (row) (if (equal (car row) 'hline) 'hline row))
|
|
(cons (mapcar (lambda (row) (if (equal (car row) 'hline) 'hline row))
|
|
(trans (cdr table)))
|
|
(trans (cdr table)))
|
|
(remove 'hline (car table))))))
|
|
(remove 'hline (car table))))))
|