diff options
| author | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-05-23 21:40:38 +0200 |
|---|---|---|
| committer | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-05-23 21:40:38 +0200 |
| commit | 122368ac1f418ab0ed54da0f6b8a657cc309a5f0 (patch) | |
| tree | 3f8501ec014a9d0b88366cfe9b758bbde3d12f00 | |
| parent | d7d88f4676d084a9bfdb95977142c2cde938218a (diff) | |
if not in tl--set-after-update-marker
| -rw-r--r-- | lisp/mastodon-tl.el | 34 |
1 files changed, 17 insertions, 17 deletions
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el index 941fb94..47a1216 100644 --- a/lisp/mastodon-tl.el +++ b/lisp/mastodon-tl.el @@ -2455,23 +2455,23 @@ from the start if it is nil." "Set `mastodon-tl--after-update-marker' to the after-update location. This location is defined by a non-nil value of `mastodon-tl-position-after-update'." - (if mastodon-tl-position-after-update - (let ((marker (make-marker))) - (set-marker marker - (cond - ((eq 'keep-point mastodon-tl-position-after-update) - (point)) - ((eq 'last-old-toot mastodon-tl-position-after-update) - (next-single-property-change - (or mastodon-tl--update-point (point-min)) - 'byline)) - (t - (error "Unknown mastodon-tl-position-after-update value %S" - mastodon-tl-position-after-update)))) - ;; Make the marker advance if text gets inserted there. - (set-marker-insertion-type marker t) - (setq mastodon-tl--after-update-marker marker)) - (setq mastodon-tl--after-update-marker nil))) + (if (not mastodon-tl-position-after-update) + (setq mastodon-tl--after-update-marker nil) + (let ((marker (make-marker))) + (set-marker marker + (cond + ((eq 'keep-point mastodon-tl-position-after-update) + (point)) + ((eq 'last-old-toot mastodon-tl-position-after-update) + (next-single-property-change + (or mastodon-tl--update-point (point-min)) + 'byline)) + (t + (error "Unknown mastodon-tl-position-after-update value %S" + mastodon-tl-position-after-update)))) + ;; Make the marker advance if text gets inserted there. + (set-marker-insertion-type marker t) + (setq mastodon-tl--after-update-marker marker)))) (defun mastodon-tl--update () "Update timeline with new toots." |