File tree Expand file tree Collapse file tree 2 files changed +3
-3
lines changed Expand file tree Collapse file tree 2 files changed +3
-3
lines changed Original file line number Diff line number Diff 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."
Original file line number Diff line number Diff 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."
You can’t perform that action at this time.
0 commit comments