diff options
| author | Basil L. Contovounesios <contovob@tcd.ie> | 2020-07-17 12:04:09 +0100 |
|---|---|---|
| committer | Basil L. Contovounesios <contovob@tcd.ie> | 2020-07-17 12:04:09 +0100 |
| commit | bcb58180c75fb5cfc3329b1be81e4350bac15335 (patch) | |
| tree | b491f93c252ae623d9e37776963eb2f15e35a686 /lisp/net/shr.el | |
| parent | ef4c92bc0cebf36a21ab2074931b64701afc18e4 (diff) | |
| download | emacs-bcb58180c75fb5cfc3329b1be81e4350bac15335.tar.gz emacs-bcb58180c75fb5cfc3329b1be81e4350bac15335.tar.bz2 emacs-bcb58180c75fb5cfc3329b1be81e4350bac15335.zip | |
; Simplify last change in shr.el
* lisp/net/shr.el (shr-max-columns): Simplify some function calls.
Diffstat (limited to 'lisp/net/shr.el')
| -rw-r--r-- | lisp/net/shr.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/net/shr.el b/lisp/net/shr.el index 1ba615f92a8..b19df8c6ba9 100644 --- a/lisp/net/shr.el +++ b/lisp/net/shr.el @@ -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))) |