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

19
yasnippet.el
View File

@ -210,14 +210,14 @@ the template of a snippet in the current snippet-table."
(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 a snippet field." "Hook for snippet overlay when text is inserted in front of a snippet field."
(when after? (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?)) (when (not (overlay-get overlay 'yas/modified?))
(let ((inhibit-modification-hooks t)) (overlay-put overlay 'yas/modified? t)
(overlay-put overlay 'yas/modified? t) (save-excursion
(save-excursion (goto-char end)
(goto-char end) (delete-char (- (overlay-end overlay) end))))
(delete-char (- (overlay-end overlay) end))))) (yas/synchronize-fields field-group))))
(yas/synchronize-fields field-group))))
(defun yas/overlay-insert-behind-hook (overlay after? beg end &optional length) (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." "Hook for snippet overlay when text is inserted just behind a snippet field."
(when (and after? (when (and after?
@ -225,8 +225,7 @@ the template of a snippet in the current snippet-table."
(move-overlay overlay (move-overlay overlay
(overlay-start overlay) (overlay-start overlay)
end) end)
(yas/synchronize-fields (yas/synchronize-fields (overlay-get overlay 'yas/group))))
(overlay-get overlay 'yas/group))))
(defun yas/undo-expand-snippet (start end key snippet) (defun yas/undo-expand-snippet (start end key snippet)
"Undo a snippet expansion. Delete the overlays. This undo can't be "Undo a snippet expansion. Delete the overlays. This undo can't be
@ -387,7 +386,7 @@ will be deleted before inserting template."
(let ((point (or point (point))) (let ((point (or point (point)))
(snippet-overlay nil)) (snippet-overlay nil))
(dolist (overlay (overlays-at point)) (dolist (overlay (overlays-at point))
(when (overlay-get overlay 'yas/snippet) (when(overlay-get overlay 'yas/snippet)
(if (null snippet-overlay) (if (null snippet-overlay)
(setq snippet-overlay overlay) (setq snippet-overlay overlay)
(when (> (yas/snippet-id (overlay-get overlay 'yas/snippet)) (when (> (yas/snippet-id (overlay-get overlay 'yas/snippet))