(cobra-read-command-line): Fix handling of cons INITIAL arg

diff --git a/cobra.el b/cobra.el
index 1fdbabe6e16f2f834146456a9c2c7754e5f108d4..b74256b69e32ea80eefda881744b0518efb4b7f5 100644 (file)
--- a/cobra.el
+++ b/cobra.el
@@ -128,7 +128,7 @@ Perform completion action A on string S with predicate P."
 
 Optional argument HIST is the name of the history list variable to use,
 if it is nil or omitted, it defaults to `shell-command-history'."
-  (let ((exec (car (split-string-and-unquote initial))))
+  (let ((exec (car (split-string-and-unquote (car (ensure-list initial))))))
     (minibuffer-with-setup-hook
         (:append (lambda ()
                    (let ((map (make-sparse-keymap)))