[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/xelb 4b4d2c059b 2/2: * xcb-debug.el (xcb-debug:-with-de
|
From: |
ELPA Syncer |
|
Subject: |
[elpa] externals/xelb 4b4d2c059b 2/2: * xcb-debug.el (xcb-debug:-with-debug-buffer): Ensure window is alive. |
|
Date: |
Fri, 19 Jan 2024 07:04:41 -0500 (EST) |
branch: externals/xelb
commit 4b4d2c059bc0eddef61281ec373d1af23ecb0d0f
Author: Adrián Medraño Calvo <adrian@medranocalvo.com>
Commit: Adrián Medraño Calvo <adrian@medranocalvo.com>
* xcb-debug.el (xcb-debug:-with-debug-buffer): Ensure window is alive.
---
xcb-debug.el | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/xcb-debug.el b/xcb-debug.el
index b72a46dfde..e99661d077 100644
--- a/xcb-debug.el
+++ b/xcb-debug.el
@@ -77,8 +77,9 @@ Here are some predefined candidates:
`(with-current-buffer (xcb-debug:-get-buffer)
(let (windows-eob)
;; Note windows whose point is at EOB.
- (dolist (w (get-buffer-window-list xcb-debug:buffer t 'nomini))
- (when (= (window-point w) (point-max))
+ (dolist (w (get-buffer-window-list (current-buffer) t 'nomini))
+ (when (and (window-live-p w)
+ (= (window-point w) (point-max)))
(push w windows-eob)))
(save-excursion
(goto-char (point-max))