branch: externals/inspector
commit 54ad96eed04d837d87fd66ed7170a71ead887e1d
Author: Mariano Montone <marianomont...@gmail.com>
Commit: Mariano Montone <marianomont...@gmail.com>
Some adjustments
---
inspector.el | 15 ++++++++-------
1 file changed, 8 insertions(+), 7 deletions(-)
diff --git a/inspector.el b/inspector.el
index cef30053c8..5afdaf344f 100644
--- a/inspector.el
+++ b/inspector.el
@@ -351,25 +351,26 @@ is expected to be used.")
(inspector--insert-value (inspector--princ-to-string object)))
(t (error "Cannot inspect object: %s" object))))
-(cl-defmethod inspect-object ((object process))
+(cl-defmethod inspect-object ((process process))
+ "Inspect a PROCESS."
(inspector--insert-title "process")
- (inspector--insert-value (inspector--princ-to-string object))
+ (inspector--insert-value (inspector--princ-to-string process))
(newline 2)
(inspector--insert-label "PID")
- (inspector--insert-value (inspector--princ-to-string (process-id object)))
+ (inspector--insert-value (inspector--princ-to-string (process-id process)))
(newline)
(inspector--insert-label "Status")
- (inspector--insert-value (inspector--princ-to-string (process-status
object)))
+ (inspector--insert-value (inspector--princ-to-string (process-status
process)))
(newline)
(inspector--insert-label "TTY name")
- (inspector--insert-value (inspector--princ-to-string (process-tty-name
object)))
+ (inspector--insert-value (inspector--princ-to-string (process-tty-name
process)))
(newline)
(inspector--insert-label "Contact")
- (inspector--insert-value (inspector--princ-to-string (process-contact
object)))
+ (inspector--insert-value (inspector--princ-to-string (process-contact
process)))
(newline)
(inspector--insert-label "Properties")
(newline)
- (let ((plist (cl-copy-list (process-plist object))))
+ (let ((plist (cl-copy-list (process-plist process))))
(while plist
(let ((key (pop plist)))
(inspector--insert-inspect-button key))
