diff options
| author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-07-25 15:54:06 +0200 |
|---|---|---|
| committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-07-25 15:54:06 +0200 |
| commit | a8a9c286e9ff3e346c106c72f9992e0e8912d232 (patch) | |
| tree | ce07d60ebe17ba94171c326e6dc8115504fbdebb | |
| parent | 2b99f910e1c0d1f4701772f9bedf66894e16c403 (diff) | |
| download | org-mode-a8a9c286e9ff3e346c106c72f9992e0e8912d232.tar.gz | |
org-attach: Use cl-lib
* lisp/org-attach.el (org-attach-commit): Use "cl-" prefix.
| -rw-r--r-- | lisp/org-attach.el | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/lisp/org-attach.el b/lisp/org-attach.el index cf8a1ca..52ae556 100644 --- a/lisp/org-attach.el +++ b/lisp/org-attach.el @@ -37,10 +37,9 @@ ;;; Code: -(eval-when-compile - (require 'cl)) -(require 'org-id) +(require 'cl-lib) (require 'org) +(require 'org-id) (require 'vc-git) (defgroup org-attach nil @@ -336,12 +335,12 @@ This checks for the existence of a \".git\" directory in that directory." org-attach-git-annex-cutoff)) (call-process "git" nil nil nil "annex" "add" new-or-modified) (call-process "git" nil nil nil "add" new-or-modified)) - (incf changes)) + (cl-incf changes)) (dolist (deleted (split-string (shell-command-to-string "git ls-files -z --deleted") "\0" t)) (call-process "git" nil nil nil "rm" deleted) - (incf changes)) + (cl-incf changes)) (when (> changes 0) (shell-command "git commit -m 'Synchronized attachments'")))))) |