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

navigation to previous group

Browse Source
This commit is contained in:
Zhang Chiyuan 2008-03-06 02:46:14 +00:00
parent 4570f1bac2
commit 148bcf4799
1 changed files with 16 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
yasnippet.el
View File

@ -503,14 +503,22 @@ otherwise, nil returned."
(interactive)
(let ((overlay (yas/current-overlay-for-navigation)))
(if overlay
(let ((prev (yas/group-prev
(overlay-get overlay 'yas/group))))
(if prev
(goto-char (overlay-start
(yas/field-overlay
(yas/group-primary-field prev))))
(yas/exit-snippet (overlay-get overlay 'yas/snippet))))
(message "Not in a snippet field."))))
(yas/navigate-group (overlay-get overlay 'yas/group) nil)
(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)
(unless done (message "Not in a snippet field.")))
(when (= (point)
(overlay-start
(yas/field-overlay
(yas/group-primary-field tabstop))))
(setq done t)
(yas/navigate-group tabstop nil)))
(message "Not in a snippet field."))))))
(defun yas/exit-snippet (snippet)
"Goto exit-marker of SNIPPET and delete the snippet."