[elpa] externals/indent-bars 871dcdcce1 027/431: allow other keys for current-depth-palette

[ELPA Syncer]

branch: externals/indent-bars
commit 871dcdcce14b60af4385791a80b7cbee2002bf57
Author: JD Smith <93749+jdtsmith@users.noreply.github.com>
Commit: JD Smith <93749+jdtsmith@users.noreply.github.com>

    allow other keys for current-depth-palette
---
 indent-bars.el | 14 ++++++--------
 1 file changed, 6 insertions(+), 8 deletions(-)

diff --git a/indent-bars.el b/indent-bars.el
index 5170f4884c..60d64d84a2 100644
--- a/indent-bars.el
+++ b/indent-bars.el
@@ -361,17 +361,15 @@ nil, in which case no special current depth-coloring is 
used.
 See `indent-bars-highlight-current-depth' for
 configuration."
   (when indent-bars-highlight-current-depth
-    (cl-destructuring-bind (&key color face background blend)
+    (cl-destructuring-bind (&key color face background blend &allow-other-keys)
        indent-bars-highlight-current-depth
       (when-let ((color
                  (cond
-                  ((facep face)
-                   (funcall (if background
-                                #'face-background
-                              #'face-foreground)
-                            face))
-                  ((color-defined-p color)
-                   color))))
+                  ((facep face) (funcall (if background
+                                             #'face-background
+                                           #'face-foreground)
+                                         face))
+                  ((and color (color-defined-p color)) color))))
        (if blend
            (if indent-bars--depth-palette ; blend into depth palette
                (vconcat (mapcar (lambda (c)