From: Adam Porter <adam@alphapapa.net>
Date: Sat, 9 Mar 2024 04:28:52 +0000 (-0600)
Subject: * lisp/emacs-lisp/vtable.el (vtable-update-object): Fix.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c2493cccac718729fb88a5e7f0a84de946956262;p=emacs.git

* 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)

(cherry picked from commit 013114664ef4923872ffad26a97f4d314c9a84bf)
---

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"))