From 43636ce5957f4143d001fbb458d07833efbe5953 Mon Sep 17 00:00:00 2001 From: Andreas Gerler Date: Mon, 29 Jan 2024 11:35:44 +0100 Subject: [PATCH] elpa/alert fix syntax Signed-off-by: Andreas Gerler --- elpa/alert-20221213.1619/alert.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/elpa/alert-20221213.1619/alert.el b/elpa/alert-20221213.1619/alert.el index 51af988e..da8f6100 100644 --- a/elpa/alert-20221213.1619/alert.el +++ b/elpa/alert-20221213.1619/alert.el @@ -679,7 +679,7 @@ This is found in the Growl Extras: http://growl.info/extras.php." alert-growl-priorities)))) (args (cl-case system-type - ('windows-nt (mapcar + (windows-nt (mapcar (lambda (lst) (apply #'concat lst)) `( ;; http://www.growlforwindows.com/gfw/help/growlnotify.aspx @@ -694,11 +694,11 @@ This is found in the Growl Extras: http://growl.info/extras.php." (if (and (plist-get info :persistent) (not (plist-get info :never-persist))) (cl-case system-type - ('windows-nt (nconc args (list "/s:true"))) + (windows-nt (nconc args (list "/s:true"))) (t (nconc args (list "--sticky"))))) (let ((message (alert-encode-string (plist-get info :message)))) (cl-case system-type - ('windows-nt (nconc args (list message))) + (windows-nt (nconc args (list message))) (t (nconc args (list "--message" message))))) (apply #'call-process alert-growl-command nil nil nil args)) (alert-message-notify info))) -- 2.47.3