Minor refactor, reformat & comment revision

This commit is contained in:
Henrik Lissner 2018-09-18 17:41:25 -04:00
parent 0c39e73a1e
commit 5ef94de541
5 changed files with 7 additions and 9 deletions

View file

@ -133,12 +133,12 @@ be negative.")
(advice-add #'helm-ag-show-status-default-mode-line :override #'ignore)
;; TODO Find a better way
(defun +helm*use-helpful (orig-fn &rest args)
(defun +helm*use-helpful (orig-fn arg)
(cl-letf (((symbol-function #'describe-function)
(symbol-function #'helpful-callable))
((symbol-function #'describe-variable)
(symbol-function #'helpful-variable)))
(apply orig-fn args)))
(funcall orig-fn arg)))
(advice-add #'helm-describe-variable :around #'+helm*use-helpful)
(advice-add #'helm-describe-function :around #'+helm*use-helpful))