[nongnu] elpa/cider 427360e0d8 4/4: `cider-clojuredocs`: prevent redundant prompt for a symbol

[ELPA Syncer]

branch: elpa/cider
commit 427360e0d8cb8aea88d41099023e637fc73b4db1
Author: benjamin-asdf <benjamin-asdf@@users.noreply.github.com>
Commit: vemv <vemv@users.noreply.github.com>

    `cider-clojuredocs`: prevent redundant prompt for a symbol
    
    Closes https://github.com/clojure-emacs/cider/pull/3163
---
 CHANGELOG.md         | 1 +
 cider-clojuredocs.el | 6 +++++-
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/CHANGELOG.md b/CHANGELOG.md
index ed0148c1c5..43887ac94c 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -22,6 +22,7 @@
 * [#3145](https://github.com/clojure-emacs/cider/pull/3145): Allow fallback to 
other `xref` backends if cider-nrepl is not loaded.
 * [#3148](https://github.com/clojure-emacs/cider/pull/3148): Fix eval result 
overlays at point inheriting the faces of following text.
 * [#3133](https://github.com/clojure-emacs/cider/issues/3133): Respect 
`cider-injected-middleware-version`.
+* [#3163](https://github.com/clojure-emacs/cider/pull/3163): 
`cider-clojuredocs`: prevent redundant prompt for a symbol.
 
 ## 1.2.0 (2021-12-22)
 
diff --git a/cider-clojuredocs.el b/cider-clojuredocs.el
index 3a9d0b2168..479a61f500 100644
--- a/cider-clojuredocs.el
+++ b/cider-clojuredocs.el
@@ -145,7 +145,11 @@ opposite of what that option dictates."
   (let ((docs (cider-sync-request:clojuredocs-lookup (cider-current-ns) sym)))
     (pop-to-buffer (cider-create-clojuredocs-buffer 
(cider-clojuredocs--content docs)))
     ;; highlight the symbol in question in the docs buffer
-    (highlight-regexp (cadr (split-string sym "/")) 'bold)))
+    (highlight-regexp
+     (regexp-quote
+      (or (cadr (split-string sym "/"))
+          sym))
+     'bold)))
 
 ;;;###autoload
 (defun cider-clojuredocs (&optional arg)