diff options
Diffstat (limited to 'src/mode-def.el')
| -rw-r--r-- | src/mode-def.el | 86 |
1 files changed, 43 insertions, 43 deletions
diff --git a/src/mode-def.el b/src/mode-def.el index f8d481f..db064a9 100644 --- a/src/mode-def.el +++ b/src/mode-def.el @@ -18,25 +18,25 @@ (defun emmet-find-left-bound () "Find the left bound of an emmet expr" (save-excursion (save-match-data - (let ((char (char-before)) - (in-style-attr (looking-back "style=[\"'][^\"']*" nil)) - (syn-tab (make-syntax-table))) - (modify-syntax-entry ?\\ "\\") - (while char - (cond ((and in-style-attr (member char '(?\" ?\'))) - (setq char nil)) - ((member char '(?\} ?\] ?\))) - (with-syntax-table syn-tab - (backward-sexp) (setq char (char-before)))) - ((eq char ?\>) - (if (looking-back "<[^>]+>" (line-beginning-position)) - (setq char nil) - (progn (backward-char) (setq char (char-before))))) - ((not (string-match-p "[[:space:]\n;]" (string char))) - (backward-char) (setq char (char-before))) - (t - (setq char nil)))) - (point))))) + (let ((char (char-before)) + (in-style-attr (looking-back "style=[\"'][^\"']*" nil)) + (syn-tab (make-syntax-table))) + (modify-syntax-entry ?\\ "\\") + (while char + (cond ((and in-style-attr (member char '(?\" ?\'))) + (setq char nil)) + ((member char '(?\} ?\] ?\))) + (with-syntax-table syn-tab + (backward-sexp) (setq char (char-before)))) + ((eq char ?\>) + (if (looking-back "<[^>]+>" (line-beginning-position)) + (setq char nil) + (progn (backward-char) (setq char (char-before))))) + ((not (string-match-p "[[:space:]\n;]" (string char))) + (backward-char) (setq char (char-before))) + (t + (setq char nil)))) + (point))))) (defcustom emmet-indentation 4 "Number of spaces used for indentation." @@ -447,8 +447,8 @@ See `emmet-preview-online'." (defun emmet-preview-transformed (indent) (let* ((string (buffer-substring-no-properties - (overlay-start emmet-preview-input) - (overlay-end emmet-preview-input)))) + (overlay-start emmet-preview-input) + (overlay-end emmet-preview-input)))) (let ((output (emmet-transform string))) (when output output)))) @@ -480,30 +480,30 @@ See `emmet-preview-online'." "\\|")) (edit-point (format "\\(%s\\)" whole-regex))) (if (> count 0) - (progn - (forward-char) - (let - ((search-result (re-search-forward edit-point nil t count))) - (if search-result - (progn - (cond - ((match-string 2) (goto-char (- (match-end 2) 1))) - ((match-string 3) (end-of-line)) + (progn + (forward-char) + (let + ((search-result (re-search-forward edit-point nil t count))) + (if search-result + (progn + (cond + ((match-string 2) (goto-char (- (match-end 2) 1))) + ((match-string 3) (end-of-line)) ((match-string 4) (backward-char))) - (point)) - (backward-char)))) + (point)) + (backward-char)))) (progn - (backward-char) - (let - ((search-result (re-search-backward edit-point nil t (- count)))) - (if search-result - (progn - (cond - ((match-string 2) (goto-char (- (match-end 2) 1))) - ((match-string 3) (end-of-line)) - ((match-string 4) (forward-char 2))) - (point)) - (forward-char))))))) + (backward-char) + (let + ((search-result (re-search-backward edit-point nil t (- count)))) + (if search-result + (progn + (cond + ((match-string 2) (goto-char (- (match-end 2) 1))) + ((match-string 3) (end-of-line)) + ((match-string 4) (forward-char 2))) + (point)) + (forward-char))))))) (defcustom emmet-postwrap-goto-edit-point nil "Goto first edit point after wrapping markup?" |