mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Fix detection of vtable start and end

Browse source 
* lisp/emacs-lisp/vtable.el (vtable-beginning-of-table)
(vtable-end-of-table): Fix detection of vtable limits.  (Bug#58712)

Copyright-paperwork-exempt: yes
This commit is contained in:
Lämppi Lütti 2022-10-22 07:58:46 +03:00 • committed by Stefan Kangas
parent e95d8562c0
commit 55c2180d2c
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/emacs-lisp/vtable.el
View file

@ -240,13 +240,14 @@ See info node `(vtable)Top' for vtable documentation."
(defun vtable-beginning-of-table ()
"Go to the start of the current table."
(if (text-property-search-backward 'vtable (vtable-current-table))
(if (or (text-property-search-backward 'vtable (vtable-current-table) #'eq)
(get-text-property (point) 'vtable))
(point)
(goto-char (point-min))))
(defun vtable-end-of-table ()
"Go to the end of the current table."
(if (text-property-search-forward 'vtable (vtable-current-table))
(if (text-property-search-forward 'vtable (vtable-current-table) #'eq)
(point)
(goto-char (point-max))))