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

Fix helm-M-x help popup not properly closing

Browse Source 
On successive TAB presses on a command
This commit is contained in:
Henrik Lissner
2018-07-21 01:20:05 +02:00
parent 41cf970c75
commit 7f284e98b6
1 changed files with 10 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
modules/ui/popup/+hacks.el
View File

@ -170,7 +170,16 @@ the command buffer."
;; `helm' ;; `helm'
(after! helm (after! helm
(setq helm-default-display-buffer-functions '(+popup-display-buffer-stacked-side-window)) (setq helm-default-display-buffer-functions '(+popup-display-buffer-stacked-side-window))
(set-popup-rule! "^\\*helm" :ignore t)) (set-popup-rule! "^\\*helm" :ignore t)
;; Fix left-over popup window when closing persistent help for `helm-M-x'
(defun +popup*helm-elisp--persistent-help (candidate fun &optional name)
(let (win)
(when (and (helm-attr 'help-running-p)
(string= candidate (helm-attr 'help-current-symbol))
(setq win (get-buffer-window (get-buffer (help-buffer)))))
(delete-window win))))
(advice-add #'helm-elisp--persistent-help :before #'+popup*helm-elisp--persistent-help))
;; `helm-ag' ;; `helm-ag'