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

Change/Fix: (ement-room--buffer) Process state/timeline events chronologically

Browse source
This commit is contained in:
Adam Porter 2022-04-09 13:17:09 -05:00
parent 755e62db11
commit c7c7d98d16
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
ement-room.el
View file

@ -1695,8 +1695,12 @@ data slot."
(alist-get 'buffer (ement-room-local room)) new-buffer) (alist-get 'buffer (ement-room-local room)) new-buffer)
;; We don't use `ement-room--insert-events' to avoid extra ;; We don't use `ement-room--insert-events' to avoid extra
;; calls to `ement-room--insert-ts-headers'. ;; calls to `ement-room--insert-ts-headers'.
(ement-room--handle-events (ement-room-state room)) ;; NOTE: We handle the events in chronological order (i.e. the reverse of the
(ement-room--handle-events (ement-room-timeline room)) ;; stored order, which is latest-first), because some logic depends on this
;; (e.g. processing a message-edit event before the edited event would mean the
;; edited event would not yet be in the buffer).
(ement-room--handle-events (reverse (ement-room-state room)))
(ement-room--handle-events (reverse (ement-room-timeline room)))
(ement-room--insert-ts-headers) (ement-room--insert-ts-headers)
(ement-room-move-read-markers room (ement-room-move-read-markers room
:read-event (when-let ((event (alist-get "m.read" (ement-room-account-data room) nil nil #'equal))) :read-event (when-let ((event (alist-get "m.read" (ement-room-account-data room) nil nil #'equal)))