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."
558
558
(add-text-properties cider-repl-input-start-mark
559
559
(point )
560
560
`(cider-old-input
561
- ,(incf cider-repl-old-input-counter))))
561
+ ,(cl- incf cider-repl-old-input-counter))))
562
562
(if cider-repl-use-clojure-font-lock
563
563
(let ((input-string (buffer-substring cider-repl-input-start-mark end)))
564
564
(save-excursion
@@ -743,7 +743,7 @@ Empty strings and duplicates are ignored."
743
743
(unless (or (equal string " " )
744
744
(equal string (car cider-repl-input-history)))
745
745
(push string cider-repl-input-history)
746
- (incf cider-repl-input-history-items-added)))
746
+ (cl- incf cider-repl-input-history-items-added)))
747
747
748
748
(defun cider-repl-delete-current-input ()
749
749
" Delete all text after the prompt."
Original file line number Diff line number Diff line change @@ -629,7 +629,7 @@ Refreshes EWOC."
629
629
(defun nrepl-next-request-id ()
630
630
" Return the next request id."
631
631
(with-current-buffer (nrepl-current-connection-buffer)
632
- (number-to-string (incf nrepl-request-counter))))
632
+ (number-to-string (cl- incf nrepl-request-counter))))
633
633
634
634
(defun nrepl-send-request (request callback )
635
635
" Send REQUEST and register response handler CALLBACK."
You can’t perform that action at this time.
0 commit comments