From 1fdf0b0c0ab2df240bfc079a56ffaa0a56c98840 Mon Sep 17 00:00:00 2001 From: Juergen Hoetzel Date: Sat, 1 May 2021 14:04:53 +0200 Subject: [PATCH] Replace undefined functions length= and length> with Emacs builtins --- eshell-info-banner.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/eshell-info-banner.el b/eshell-info-banner.el index 8b2c7c8..088e2e1 100644 --- a/eshell-info-banner.el +++ b/eshell-info-banner.el @@ -127,7 +127,7 @@ neither of these, an error will be thrown by the function." path))) ((null path) "") ((listp path) - (f-join (if (length= path 1) + (f-join (if (= (length path) 1) (car path) (let* ((dir (car path)) (first-char (substring dir 0 1))) @@ -151,7 +151,7 @@ Return detected partitions as a list of structs." (mount (nth 5 partition))) (when (string-prefix-p "/dev" filesystem t) (make-eshell-info-banner--mounted-partitions - :path (if (length> mount eshell-info-banner-shorten-path-from) + :path (if (> (length mount) eshell-info-banner-shorten-path-from) (eshell-info-banner--abbr-path mount t) mount) :size size