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

Only update live snippets

Browse Source 
* yasnippet.el (yas--snippet-live-p): New function.
(yas--on-field-overlay-modification): Use it to avoid updating a dead
snippet, give a warning instead.
This commit is contained in:
Noam Postavsky 2017-03-22 23:39:46 -04:00
parent c5fddf8cec
commit 30913fdfb7
1 changed files with 22 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
yasnippet.el
View File

@ -3004,6 +3004,15 @@ Update each field with the result of calling FUN."
(setf (yas--exit-marker snippet-exit)
(funcall fun (yas--exit-marker snippet-exit))))))
(defun yas--snippet-live-p (snippet)
"Return non-nil if SNIPPET hasn't been committed."
(catch 'live
(yas--snippet-map-markers (lambda (m)
(if (markerp m) m
(throw 'live nil)))
snippet)
t))
(defun yas--apply-transform (field-or-mirror field &optional empty-on-nil-p)
"Calculate transformed string for FIELD-OR-MIRROR from FIELD.
@ -3538,16 +3547,19 @@ field start. This hook does nothing if an undo is in progress."
(yas--inhibit-overlay-hooks t)
(field (overlay-get overlay 'yas--field))
(snippet (overlay-get yas--active-field-overlay 'yas--snippet)))
(save-match-data
(yas--letenv (yas--snippet-expand-env snippet)
(when (yas--skip-and-clear-field-p field beg end length)
;; We delete text starting from the END of insertion.
(yas--skip-and-clear field end))
(setf (yas--field-modified-p field) t)
(yas--advance-end-maybe field (overlay-end overlay))
(save-excursion
(yas--field-update-display field))
(yas--update-mirrors snippet))))))
(if (yas--snippet-live-p snippet)
(save-match-data
(yas--letenv (yas--snippet-expand-env snippet)
(when (yas--skip-and-clear-field-p field beg end length)
;; We delete text starting from the END of insertion.
(yas--skip-and-clear field end))
(setf (yas--field-modified-p field) t)
(yas--advance-end-maybe field (overlay-end overlay))
(save-excursion
(yas--field-update-display field))
(yas--update-mirrors snippet)))
(lwarn '(yasnippet zombie) :warning "Killing zombie snippet!")
(delete-overlay overlay)))))
;;; Apropos protection overlays:
;;