Fix regression in vtable-goto-object

* lisp/emacs-lisp/vtable.el (vtable-goto-object): Fix moving to
the object.
This commit is contained in:
Lars Ingebrigtsen 2022-03-09 17:37:36 +01:00
parent 94f3424381
commit 2353893bd0

View file

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