[elpa] master 1735a28 02/40: Add region contents to new snippet

[Noam Postavsky]

branch: master
commit 1735a283d23048cb4e488d2d87edb9ea0f20d76e
Author: songjie dong <element8...@gmail.com>
Commit: Noam Postavsky <npost...@users.sourceforge.net>

    Add region contents to new snippet
    
    * yasnippet.el (yas-new-snippet-default): Add yas-selected-text.
    (yas-new-snippet): Let-bind yas-selected-text to region content.
    
    Copyright-paperwork-exempt: yes
---
 yasnippet.el |    8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/yasnippet.el b/yasnippet.el
index 8a4ef1d..161c996 100644
--- a/yasnippet.el
+++ b/yasnippet.el
@@ -207,7 +207,7 @@ created with `yas-new-snippet'. "
 # name: $1
 # key: ${2:${1:$(yas--key-from-desc yas-text)}}
 # --
-$0"
+$0`yas-selected-text`"
   "Default snippet to use when creating a new snippet.
 If nil, don't use any snippet."
   :type 'string
@@ -2476,7 +2476,11 @@ where snippets of table might exist."
 Expands a snippet-writing snippet, unless the optional prefix arg
 NO-TEMPLATE is non-nil."
   (interactive "P")
-  (let ((guessed-directories (yas--guess-snippet-directories)))
+  (let ((guessed-directories (yas--guess-snippet-directories))
+        (yas-selected-text (or yas-selected-text
+                               (and (region-active-p)
+                                    (buffer-substring-no-properties
+                                     (region-beginning) (region-end))))))
 
     (switch-to-buffer "*new snippet*")
     (erase-buffer)