hiro/ement.el
1
0
Fork 0
mirror of https://github.com/vale981/ement.el synced 2025-03-05 17:21:41 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Change: (ement-room-go-to-read-marker) Set window-start

Browse source
This commit is contained in:
Adam Porter 2021-08-28 17:12:41 -05:00
parent 2d77516276
commit da6b222c1c
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
ement-room.el
View file

@ -1850,10 +1850,11 @@ function to `ement-room-event-fns', which see."
"Move to the read marker in the current room."
(interactive)
(if ement-room-fully-read-marker
(goto-char (ewoc-location
(let ((pos (ewoc-location
(ement-room--ewoc-last-matching ement-ewoc
(lambda (node-data)
(eq 'ement-room-fully-read-marker node-data)))))
(eq 'ement-room-fully-read-marker node-data))))))
(setf (point) pos (window-start) pos))
(if-let* ((fully-read-event (alist-get "m.fully_read" (ement-room-account-data ement-room) nil nil #'equal))
(fully-read-event-id (map-nested-elt fully-read-event '(content event_id))))
(let ((buffer (current-buffer)))