Re: [PATCH] Fix battery information on FreeBSD

[Stefan Monnier]

>    (let* ((os-name (car (split-string
>              (shell-command-to-string "/usr/bin/uname"))))
> -     (apm-flag (if (equal os-name "OpenBSD") "P" "s"))
> -     (apm-cmd (concat "/usr/sbin/apm -ablm" apm-flag))
> +     (apm-flag (if (equal os-name "OpenBSD") "Pm"))
> +     (apm-flag (if (equal os-name "NetBSD") "sm"))
> +     (apm-flag (if (equal os-name "FreeBSD") "st"))

This can't be right: with the above apm-flag will be nil except on
FreeBSD (since the last apm-flag hides the previous ones).

You probably want

        (apm-flag (pcase os-name
                    ("OpenBSD" "Pm")
                    ("FreeBSD" "st")
                    (_         "sm")))

instead.


        Stefan