Helm: Fix helm-external-command-cleanup-dotted on first call.
parent
b65c93751d
commit
bae6941aa5
|
@ -327,13 +327,14 @@ With prefix argument, UPDATE the databases with custom uptions thanks to the
|
||||||
(file-name-extension candidate)))))
|
(file-name-extension candidate)))))
|
||||||
1))
|
1))
|
||||||
|
|
||||||
(defun ambrevar/helm-external-command-cleanup-dotted (&optional _ignore)
|
(defun ambrevar/helm-external-command-cleanup-dotted (old-function &optional args)
|
||||||
"Remove dotted programs from `helm-run-external-command' list.
|
"Remove dotted programs from `helm-run-external-command' list.
|
||||||
Useful for Guix."
|
Useful for Guix."
|
||||||
|
(funcall old-function args)
|
||||||
(setq helm-external-commands-list
|
(setq helm-external-commands-list
|
||||||
(cl-delete-if (lambda (p) (string-prefix-p "." p))
|
(cl-delete-if (lambda (p) (string-prefix-p "." p))
|
||||||
helm-external-commands-list)))
|
helm-external-commands-list)))
|
||||||
(advice-add 'helm-external-commands-list-1
|
(advice-add 'helm-external-commands-list-1
|
||||||
:after #'ambrevar/helm-external-command-cleanup-dotted)
|
:around #'ambrevar/helm-external-command-cleanup-dotted)
|
||||||
|
|
||||||
(provide 'init-helm)
|
(provide 'init-helm)
|
||||||
|
|
Loading…
Reference in New Issue