[elpa] master 6180cc4 28/36: Fix field transform application in yas-next-field

[Noam Postavsky]

branch: master
commit 6180cc40591a8b38488dff5162c38fc0532f1997
Author: Noam Postavsky <address@hidden>
Commit: Noam Postavsky <address@hidden>

    Fix field transform application in yas-next-field
    
    * yasnippet.el (yas--apply-transform): Don't let-bind yas-moving-away-p
    to nil, it's nil by default.
    (yas-next-field): Call `yas--field-update-display' instead of only
    calling `yas--eval-lisp' so that the result of the transform is inserted
    into the buffer.
---
 yasnippet.el |   13 +++++--------
 1 file changed, 5 insertions(+), 8 deletions(-)

diff --git a/yasnippet.el b/yasnippet.el
index 6ecc18d..ca19d24 100644
--- a/yasnippet.el
+++ b/yasnippet.el
@@ -2966,7 +2966,6 @@ If there is a transform but it returns nil, return the 
empty
 string iff EMPTY-ON-NIL-P is true."
   (let* ((yas-text (yas--field-text-for-display field))
          (yas-modified-p (yas--field-modified-p field))
-         (yas-moving-away-p nil)
          (transform (if (yas--mirror-p field-or-mirror)
                         (yas--mirror-transform field-or-mirror)
                       (yas--field-transform field-or-mirror)))
@@ -3095,13 +3094,11 @@ If there's none, exit the snippet."
   (let* ((snippet (car (yas--snippets-at-point)))
          (active-field (overlay-get yas--active-field-overlay 'yas--field))
          (target-field (yas--find-next-field arg snippet active-field)))
-    ;; First check if we're moving out of a field with a transform.
-    (when (and active-field (yas--field-transform active-field))
-      (let* ((yas-moving-away-p t)
-             (yas-text (yas--field-text-for-display active-field))
-             (yas-modified-p (yas--field-modified-p active-field)))
-        ;; primary field transform: exit call to field-transform
-        (yas--eval-lisp (yas--field-transform active-field))))
+    ;; Apply transform to active field.
+    (when active-field
+      (let ((yas-moving-away-p t))
+        (when (yas--field-update-display active-field)
+          (yas--update-mirrors snippet))))
     ;; Now actually move...
     (if target-field
         (yas--move-to-field snippet target-field)