Skip to content

Commit d631120

Browse files
author
Bozhidar Batsov
committed
incf -> cl-incf
1 parent 977af2a commit d631120

File tree

2 files changed

+3
-3
lines changed

2 files changed

+3
-3
lines changed

cider-repl.el

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -558,7 +558,7 @@ If NEWLINE is true then add a newline at the end of the input."
558558
(add-text-properties cider-repl-input-start-mark
559559
(point)
560560
`(cider-old-input
561-
,(incf cider-repl-old-input-counter))))
561+
,(cl-incf cider-repl-old-input-counter))))
562562
(if cider-repl-use-clojure-font-lock
563563
(let ((input-string (buffer-substring cider-repl-input-start-mark end)))
564564
(save-excursion
@@ -743,7 +743,7 @@ Empty strings and duplicates are ignored."
743743
(unless (or (equal string "")
744744
(equal string (car cider-repl-input-history)))
745745
(push string cider-repl-input-history)
746-
(incf cider-repl-input-history-items-added)))
746+
(cl-incf cider-repl-input-history-items-added)))
747747

748748
(defun cider-repl-delete-current-input ()
749749
"Delete all text after the prompt."

nrepl-client.el

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -629,7 +629,7 @@ Refreshes EWOC."
629629
(defun nrepl-next-request-id ()
630630
"Return the next request id."
631631
(with-current-buffer (nrepl-current-connection-buffer)
632-
(number-to-string (incf nrepl-request-counter))))
632+
(number-to-string (cl-incf nrepl-request-counter))))
633633

634634
(defun nrepl-send-request (request callback)
635635
"Send REQUEST and register response handler CALLBACK."

0 commit comments

Comments
 (0)