ld/yasnippet
1
0
Fork 0
mirror of https://github.com/joaotavora/yasnippet.git synced 2025-10-13 13:13:03 +00:00
Code Issues Packages Projects Releases Wiki Activity

* snippet.el (snippet--debug-snippet): More stable sort

Browse Source
This commit is contained in:
João Távora 2015-04-04 13:22:21 +01:00
parent d92a479263
commit 08784e769f
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
snippet.el
View File

@ -772,8 +772,14 @@ Skips over nested fields if their parent has been modified."
(let ((inhibit-read-only t) (let ((inhibit-read-only t)
(sorted (cl-sort (cl-copy-list (sorted (cl-sort (cl-copy-list
(overlay-get field-overlay 'snippet--objects)) (overlay-get field-overlay 'snippet--objects))
#'< #'(lambda (f1 f2)
:key #'snippet--object-start))) (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) (erase-buffer)
(cl-loop for object in sorted (cl-loop for object in sorted
do (insert (snippet--describe-object object) "\n"))) do (insert (snippet--describe-object object) "\n")))