[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/inspector b6e27a5279 1/3: Check unbound slots
From: |
ELPA Syncer |
Subject: |
[elpa] externals/inspector b6e27a5279 1/3: Check unbound slots |
Date: |
Tue, 23 Aug 2022 11:57:55 -0400 (EDT) |
branch: externals/inspector
commit b6e27a5279a1584d715fc7a3f0c0af0b5d9bafa0
Author: Mariano Montone <marianomontone@gmail.com>
Commit: Mariano Montone <marianomontone@gmail.com>
Check unbound slots
---
inspector.el | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/inspector.el b/inspector.el
index aab7bb51e8..6e6129942c 100644
--- a/inspector.el
+++ b/inspector.el
@@ -315,8 +315,10 @@ is expected to be used.")
(newline)
(dolist (slot (eieio-class-slots (eieio-object-class object)))
(insert (format "%s: " (cl--slot-descriptor-name slot)))
- (inspector--insert-inspect-button
- (slot-value object (cl--slot-descriptor-name slot)))
+ (if (not (slot-boundp object (cl--slot-descriptor-name slot)))
+ (insert "unbound")
+ (inspector--insert-inspect-button
+ (slot-value object (cl--slot-descriptor-name slot))))
(newline)))
((cl-struct-p object)
(inspector--insert-title (format "%s struct" (type-of object)))