[elpa] externals/modus-themes ac394f8490 3/3: Adapt modus-themes-list-colors to prefix argument if present

[ELPA Syncer]

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

    Adapt modus-themes-list-colors to prefix argument if present
---
 modus-themes.el | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/modus-themes.el b/modus-themes.el
index 182d3fa363..130440e7c8 100644
--- a/modus-themes.el
+++ b/modus-themes.el
@@ -1339,7 +1339,13 @@ PALETTE is the value of a variable like 
`modus-operandi-palette'."
   "Preview the palette of the Modus THEME of choice.
 With optional prefix argument for MAPPINGS preview only the semantic
 color mappings instead of the complete palette."
-  (interactive (list (modus-themes--select-prompt "Preview palette of THEME: 
") current-prefix-arg))
+  (interactive
+   (let ((prompt (if current-prefix-arg
+                     "Preview palette mappings of THEME: "
+                   "Preview palette of THEME: ")))
+     (list
+      (modus-themes--select-prompt prompt)
+      current-prefix-arg)))
   (let ((buffer (get-buffer-create (format (if mappings "*%s-list-mappings*" 
"*%s-list-all*") theme))))
     (with-current-buffer buffer
       (let ((modus-themes-current-preview theme)