procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

; Simplify last change in shr.el

Browse source 
* lisp/net/shr.el (shr-max-columns): Simplify some function calls.
This commit is contained in:
Basil L. Contovounesios 2020-07-17 12:04:09 +01:00
parent ef4c92bc0c
commit bcb58180c7
1 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/net/shr.el
View file

@ -2585,9 +2585,8 @@ flags that control whether to collect or render objects."
(setq this 0)
(dolist (column (dom-children row))
(when (and (not (stringp column))
(or (eq (dom-tag column) 'td)
(eq (dom-tag column) 'th)))
(setq this (+ (1+ this) (length rowspans)))
(memq (dom-tag column) '(td th)))
(setq this (+ 1 this (length rowspans)))
;; We have a rowspan, which we emulate later in rendering
;; by adding an extra column to the following rows.
(when-let* ((span (dom-attr column 'rowspan)))