branch: elpa/annotate
commit 58525eb73ab537f704029b28e1303e3ec6deda98
Author: cage <cage-invalid@invalid>
Commit: cage <cage-invalid@invalid>
- changed function calls from 'cl' package to the 'cl-lib' equivalents.
---
annotate.el | 9 +++++----
1 file changed, 5 insertions(+), 4 deletions(-)
diff --git a/annotate.el b/annotate.el
index f0d2a1fb3e..8ac9b9d087 100644
--- a/annotate.el
+++ b/annotate.el
@@ -760,9 +760,10 @@ annotate-actual-comment-end"
(cl-loop
for buffer-line in buffer-lines
for line-number from 1 do
- (let ((overlays-in-line (remove-if-not (lambda (a) (=
(annotate-overlay-lines-line a)
- line-number))
- overlay-relative-pos)))
+ (let ((overlays-in-line (cl-remove-if-not (lambda (a)
+ (=
(annotate-overlay-lines-line a)
+ line-number))
+ overlay-relative-pos)))
(when (or (/= (1- line-number)
lines-count)
(not (annotate-string-empty-p buffer-line)))
@@ -1202,7 +1203,7 @@ an overlay and it's annotation."
(let ((last-not-empty (cl-position-if-not 'annotate-string-empty-p
lines
:from-end t)))
- (setf lines (subseq lines 0 (1+ last-not-empty)))))
+ (setf lines (cl-subseq lines 0 (1+ last-not-empty)))))
(apply 'concat (mapcar (lambda (l) (concat prefix l "\n")) lines))))
;;; database related procedures
