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

Refactor +helm*replace-prompt

Browse source 
In case +helm-global-prompt is nil, which will effectively disable this
advice.
This commit is contained in:
Henrik Lissner 2018-06-15 22:10:40 +02:00
parent 1db3830bf3
commit cdcc4eec5d
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

9
modules/completion/helm/config.el
View file

@ -54,10 +54,11 @@
;;; Helm hacks ;;; Helm hacks
(defun +helm*replace-prompt (plist) (defun +helm*replace-prompt (plist)
"Globally replace helm prompts with `+helm-global-prompt'." "Globally replace helm prompts with `+helm-global-prompt'."
(if (keywordp (car plist)) (cond ((not +helm-global-prompt) plist)
(plist-put plist :prompt +helm-global-prompt) ((keywordp (car plist))
(setf (nth 2 plist) +helm-global-prompt) (plist-put plist :prompt +helm-global-prompt))
plist)) ((setf (nth 2 plist) +helm-global-prompt)
plist)))
(advice-add #'helm :filter-args #'+helm*replace-prompt) (advice-add #'helm :filter-args #'+helm*replace-prompt)
(defun +helm*hide-header (&rest _) (defun +helm*hide-header (&rest _)