[elpa] master 164acd6 59/63: * yasnippet-debug.el (yas-debug-snippet): Show modified flag.

[Noam Postavsky]

branch: master
commit 164acd6869094e45ea36f7d5cf88b08dcf60e4b5
Author: Noam Postavsky <address@hidden>
Commit: Noam Postavsky <address@hidden>

    * yasnippet-debug.el (yas-debug-snippet): Show modified flag.
---
 yasnippet-debug.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/yasnippet-debug.el b/yasnippet-debug.el
index f198219..6e639a4 100644
--- a/yasnippet-debug.el
+++ b/yasnippet-debug.el
@@ -167,8 +167,9 @@
               (yas-debug-live-range overlay)))
     (when-let (active-field (yas--snippet-active-field snippet))
       (unless (consp (yas--field-start active-field))
-        (printf "\tactive field: #%d %s covering \"%s\"\n"
+        (printf "\tactive field: #%d %s %s covering \"%s\"\n"
                 (yas--field-number active-field)
+                (if (yas--field-modified-p active-field) "**" "--")
                 (yas-debug-live-range active-field)
                 (buffer-substring-no-properties (yas--field-start 
active-field) (yas--field-end active-field)))))
     (when-let (exit (yas--snippet-exit snippet))
@@ -177,8 +178,9 @@
               (yas--exit-next exit)))
     (dolist (field (yas--snippet-fields snippet))
       (unless (consp (yas--field-start field))
-        (printf "\tfield: %d %s covering \"%s\" next: %s%s\n"
+        (printf "\tfield: %d %s %s covering \"%s\" next: %s%s\n"
                 (yas--field-number field)
+                (if (yas--field-modified-p field) "**" "--")
                 (yas-debug-live-range field)
                 (buffer-substring-no-properties (yas--field-start field) 
(yas--field-end field))
                 (yas--debug-format-fom-concise (yas--field-next field))