From 39ee26d669292ec82984d02293a13f5850fed75d Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Fri, 24 Feb 2017 03:12:14 -0500 Subject: [PATCH] core/autoload/popups: doom-popup-p now accepts a buffer or window --- core/autoload/popups.el | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/core/autoload/popups.el b/core/autoload/popups.el index 81cb24046..b1c55738c 100644 --- a/core/autoload/popups.el +++ b/core/autoload/popups.el @@ -2,10 +2,14 @@ (provide 'doom-lib-popups) ;;;###autoload -(defun doom-popup-p (&optional window) - "Return t if WINDOW is a popup. Uses current window if WINDOW is omitted." - (let ((window (or window (selected-window)))) - (and window (window-parameter window 'popup)))) +(defun doom-popup-p (&optional target) + "Return t if TARGET (a window or buffer) is a popup. Uses current window if +omitted." + (when-let (target (or target (selected-window))) + (cond ((bufferp target) + (buffer-local-value 'doom-popup-mode target)) + ((windowp target) + (window-parameter target 'popup))))) ;;;###autoload (defun doom-popup-buffer (buffer &rest plist)