28 lines
4.1 KiB
Plaintext
28 lines
4.1 KiB
Plaintext
|
;ELC
|
|||
|
|
;;; Compiled
|
|||
|
|
;;; in Emacs version 26.3
|
|||
|
|
;;; with all optimizations.
|
|||
|
|
|
|||
|
|
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
|
|||
|
|
|
|||
|
|
;;; This file does not contain utf-8 non-ASCII characters,
|
|||
|
|
;;; and so can be loaded in Emacs versions earlier than 23.
|
|||
|
|
|
|||
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|||
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|||
|
|
|
|||
|
|
|
|||
|
|
(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" "<w\\(?::w\\)?\\(?:[
\n]+w\\(?::w\\)?[
\n]*=[
\n]*\\(?:\"[^\"]*\"\\|'[^']*'\\)\\)*[
\n]+\\(w\\(:w\\)?\\)[
\n]*=[
\n]*\\(\"\\([^\"]*\\>\\)\\|'\\([^']*\\>\\)\\)\\=" 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))
|
|||
|
|
(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])
|
|||
|
|
(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]))
|
|||
|
|
(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)
|
|||
|
|
(defalias 'company-nxml-tag #[(command &optional arg &rest ignored) "\306\307\"\203 \310\311!\205B \205B \312\n\313\"\207\306\314\"\203: \212\315\316\317\320#)\317\211 \2058 \321\f!\fU\2058 \322
\323 \"*\207\306\324\"\205B \320\207" [command rng-validate-mode company-nxml-in-tag-name-regexp xmltok-dtd lt-pos arg eql prefix derived-mode-p nxml-mode company-grab 1 candidates search-backward "<" nil t rng-set-state-after company-nxml-all-completions rng-match-possible-start-tag-names sorted] 5])
|
|||
|
|
(defalias 'company-nxml-attribute #[(command &optional arg &rest ignored) "\306\307\"\203 \310\311!\205S \205S \312f\313>\205S \314\n\315\"\207\306\316\"\203K \212\317\320\312\321#)\312\211 \205I \322\f!\fU\205I \323\f`
GZ\"\205I \324
\325 \"*\207\306\326\"\205S \321\207" [command rng-validate-mode rng-in-attribute-regex xmltok-dtd lt-pos arg eql prefix derived-mode-p nxml-mode nil (32 9 10) company-grab 1 candidates search-backward "<" t rng-set-state-after rng-adjust-state-for-attribute company-nxml-all-completions rng-match-possible-attribute-names sorted] 5])
|
|||
|
|
(defalias 'company-nxml-attribute-value #[(command &optional arg &rest ignored) "\306\307\"\203- \310\311!\205\203 \205\203 \312f\313>\205, \314\n\312\"\205, \315\316!\206, \315\317!\206, \320\207\306\321\"\205\203 \212\322\323\312\324#)\312\211 \205\202 \325\f!\fU\205\202 \312\211\211 \314 \f\"\205\201 \326\224\327\224 \327\225\211 \205\201 \330\f \"\205\201 \331
#\205\201 \332 \333 \"+*\207" [command rng-validate-mode company-nxml-in-attribute-value-regexp xmltok-dtd lt-pos colon eql prefix derived-mode-p nxml-mode nil (39 34 32 9 10) looking-back match-string-no-properties 4 5 "" candidates 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])
|
|||
|
|
#@52 `company-mode' completion backend for `nxml-mode'.
|
|||
|
|
(defalias 'company-nxml #[(command &optional arg &rest ignored) "\302\303\"\203 \304\305!\207\302\306\"\203\" \307\306!\206U \310\306!\206U \311\306!\207\302\312\"\203M \307\306!\2034 \307\312 \"\207\310\306!\203? \310\312 \"\207\311\306!\205U \313\311\312 \"\314\"\207\302\315\"\205U \316\207" [command arg eql interactive company-begin-backend company-nxml prefix company-nxml-tag company-nxml-attribute company-nxml-attribute-value candidates sort string< sorted t] 4 (#$ . 3634) (list 'interactive)])
|
|||
|
|
(provide 'company-nxml)
|