awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-09-20 16:11:07 -05:00
Code Issues Packages Projects Releases Wiki Activity

General refactor & cleanup

Browse Source
This commit is contained in:
Henrik Lissner
2017-05-13 00:14:15 +02:00
parent 5beb74b14d
commit afb31659a3
5 changed files with 6 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
core/autoload/popups.el
View File

@@ -18,7 +18,7 @@ current window if omitted."
(declare (indent defun))
(unless (bufferp buffer)
(error "%s is not a valid buffer" buffer))
(setq plist (doom*shackle-always-align plist))
(setq plist (append plist (shackle-match buffer)))
(shackle-display-buffer
buffer
nil (or plist (shackle-match buffer))))

3
core/core-popups.el
View File

@@ -197,8 +197,7 @@ and setting `doom-popup-rules' within it. Returns the window."
(when (get-buffer-window-list (car args) nil t)
(setq plist (append (list :autokill t) plist))
(setcar args (clone-indirect-buffer (buffer-name (car args)) nil t)))
(setq window (apply orig-fn args))
(unless window
(unless (setq window (apply orig-fn args))
(error "No popup window was found for %s: %s" (car args) plist))
(with-selected-window window
(unless (eq plist t)