diff options
| author | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2014-04-25 11:40:04 +0200 |
|---|---|---|
| committer | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2014-04-25 11:40:04 +0200 |
| commit | e6c3ff112066f64777407256518e7ebb590a03c9 (patch) | |
| tree | 65ed4574ad9f686ddde667aa2f56080a5019bfee /helm-external.el | |
| parent | 7e621fb654c64717a79b25d96566e5fb3351ad85 (diff) | |
Reindent all files again.
* helm-elisp-package.el: Use with instead of let.
Diffstat (limited to 'helm-external.el')
| -rw-r--r-- | helm-external.el | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/helm-external.el b/helm-external.el index 69379a6c..7d19e65c 100644 --- a/helm-external.el +++ b/helm-external.el @@ -66,17 +66,17 @@ and sets `helm-external-commands-list'." it (setq helm-external-commands-list (cl-loop - for dir in (split-string (getenv "PATH") path-separator) - when (and (file-exists-p dir) (file-accessible-directory-p dir)) - for lsdir = (cl-loop for i in (directory-files dir t) - for bn = (file-name-nondirectory i) - when (and (not (member bn completions)) - (not (file-directory-p i)) - (file-executable-p i)) - collect bn) - append lsdir into completions - finally return - (if sort (sort completions 'string-lessp) completions))))) + for dir in (split-string (getenv "PATH") path-separator) + when (and (file-exists-p dir) (file-accessible-directory-p dir)) + for lsdir = (cl-loop for i in (directory-files dir t) + for bn = (file-name-nondirectory i) + when (and (not (member bn completions)) + (not (file-directory-p i)) + (file-executable-p i)) + collect bn) + append lsdir into completions + finally return + (if sort (sort completions 'string-lessp) completions))))) (defun helm-run-or-raise (exe &optional file) "Generic command that run asynchronously EXE. @@ -181,7 +181,7 @@ If not found or a prefix arg is given query the user which tool to use." (cons real-prog-name (delete real-prog-name (cl-loop for i in helm-external-command-history - when (executable-find i) collect i)))))) + when (executable-find i) collect i)))))) ;;;###autoload (defun helm-run-external-command (program) @@ -201,7 +201,7 @@ You can set your own list of commands with (setq helm-external-command-history (cons program (delete program (cl-loop for i in helm-external-command-history - when (executable-find i) collect i))))) + when (executable-find i) collect i))))) (provide 'helm-external) |