+popup/buffer: hide buffer being popped up #825
This commit is contained in:
parent
641cef9848
commit
bfa6fce15f
1 changed files with 12 additions and 0 deletions
|
@ -279,6 +279,18 @@ Any non-nil value besides the above will be used as the raw value for
|
||||||
;;;###autoload
|
;;;###autoload
|
||||||
(defalias 'other-popup #'+popup/other)
|
(defalias 'other-popup #'+popup/other)
|
||||||
|
|
||||||
|
;;;###autoload
|
||||||
|
(defun +popup/buffer ()
|
||||||
|
"Open this buffer in a popup window."
|
||||||
|
(interactive)
|
||||||
|
(let ((+popup-default-display-buffer-actions
|
||||||
|
'(+popup-display-buffer-stacked-side-window))
|
||||||
|
(display-buffer-alist +popup--display-buffer-alist)
|
||||||
|
(buffer (current-buffer)))
|
||||||
|
(push (+popup--make "." +popup-defaults) display-buffer-alist)
|
||||||
|
(bury-buffer)
|
||||||
|
(pop-to-buffer buffer)))
|
||||||
|
|
||||||
;;;###autoload
|
;;;###autoload
|
||||||
(defun +popup/other ()
|
(defun +popup/other ()
|
||||||
"Cycle through popup windows, like `other-window'. Ignores regular windows."
|
"Cycle through popup windows, like `other-window'. Ignores regular windows."
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue