awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-03 12:27:26 -05:00
Code Issues Packages Projects Releases Wiki Activity

Use helpful for helm-apropos

Browse Source
This commit is contained in:
Henrik Lissner
2018-08-06 00:28:26 +02:00
parent b56404f0ce
commit 2aaea3a0d5
1 changed files with 11 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
modules/completion/helm/config.el
View File

@ -125,7 +125,17 @@ be negative.")
(let ((bg-color (face-background 'default nil))) (let ((bg-color (face-background 'default nil)))
`(:background ,bg-color :foreground ,bg-color))) `(:background ,bg-color :foreground ,bg-color)))
(setq-local cursor-type nil)))) (setq-local cursor-type nil))))
(add-hook 'helm-minibuffer-set-up-hook #'+helm*hide-minibuffer-maybe)) (add-hook 'helm-minibuffer-set-up-hook #'+helm*hide-minibuffer-maybe)
;; TODO Find a better way
(defun +helm*use-helpful (orig-fn &rest args)
(cl-letf (((symbol-function #'describe-function)
(symbol-function #'helpful-callable))
((symbol-function #'describe-variable)
(symbol-function #'helpful-variable)))
(apply orig-fn args)))
(advice-add #'helm-describe-variable :around #'+helm*use-helpful)
(advice-add #'helm-describe-function :around #'+helm*use-helpful))
(def-package! helm-flx (def-package! helm-flx