(defun SYMBOL (ARG PARAM ARG)
"Reposition point at next block-start.
Skip comments if COMMENTS is nil, and search for REGEXP in
region (point MAXP)."
(when (not comments)
(forward-comment (point-max)))
(and (< (point) maxp)
(re-search-forward regexp maxp t)))
(defun hs-find-next-block (regexp maxp comments)
"STRING"
(when (not comments)
(forward-comment (point-max)))
(and (< (point) maxp)
(re-search-forward regexp maxp t)))
(sgml-electric-tag-pair-mode 'toggle)
(set-mark-command nil)
(mhtml-mode)
(company-css 'interactive)
(company-mode 'toggle)
(company-css 'interactive)
(css-ts-mode)
(mmm-ify-by-class 'html-css)
(mmm-mode-on) (insert-char 10003 1 t)
(sgml-name-char) (sgml-namify-char)
(insert-char 129309 1 t)
(set-mark-command nil)
(find-file "~soul/Uploads/codings/ahk/talk-bla.htm" t)
(mmm-ify-region 'web-mode (region-beginning) (region-end))
Alḥamdulillāh rabbil-ʿālamīn!
👋 ...👋 ... Ａｓｓａｌａｍｕａｌａｉｋｕｍ 👋 ...👋 ...
(￣▽￣;)
(command-history)(find-file) (replace-string "1" "2") .. (rectangle-mark-mode) (insert-parentheses) (find-file) (clear-rectangle)