From 40c588077d69787db91f5d48c2c1df8e2c464274 Mon Sep 17 00:00:00 2001
From: flyingleafe <flyingleafe@gmail.com>
Date: Sat, 23 Aug 2014 01:34:30 +0600
Subject: Moved cursor repositioning logic in separate function

---
 src/mode-def.el | 28 +++++++++++++---------------
 1 file changed, 13 insertions(+), 15 deletions(-)

(limited to 'src')

diff --git a/src/mode-def.el b/src/mode-def.el
index f2f8b2c..31f9d23 100644
--- a/src/mode-def.el
+++ b/src/mode-def.el
@@ -66,6 +66,17 @@ e. g. without semicolons")
       (emmet-css-transform input)
     (emmet-html-transform input)))
 
+(defun emmet-reposition-cursor (expr)
+  (let ((output-markup (buffer-substring-no-properties (second expr) (point))))
+    (when emmet-move-cursor-after-expanding
+      (let ((p (point))
+            (new-pos (if (emmet-html-text-p output-markup)
+                         (emmet-html-next-insert-point output-markup)
+                       (emmet-css-next-insert-point output-markup))))
+        (goto-char
+         (+ (- p (length output-markup))
+            new-pos))))))
+
 ;;;###autoload
 (defun emmet-expand-line (arg)
   "Replace the current line's emmet expression with the corresponding expansion.
@@ -94,15 +105,7 @@ For more information see `emmet-mode'."
               (when markup
                 (delete-region (second expr) (third expr))
                 (emmet-insert-and-flash markup)
-                (let ((output-markup (buffer-substring-no-properties (second expr) (point))))
-                  (when emmet-move-cursor-after-expanding
-                    (let ((p (point))
-                          (new-pos (if (emmet-html-text-p output-markup)
-                                       (emmet-html-next-insert-point output-markup)
-                                       (emmet-css-next-insert-point output-markup))))
-                      (goto-char
-                       (+ (- p (length output-markup))
-                        new-pos))))))))))))
+                (emmet-reposition-cursor expr))))))))
 
 (defvar emmet-mode-keymap
   (let
@@ -215,12 +218,7 @@ See also `emmet-expand-line'."
         (when markup
           (delete-region (overlay-start ovli) (overlay-end ovli))
           (emmet-insert-and-flash markup)
-          (let ((output-markup (buffer-substring-no-properties (line-beginning-position) (point))))
-            (when (and emmet-move-cursor-after-expanding (emmet-html-text-p markup))
-              (let ((p (point)))
-                (goto-char
-                 (+ (- p (length output-markup))
-                    (emmet-html-next-insert-point output-markup))))))))))
+          (emmet-reposition-cursor expr)))))
   (emmet-preview-abort))
 
 (defun emmet-html-next-insert-point (str)
-- 
cgit v1.2.3