* ztree/ztree-diff-model.el (ztree-diff-node): Use cl-defstruct

[gnu-emacs-elpa] / packages / ztree / ztree-view.el

diff --git a/packages/ztree/ztree-view.el b/packages/ztree/ztree-view.el
index e7f20fde04ccdfb6ce58f516e3cc39b6f3128d94..4a5a766ea600bd022b87f5ffb1554ad57dce044b 100644 (file)
--- a/packages/ztree/ztree-view.el
+++ b/packages/ztree/ztree-view.el
@@ -326,11 +326,13 @@ Argument NODE node which contents will be returned."
                             (funcall ztree-node-short-name-fun y)))))
     (cons (sort (ztree-filter
                  #'(lambda (f) (funcall ztree-node-is-expandable-fun f))
-                 nodes) comp)
+                 nodes)
+                comp)
           (sort (ztree-filter
                  #'(lambda (f) (not (funcall ztree-node-is-expandable-fun f)))
-                 nodes) comp))))
-
+                 nodes)
+                comp))))
+                
 
 (defun ztree-draw-char (c x y &optional face)
   "Draw char C at the position (1-based) (X Y).