summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <mail@nicolasgoaziou.fr>2016-07-25 13:57:15 +0200
committerNicolas Goaziou <mail@nicolasgoaziou.fr>2016-07-25 13:57:15 +0200
commit69e3a3b95c874c09f569050919d7cd8789f1c1ee (patch)
tree13bc27b8f4ccc2c4d2582e66375ac76fe5d7c8d6
parent9d3a4a8a5f3ec15c5f2fd5e64ba952ed72316e1f (diff)
downloadorg-mode-69e3a3b95c874c09f569050919d7cd8789f1c1ee.tar.gz
org-mobile: Require `cl-lib' instead of `cl'
* lisp/org-mobile.el (org-mobile-apply): Use "cl-" prefix.
-rw-r--r--lisp/org-mobile.el19
1 files changed, 8 insertions, 11 deletions
diff --git a/lisp/org-mobile.el b/lisp/org-mobile.el
index bb301b7..0b37562 100644
--- a/lisp/org-mobile.el
+++ b/lisp/org-mobile.el
@@ -33,15 +33,12 @@
(require 'org)
(require 'org-agenda)
+(require 'cl-lib)
+
(defvar org-agenda-keep-restricted-file-list)
;;; Code:
-(eval-when-compile (require 'cl))
-
-(declare-function org-pop-to-buffer-same-window
- "org-compat" (&optional buffer-or-name norecord label))
-
(defgroup org-mobile nil
"Options concerning support for a viewer/editor on a mobile device."
:tag "Org Mobile"
@@ -817,7 +814,7 @@ If BEG and END are given, only do this in that region."
(while (re-search-forward "^\\* \\(.*\\)" end t)
(and (>= (- (match-end 1) (match-beginning 1)) 2)
(not (equal (downcase (substring (match-string 1) 0 2)) "f("))
- (incf cnt-new)))
+ (cl-incf cnt-new)))
;; Find and apply the edits
(goto-char beg)
@@ -833,11 +830,11 @@ If BEG and END are given, only do this in that region."
(eos (save-excursion (org-end-of-subtree t t)))
(cmd (if (equal action "")
'(progn
- (incf cnt-flag)
+ (cl-incf cnt-flag)
(org-toggle-tag "FLAGGED" 'on)
(and note
(org-entry-put nil "THEFLAGGINGNOTE" note)))
- (incf cnt-edit)
+ (cl-incf cnt-edit)
(cdr (assoc action org-mobile-action-alist))))
(note (and (equal action "")
(buffer-substring (1+ (point-at-eol)) eos)))
@@ -854,11 +851,11 @@ If BEG and END are given, only do this in that region."
(if (stringp id-pos)
(insert id-pos " ")
(insert "BAD REFERENCE "))
- (incf cnt-error)
+ (cl-incf cnt-error)
(throw 'next t))
(unless cmd
(insert "BAD FLAG ")
- (incf cnt-error)
+ (cl-incf cnt-error)
(throw 'next t))
(move-marker bos-marker (point))
(if (re-search-forward "^** Old value[ \t]*$" eos t)
@@ -898,7 +895,7 @@ If BEG and END are given, only do this in that region."
(when org-mobile-error
(pop-to-buffer-same-window (marker-buffer marker))
(goto-char marker)
- (incf cnt-error)
+ (cl-incf cnt-error)
(insert (if (stringp (nth 1 org-mobile-error))
(nth 1 org-mobile-error)
"EXECUTION FAILED")