[elpa] externals/theme-buffet 3c049e1672 11/12: Improved messaging in `theme-buffet--reload-theme' function.

[ELPA Syncer]

branch: externals/theme-buffet
commit 3c049e1672b45970c5fc3bcaf77249f7c0545cf3
Author: bboal <egomet@bboal.com>
Commit: bboal <egomet@bboal.com>

    Improved messaging in `theme-buffet--reload-theme' function.
---
 theme-buffet.el | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

diff --git a/theme-buffet.el b/theme-buffet.el
index 5bcb4383af..66215111d7 100644
--- a/theme-buffet.el
+++ b/theme-buffet.el
@@ -256,12 +256,11 @@ Has to be an integer number and no greater than 12h in 
absolute value"
   "Load CHOSEN-THEME after disabling the current one.
 An additional ADDED-MESSAGE can be appended to the original string for added
 information."
-  (let* ((standard-message "Theme-Buffet served")
-         (message (if added-message (concat standard-message " " added-message)
-                    standard-message)))
+  (let ((standard-message "Theme-Buffet served")
+        (added-message (or added-message "")))
     (mapc #'disable-theme custom-enabled-themes)
     (load-theme chosen-theme :no-confirm)
-    (message "%s `%s'" message chosen-theme)))
+    (message "%s `%s' %s" standard-message chosen-theme added-message)))
 
 (defun theme-buffet--get-theme-list (period)
   "Get list of themes of PERIOD, excluding the current if more are available."
@@ -302,7 +301,7 @@ An error message will appear if the theme is not available 
to load through
   (declare (interactive-only t))
   (interactive)
   (let ((chosen-theme (intern (theme-buffet--theme-prompt))))
-    (theme-buffet--reload-theme chosen-theme "as per your desires. Enjoy..." 
)))
+    (theme-buffet--reload-theme chosen-theme "according to your wishes. 
Enjoy..." )))
 
 (defvar theme-buffet-period-history nil
   "Theme-Buffet period history.")
@@ -345,7 +344,6 @@ An error message will appear if the theme is not available 
to load through
 (defvar theme-buffet-timer-mins nil
   "Timer that calls another Theme-Buffet's Sous-Chef into the kitchen.")
 
-
 (defun theme-buffet--free-timer (timer-obj)
   "Cancel and set to nil the timer TIMER-OBJ."
   (when-let (((boundp timer-obj))