diff options
| author | Dave Mayo <dave_mayo@harvard.edu> | 2014-10-23 16:21:08 -0400 |
|---|---|---|
| committer | Dave Mayo <dave_mayo@harvard.edu> | 2014-10-23 16:32:09 -0400 |
| commit | 039c5a5e2f80c5f12f826c6df0dbeba62203a1af (patch) | |
| tree | 097b62f6060b8d666707b7c7db48cabd1be065c4 /emmet-mode.el | |
| parent | 24a05b40b4bc24c5114337e0cfa3937ceb3e9bb9 (diff) | |
| download | emmet-mode-039c5a5e2f80c5f12f826c6df0dbeba62203a1af.tar.lz emmet-mode-039c5a5e2f80c5f12f826c6df0dbeba62203a1af.tar.xz emmet-mode-039c5a5e2f80c5f12f826c6df0dbeba62203a1af.zip | |
Wrap with markup now leaves cursor at edit point.
Diffstat (limited to 'emmet-mode.el')
| -rw-r--r-- | emmet-mode.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/emmet-mode.el b/emmet-mode.el index 0c3084f..15f4f0e 100644 --- a/emmet-mode.el +++ b/emmet-mode.el @@ -3946,8 +3946,7 @@ accept it or skip it." (defun emmet-wrap-with-markup (wrap-with) "Wrap region with markup." (interactive "sExpression to wrap with: ") - (let* ((emmet-move-cursor-between-quotes nil) - (to-wrap (buffer-substring-no-properties (region-beginning) (region-end))) + (let* ((to-wrap (buffer-substring-no-properties (region-beginning) (region-end))) (expr (concat wrap-with ">{!EMMET-TO-WRAP-REPLACEMENT!}")) (markup (replace-regexp-in-string "!EMMET-TO-WRAP-REPLACEMENT!" to-wrap @@ -3957,6 +3956,10 @@ accept it or skip it." (delete-region (region-beginning) (region-end)) (insert markup) (indent-region (region-beginning) (region-end)) + (let ((end (region-end))) + (goto-char (region-beginning)) + (unless (ignore-errors (progn (emmet-next-edit-point 1) t)) + (goto-char end))) ))) ;;;###autoload |