]> code.delx.au - gnu-emacs-elpa/commitdiff
`yas/exit-snippet` called interactively exits the most recently inserted snippet...
authorJoão Távora <joaotavora@gmail.com>
Wed, 30 Nov 2011 00:37:40 +0000 (00:37 +0000)
committerJoão Távora <joaotavora@gmail.com>
Wed, 30 Nov 2011 00:37:40 +0000 (00:37 +0000)
yasnippet.el

index 3f2bdd45dada9bcc291c7229b4aefd63ad3411ce..d7920652e8ccdc75d36121da832eb1e62ff01fd3 100644 (file)
@@ -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."