@@ -50,7 +50,8 @@ contains only one action key, the associated action function will be
5050applied automatically. An action function can be any function that receives
5151the symbol found by the apropos search as argument."
5252 :type '(alist :key-type string :value-type function)
53- :group 'cider )
53+ :group 'cider
54+ :package-version '(cider . " 0.13.0" ))
5455
5556(defun cider-apropos-doc (button )
5657 " Display documentation for the symbol represented at BUTTON."
@@ -89,8 +90,8 @@ and be case-sensitive (based on CASE-SENSITIVE-P)."
8990 (let* ((label (capitalize (if (string= type " variable" ) " var" type)))
9091 (help (concat " Display doc for this " (downcase label))))
9192 (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)
9495 (insert-text-button name 'type 'apropos-symbol )
9596 (insert " \n " )
9697 (insert-text-button label 'type (intern (concat " apropos-" type)))
@@ -152,9 +153,9 @@ optionally search doc strings (based on DOCS-P), include private vars
152153 " Apply selected action on SYMBOL."
153154 (let* ((first-action-key (car (car cider-apropos-actions)))
154155 (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)))
158159 (action-fn (cdr (assoc action-key cider-apropos-actions))))
159160 (if action-fn
160161 (funcall action-fn symbol)
0 commit comments