[elpa] externals/inspector cd53047a49 27/93: Remove some of the warnings

[ELPA Syncer]

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

    Remove some of the warnings
---
 inspector.el | 15 +++++++++------
 1 file changed, 9 insertions(+), 6 deletions(-)

diff --git a/inspector.el b/inspector.el
index 48d6fe5020..c28899478d 100644
--- a/inspector.el
+++ b/inspector.el
@@ -38,15 +38,15 @@
 (defun plistp (list)
   "Return T if LIST is a property list."
   (let ((expected t))
-    (and (evenp (length list))
-         (every (lambda (x)
+    (and (cl-evenp (length list))
+         (cl-every (lambda (x)
                   (setq expected (if (eql expected t) 'symbol t))
-                  (typep x expected))
+                  (cl-typep x expected))
                 list))))
 
 (defun alistp (list)
   "Return T if LIST is an association list."
-  (every (lambda (x)
+  (cl-every (lambda (x)
            (and (consp x)
                 (symbolp (car x))))
          list))
@@ -112,10 +112,12 @@
     (insert " ")))
 
 (cl-defmethod inspect-object ((object (eql t)))
+  (ignore object)
   (inspector--insert-title "Boolean")
   (insert "Value: t"))
 
 (cl-defmethod inspect-object ((object (eql nil)))
+  (ignore object)
   (inspector--insert-title "nil")
   (insert "Value: nil"))
 
@@ -157,6 +159,7 @@ If LABEL has a value, then it is used as button label.  
Otherwise, button label
                      (truncate-string-to-width
                      (prin1-to-string object) 80 nil nil t))
                  'action (lambda (btn)
+                          (ignore btn)
                            (inspector-inspect object t))
                  'follow-link t))
 
@@ -164,7 +167,7 @@ If LABEL has a value, then it is used as button label.  
Otherwise, button label
   (cond
    ((and (inspector--proper-list-p cons) (plistp cons))
     (inspector--insert-title "Property list")
-    (let ((plist (copy-list cons)))
+    (let ((plist (cl-copy-list cons)))
       (while plist
         (let ((key (pop plist)))
           (inspector--insert-inspect-button key))
@@ -179,7 +182,7 @@ If LABEL has a value, then it is used as button label.  
Otherwise, button label
         (insert (format "%d: " i))
         (inspector--insert-inspect-button elem)
         (newline)
-        (incf i))))
+        (cl-incf i))))
    (t ;; It is a cons cell
     (inspector--insert-title "Cons cell")
     (insert "CAR: ")