@@ -50,7 +50,8 @@ contains only one action key, the associated action function will be
50
50
applied automatically. An action function can be any function that receives
51
51
the symbol found by the apropos search as argument."
52
52
:type '(alist :key-type string :value-type function)
53
- :group 'cider )
53
+ :group 'cider
54
+ :package-version '(cider . " 0.13.0" ))
54
55
55
56
(defun cider-apropos-doc (button )
56
57
" Display documentation for the symbol represented at BUTTON."
@@ -89,8 +90,8 @@ and be case-sensitive (based on CASE-SENSITIVE-P)."
89
90
(let* ((label (capitalize (if (string= type " variable" ) " var" type)))
90
91
(help (concat " Display doc for this " (downcase label))))
91
92
(cider-propertize-region (list 'apropos-symbol name
92
- 'action 'cider-apropos-doc
93
- 'help-echo help)
93
+ 'action 'cider-apropos-doc
94
+ 'help-echo help)
94
95
(insert-text-button name 'type 'apropos-symbol )
95
96
(insert " \n " )
96
97
(insert-text-button label 'type (intern (concat " apropos-" type)))
@@ -152,9 +153,9 @@ optionally search doc strings (based on DOCS-P), include private vars
152
153
" Apply selected action on SYMBOL."
153
154
(let* ((first-action-key (car (car cider-apropos-actions)))
154
155
(action-key (if (= 1 (length cider-apropos-actions))
155
- first-action-key
156
- (completing-read (format " Choose action to apply to `%s `: " symbol)
157
- cider-apropos-actions nil nil nil nil first-action-key)))
156
+ first-action-key
157
+ (completing-read (format " Choose action to apply to `%s `: " symbol)
158
+ cider-apropos-actions nil nil nil nil first-action-key)))
158
159
(action-fn (cdr (assoc action-key cider-apropos-actions))))
159
160
(if action-fn
160
161
(funcall action-fn symbol)
0 commit comments