diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-07-25 13:57:15 +0200 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-07-25 13:57:15 +0200 |
commit | 69e3a3b95c874c09f569050919d7cd8789f1c1ee (patch) | |
tree | 13bc27b8f4ccc2c4d2582e66375ac76fe5d7c8d6 | |
parent | 9d3a4a8a5f3ec15c5f2fd5e64ba952ed72316e1f (diff) | |
download | org-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.el | 19 |
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") |