;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\207" [require web-mode web-mode-edit-element-utils subr-x] 2) (defalias 'web-mode-edit-element-elements-end-inside #[nil "\300 \210\301u\207" [web-mode-element-end -1] 1 nil nil]) (defalias 'web-mode-edit-element-elements-insert-direct-before #[(content) "\212\301 \210c)\207" [content web-mode-tag-beginning] 1 nil "sContent: "]) (defalias 'web-mode-edit-element-elements-insert-before #[(content) "\212\301 \210\302 \210\303!)\207" [content web-mode-element-beginning web-mode-tag-previous web-mode-edit-element-elements-insert-direct-after] 2 nil "sContent: "]) (defalias 'web-mode-edit-element-elements-insert-direct-after #[(content) "\212\301 \210c)\207" [content web-mode-tag-end] 1 nil "sContent: "]) (defalias 'web-mode-edit-element-elements-insert-after #[(content) "\212\301 \210\302 \210\303!)\207" [content web-mode-edit-element-elements-end-inside web-mode-tag-next web-mode-edit-element-elements-insert-direct-before] 2 nil "sContent: "]) (defalias 'web-mode-edit-element-elements-sibling-previous-position #[nil "\300\301!\207" [web-mode-edit-element-utils-x-position web-mode-element-sibling-previous] 2]) (defalias 'web-mode-edit-element-elements-sibling-previous-p #[nil "\302\212\303 \210\304 )\305\"\306\307!\211U*?\207" [tag-prev-position parent-position web-mode-edit-element-utils-fnil web-mode-element-beginning web-mode-element-parent-position point web-mode-edit-element-utils-x-position #[nil "\300 \210\301 \210\300 \207" [web-mode-element-beginning web-mode-tag-previous] 1]] 4]) (defalias 'web-mode-edit-element-elements-sibling-next-position #[nil "\300\301!\207" [web-mode-edit-element-utils-x-position web-mode-element-sibling-next] 2]) (defalias 'web-mode-edit-element-elements-sibling-next-p #[nil "\302\212\303 \210\304 )\305\"\306\307!\211U*?\207" [tag-next-position parent-position web-mode-edit-element-utils-fnil web-mode-element-beginning web-mode-element-parent-position point web-mode-edit-element-utils-x-position #[nil "\300 \210\301 \210\302 \207" [web-mode-edit-element-elements-end-inside web-mode-tag-next web-mode-element-beginning] 1]] 4]) (defalias 'web-mode-edit-element-elements-sibling-next-or-parent #[nil "\300 \203\301 \207\302 \207" [web-mode-edit-element-elements-sibling-next-p web-mode-element-sibling-next web-mode-element-parent] 1 nil nil]) (defalias 'web-mode-edit-element-elements-parent-p #[nil "\212\300 \210\301 \205\301 \302 U?)\207" [web-mode-element-beginning web-mode-element-parent-position web-mode-element-beginning-position] 2]) (defalias 'web-mode-edit-element-elements-root-p #[nil "\300 ?\207" [web-mode-edit-element-elements-parent-p] 1]) (defalias 'web-mode-edit-element-elements-child-p #[nil "\302\303!\212\304 \210\305 )\211U*?\207" [child-position end-tag-position web-mode-edit-element-utils-x-position #[nil "\300 \210\301 \207" [web-mode-edit-element-elements-end-inside web-mode-tag-beginning] 1] web-mode-element-beginning web-mode-tag-next-position] 3]) (defalias 'web-mode-edit-element-elements-child-last #[nil "\300 \203\301 \210\302 \210\303 \207\304 \210\305 \207" [web-mode-edit-element-elements-child-p web-mode-edit-element-elements-end-inside web-mode-tag-beginning web-mode-tag-previous web-mode-element-beginning web-mode-tag-end] 1 nil nil]) (defalias 'web-mode-edit-element-elements-child-first #[nil "\300 \203 \301 \210\302 \207\301 \210\303 \207" [web-mode-edit-element-elements-child-p web-mode-element-beginning web-mode-tag-next web-mode-tag-end] 1 nil nil]) (defalias 'web-mode-edit-element-elements-kill-siblings-previous #[nil "\212\300 \210\301`!\210\302 \203\303 \210\304 \210\202\305 \210\306\307 \310 \"\210\311c)\207" [web-mode-element-beginning set-mark web-mode-edit-element-elements-parent-p web-mode-element-parent web-mode-tag-end beginning-of-buffer kill-region region-beginning region-end "\n"] 3 nil nil]) (defalias 'web-mode-edit-element-elements-kill-siblings-next #[nil "\212\300\301 T!\210\302 \203\303 \210\304 \210\305 \210\306 \210\202\307 \210\310\311 \312 \"\210\313c)\207" [set-mark web-mode-element-end-position web-mode-edit-element-elements-parent-p web-mode-element-beginning web-mode-element-parent web-mode-edit-element-elements-end-inside web-mode-tag-beginning end-of-buffer kill-region region-beginning region-end "\n"] 3 nil nil]) (defalias 'web-mode-edit-element-elements-kill-siblings #[nil "\300 \210\301 \207" [web-mode-edit-element-elements-kill-siblings-previous web-mode-edit-element-elements-kill-siblings-next] 1 nil nil]) (defalias 'web-mode-edit-element-elements-transpose-backward #[nil "\300 \205\f\212\301 \210\302 )\207" [web-mode-edit-element-elements-sibling-previous-p web-mode-element-sibling-previous web-mode-element-transpose] 1 nil nil]) (defalias 'web-mode-edit-element-elements-expand-p #[nil "\300 \207" [web-mode-edit-element-elements-sibling-next-p] 1]) (defalias 'web-mode-edit-element-elements-expand #[nil "\301 \205%\302\212\303 \210\304`!\210\305 \210\303 \210\306 )!\307P\212\310 \210\311 \210c*\207" [content web-mode-edit-element-elements-expand-p string-trim-left web-mode-element-end set-mark web-mode-tag-next web-mode-edit-element-utils-kill-region "\n" web-mode-edit-element-elements-end-inside web-mode-tag-beginning] 3 nil nil]) (defalias 'web-mode-edit-element-elements-expand-over-border #[nil "\212\300 \203\301 \204\302 \210\202\303 )\207" [web-mode-edit-element-elements-parent-p web-mode-edit-element-elements-expand-p web-mode-element-parent web-mode-edit-element-elements-expand] 1 nil nil]) (defalias 'web-mode-edit-element-elements-contract-p #[nil "\300 \207" [web-mode-edit-element-elements-child-p] 1]) (defalias 'web-mode-edit-element-elements-contract #[nil "\301 \205(\212\302 \210\303 \210\304 \210\305 \210\306`!\210\307 \210\310 \210\311 )\212\310 \210\312!*\207" [content web-mode-edit-element-elements-contract-p web-mode-edit-element-elements-child-last web-mode-element-beginning web-mode-tag-previous web-mode-tag-end set-mark web-mode-tag-next web-mode-element-end web-mode-edit-element-utils-kill-region web-mode-edit-element-elements-insert-direct-after] 2 nil nil]) (defalias 'web-mode-edit-element-elements-contract-over-border #[nil "\212\300 \203\301 \204\302 \210\202\303 )\207" [web-mode-edit-element-elements-parent-p web-mode-edit-element-elements-contract-p web-mode-element-parent web-mode-edit-element-elements-contract] 1 nil nil]) (defalias 'web-mode-edit-element-elements-dissolve #[(&optional ARGS) "\301 \205\212\302 \210\303 \210\304!)\207" [ARGS web-mode-edit-element-elements-parent-p web-mode-element-beginning web-mode-element-parent web-mode-element-vanish] 2 nil "p"]) (defalias 'web-mode-edit-element-elements-raise #[(&optional ARGS) "\301 \210\302!\207" [ARGS web-mode-edit-element-elements-kill-siblings web-mode-edit-element-elements-dissolve] 2 nil "p"]) (provide 'web-mode-edit-element-elements)