awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

fix(eshell): "attempt to open-code ‘anonymous lambda’ with too few arguments"

Browse Source 
Fix: #8364
Ref: #6867
Amend: c7ca3ea8cc
This commit is contained in:
Henrik Lissner
2025-04-16 03:43:05 -04:00
parent 009a285c0a
commit b4276f41f4
1 changed files with 5 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
modules/term/eshell/config.el
View File

@ -234,14 +234,11 @@ Return nil if there is none."
(let ((str (split-string (esh-help-man-string cmd) "\n"))) (let ((str (split-string (esh-help-man-string cmd) "\n")))
(if (equal (concat "No manual entry for " cmd) (car str)) (if (equal (concat "No manual entry for " cmd) (car str))
(ignore (puthash cmd 'none esh-help-man-cache)) (ignore (puthash cmd 'none esh-help-man-cache))
(puthash cmd (puthash
(-some->> str cmd (when-let* ((str (seq-drop-while (fn! (not (string-match-p "^SYNOPSIS$" %))) str))
(--drop-while (not (string-match-p "^SYNOPSIS$" it))) (str (nth 1 str)))
(nth 1) (substring str (string-match-p "[^\s\t]" str)))
(funcall (lambda (s) esh-help-man-cache))))))
(let ((idx (string-match "[^\s\t]" s)))
(substring s idx)))))
esh-help-man-cache))))))
(use-package! eshell-did-you-mean (use-package! eshell-did-you-mean