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)))))
|
||||
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.
|
||||
Useful for Guix."
|
||||
(funcall old-function args)
|
||||
(setq helm-external-commands-list
|
||||
(cl-delete-if (lambda (p) (string-prefix-p "." p))
|
||||
helm-external-commands-list)))
|
||||
(advice-add 'helm-external-commands-list-1
|
||||
:after #'ambrevar/helm-external-command-cleanup-dotted)
|
||||
:around #'ambrevar/helm-external-command-cleanup-dotted)
|
||||
|
||||
(provide 'init-helm)
|
||||
|
|
Loading…
Reference in New Issue