From: Manuel Giraud <manuel@ledu-giraud.fr>
Date: Thu, 6 Oct 2022 14:03:34 +0000 (+0200)
Subject: ; * lisp/battery.el (battery-bsd-apm): No need for `executable-find'.
X-Git-Tag: emacs-29.0.90~1616^2~727
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8c8a54dd23c90f108f340f015e8cd91ccdb9cc94;p=emacs.git

; * lisp/battery.el (battery-bsd-apm): No need for `executable-find'.
---

diff --git a/lisp/battery.el b/lisp/battery.el
index a874f0640e6..8de80109c6c 100644
--- a/lisp/battery.el
+++ b/lisp/battery.el
@@ -938,16 +938,14 @@ The following %-sequences are provided:
 %t Remaining time (to charge or discharge) in the form `h:min'"
   (let* ((os-name (car (split-string
                         ;; FIXME: Can't we use something like `system-type'?
-                        (battery--call-process-to-string
-                         (executable-find "uname")))))
+                        (battery--call-process-to-string "uname"))))
          (apm-flag (pcase os-name
                      ("OpenBSD" "mP")
                      ("FreeBSD" "st")
                      (_         "ms")))
          (apm-args (concat "-abl" apm-flag))
          (apm-output (split-string
-                      (battery--call-process-to-string
-                       (executable-find "apm") apm-args)))
+                      (battery--call-process-to-string "apm" apm-args)))
          (indices (pcase os-name
                     ;; FreeBSD's manpage documents that multiple
                     ;; outputs are ordered by "the order in which