| commit | author | age | ||
| 5cb5f7 | 1 | ;ELC |
| C | 2 | ;;; Compiled |
| 3 | ;;; in Emacs version 26.1 | |
| 4 | ;;; with all optimizations. | |
| 5 | ||
| 6 | ;;; This file uses dynamic docstrings, first added in Emacs 19.29. | |
| 7 | ||
| 8 | ;;; This file does not contain utf-8 non-ASCII characters, | |
| 9 | ;;; and so can be loaded in Emacs versions earlier than 23. | |
| 10 | ||
| 11 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 12 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 13 | ||
| 14 | ||
| 15 | (byte-code "\300\301!\210\300\302!\207" [require company cl-lib] 2) | |
| 16 | (defconst company-nxml-token-regexp "\\(?:[_[:alpha:]][-._[:alnum:]]*\\_>\\)") | |
| 17 | (defvar company-nxml-in-attribute-value-regexp (byte-code "\301\302\303\304\211%\207" [company-nxml-token-regexp replace-regexp-in-string "w" "<w\\(?::w\\)?\\(?:[ \n]+w\\(?::w\\)?[ \n]*=[ \n]*\\(?:\"[^\"]*\"\\|'[^']*'\\)\\)*[ \n]+\\(w\\(:w\\)?\\)[ \n]*=[ \n]*\\(\"\\([^\"]*\\>\\)\\|'\\([^']*\\>\\)\\)\\=" t] 6)) | |
| 18 | (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)) | |
| 19 | (defalias 'company-nxml-all-completions #[(prefix alist) "\306\307\"\310\211\f@A\203 \311\f@AP B\312\313 \"\314\" \2038 @ @\232\2040 @ B \211A\210\202 \237+\207" [alist filtered case-fold-search candidates rng-open-elements prefix mapcar cdr nil "/" sort all-completions string<] 4]) | |
| 20 | (defalias 'company-nxml-prepared '(macro . #[(&rest body) "\301\302\303\304BBE\207" [body let ((lt-pos (save-excursion (search-backward "<" nil t))) xmltok-dtd) when (and lt-pos (= (rng-set-state-after lt-pos) lt-pos))] 5])) | |
| 21 | (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) | |
| 22 | (defalias 'company-nxml-tag #[(command &optional arg &rest ignored) "\306\267\2024 \307\310!\2055 \2055 \311\n\312\"\207\212\313\314\315\316#)\315\211 \2050 \317\f!\fU\2050 \320 \321 \"*\207\316\207\315\207" [command rng-validate-mode company-nxml-in-tag-name-regexp xmltok-dtd lt-pos arg #s(hash-table size 3 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (prefix 6 candidates 21 sorted 50)) 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] 5]) | |
| 23 | (defalias 'company-nxml-attribute #[(command &optional arg &rest ignored) "\306\267\202E \307\310!\205F \205F \311f\312>\205F \313\n\314\"\207\212\315\316\311\317#)\311\211 \205A \320\f!\fU\205A \321\f` GZ\"\205A \322 \323 \"*\207\317\207\311\207" [command rng-validate-mode rng-in-attribute-regex xmltok-dtd lt-pos arg #s(hash-table size 3 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (prefix 6 candidates 28 sorted 67)) 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] 5]) | |
| 24 | (defalias 'company-nxml-attribute-value #[(command &optional arg &rest ignored) "\306\267\202| \307\310!\205} \205} \311f\312>\205+ \313\n\311\"\205+ \314\315!\206+ \314\316!\206+ \317\207\212\320\321\311\322#)\311\211 \205z \323\f!\fU\205z \311\211\211 \313 \f\"\205y \324\224\325\224\325\225\211\205y \326\f\"\205y \327 #\205y \330 \331 \"+*\207\311\207" [command rng-validate-mode company-nxml-in-attribute-value-regexp xmltok-dtd lt-pos colon #s(hash-table size 2 test eql 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 attr-end attr-start rng-in-attribute-value-regex arg] 5]) | |
| 25 | #@52 `company-mode' completion backend for `nxml-mode'. | |
| 26 | (defalias 'company-nxml #[(command &optional arg &rest ignored) "\302\267\202@ \303\304!\207\305\306!\206A \307\306!\206A \310\306!\207\305\306!\203% \305\311 \"\207\307\306!\2030 \307\311 \"\207\310\306!\205A \312\310\311 \"\313\"\207\314\207\315\207" [command arg #s(hash-table size 4 test eql 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] 4 (#$ . 3816) (list 'interactive)]) | |
| 27 | (provide 'company-nxml) | |
