Skip to content

Commit 427360e

Browse files
benjamin-asdfvemv
benjamin-asdf
authored andcommitted
cider-clojuredocs: prevent redundant prompt for a symbol
Closes clojure-emacs#3163
1 parent 5023a0b commit 427360e

File tree

2 files changed

+6
-1
lines changed

2 files changed

+6
-1
lines changed

Diff for: CHANGELOG.md

+1
Original file line numberDiff line numberDiff line change
@@ -22,6 +22,7 @@
2222
* [#3145](https://github.com/clojure-emacs/cider/pull/3145): Allow fallback to other `xref` backends if cider-nrepl is not loaded.
2323
* [#3148](https://github.com/clojure-emacs/cider/pull/3148): Fix eval result overlays at point inheriting the faces of following text.
2424
* [#3133](https://github.com/clojure-emacs/cider/issues/3133): Respect `cider-injected-middleware-version`.
25+
* [#3163](https://github.com/clojure-emacs/cider/pull/3163): `cider-clojuredocs`: prevent redundant prompt for a symbol.
2526

2627
## 1.2.0 (2021-12-22)
2728

Diff for: cider-clojuredocs.el

+5-1
Original file line numberDiff line numberDiff line change
@@ -145,7 +145,11 @@ opposite of what that option dictates."
145145
(let ((docs (cider-sync-request:clojuredocs-lookup (cider-current-ns) sym)))
146146
(pop-to-buffer (cider-create-clojuredocs-buffer (cider-clojuredocs--content docs)))
147147
;; highlight the symbol in question in the docs buffer
148-
(highlight-regexp (cadr (split-string sym "/")) 'bold)))
148+
(highlight-regexp
149+
(regexp-quote
150+
(or (cadr (split-string sym "/"))
151+
sym))
152+
'bold)))
149153

150154
;;;###autoload
151155
(defun cider-clojuredocs (&optional arg)

0 commit comments

Comments
 (0)