[elpa] externals/modus-themes cf469564b7 1/3: Make modus-themes--select-prompt accept optional PROMPT

[ELPA Syncer]

branch: externals/modus-themes
commit cf469564b70177afa435c72680a02af7ee5a0cec
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    Make modus-themes--select-prompt accept optional PROMPT
---
 modus-themes.el | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/modus-themes.el b/modus-themes.el
index 3ec3f1315d..24cbc2436d 100644
--- a/modus-themes.el
+++ b/modus-themes.el
@@ -1209,15 +1209,15 @@ symbol, which is safe when used as a face attribute's 
value."
   "Render `modus-themes--list-known-themes' as completion with theme category."
   (modus-themes--completion-table 'theme (modus-themes--list-known-themes)))
 
-(defun modus-themes--select-prompt ()
-  "Minibuffer prompt to select a Modus theme."
+(defun modus-themes--select-prompt (&optional prompt)
+  "Minibuffer prompt to select a Modus theme.
+With optional PROMPT string, use it.  Else use a generic prompt."
   (let ((completion-extra-properties `(:annotation-function 
,#'modus-themes--annotate-theme)))
     (intern
      (completing-read
-      "Select Modus theme: "
+      (or prompt "Select Modus theme: ")
       (modus-themes--completion-table-candidates)
-      nil t nil
-      'modus-themes--select-theme-history))))
+      nil t nil 'modus-themes--select-theme-history))))
 
 ;;;###autoload
 (defun modus-themes-select (theme)