Use cl-incf instead of cl

* yasnippet.el (yas--snippet-next-id, yas--real-line-beginning):
Use `cl-incf'.
This commit is contained in:
Syohei YOSHIDA 2014-09-29 12:25:01 +09:00 committed by João Távora
parent 8e9bf3cdb4
commit 783cc3394f

View File

@ -559,7 +559,7 @@ snippet itself contains a condition that returns the symbol
(defun yas--snippet-next-id ()
(let ((id yas--snippet-id-seed))
(incf yas--snippet-id-seed)
(cl-incf yas--snippet-id-seed)
id))
@ -3953,7 +3953,7 @@ Meant to be called in a narrowed buffer, does various passes"
(n (line-beginning-position)))
(while (or (eql c ?\ )
(eql c ?\t))
(incf n)
(cl-incf n)
(setq c (char-after n)))
n))