summaryrefslogtreecommitdiff
path: root/lisp/emacs-lisp/vtable.el
diff options
context:
space:
mode:
authorAdam Porter <adam@alphapapa.net>2024-03-21 02:13:28 -0500
committerEli Zaretskii <eliz@gnu.org>2024-03-21 09:43:07 +0200
commitb3f04eb68499f285e05b5b74e9cbd67f3140fb3c (patch)
tree281ab0507e18324311cb1a66b8387fe180ef97c7 /lisp/emacs-lisp/vtable.el
parentad0492c5a97aaad7f784f7834772400d9af96b69 (diff)
downloademacs-b3f04eb68499f285e05b5b74e9cbd67f3140fb3c.tar.gz
emacs-b3f04eb68499f285e05b5b74e9cbd67f3140fb3c.tar.bz2
emacs-b3f04eb68499f285e05b5b74e9cbd67f3140fb3c.zip
Avoid recomputing the whole table in 'vtable--recompute-numerical'
Each element of LINE being tested is a list, the first element of which is the value actually being represented in the table. Previously, the 'numberp' test would always fail, because it was being compared with the list rather than the intended value in it; that could cause the whole table to be recomputed, sometimes unnecessarily. * lisp/emacs-lisp/vtable.el (vtable--recompute-numerical): Test the car of ELEM, not ELEM itself, which is a list. (Bug#69927)
Diffstat (limited to 'lisp/emacs-lisp/vtable.el')
-rw-r--r--lisp/emacs-lisp/vtable.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/vtable.el b/lisp/emacs-lisp/vtable.el
index 15a430f5c26..5f7d3ae5210 100644
--- a/lisp/emacs-lisp/vtable.el
+++ b/lisp/emacs-lisp/vtable.el
@@ -743,7 +743,7 @@ If NEXT, do the next column."
(seq-do-indexed
(lambda (elem index)
(when (and (vtable-column--numerical (elt columns index))
- (not (numberp elem)))
+ (not (numberp (car elem))))
(setq recompute t)))
line)
(when recompute