@@ -65,27 +65,27 @@ the symbol found by the xref search as argument."
65
65
(cider-propertize-region (list 'apropos-symbol var-name
66
66
'action 'cider-xref-doc
67
67
'help-echo " Display doc" )
68
- (insert-text-button var-name 'type 'apropos-symbol )
69
- (insert " \n " )
70
- (insert-text-button " Function" 'type 'apropos-function )
71
- (insert " : " )
72
- (let ((beg (point )))
73
- (insert (nrepl-dict-get result " doc" ))
74
- (fill-region beg (point )))
75
- (insert " \n " )
76
- (if-let* ((file (nrepl-dict-get result " file" ))
77
- (line (nrepl-dict-get result " line" )))
78
- (progn
79
- (insert (propertize var-name
80
- 'font-lock-face 'font-lock-function-name-face )
81
- " is defined in " )
82
- (insert-text-button (cider--abbreviate-file-protocol file)
83
- 'follow-link t
84
- 'action (lambda (_x )
85
- (cider-xref-source file line var-name)))
86
- (insert " ." ))
87
- (insert " Definition location unavailable." ))
88
- (insert " \n " ) )))
68
+ (insert-text-button var-name 'type 'apropos-symbol ))
69
+ (insert " \n " )
70
+ (insert-text-button " Function" 'type 'apropos-function )
71
+ (insert " : " )
72
+ (let ((beg (point )))
73
+ (insert (nrepl-dict-get result " doc" ))
74
+ (fill-region beg (point )))
75
+ (insert " \n " )
76
+ (if-let* ((file (nrepl-dict-get result " file" ))
77
+ (line (nrepl-dict-get result " line" )))
78
+ (progn
79
+ (insert (propertize var-name
80
+ 'font-lock-face 'font-lock-function-name-face )
81
+ " is defined in " )
82
+ (insert-text-button (cider--abbreviate-file-protocol file)
83
+ 'follow-link t
84
+ 'action (lambda (_x )
85
+ (cider-xref-source file line var-name)))
86
+ (insert " ." ))
87
+ (insert " Definition location unavailable." ))
88
+ (insert " \n " )))
89
89
90
90
(defun cider-xref-source (file line name )
91
91
" Find source for FILE, LINE and NAME."
0 commit comments