[elpa] externals/ement 8bbdcc3aac 1/8: Fix: (ement-directory) Interactive arguments

[ELPA Syncer]

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

    Fix: (ement-directory) Interactive arguments
    
    Closes #102.
---
 ement-directory.el | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/ement-directory.el b/ement-directory.el
index ab21f4f40d..118cbc0798 100644
--- a/ement-directory.el
+++ b/ement-directory.el
@@ -149,11 +149,14 @@ Interactively, With prefix, prompt for server and number 
of
 rooms."
   (interactive (let* ((session (ement-complete-session :prompt "Search on 
session: "))
                       (server (if current-prefix-arg
-                                  (read-string "Search on server: ")
+                                  (read-string "Search on server: " nil nil
+                                               (ement-server-name 
(ement-session-server session)))
                                 (ement-server-name (ement-session-server 
session))))
-                      (limit (when current-prefix-arg
-                               (read-number "Limit number of rooms: " 1000))))
-                 (list :server server :session session :limit limit)))
+                      (args (list :server server :session session)))
+                 (when current-prefix-arg
+                   (cl-callf plist-put args
+                     :limit (read-number "Limit number of rooms: " 1000)))
+                 args))
   (pcase-let ((revert-function (lambda (&rest _ignore)
                                  (interactive)
                                  (ement-directory :server server :session 
session)))