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 b3e7d32cefb4f755dd2e72735cb748f06309c0bd..13a306ae2da58b17145133df1d239c90de9fdef6 100644 (file)
--- 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)))