[elpa] externals/ivy-hydra 03fb20e 033/395: ivy.el (ivy-help): Insert "describe-mode" outline

[Basil L. Contovounesios]

branch: externals/ivy-hydra
commit 03fb20ece257ff047975fbf5fa482ccfb419d1b5
Author: Oleh Krehel <ohwoeowho@gmail.com>
Commit: Oleh Krehel <ohwoeowho@gmail.com>

    ivy.el (ivy-help): Insert "describe-mode" outline
    
    Fixes #2313
---
 ivy.el | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/ivy.el b/ivy.el
index c5a9128..1012860 100644
--- a/ivy.el
+++ b/ivy.el
@@ -5020,10 +5020,16 @@ make decisions based on the whole marked list."
 (defun ivy-help ()
   "Help for `ivy'."
   (interactive)
-  (let ((buf (get-buffer "*Ivy Help*")))
+  (let ((buf (get-buffer "*Ivy Help*"))
+        (inhibit-read-only t))
     (unless buf
       (setq buf (get-buffer-create "*Ivy Help*"))
+      (cl-letf (((symbol-function #'help-buffer) (lambda () buf)))
+        (describe-mode))
       (with-current-buffer buf
+        (goto-char (point-min))
+        (insert "* describe-mode\n")
+        (goto-char (point-min))
         (insert-file-contents ivy-help-file)
         (org-mode)
         (setq-local org-hide-emphasis-markers t)