From: Andreas Gerler <baron@bundesbrandschatzamt.de>
Date: Mon, 29 Jan 2024 10:35:44 +0000 (+0100)
Subject: elpa/alert fix syntax
X-Git-Url: http://git.bundesbrandschatzamt.de/?a=commitdiff_plain;h=43636ce5957f4143d001fbb458d07833efbe5953;p=emacsconfig.git

elpa/alert fix syntax

Signed-off-by: Andreas Gerler <baron@bundesbrandschatzamt.de>
---

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)))