emacs-elpa-diffs
[Top][All Lists]
Advanced

[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))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]