[Timeline] Try to keep point on deleted line
This commit is contained in:
parent
16068add6f
commit
926e977016
|
@ -556,7 +556,13 @@ Interactively query for the exact value of \"short\"."
|
|||
(setq-local timeline-tools--current-timeline
|
||||
(timeline-tools-transform-timeline
|
||||
(delq entry timeline-tools--current-timeline)))))
|
||||
(timeline-tools-redraw-timeline))
|
||||
;; the call to `erase-buffer’ in `timeline-tools-redraw-timeline’ somehow
|
||||
;; makes `save-mark-and-excursion’ meaningless; thus we save the number of the
|
||||
;; current line by ourselves
|
||||
(let ((linenum (line-number-at-pos (point))))
|
||||
(timeline-tools-redraw-timeline)
|
||||
(goto-char (point-min))
|
||||
(forward-line (1- linenum))))
|
||||
|
||||
(defun timeline-tools-next-line ()
|
||||
"Move point to next line in timetable, if possible."
|
||||
|
|
Loading…
Reference in New Issue