diff --git a/modules/lang/web/autoload/css.el b/modules/lang/web/autoload/css.el index 608f6d2ec..0888b858d 100644 --- a/modules/lang/web/autoload/css.el +++ b/modules/lang/web/autoload/css.el @@ -11,23 +11,24 @@ "Toggles between a bracketed block and inline block." (interactive) ;; TODO Remove evil dependency - (save-excursion - (cl-destructuring-bind (beg end) - (or (ignore-errors (evil-a-curly)) - (user-error "No block found")) - (if (= (line-number-at-pos beg) (line-number-at-pos end)) - (save-excursion - (goto-char (1+ beg)) (insert "\n") - (unless (string-match ";[\s\t]*}$" (buffer-substring-no-properties beg (1+ end))) - (goto-char end) (insert "\n")) - (while (re-search-forward ";[\s\t]*" (1+ end) t) - (replace-match ";\n" t t)) - (setq end (cadr (evil-a-curly))) - (evil-indent beg end) - (delete-trailing-whitespace beg end)) - (goto-char beg) - (evil-join beg end) - (goto-char (1+ beg)) - (just-one-space) - (goto-char (cadr (evil-inner-curly))) - (just-one-space))))) + (let ((inhibit-modification-hooks t)) + (save-excursion + (cl-destructuring-bind (beg end &rest _) + (or (ignore-errors (evil-a-curly)) + (user-error "No block found")) + (if (= (line-number-at-pos beg) (line-number-at-pos end)) + (progn + (goto-char (1+ beg)) (insert "\n") + (unless (string-match ";[\s\t]*}$" (buffer-substring-no-properties beg (1+ end))) + (goto-char end) (insert "\n")) + (while (re-search-forward ";[\s\t]*" (1+ end) t) + (replace-match ";\n" t t)) + (setq end (cadr (evil-a-curly))) + (evil-indent beg end) + (delete-trailing-whitespace beg end)) + (goto-char beg) + (evil-join beg end) + (goto-char (1+ beg)) + (just-one-space) + (goto-char (cadr (evil-inner-curly))) + (just-one-space))))))