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

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/inspector 2c3f47011b: Rename customization variables


From: ELPA Syncer
Subject: [elpa] externals/inspector 2c3f47011b: Rename customization variables
Date: Thu, 19 Jan 2023 07:57:46 -0500 (EST)

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

    Rename customization variables
---
 inspector.el | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/inspector.el b/inspector.el
index c5c38f429c..8c34fdab38 100644
--- a/inspector.el
+++ b/inspector.el
@@ -158,12 +158,12 @@
   :type 'integer
   :group 'inspector)
 
-(defcustom inspector-plist-detection-function 'inspector--plistp
+(defcustom inspector-plist-test-function 'inspector--plistp
   "Function used by the inspector to determine if a list is a property list."
   :type 'symbol
   :group 'inspector)
 
-(defcustom inspector-alist-detection-function 'inspector--alistp
+(defcustom inspector-alist-test-function 'inspector--alistp
   "Function used by the inspector to determine if a list is an association 
list."
   :type 'symbol
   :group 'inspector)
@@ -421,7 +421,7 @@ is expected to be used.")
   "Inspect a CONS object."
   (cond
    ((and inspector-use-specialized-inspectors-for-lists
-         (funcall inspector-plist-detection-function cons))
+         (funcall inspector-plist-test-function cons))
     (insert (propertize "property list" 'face 'inspector-title-face))
     (insert " ")
     (insert-button "[as proper list]"
@@ -447,7 +447,7 @@ is expected to be used.")
           (inspector--insert-inspect-button value))
         (newline))))
    ((and inspector-use-specialized-inspectors-for-lists
-         (funcall inspector-alist-detection-function cons))
+         (funcall inspector-alist-test-function cons))
     (insert (propertize "association list" 'face 'inspector-title-face))
     (insert " ")
     (insert-button "[as proper list]"
@@ -483,10 +483,10 @@ is expected to be used.")
          (< i (length cons))))))
    ((inspector--proper-list-p cons)
     (and inspector-use-specialized-inspectors-for-lists
-         (funcall inspector-plist-detection-function cons))
+         (funcall inspector-plist-test-function cons))
     (insert (propertize "proper list" 'face 'inspector-title-face))
     (insert " ")
-    (when (funcall inspector-alist-detection-function cons)
+    (when (funcall inspector-alist-test-function cons)
       (insert-button "[as alist]"
                      'action (lambda (_btn)
                                (let 
((inspector-use-specialized-inspectors-for-lists t))
@@ -495,7 +495,7 @@ is expected to be used.")
                                  (inspector-inspect-object cons)
                                  (setq buffer-read-only t)))
                      'follow-link t))
-    (when (funcall inspector-plist-detection-function cons)
+    (when (funcall inspector-plist-test-function cons)
       (insert-button "[as plist]"
                      'action (lambda (_btn)
                                (let 
((inspector-use-specialized-inspectors-for-lists t))



reply via email to

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