branch: externals/ivy-hydra
commit 03fb20ece257ff047975fbf5fa482ccfb419d1b5
Author: Oleh Krehel <[email protected]>
Commit: Oleh Krehel <[email protected]>
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)
