branch: externals/marginalia
commit 0c5521af6b334d12881fc9ee1d548a255127e32c
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
fix window context for Embark Occur
---
marginalia.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/marginalia.el b/marginalia.el
index a937567..06bf91b 100644
--- a/marginalia.el
+++ b/marginalia.el
@@ -624,7 +624,7 @@ looking for a regexp that matches the prompt."
"Setup annotator context around BODY."
(let ((w (make-symbol "w")))
`(let ((,w (window-width)))
- (with-selected-window (minibuffer-selected-window)
+ (with-selected-window (or (minibuffer-selected-window)
(selected-window))
(let ((marginalia-truncate-width (min (/ ,w 2)
marginalia-truncate-width))
(marginalia--separator (if (>= ,w
marginalia-separator-threshold) " " " "))
(marginalia--margin (when (>= ,w (+ marginalia-margin-min
marginalia-margin-threshold))
