branch: externals/ement
commit 955acd65225e063ed2ad60e439b9acf4194b9969
Author: Adam Porter <a...@alphapapa.net>
Commit: Adam Porter <a...@alphapapa.net>
Change: (ement-room-write-reply) Rename from ement-room-send-reply
This is clearer, because calling the function begins writing a reply
rather than sending it, which requires another action.
---
ement-notify.el | 2 +-
ement-room.el | 8 ++++----
2 files changed, 5 insertions(+), 5 deletions(-)
diff --git a/ement-notify.el b/ement-notify.el
index d929d0022f..df5357e36b 100644
--- a/ement-notify.el
+++ b/ement-notify.el
@@ -165,7 +165,7 @@ margins in Emacs. But it's useful, anyway."
(save-window-excursion
;; Not sure why `call-interactively' doesn't work for `push-button' but oh
well.
(push-button)
- (call-interactively #'ement-room-send-reply)))
+ (call-interactively #'ement-room-write-reply)))
(defun ement-notify-switch-to-notifications-buffer ()
"Switch to \"*Ement Notifications*\" buffer."
diff --git a/ement-room.el b/ement-room.el
index a21122c162..5edd251151 100644
--- a/ement-room.el
+++ b/ement-room.el
@@ -96,7 +96,7 @@ Used to avoid overlapping requests.")
Used by `ement-room-send-message'.")
(defvar-local ement-room-replying-to-overlay nil
- "Used by `ement-room-send-reply'.")
+ "Used by `ement-room-write-reply'.")
(defvar-local ement-room-read-receipt-request nil
"Maps event ID to request updating read receipt to that event.
@@ -131,7 +131,7 @@ Used to, e.g. call `ement-room-compose-org'.")
;; Messages
(define-key map (kbd "RET") #'ement-room-send-message)
- (define-key map (kbd "S-<return>") #'ement-room-send-reply)
+ (define-key map (kbd "S-<return>") #'ement-room-write-reply)
(define-key map (kbd "M-RET") #'ement-room-compose-message)
(define-key map (kbd "<insert>") #'ement-room-edit-message)
(define-key map (kbd "C-k") #'ement-room-delete-message)
@@ -1668,7 +1668,7 @@ The message must be one sent by the local user."
(user-error "Message not deleted"))))
(ement-redact event room session reason))
-(defun ement-room-send-reply ()
+(defun ement-room-write-reply ()
"Send a reply to event at point."
(interactive)
(cl-assert ement-ewoc) (cl-assert ement-room) (cl-assert ement-session)
@@ -4182,7 +4182,7 @@ For use in `completion-at-point-functions'."
:test
#'equal))
'face 'transient-value))))
("RET" "Write message" ement-room-send-message)
- ("S-RET" "Write reply" ement-room-send-reply)
+ ("S-RET" "Write reply" ement-room-write-reply)
("M-RET" "Compose message in buffer" ement-room-compose-message)
("<insert>" "Edit message" ement-room-edit-message)
("C-k" "Delete message" ement-room-delete-message)
