master 013114664ef: * lisp/emacs-lisp/vtable.el (vtable-update-object): Fix.

[Eli Zaretskii]

branch: master
commit 013114664ef4923872ffad26a97f4d314c9a84bf
Author: Adam Porter <adam@alphapapa.net>
Commit: Eli Zaretskii <eliz@gnu.org>

    * lisp/emacs-lisp/vtable.el (vtable-update-object): Fix.
    
    The order of the arguments to 'seq-position' was wrong, and it did not
    compare the correct values.  (Bug#69664)
---
 lisp/emacs-lisp/vtable.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lisp/emacs-lisp/vtable.el b/lisp/emacs-lisp/vtable.el
index 02020552e7f..5cf8d8854bb 100644
--- a/lisp/emacs-lisp/vtable.el
+++ b/lisp/emacs-lisp/vtable.el
@@ -300,7 +300,9 @@ If it can't be found, return nil and don't move point."
         (error "Can't find the old object"))
       (setcar (cdr objects) object))
     ;; Then update the cache...
-    (let* ((line-number (seq-position old-object (car (vtable--cache table))))
+    (let* ((line-number (seq-position (car (vtable--cache table)) old-object
+                                      (lambda (a b)
+                                        (equal (car a) b))))
            (line (elt (car (vtable--cache table)) line-number)))
       (unless line
         (error "Can't find cached object"))