File tree Expand file tree Collapse file tree 3 files changed +6
-6
lines changed Expand file tree Collapse file tree 3 files changed +6
-6
lines changed Original file line number Diff line number Diff line change @@ -978,7 +978,7 @@ ENDP) DELIM."
978
978
(let ((map (make-sparse-keymap )))
979
979
(set-keymap-parent map clojure-mode-map)
980
980
(define-key map (kbd " C-c C-d" ) 'cider-doc-map )
981
- (define-key map (kbd " M-." ) 'cider-jump )
981
+ (define-key map (kbd " M-." ) 'cider-jump-to-var )
982
982
(define-key map (kbd " M-," ) 'cider-jump-back )
983
983
(define-key map (kbd " C-c M-." ) 'cider-jump-to-resource )
984
984
(define-key map (kbd " RET" ) 'cider-repl-return )
@@ -1022,7 +1022,7 @@ ENDP) DELIM."
1022
1022
" --"
1023
1023
, cider-doc-menu
1024
1024
" --"
1025
- [" Jump to source" cider-jump]
1025
+ [" Jump to source" cider-jump-to-var ]
1026
1026
[" Jump to resource" cider-jump-to-resource]
1027
1027
[" Jump back" cider-jump-back]
1028
1028
" --"
Original file line number Diff line number Diff line change @@ -409,12 +409,12 @@ it wraps to 0."
409
409
(cider--jump-to-loc-from-info info t )))
410
410
411
411
(defun cider-stacktrace-jump ()
412
- " Like `cider-jump' , but uses the stack frame source at point, if available."
412
+ " Like `cider-jump-to-var ' , but uses the stack frame source at point, if available."
413
413
(interactive )
414
414
(let ((button (button-at (point ))))
415
415
(if (and button (button-get button 'line ))
416
416
(cider-stacktrace-navigate button )
417
- (call-interactively 'cider-jump ))))
417
+ (call-interactively 'cider-jump-to-var ))))
418
418
419
419
420
420
; ; Rendering
Original file line number Diff line number Diff line change 156
156
(goto-char pos))))
157
157
158
158
(defun cider-test-jump ()
159
- " Like `cider-jump' , but uses the test at point's definition, if available."
159
+ " Like `cider-jump-to-var ' , but uses the test at point's definition, if available."
160
160
(interactive )
161
161
(let ((ns (get-text-property (point ) 'ns ))
162
162
(var (get-text-property (point ) 'var ))
163
163
(line (get-text-property (point ) 'line )))
164
164
(if (and ns var)
165
165
(cider-jump-to-var (concat ns " /" var) line)
166
- (call-interactively 'cider-jump ))))
166
+ (call-interactively 'cider-jump-to-var ))))
167
167
168
168
169
169
; ;; Error stacktraces
You can’t perform that action at this time.
0 commit comments