From 1099ebffdccc4e1037a2f90e5a11ba68300ef3ff Mon Sep 17 00:00:00 2001 From: Syohei YOSHIDA Date: Wed, 11 Mar 2015 23:00:02 +0900 Subject: [PATCH] Use cl-lib macros instead of cl.el --- swiper.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/swiper.el b/swiper.el index a19e1f093..b4935c58a 100644 --- a/swiper.el +++ b/swiper.el @@ -88,7 +88,7 @@ (swiper-font-lock-ensure) (while (< (point) (point-max)) (push (format fspec - (incf line-number) + (cl-incf line-number) (buffer-substring (line-beginning-position) (line-end-position))) @@ -167,7 +167,7 @@ (match-end i))) (face (cond ((zerop swiper--subexps) - (caddr swiper-faces)) + (cl-caddr swiper-faces)) ((zerop i) (car swiper-faces)) (t @@ -176,7 +176,7 @@ (push overlay swiper--overlays) (overlay-put overlay 'face face) (overlay-put overlay 'priority i) - (incf i)))))))))) + (cl-incf i)))))))))) (when (/= (length helm-input) swiper--len) (setq swiper--len (length helm-input)) (swiper--reanchor))) @@ -196,7 +196,7 @@ (when (< (setq d (abs (- n swiper--anchor))) min) (setq min d) (setq ln beg)) - (incf beg) + (cl-incf beg) (forward-line 1)) (goto-char (point-min)) (when ln -- 2.39.2