[elpa] externals/inspector a81196cbea 1/4: don't use cl-constantly

[ELPA Syncer]

branch: externals/inspector
commit a81196cbeac721099da21f5f0ae3a5208fc539e9
Author: Martin Joerg <martin.joerg@gmail.com>
Commit: Martin Joerg <martin.joerg@gmail.com>

    don't use cl-constantly
    
    cl-constantly is only available from Emacs 29.
---
 tree-inspector.el | 13 ++++++-------
 1 file changed, 6 insertions(+), 7 deletions(-)

diff --git a/tree-inspector.el b/tree-inspector.el
index f20433663e..7acdce0d9b 100644
--- a/tree-inspector.el
+++ b/tree-inspector.el
@@ -481,7 +481,6 @@ DATA can be any Emacs Lisp object."
                  (format "*tree-inspector: %s*"
                          (tree-inspector--print-object data)))))
     (with-current-buffer buffer
-      (setq-local treeview-get-indent-function (cl-constantly (list " ")))
       (setq-local treeview-get-label-function #'cl-first)
       (setq-local treeview-get-indent-function #'tree-inspector--get-indent)
       (setq-local treeview-get-control-function
@@ -494,16 +493,16 @@ DATA can be any Emacs Lisp object."
                         tree-inspector-expanded-node-control))))
       (setq-local treeview-update-node-children-function
                   #'tree-inspector--update-node-children)
-      (setq-local treeview-after-node-expanded-function
-                  (cl-constantly nil))
-      (setq-local treeview-after-node-folded-function
-                  (cl-constantly nil))
+      (setq-local treeview-after-node-expanded-function #'ignore)
+      (setq-local treeview-after-node-folded-function #'ignore)
       (setq-local treeview-get-control-keymap-function
                   (let ((keymap (treeview-make-keymap 
tree-inspector-control-keymap)))
-                    (cl-constantly keymap)))
+                    (lambda (node)
+                      keymap)))
       (setq-local treeview-get-label-keymap-function
                   (let ((keymap (treeview-make-keymap 
tree-inspector-label-keymap)))
-                    (cl-constantly keymap)))
+                    (lambda (node)
+                      keymap)))
       (let ((node (tree-inspector--make-node data)))
         (treeview-expand-node node)
         (treeview-display-node node))