[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/inspector 54ad96eed0: Some adjustments
From: |
ELPA Syncer |
Subject: |
[elpa] externals/inspector 54ad96eed0: Some adjustments |
Date: |
Thu, 25 Aug 2022 22:57:46 -0400 (EDT) |
branch: externals/inspector
commit 54ad96eed04d837d87fd66ed7170a71ead887e1d
Author: Mariano Montone <marianomontone@gmail.com>
Commit: Mariano Montone <marianomontone@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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/inspector 54ad96eed0: Some adjustments,
ELPA Syncer <=