|
@@ -2509,12 +2509,13 @@ Any output will be written to current buffer." |
|
|
|
|
|
|
|
|
(when (and (fboundp 'ivy-read) |
|
|
(when (and (fboundp 'ivy-read) |
|
|
(locate-library "counsel")) |
|
|
(locate-library "counsel")) |
|
|
|
|
|
(defvar counsel-describe-map) |
|
|
|
|
|
|
|
|
(defun my-counsel-describe-symbol () |
|
|
(defun my-counsel-describe-symbol () |
|
|
"Forwaord to `describe-symbol'." |
|
|
"Forwaord to `describe-symbol'." |
|
|
(interactive) |
|
|
(interactive) |
|
|
(eval-and-compile (require 'help-mode)) ;; describe-symbol-backends |
|
|
|
|
|
(eval-and-compile (require 'counsel)) |
|
|
|
|
|
|
|
|
(eval-and-compile (require 'help-mode nil t)) ;; describe-symbol-backends |
|
|
|
|
|
(eval-and-compile (require 'counsel nil t)) |
|
|
(ivy-read "Describe symbol: " obarray |
|
|
(ivy-read "Describe symbol: " obarray |
|
|
;; From describe-symbol definition |
|
|
;; From describe-symbol definition |
|
|
:predicate (lambda (vv) |
|
|
:predicate (lambda (vv) |
|
|