awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-03 12:27:26 -05:00
Code Issues Packages Projects Releases Wiki Activity

Revert 6b910392 #829

Browse Source 
Causes other errors. Will need a better solution.
This commit is contained in:
Henrik Lissner
2018-08-25 12:00:27 +02:00
parent 8e092b9884
commit cc47798846
1 changed files with 0 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -180,18 +180,6 @@ the command buffer."
(delete-window win)))) (delete-window win))))
(advice-add #'helm-elisp--persistent-help :before #'+popup*helm-elisp--persistent-help) (advice-add #'helm-elisp--persistent-help :before #'+popup*helm-elisp--persistent-help)
;; Get rid of useless Org Links popup, which causes window selection errors
;; with helm's persistent action.
(defun +popup*delete-org-links-popup (orig-fn &rest args)
(cl-letf* ((old-org-completing-read (symbol-function #'org-completing-read))
((symbol-function #'org-completing-read)
(lambda (&rest args)
(when-let* ((win (get-buffer-window "*Org Links*")))
(delete-window win))
(apply old-org-completing-read args))))
(apply orig-fn args)))
(advice-add #'org-insert-link :around #'+popup*delete-org-links-popup)
;; `helm-ag' ;; `helm-ag'
(defun +helm*pop-to-buffer (orig-fn &rest args) (defun +helm*pop-to-buffer (orig-fn &rest args)
(pop-to-buffer (pop-to-buffer