@@ -994,7 +994,7 @@ buffer."
994
994
(cider--nrepl-pr-request-map))))
995
995
996
996
(defun cider-eval-list-at-point (&optional output-to-current-buffer )
997
- " Evaluate the list (eg. a function call, surrounded by parens) around point.
997
+ " Evaluate the list (eg. a function call, surrounded by parens) around point.
998
998
If invoked with OUTPUT-TO-CURRENT-BUFFER, output the result to current buffer."
999
999
(interactive " P" )
1000
1000
(save-excursion
@@ -1015,8 +1015,7 @@ That's set by commands like `cider-eval-last-sexp-in-context'.")
1015
1015
1016
1016
1017
1017
(defun cider--guess-eval-context ()
1018
- " Return the context suitable for input to `cider--eval-in-context'
1019
- by extracting all parent let bindings."
1018
+ " Return context for `cider--eval-in-context' by extracting all parent let bindings."
1020
1019
(save-excursion
1021
1020
(let ((res " " ))
1022
1021
(condition-case er
@@ -1034,7 +1033,8 @@ by extracting all parent let bindings."
1034
1033
(scan-error res)))))
1035
1034
1036
1035
(defun cider--eval-in-context (bounds &optional guess )
1037
- " Evaluate code at BOUNDS in user-provided evaluation context."
1036
+ " Evaluate code at BOUNDS in user-provided evaluation context.
1037
+ When GUESS is non-nil, attempt to extract the context from parent let-bindings."
1038
1038
(let* ((code (string-trim-right
1039
1039
(buffer-substring-no-properties (car bounds) (cadr bounds))))
1040
1040
(eval-context
@@ -1055,7 +1055,7 @@ The context is just a let binding vector (without the brackets).
1055
1055
The context is remembered between command invocations.
1056
1056
1057
1057
When GUESS is non-nil, or called interactively with \\ [universal-argument],
1058
- attempt to guess the context from parent let bindings."
1058
+ attempt to extract the context from parent let- bindings."
1059
1059
(interactive " P" )
1060
1060
(cider--eval-in-context (cider-last-sexp 'bounds ) guess))
1061
1061
@@ -1066,7 +1066,7 @@ The context is just a let binding vector (without the brackets).
1066
1066
The context is remembered between command invocations.
1067
1067
1068
1068
When GUESS is non-nil, or called interactively with \\ [universal-argument],
1069
- attempt to guess the context from parent let bindings."
1069
+ attempt to extract the context from parent let- bindings."
1070
1070
(interactive " P" )
1071
1071
(cider--eval-in-context (cider-sexp-at-point 'bounds ) guess))
1072
1072
0 commit comments