[Timeline] Don’t look from behind when killing rows
Somehow sometimes columns get added at the end, and then the old implementation did not work correctly.
This commit is contained in:
parent
55c3b60964
commit
af244b853b
|
@ -580,10 +580,12 @@ Interactively query for the exact value of \"short\"."
|
||||||
(user-error "Not in Timeline buffer"))
|
(user-error "Not in Timeline buffer"))
|
||||||
(save-mark-and-excursion
|
(save-mark-and-excursion
|
||||||
;; get actual entry from headline of line
|
;; get actual entry from headline of line
|
||||||
(end-of-line)
|
(beginning-of-line)
|
||||||
(unless (looking-back " |$" nil)
|
(unless (looking-at "^| ")
|
||||||
(user-error "Not in table"))
|
(user-error "Not in table"))
|
||||||
(org-table-previous-field)
|
;; Move 5 columns to find the actual entry
|
||||||
|
(dotimes (_ 5)
|
||||||
|
(org-table-next-field))
|
||||||
(let ((entry (get-text-property (point) 'entry)))
|
(let ((entry (get-text-property (point) 'entry)))
|
||||||
(unless entry
|
(unless entry
|
||||||
(user-error "Not on valid row in timeline"))
|
(user-error "Not on valid row in timeline"))
|
||||||
|
|
Loading…
Reference in New Issue