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

Support expanding a snippet inside another snippet (only if not inside a field)

Browse Source
This commit is contained in:
Zhang Chiyuan 2008-03-14 01:27:22 +00:00
parent dbada984cf
commit e98815c030
1 changed files with 14 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
yasnippet.el
View File

@ -797,7 +797,8 @@ Run `indent-for-tab-command'."
(interactive)
(let ((command (key-binding (kbd "TAB"))))
(if (and command
(not (eq command 'yas/expand)))
(not (eq command 'yas/expand))
(not (eq command 'yas/next-field-group)))
(call-interactively command)
(call-interactively 'indent-for-tab-command))))
@ -923,18 +924,18 @@ the menu if `yas/use-menu' is `t'."
(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 t)))
(message "Not in a snippet field."))))))
(do* ((tabstops (yas/snippet-tabstops snippet) (cdr tabstops))
(tabstop (car tabstops) (car tabstops)))
((or (null tabstops)
done)
(unless done (call-interactively 'yas/expand)))
(when (= (point)
(overlay-start
(yas/field-overlay
(yas/group-primary-field tabstop))))
(setq done t)
(yas/navigate-group tabstop t)))
(call-interactively 'yas/expand))))))
(defun yas/prev-field-group ()
"Navigate to prev field group. If there's none, exit the snippet."