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

inhibit-modification-hook

Browse Source
This commit is contained in:
Zhang Chiyuan 2008-03-05 04:43:29 +00:00
parent c55a627cad
commit e3e154e33f
1 changed files with 9 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
yasnippet.el
View File

@ -210,13 +210,13 @@ the template of a snippet in the current snippet-table."
(defun yas/overlay-insert-in-front-hook (overlay after? beg end &optional length)
"Hook for snippet overlay when text is inserted in front of a snippet field."
(when after?
(let ((field-group (overlay-get overlay 'yas/group)))
(let ((field-group (overlay-get overlay 'yas/group))
(inhibit-modification-hooks t))
(when (not (overlay-get overlay 'yas/modified?))
(let ((inhibit-modification-hooks t))
(overlay-put overlay 'yas/modified? t)
(save-excursion
(goto-char end)
(delete-char (- (overlay-end overlay) end)))))
(delete-char (- (overlay-end overlay) end))))
(yas/synchronize-fields field-group))))
(defun yas/overlay-insert-behind-hook (overlay after? beg end &optional length)
"Hook for snippet overlay when text is inserted just behind a snippet field."
@ -225,8 +225,7 @@ the template of a snippet in the current snippet-table."
(move-overlay overlay
(overlay-start overlay)
end)
(yas/synchronize-fields
(overlay-get overlay 'yas/group))))
(yas/synchronize-fields (overlay-get overlay 'yas/group))))
(defun yas/undo-expand-snippet (start end key snippet)
"Undo a snippet expansion. Delete the overlays. This undo can't be