@@ -536,12 +536,12 @@ resolve those to absolute paths."
536
536
'abort-on-input ))))
537
537
(nrepl-dict-get dict " completions" )))
538
538
539
- (defun cider-sync-request:complete (str context )
540
- " Return a list of completions for STR using nREPL's \" complete\" op.
539
+ (defun cider-sync-request:complete (prefix context )
540
+ " Return a list of completions for PREFIX using nREPL's \" complete\" op.
541
541
CONTEXT represents a completion context for compliment."
542
542
(when-let* ((dict (thread-first `(" op" " complete"
543
543
" ns" ,(cider-current-ns)
544
- " symbol " , str
544
+ " prefix " , prefix
545
545
" context" , context
546
546
,@(when cider-enhanced-cljs-completion-p '(" enhanced-cljs-completion?" " t" )))
547
547
(cider-nrepl-send-sync-request (cider-current-repl)
@@ -558,7 +558,7 @@ CONTEXT represents a completion context for compliment."
558
558
" Send \" info\" op with parameters SYMBOL or CLASS and MEMBER."
559
559
(let ((var-info (thread-first `(" op" " info"
560
560
" ns" ,(cider-current-ns)
561
- ,@(when symbol `(" symbol " , symbol ))
561
+ ,@(when symbol `(" sym " , symbol ))
562
562
,@(when class `(" class" , class ))
563
563
,@(when member `(" member" , member )))
564
564
(cider-nrepl-send-sync-request (cider-current-repl)))))
@@ -570,7 +570,7 @@ CONTEXT represents a completion context for compliment."
570
570
" Send \" eldoc\" op with parameters SYMBOL or CLASS and MEMBER."
571
571
(when-let* ((eldoc (thread-first `(" op" " eldoc"
572
572
" ns" ,(cider-current-ns)
573
- ,@(when symbol `(" symbol " , symbol ))
573
+ ,@(when symbol `(" sym " , symbol ))
574
574
,@(when class `(" class" , class ))
575
575
,@(when member `(" member" , member )))
576
576
(cider-nrepl-send-sync-request (cider-current-repl)
@@ -583,7 +583,7 @@ CONTEXT represents a completion context for compliment."
583
583
" Send \" eldoc-datomic-query\" op with parameter SYMBOL."
584
584
(when-let* ((eldoc (thread-first `(" op" " eldoc-datomic-query"
585
585
" ns" ,(cider-current-ns)
586
- ,@(when symbol `(" symbol " , symbol )))
586
+ ,@(when symbol `(" sym " , symbol )))
587
587
(cider-nrepl-send-sync-request nil 'abort-on-input ))))
588
588
(if (member " no-eldoc" (nrepl-dict-get eldoc " status" ))
589
589
nil
0 commit comments