From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Wed, 9 Mar 2022 16:37:36 +0000 (+0100)
Subject: Fix regression in vtable-goto-object
X-Git-Tag: emacs-29.0.90~1939
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2353893bd04bfee7c7659a758cf7c5072121a90c;p=emacs.git

Fix regression in vtable-goto-object

* lisp/emacs-lisp/vtable.el (vtable-goto-object): Fix moving to
the object.
---

diff --git a/lisp/emacs-lisp/vtable.el b/lisp/emacs-lisp/vtable.el
index 2c61996637f..d8577c19762 100644
--- a/lisp/emacs-lisp/vtable.el
+++ b/lisp/emacs-lisp/vtable.el
@@ -167,7 +167,7 @@ Return the position of the object if found, and nil if not."
   (let ((start (point)))
     (vtable-beginning-of-table)
     (save-restriction
-      (narrow-to-region (point) (vtable-end-of-table))
+      (narrow-to-region (point) (save-excursion (vtable-end-of-table)))
       (if (text-property-search-forward 'vtable-object object #'eq)
           (progn
             (forward-line -1)