branch: master
commit 5ff0f9b69477f23ee9d8b2c61538c495302e758c
Author: Thierry Volpiatto <[email protected]>
Commit: Thierry Volpiatto <[email protected]>
* helm-async.el: Use cl-lib instead of cl.
---
helm-async.el | 32 ++++++++++++++------------------
1 files changed, 14 insertions(+), 18 deletions(-)
diff --git a/helm-async.el b/helm-async.el
index 3073e15..66b0331 100644
--- a/helm-async.el
+++ b/helm-async.el
@@ -34,17 +34,13 @@
;; To use it, put this in your .emacs:
;;
;; (eval-after-load "dired-aux"
-;; '(require 'helm-async))
+;; '(require 'dired-async))
;;
-;; NOTE: This file is incompatible with dired-async.el and async-file.el,
-;; so be sure to NOT LOAD these files.
;;
-;; It allows doing all these async operations from helm, but you can also
-;; use it without installing helm and use it only from dired.
;;; Code:
-(eval-when-compile (require 'cl)) ; for declare
+(require 'cl-lib)
(require 'dired-aux)
(require 'async)
@@ -112,10 +108,10 @@ This allow to turn off async features provided to this
package."
(force-mode-line-update)))
(defun dired-async-processes ()
- (loop for p in (process-list)
- when (loop for c in (process-command p) thereis
- (string= "async-batch-invoke" c))
- collect p))
+ (cl-loop for p in (process-list)
+ when (cl-loop for c in (process-command p) thereis
+ (string= "async-batch-invoke" c))
+ collect p))
(defun dired-async-kill-process ()
(interactive)
@@ -148,11 +144,11 @@ This allow to turn off async features provided to this
package."
"Return a form to kill ftp process in child emacs."
(quote
(progn
- (require 'cl)
- (let ((buf (loop for b in (buffer-list)
- thereis (and (string-match
- "\\`\\*ftp.*"
- (buffer-name b)) b))))
+ (require 'cl-lib)
+ (let ((buf (cl-loop for b in (buffer-list)
+ thereis (and (string-match
+ "\\`\\*ftp.*"
+ (buffer-name b)) b))))
(when buf (kill-buffer buf))))))
(defun dired-create-files (file-creator operation fn-list name-constructor
@@ -290,12 +286,12 @@ ESC or `q' to not overwrite any of the remaining files,
;; Start async process.
(when (and async-fn-list dired-async-be-async)
(async-start `(lambda ()
- (require 'cl) (require 'dired-aux)
+ (require 'cl-lib) (require 'dired-aux)
,(async-inject-variables
dired-async-env-variables-regexp)
(condition-case err
(let ((dired-recursive-copies (quote always)))
- (loop for (f . d) in (quote ,async-fn-list)
- do (funcall (quote ,file-creator) f d t)))
+ (cl-loop for (f . d) in (quote ,async-fn-list)
+ do (funcall (quote ,file-creator) f d t)))
(file-error
(with-temp-file ,dired-async-log-file
(insert (format "%S" err)))))
