[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:
Daniel - 2019-07-13 19:38:26 +02:00
parent 55c3b60964
commit af244b853b
No known key found for this signature in database
GPG Key ID: 1C7071A75BB72D64
1 changed files with 5 additions and 3 deletions

View File

@ -580,10 +580,12 @@ Interactively query for the exact value of \"short\"."
(user-error "Not in Timeline buffer"))
(save-mark-and-excursion
;; get actual entry from headline of line
(end-of-line)
(unless (looking-back " |$" nil)
(beginning-of-line)
(unless (looking-at "^| ")
(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)))
(unless entry
(user-error "Not on valid row in timeline"))