]> git.bundesbrandschatzamt.de Git - emacsconfig.git/commitdiff
elpa/alert fix syntax
authorAndreas Gerler <baronNOSPAMbundesbrandschatzamt.de>
Mon, 29 Jan 2024 10:35:44 +0000 (11:35 +0100)
committerAndreas Gerler <baronNOSPAMbundesbrandschatzamt.de>
Wed, 31 Jan 2024 17:50:52 +0000 (18:50 +0100)
Signed-off-by: Andreas Gerler <baronNOSPAMbundesbrandschatzamt.de>
elpa/alert-20221213.1619/alert.el

index 51af988e516c1b5ca3f793067b7d2510ac246b24..da8f6100997d9c374634d2a3c104032de9dd4c9b 100644 (file)
@@ -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)))