more net docs
svn: r9279 original commit: 85583d4ebb09657c2f8f050a804b7fa93c210875
This commit is contained in:
parent
3d35ac1e4e
commit
871aeca0a6
|
@ -1243,9 +1243,9 @@
|
|||
;; multiple results
|
||||
(if (null? res)
|
||||
'nbsp
|
||||
(let ([w (apply max 0 (map block-width res))])
|
||||
(let ([w (apply + (map block-width res))])
|
||||
(if (or (ormap table? res)
|
||||
(w . > . 30))
|
||||
(w . > . 40))
|
||||
(make-table
|
||||
#f
|
||||
(map (lambda (fe)
|
||||
|
|
Loading…
Reference in New Issue
Block a user