Initial implementation of sx-completing-read

1 files changed, 5 insertions, 0 deletions

diff --git a/sx.el b/sx.el
index a63c155..c2d1164 100644
--- a/sx.el
+++ b/sx.el
@@ -183,6 +183,11 @@ See `sx-question-get-questions' and `sx-question-get-question'.")
 
 
 ;;; Utility Functions
+(defun sx-completing-read (&rest args)
+  "Like `completing-read', but possibly use ido.
+All ARGS are passed to `completing-read' or `ido-completing-read'."
+  (apply (if ido-mode #'ido-completing-read #'completing-read)
+    args))
 
 (defmacro sx-sorted-insert-skip-first (newelt list &optional predicate)
   "Inserted NEWELT into LIST sorted by PREDICATE.