From: Eshel Yaron <me@eshelyaron.com>
Date: Fri, 2 Aug 2024 17:15:49 +0000 (+0200)
Subject: (cobra-read-command-line): Fix handling of cons INITIAL arg
X-Git-Tag: v0.3.0~16
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=999ca10c35dee3f915c17b335387a661bbefea94;p=kubed.git

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

diff --git a/cobra.el b/cobra.el
index 1fdbabe..b74256b 100644
--- 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)))