[elpa] externals/ement b278d44445: Change: (leave-room, forget-room) Use specific prompts

[ELPA Syncer]

branch: externals/ement
commit b278d444452718797eea969d59ac895dfbfe4009
Author: Adam Porter <adam@alphapapa.net>
Commit: Adam Porter <adam@alphapapa.net>

    Change: (leave-room, forget-room) Use specific prompts
---
 README.org   | 1 +
 ement-lib.el | 7 ++++---
 2 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/README.org b/README.org
index c7c65c84d4..1f0678afd3 100644
--- a/README.org
+++ b/README.org
@@ -292,6 +292,7 @@ Note that, while ~matrix-client~ remains usable, and 
probably will for some time
 *Changes*
 
 + Improve display of room tombstones (displayed at top and bottom of buffer, 
and new room ID is linked to join).
++ Use descriptive prompts in ~ement-leave-room~ and ~ement-forget-room~ 
commands.
 
 ** 0.6
 
diff --git a/ement-lib.el b/ement-lib.el
index 88bfa28b4d..8d4870d7d1 100644
--- a/ement-lib.el
+++ b/ement-lib.el
@@ -150,7 +150,8 @@ the request."
 If FORCE-P, leave without prompting.  ROOM may be an `ement-room'
 struct, or a room ID or alias string."
   ;; TODO: Rename `room' argument to `room-or-id'.
-  (interactive (ement-complete-room :session (ement-complete-session)))
+  (interactive (ement-complete-room :session (ement-complete-session)
+                 :prompt "Leave room: "))
   (cl-assert room) (cl-assert session)
   (cl-etypecase room
     (ement-room)
@@ -189,8 +190,8 @@ struct, or a room ID or alias string."
   "Forget ROOM on SESSION.
 If FORCE-P (interactively, with prefix), prompt to leave the room
 when necessary, and forget the room without prompting."
-  (interactive (pcase-let ((`(,room ,session) (ement-complete-room)))
-                 (list room session current-prefix-arg)))
+  (interactive (ement-complete-room :session (ement-complete-session)
+                 :prompt "Forget room: "))
   (pcase-let* (((cl-struct ement-room id display-name status) room)
                (endpoint (format "rooms/%s/forget" (url-hexify-string id))))
     (pcase status