|
@@ -1050,7 +1050,7 @@ that value."
|
|
|
(let ((seq 0) (pos item) counter)
|
|
|
(while (and (not (setq counter (org-list-get-counter pos struct)))
|
|
|
(setq pos (org-list-get-prev-item pos struct prevs)))
|
|
|
- (incf seq))
|
|
|
+ (cl-incf seq))
|
|
|
(if (not counter) (1+ seq)
|
|
|
(cond
|
|
|
((string-match "[A-Za-z]" counter)
|
|
@@ -2514,8 +2514,8 @@ With optional prefix argument ALL, do this for the whole buffer."
|
|
|
(lambda (e)
|
|
|
(org-list-get-checkbox e s))
|
|
|
items))))
|
|
|
- (incf c-all (length cookies))
|
|
|
- (incf c-on (cl-count "[X]" cookies :test #'equal)))))))
|
|
|
+ (cl-incf c-all (length cookies))
|
|
|
+ (cl-incf c-on (cl-count "[X]" cookies :test #'equal)))))))
|
|
|
cookies-list cache)
|
|
|
;; Move to start.
|
|
|
(cond (all (goto-char (point-min)))
|