Move sx--multiple-read to sx-tag-multiple-read

1 files changed, 0 insertions, 18 deletions

diff --git a/sx.el b/sx.el
index 3271755..9924308 100644
--- a/sx.el
+++ b/sx.el
@@ -176,24 +176,6 @@ All ARGS are passed to `completing-read' or `ido-completing-read'."
   (apply (if ido-mode #'ido-completing-read #'completing-read)
     args))
 
-(defun sx--multiple-read (prompt hist-var)
-  "Interactively query the user for a list of strings.
-Call `read-string' multiple times, until the input is empty.
-
-PROMPT is a string displayed to the user and should not end with
-a space nor a colon.  HIST-VAR is a quoted symbol, indicating a
-list in which to store input history."
-  (let (list input)
-    (while (not (string=
-                 ""
-                 (setq input (read-string
-                              (concat prompt " ["
-                                      (mapconcat #'identity list ",")
-                                      "]: ")
-                              "" hist-var))))
-      (push input list))
-    list))
-
 (defmacro sx-sorted-insert-skip-first (newelt list &optional predicate)
   "Inserted NEWELT into LIST sorted by PREDICATE.
 This is designed for the (site id id ...) lists.  So the first car