[elpa] externals/inspector 5f7ab9bfb7 06/93: Housekeeping

[ELPA Syncer]

branch: externals/inspector
commit 5f7ab9bfb701f7aa5c43ef514ac623c810ea4de9
Author: Mariano Montone <marianomontone@gmail.com>
Commit: Mariano Montone <marianomontone@gmail.com>

    Housekeeping
---
 emacs-inspector.el => inspector.el | 30 +++++++++++++++---------------
 1 file changed, 15 insertions(+), 15 deletions(-)

diff --git a/emacs-inspector.el b/inspector.el
similarity index 82%
rename from emacs-inspector.el
rename to inspector.el
index dc53fb8582..e16fd176ef 100644
--- a/emacs-inspector.el
+++ b/inspector.el
@@ -27,7 +27,7 @@
   (newline 2)
   (insert "Direct superclasses: ")
   (dolist (superclass (class-direct-superclasses class))
-    (emacs-inspector--insert-inspect-button
+    (inspector--insert-inspect-button
      (class-name superclass) (class-name superclass))
     (insert " "))
   (newline)
@@ -37,7 +37,7 @@
   (newline)
   (insert "Direct subclasses:")
   (dolist (subclass (class-direct-subclasses class))
-    (emacs-inspector--insert-inspect-button
+    (inspector--insert-inspect-button
      (class-name subclass) (class-name subclass))
     (insert " ")))
 
@@ -54,7 +54,7 @@
   (cond
    ((eieio-object-p object)
     (insert "Instance of ")
-    (emacs-inspector--insert-inspect-button
+    (inspector--insert-inspect-button
      (class-of object)
      (eieio-class-name (eieio-object-class object)))
     (newline 2)
@@ -62,16 +62,16 @@
     (newline)
     (dolist (slot (eieio-class-slots (eieio-object-class object)))
       (insert (format "%s: " (cl--slot-descriptor-name slot)))
-      (emacs-inspector--insert-inspect-button
+      (inspector--insert-inspect-button
        (slot-value object (cl--slot-descriptor-name slot)))
       (newline)))
    (t (error "Cannot inspect object: %s" object))))
 
-(defun emacs-inspector--insert-inspect-button (object &optional label)
+(defun inspector--insert-inspect-button (object &optional label)
   (insert-button (or (and label (princ-to-string label))
                      (prin1-to-string object))
                  'action (lambda (btn)
-                           (emacs-inspector-inspect object))
+                           (inspector-inspect object))
                  'follow-link t))
 
 (cl-defmethod inspect-object ((cons cons))
@@ -82,10 +82,10 @@
     (let ((plist (copy-list cons)))
       (while plist
         (let ((key (pop plist)))
-          (emacs-inspector--insert-inspect-button key))
+          (inspector--insert-inspect-button key))
         (insert ": ")
         (let ((value (pop plist)))
-          (emacs-inspector--insert-inspect-button value))
+          (inspector--insert-inspect-button value))
         (newline))))
    ((listp cons)
     (insert "Proper list:")
@@ -93,7 +93,7 @@
     (let ((i 0))
       (dolist (elem cons)
         (insert (format "%d: " i))
-        (emacs-inspector--insert-inspect-button elem)
+        (inspector--insert-inspect-button elem)
         (newline)
         (incf i))))))
 
@@ -126,8 +126,8 @@
 (cl-defmethod inspect-object ((hash-table hash-table))
   (debug "Inspect hash-table"))
 
-(defun emacs-inspector-make-inspector-buffer ()
-  (let ((buffer (get-buffer-create "*emacs-inspector*")))
+(defun inspector-make-inspector-buffer ()
+  (let ((buffer (get-buffer-create "*inspector*")))
     (with-current-buffer buffer
       (setq buffer-read-only nil)
       (erase-buffer))
@@ -136,13 +136,13 @@
 (defun inspect-expression (exp)
   (interactive (list (read--expression "Inspect: ")))
 
-  (emacs-inspector-inspect (eval exp)))
+  (inspector-inspect (eval exp)))
 
-(defun emacs-inspector-inspect (object)
-  (let ((buffer (emacs-inspector-make-inspector-buffer)))
+(defun inspector-inspect (object)
+  (let ((buffer (inspector-make-inspector-buffer)))
     (with-current-buffer buffer
       (inspect-object object)
       (setq buffer-read-only t)
       (display-buffer buffer))))
 
-(provide 'emacs-inspector)
+(provide 'inspector)