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
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

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