emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Minor refactor, reformat & comment revision

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

5
modules/completion/company/config.el
View file

@ -92,9 +92,8 @@
;; Until sebastiencs/company-box#40 is merged
(defun +company*box-frontend-even-if-single (command)
(cond ((eq command 'hide)
(company-box-hide))
((equal company-candidates-length 0)
(cond ((or (eq command 'hide)
(equal company-candidates-length 0))
(company-box-hide))
((eq command 'update)
(company-box-show))

4
modules/completion/helm/config.el
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))