diff options
| author | Thierry Volpiatto <thievol@posteo.net> | 2021-10-11 07:37:40 +0200 |
|---|---|---|
| committer | Thierry Volpiatto <thievol@posteo.net> | 2021-10-11 07:37:40 +0200 |
| commit | 9869d8d39018ca91547d33c78599b104803695cb (patch) | |
| tree | 962c38708a501a7789a84a4bc3ebda0c85a1c29e /helm-external.el | |
| parent | 87a7b21b4fc6c914fe8995c456aa3be0b77ab73b (diff) | |
Remove usage of del-input everywhere
Diffstat (limited to 'helm-external.el')
| -rw-r--r-- | helm-external.el | 17 |
1 files changed, 6 insertions, 11 deletions
diff --git a/helm-external.el b/helm-external.el index 7dad6f41..914ef5d7 100644 --- a/helm-external.el +++ b/helm-external.el @@ -154,8 +154,7 @@ to use." "Program: " collection :must-match t :name "Open file Externally" - :del-input nil - :history helm-external-command-history) + :history 'helm-external-command-history) ;; Always prompt to set this program as default. (setq def-prog nil)) ;; No prefix arg or default program exists. @@ -180,10 +179,8 @@ to use." helm-external-programs-associations))) (helm-run-or-raise program file) (setq helm-external-command-history - (cons program - (delete program - (cl-loop for i in helm-external-command-history - when (executable-find i) collect i)))))) + (cl-loop for i in helm-external-command-history + when (executable-find i) collect i)))) ;;;###autoload (defun helm-run-external-command (program) @@ -196,14 +193,12 @@ You can set your own list of commands with "RunProgram: " (helm-external-commands-list-1 'sort) :must-match t - :del-input nil :name "External Commands" - :history helm-external-command-history))) + :history 'helm-external-command-history))) (helm-run-or-raise program) (setq helm-external-command-history - (cons program (delete program - (cl-loop for i in helm-external-command-history - when (executable-find i) collect i))))) + (cl-loop for i in helm-external-command-history + when (executable-find i) collect i))) (provide 'helm-external) |