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

insert-behind-hook: fixed in Emacs 22 but bug in Emacs 23: hopefully now fixed under both version.

Browse Source
This commit is contained in:
Zhang Chiyuan 2008-03-10 14:41:37 +00:00
parent 66bf8e451a
commit e51326c449
1 changed files with 20 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
yasnippet.el
View File

@ -357,12 +357,26 @@ event manually."
(null (yas/current-snippet-overlay beg)) (null (yas/current-snippet-overlay beg))
(not (bobp))) (not (bobp)))
(let ((field-overlay (yas/current-snippet-overlay (1- beg)))) (let ((field-overlay (yas/current-snippet-overlay (1- beg))))
(when (and field-overlay (if field-overlay
(= beg (overlay-end field-overlay))) (when (= beg (overlay-end field-overlay))
(move-overlay field-overlay (move-overlay field-overlay
(overlay-start field-overlay) (overlay-start field-overlay)
end) end)
(yas/synchronize-fields (overlay-get field-overlay 'yas/group)))))) (yas/synchronize-fields (overlay-get field-overlay 'yas/group)))
(let ((snippet (yas/snippet-of-current-keymap))
(done nil))
(if snippet
(do* ((tabstops (yas/snippet-tabstops snippet) (cdr tabstops))
(tabstop (car tabstops) (car tabstops)))
((or (null tabstops)
done))
(setq field-overlay (yas/field-overlay
(yas/group-primary-field tabstop)))
(when (= beg
(overlay-start field-overlay))
(move-overlay field-overlay beg end)
(yas/synchronize-fields tabstop)
(setq done t)))))))))
(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