From 08784e769f1be6a5e9773019fea1c2fc07728c52 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Jo=C3=A3o=20T=C3=A1vora?= Date: Sat, 4 Apr 2015 13:22:21 +0100 Subject: [PATCH] * snippet.el (snippet--debug-snippet): More stable sort --- snippet.el | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/snippet.el b/snippet.el index 7c35346..3334ec9 100644 --- a/snippet.el +++ b/snippet.el @@ -772,8 +772,14 @@ Skips over nested fields if their parent has been modified." (let ((inhibit-read-only t) (sorted (cl-sort (cl-copy-list (overlay-get field-overlay 'snippet--objects)) - #'< - :key #'snippet--object-start))) + #'(lambda (f1 f2) + (let ((start1 (snippet--object-start f1)) + (start2 (snippet--object-start f2))) + (if (< start1 start2) + t + (if (> start2 start1) + nil + (snippet--object-parent f2)))))))) (erase-buffer) (cl-loop for object in sorted do (insert (snippet--describe-object object) "\n")))