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

prevent wired behavior of modification hook during undoing

Browse Source
This commit is contained in:
Zhang Chiyuan 2008-03-04 14:25:14 +00:00
parent d8d887bc89
commit e07b718918
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
yasnippet.el
View File

@ -233,12 +233,12 @@ have, compare through the start point of the overlay."
(defun yas/overlay-modification-hook (overlay after? beg end &optional length) (defun yas/overlay-modification-hook (overlay after? beg end &optional length)
"Modification hook for snippet field overlay." "Modification hook for snippet field overlay."
(when after? (when (and after? (not undo-in-progress))
(yas/synchronize-fields (overlay-get overlay 'yas/snippet-field-group)))) (yas/synchronize-fields (overlay-get overlay 'yas/snippet-field-group))))
(defun yas/overlay-insert-in-front-hook (overlay after? beg end &optional length) (defun yas/overlay-insert-in-front-hook (overlay after? beg end &optional length)
"Hook for snippet overlay when text is inserted in front of snippet." "Hook for snippet overlay when text is inserted in front of snippet."
(let ((field-group (overlay-get overlay 'yas/snippet-field-group))) (let ((field-group (overlay-get overlay 'yas/snippet-field-group)))
(when after? (when (and after? (not undo-in-progress))
(when (and (= length 0) (when (and (= length 0)
(overlay-get overlay 'yas/snippet-field-initial-value)) (overlay-get overlay 'yas/snippet-field-initial-value))
(let ((inhibit-modification-hooks t)) (let ((inhibit-modification-hooks t))