From: Eshel Yaron <me@eshelyaron.com>
Date: Sun, 20 Aug 2023 07:39:21 +0000 (+0200)
Subject: Respect PROMPT argument in 'sweeprolog-read-existing-variable'
X-Git-Tag: V9.1.14-sweep-0.23.1~6
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f379a217be6f3dcf432872c0609d0248da328d22;p=sweep.git

Respect PROMPT argument in 'sweeprolog-read-existing-variable'

This fixes an omission from the recent Compat integration.

* sweeprolog.el (sweeprolog-read-existing-variable): Use PROMPT.
---

diff --git a/sweeprolog.el b/sweeprolog.el
index b3e7d32..13a306a 100644
--- a/sweeprolog.el
+++ b/sweeprolog.el
@@ -6286,7 +6286,7 @@ EXISTING-VARS is a list of existing variable names (strings)."
                                               "occurrences"
                                               n))))))))
     (completing-read
-     (format-prompt "Rename variable"
+     (format-prompt (or prompt "Rename variable")
                     (when default
                       (sweeprolog--format-variable default)))
      occurrences nil t nil nil default)))