From ddc42514fc19e10e21341b772258529eb5701d26 Mon Sep 17 00:00:00 2001
From: 10sr <8.slashes@gmail.com>
Date: Fri, 10 Jan 2020 17:00:22 +0900
Subject: [PATCH] Update counsel-describe-symbol

---
 emacs.el | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/emacs.el b/emacs.el
index ad7155c..3a58b48 100644
--- a/emacs.el
+++ b/emacs.el
@@ -2513,12 +2513,12 @@ Any output will be written to current buffer."
   (defun my-counsel-describe-symbol ()
     "Forwaord to `describe-symbol'."
     (interactive)
+    (eval-and-compile (require 'help-mode))  ;; describe-symbol-backends
     (ivy-read "Describe symbol: " obarray
-              :predicate (lambda (sym)
-                           (or (fboundp sym)
-                               (boundp sym)
-                               (facep sym)
-                               (symbol-plist sym)))
+              ;; From describe-symbol definition
+              :predicate (lambda (vv)
+                           (cl-some (lambda (x) (funcall (nth 1 x) vv))
+                                    describe-symbol-backends))
               :require-match t
               :history 'counsel-describe-symbol-history
               :keymap counsel-describe-map