From: João Távora Date: Wed, 30 Nov 2011 00:37:40 +0000 (+0000) Subject: `yas/exit-snippet` called interactively exits the most recently inserted snippet... X-Git-Url: https://code.delx.au/gnu-emacs-elpa/commitdiff_plain/11fb69f0c027f6670a02ef259abd1576addf4bfe `yas/exit-snippet` called interactively exits the most recently inserted snippet (issue #196) --- diff --git a/yasnippet.el b/yasnippet.el index 3f2bdd45d..d7920652e 100644 --- a/yasnippet.el +++ b/yasnippet.el @@ -2994,11 +2994,12 @@ Also create some protection overlays" (defun yas/exit-snippet (snippet) "Goto exit-marker of SNIPPET." - (interactive) - (setf (yas/snippet-force-exit snippet) t) - (goto-char (if (yas/snippet-exit snippet) - (yas/exit-marker (yas/snippet-exit snippet)) - (overlay-end (yas/snippet-control-overlay snippet))))) + (interactive (list (first (yas/snippets-at-point)))) + (when snippet + (setf (yas/snippet-force-exit snippet) t) + (goto-char (if (yas/snippet-exit snippet) + (yas/exit-marker (yas/snippet-exit snippet)) + (overlay-end (yas/snippet-control-overlay snippet)))))) (defun yas/exit-all-snippets () "Exit all snippets."