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

Let snippet insertion trigger active field clearing.

Browse Source 
* yasnippet.el (yas-expand-snippet): Since the actual insertion must
happen with modification hooks inhibited, we can't rely on that
mechanism to clear the field.  Call yas--skip-and-clear-field-p on the
active field.
This commit is contained in:
Noam Postavsky 2017-09-23 18:34:38 -04:00
parent ece7935d7a
commit e200a3b9b1
1 changed files with 24 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
yasnippet.el
View File

@ -3760,30 +3760,36 @@ considered when expanding the snippet."
"[yas] `yas-expand-snippet' needs properly setup `yas-minor-mode'")
(run-hooks 'yas-before-expand-snippet-hook)
;;
(let* ((yas-selected-text (or yas-selected-text
(and (region-active-p)
(buffer-substring-no-properties (region-beginning)
(region-end)))))
(start (or start
(and (region-active-p)
(region-beginning))
(point)))
(end (or end
(and (region-active-p)
(region-end))
(point)))
(to-delete (and start
end
(let* ((clear-field
(let ((field (and yas--active-field-overlay
(overlay-buffer yas--active-field-overlay)
(overlay-get yas--active-field-overlay 'yas--field))))
(and field (yas--skip-and-clear-field-p
field (point) (point) 0)
field)))
(start (cond (start)
((region-active-p)
(region-beginning))
(clear-field
(yas--field-start clear-field))
(t (point))))
(end (cond (end)
((region-active-p)
(region-end))
(clear-field
(yas--field-end clear-field))
(t (point))))
(to-delete (and (> end start)
(buffer-substring-no-properties start end)))
(yas-selected-text
(or yas-selected-text
(if (not clear-field) to-delete)))
(yas--first-indent-undo nil)
snippet)
(goto-char start)
(setq yas--indent-original-column (current-column))
;; Delete the region to delete, this *does* get undo-recorded.
;;
(when (and to-delete
(> end start))
(when to-delete
(delete-region start end))
(cond ((listp content)