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

* yasnippet-debug.el (yas-debug-snippet): Show modified flag.

Browse Source
This commit is contained in:
Noam Postavsky 2017-06-03 11:37:39 -04:00
parent b0e729b1de
commit 164acd6869
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
yasnippet-debug.el
View File

@ -167,8 +167,9 @@
(yas-debug-live-range overlay))) (yas-debug-live-range overlay)))
(when-let (active-field (yas--snippet-active-field snippet)) (when-let (active-field (yas--snippet-active-field snippet))
(unless (consp (yas--field-start active-field)) (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) (yas--field-number active-field)
(if (yas--field-modified-p active-field) "**" "--")
(yas-debug-live-range active-field) (yas-debug-live-range active-field)
(buffer-substring-no-properties (yas--field-start active-field) (yas--field-end active-field))))) (buffer-substring-no-properties (yas--field-start active-field) (yas--field-end active-field)))))
(when-let (exit (yas--snippet-exit snippet)) (when-let (exit (yas--snippet-exit snippet))
@ -177,8 +178,9 @@
(yas--exit-next exit))) (yas--exit-next exit)))
(dolist (field (yas--snippet-fields snippet)) (dolist (field (yas--snippet-fields snippet))
(unless (consp (yas--field-start field)) (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) (yas--field-number field)
(if (yas--field-modified-p field) "**" "--")
(yas-debug-live-range field) (yas-debug-live-range field)
(buffer-substring-no-properties (yas--field-start field) (yas--field-end field)) (buffer-substring-no-properties (yas--field-start field) (yas--field-end field))
(yas--debug-format-fom-concise (yas--field-next field)) (yas--debug-format-fom-concise (yas--field-next field))