Stop before headline when going to previous timeline line
This commit is contained in:
parent
ff0ea07f53
commit
8068107326
|
@ -546,7 +546,11 @@ current values of the relevant buffer local variables."
|
||||||
(user-error "Not in Timeline buffer"))
|
(user-error "Not in Timeline buffer"))
|
||||||
(beginning-of-line)
|
(beginning-of-line)
|
||||||
(let ((point (point)))
|
(let ((point (point)))
|
||||||
(unless (re-search-backward "^| " nil 'no-error)
|
;; Make sure we do not move into the headline by checking the `entry'
|
||||||
|
;; property
|
||||||
|
(unless (and (re-search-backward "^| " nil 'no-error)
|
||||||
|
(progn (org-table-next-field)
|
||||||
|
(get-text-property (point) 'entry)))
|
||||||
(goto-char point)
|
(goto-char point)
|
||||||
(user-error "No previous line"))
|
(user-error "No previous line"))
|
||||||
(beginning-of-line)))
|
(beginning-of-line)))
|
||||||
|
|
Loading…
Reference in New Issue