diff options
author | Manuel Giraud <manuel@ledu-giraud.fr> | 2022-10-06 16:03:34 +0200 |
---|---|---|
committer | Stefan Kangas <stefankangas@gmail.com> | 2022-10-06 20:07:23 +0200 |
commit | 8c8a54dd23c90f108f340f015e8cd91ccdb9cc94 (patch) | |
tree | dfdb4b7ca4515fa8c286437e31f16104db146f5f | |
parent | 0c65c9dfb3e1133a16dacd941b2a3cfb892e148a (diff) | |
download | emacs-8c8a54dd23c90f108f340f015e8cd91ccdb9cc94.tar.gz |
; * lisp/battery.el (battery-bsd-apm): No need for `executable-find'.
-rw-r--r-- | lisp/battery.el | 6 |
1 files changed, 2 insertions, 4 deletions
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 |