[elpa] externals/ement 955acd6522 1/3: Change: (ement-room-write-reply) Rename from ement-room-send-reply

[ELPA Syncer]

branch: externals/ement
commit 955acd65225e063ed2ad60e439b9acf4194b9969
Author: Adam Porter <adam@alphapapa.net>
Commit: Adam Porter <adam@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)