awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases 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
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
(defun +helm*replace-prompt (plist)
"Globally replace helm prompts with `+helm-global-prompt'."
(if (keywordp (car plist))
(plist-put plist :prompt +helm-global-prompt)
(setf (nth 2 plist) +helm-global-prompt)
plist))
(cond ((not +helm-global-prompt) plist)
((keywordp (car plist))
(plist-put plist :prompt +helm-global-prompt))
((setf (nth 2 plist) +helm-global-prompt)
plist)))
(advice-add #'helm :filter-args #'+helm*replace-prompt)
(defun +helm*hide-header (&rest _)