From 210ec4e9a075fd1b4631efd9e03381bb10f7a5ab Mon Sep 17 00:00:00 2001 From: Dave Mayo Date: Fri, 14 Nov 2014 10:57:49 -0500 Subject: Fixes #50 - Checks start of region for flash after insert. --- emmet-mode.el | 4 +++- src/mode-def.el | 9 +++++++-- 2 files changed, 10 insertions(+), 3 deletions(-) diff --git a/emmet-mode.el b/emmet-mode.el index d691970..330658a 100644 --- a/emmet-mode.el +++ b/emmet-mode.el @@ -461,7 +461,9 @@ cursor position will be moved to after the first quote." (let ((here (point))) (insert markup) (if emmet-indent-after-insert - (indent-region here (point))) + (let ((pre-indent-point (point))) + (indent-region here (point)) + (setq here (+ here (- (point) pre-indent-point))))) (setq emmet-flash-ovl (make-overlay here (point))) (overlay-put emmet-flash-ovl 'face 'emmet-preview-output) (when (< 0 emmet-insert-flash-time) diff --git a/src/mode-def.el b/src/mode-def.el index d04f805..b3c7541 100644 --- a/src/mode-def.el +++ b/src/mode-def.el @@ -307,8 +307,13 @@ cursor position will be moved to after the first quote." (emmet-remove-flash-ovl (current-buffer)) (let ((here (point))) (insert markup) - (if emmet-indent-after-insert - (indent-region here (point))) + (when emmet-indent-after-insert + (indent-region here (point)) + (setq here + (save-excursion + (goto-char here) + (skip-chars-forward "\s-") + (point)))) (setq emmet-flash-ovl (make-overlay here (point))) (overlay-put emmet-flash-ovl 'face 'emmet-preview-output) (when (< 0 emmet-insert-flash-time) -- cgit v1.2.3