Skip to content

Commit 95926e6

Browse files
author
Bozhidar Batsov
committed
cider-jump -> cider-jump-to-var
1 parent 2347de0 commit 95926e6

File tree

3 files changed

+6
-6
lines changed

3 files changed

+6
-6
lines changed

cider-repl.el

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -978,7 +978,7 @@ ENDP) DELIM."
978978
(let ((map (make-sparse-keymap)))
979979
(set-keymap-parent map clojure-mode-map)
980980
(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)
982982
(define-key map (kbd "M-,") 'cider-jump-back)
983983
(define-key map (kbd "C-c M-.") 'cider-jump-to-resource)
984984
(define-key map (kbd "RET") 'cider-repl-return)
@@ -1022,7 +1022,7 @@ ENDP) DELIM."
10221022
"--"
10231023
,cider-doc-menu
10241024
"--"
1025-
["Jump to source" cider-jump]
1025+
["Jump to source" cider-jump-to-var]
10261026
["Jump to resource" cider-jump-to-resource]
10271027
["Jump back" cider-jump-back]
10281028
"--"

cider-stacktrace.el

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -409,12 +409,12 @@ it wraps to 0."
409409
(cider--jump-to-loc-from-info info t)))
410410

411411
(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."
413413
(interactive)
414414
(let ((button (button-at (point))))
415415
(if (and button (button-get button 'line))
416416
(cider-stacktrace-navigate button)
417-
(call-interactively 'cider-jump))))
417+
(call-interactively 'cider-jump-to-var))))
418418

419419

420420
;; Rendering

cider-test.el

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -156,14 +156,14 @@
156156
(goto-char pos))))
157157

158158
(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."
160160
(interactive)
161161
(let ((ns (get-text-property (point) 'ns))
162162
(var (get-text-property (point) 'var))
163163
(line (get-text-property (point) 'line)))
164164
(if (and ns var)
165165
(cider-jump-to-var (concat ns "/" var) line)
166-
(call-interactively 'cider-jump))))
166+
(call-interactively 'cider-jump-to-var))))
167167

168168

169169
;;; Error stacktraces

0 commit comments

Comments
 (0)