[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/theme-buffet 6e7111d57d 2/3: Get rid of redundant conca
From: |
ELPA Syncer |
Subject: |
[elpa] externals/theme-buffet 6e7111d57d 2/3: Get rid of redundant concat on `theme-buffet--define-timer' |
Date: |
Sun, 3 Dec 2023 06:58:40 -0500 (EST) |
branch: externals/theme-buffet
commit 6e7111d57d2ae02f3148c7e8961c2251cc1ae8e6
Author: bboal <egomet@bboal.com>
Commit: bboal <egomet@bboal.com>
Get rid of redundant concat on `theme-buffet--define-timer'
---
theme-buffet.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/theme-buffet.el b/theme-buffet.el
index c5377e5db0..2141233586 100644
--- a/theme-buffet.el
+++ b/theme-buffet.el
@@ -465,7 +465,7 @@ When NUMBER is 0, the timer is cancelled. Maximum value is
%s" units max-num)
(if-let (((natnump number))
((<= number ,max-num))
(timer-secs (* ,factor number))
- (msg-1 "Theme-Buffet Sous-Chef is ")
+ (msg-1 "Theme-Buffet Sous-Chef is")
(msg-2 "rushing into the kitchen..."))
(if (= number 0)
(theme-buffet--free-timer ',fn-name)
@@ -475,7 +475,7 @@ When NUMBER is 0, the timer is cancelled. Maximum value is
%s" units max-num)
(theme-buffet--free-timer ',fn-name :no-message)
(setq ,fn-name (run-at-time timer-secs timer-secs
#'theme-buffet--load-random))
- (message (concat msg-1 msg-2)))
+ (message "%s %s" msg-1 msg-2))
(user-error "The input number should be a natural up to %s instead of
`%s'"
,max-num number)))))