phundrak/eshell-info-banner.el
1
0
Fork 0
Code Issues Pull Requests Releases Activity

Merge pull request #3 from juergenhoetzel/undefine-funtions

Browse Source 
Replace undefined functions length= and length> with Emacs builtins
This commit is contained in:
Lucien Cartier-Tilet 2021-05-01 15:34:46 +02:00 committed by GitHub
commit 1c3c31ace7
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
eshell-info-banner.el
View File

@ -127,7 +127,7 @@ neither of these, an error will be thrown by the function."
path))) path)))
((null path) "") ((null path) "")
((listp path) ((listp path)
(f-join (if (length= path 1) (f-join (if (= (length path) 1)
(car path) (car path)
(let* ((dir (car path)) (let* ((dir (car path))
(first-char (substring dir 0 1))) (first-char (substring dir 0 1)))
@ -151,7 +151,7 @@ Return detected partitions as a list of structs."
(mount (nth 5 partition))) (mount (nth 5 partition)))
(when (string-prefix-p "/dev" filesystem t) (when (string-prefix-p "/dev" filesystem t)
(make-eshell-info-banner--mounted-partitions (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) (eshell-info-banner--abbr-path mount t)
mount) mount)
:size size :size size