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: Remove debug message

Browse source 
This shouldn't be needed anymore, and it can interfere with feedback
from the new send-direct-message command.
This commit is contained in:
Adam Porter 2022-03-25 22:58:49 -05:00
parent d5bca9e00d
commit 8c7030a95d
1 changed files with 1 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
ement-room.el
View file

@ -1239,13 +1239,7 @@ mentioning the ROOM and CONTENT."
(ement-room-display-name room))))
(when content
(setf message (concat message (format " Event content: %S" content))))
(display-warning 'ement-room-send-event-callback message))
(when (eq :debug warning-minimum-log-level)
;; HACK: Mildly abuse `warning-minimum-log-level' by using it to control whether
;; successfully sent events display a message. This is really only needed for
;; debugging (until adding local echo), and using actual warnings would be too much.
(message "Message sent to room %S: %S"
(ement-room-display-name room) (alist-get "body" content nil nil #'equal))))
(display-warning 'ement-room-send-event-callback message)))
(when (eq 'send ement-room-mark-rooms-read)
;; Move read markers.
(when-let ((buffer (alist-get 'buffer (ement-room-local room))))