;ELC ;;; Compiled ;;; in Emacs version 29.3 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\207" [require company cl-lib] 2) (defconst company-nxml-token-regexp "\\(?:[_[:alpha:]][-._[:alnum:]]*\\_>\\)") (defvar company-nxml-in-attribute-value-regexp (byte-code "\301\302\303\304\211%\207" [company-nxml-token-regexp replace-regexp-in-string "w" "\\)\\|'\\([^']*\\>\\)\\)\\=" t] 6)) (defvar company-nxml-in-tag-name-regexp (byte-code "\301\302\303\304\211%\207" [company-nxml-token-regexp replace-regexp-in-string "w" "<\\(/?w\\(?::w?\\)?\\)?\\=" t] 6))#@21 (fn PREFIX ALIST) (defalias 'company-nxml-all-completions #[514 "\302\303\"\304\211 @A\203\305 @APB\262\306\307\"\310\"\262\203:@@\232\2043@B\262A\262\202!\211\237)\207" [case-fold-search rng-open-elements mapcar cdr nil "/" sort all-completions string<] 9 (#$ . 727)])#@19 (fn &rest BODY) (defalias 'company-nxml-prepared '(macro . #[128 "\300\301\302\303BBE\207" [let ((lt-pos (save-excursion (search-backward "<" nil t)))) when (and lt-pos (= (rng-set-state-after lt-pos) lt-pos))] 6 (#$ . 1026)])) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put company-nxml-prepared lisp-indent-function 0 put edebug-form-spec t] 5)#@44 (fn COMMAND &optional ARG &rest IGNORED) (defalias 'company-nxml-tag #[641 "\302\267\2020\303\304!\2051\2051\305 \306\"\207\212\307\310\311\312#)\211\205-\313!U\205-\314\315 \"\207\312\207\311\207" [rng-validate-mode company-nxml-in-tag-name-regexp #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (prefix 6 candidates 21 sorted 46)) derived-mode-p nxml-mode company-grab 1 search-backward "<" nil t rng-set-state-after company-nxml-all-completions rng-match-possible-start-tag-names] 7 (#$ . 1400)])#@44 (fn COMMAND &optional ARG &rest IGNORED) (defalias 'company-nxml-attribute #[641 "\302\267\202A\303\304!\205B\205B\305f\306>\205B\307 \310\"\207\212\311\312\305\313#)\211\205>\314!U\205>\315`GZ\"\205>\316\317 \"\207\313\207\305\207" [rng-validate-mode rng-in-attribute-regex #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (prefix 6 candidates 28 sorted 63)) derived-mode-p nxml-mode nil (32 9 10) company-grab 1 search-backward "<" t rng-set-state-after rng-adjust-state-for-attribute company-nxml-all-completions rng-match-possible-attribute-names] 8 (#$ . 1954)])#@44 (fn COMMAND &optional ARG &rest IGNORED) (defalias 'company-nxml-attribute-value #[641 "\303\267\202q\304\305!\205r\205r\306f\307>\205+\310 \306\"\205+\311\312!\206+\311\313!\206+\314\207\212\315\316\306\317#)\211\205p\320!U\205p\306\211\211\310\n\"\205n\321\224\262\322\224\262\322\225\211\262\205n\323\"\205n\324#\205n\325\326 \"\266\203\207\306\207" [rng-validate-mode company-nxml-in-attribute-value-regexp rng-in-attribute-value-regex #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (prefix 6 candidates 44)) derived-mode-p nxml-mode nil (39 34 32 9 10) looking-back match-string-no-properties 4 5 "" search-backward "<" t rng-set-state-after 2 1 rng-adjust-state-for-attribute rng-adjust-state-for-attribute-value all-completions rng-match-possible-value-strings] 11 (#$ . 2579)])#@94 `company-mode' completion backend for `nxml-mode'. (fn COMMAND &optional ARG &rest IGNORED) (defalias 'company-nxml #[641 "\300\267\202@\301\302!\207\303\304!\206A\305\304!\206A\306\304!\207\303\304!\203%\303\307\"\207\305\304!\2030\305\307\"\207\306\304!\205A\310\306\307\"\311\"\207\312\207\313\207" [#s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (interactive 6 prefix 10 candidates 26 sorted 62)) company-begin-backend company-nxml company-nxml-tag prefix company-nxml-attribute company-nxml-attribute-value candidates sort string< t nil] 7 (#$ . 3438) (byte-code "\300C\207" [interactive] 1)]) (provide 'company-nxml)