| Server IP : 217.160.0.212 / Your IP : 216.73.216.141 Web Server : Apache System : Linux www 6.18.51-i1-ampere #1196 SMP Fri Sep 11 20:43:55 CEST 2026 aarch64 User : sws1073854427 ( 1073854427) PHP Version : 8.4.23 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /usr/share/emacs/28.2/lisp/nxml/ |
Upload File : |
;ELC ;;; Compiled ;;; in Emacs version 28.2 ;;; with all optimizations. #@57 Enable nxml debugging. Effective only at compile time. (defconst nxml-debug nil (#$ . 84)) #@26 (fn FORMAT &rest ARGS) (defalias 'nxml-debug #[385 "\205 \301\302#\207" [nxml-debug apply message] 6 (#$ . 182)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put nxml-debug speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@23 (fn NAME START END) (defalias 'nxml-debug-change '(macro . #[771 "\205\f \300\301\302EF\207" [nxml-debug "%s: %S" buffer-substring-no-properties] 9 (#$ . 444)])) #@187 Return a symbol for the namespace URI STR. STR must be a string. If STR is the empty string, return nil. Otherwise, return the symbol whose name is STR prefixed with a colon. (fn STR) (defalias 'nxml-make-namespace #[257 "\211\300\230?\205\f \301\302P!\207" ["" intern ":"] 4 (#$ . 619)]) #@113 Return the namespace URI corresponding to the symbol NS. This is the inverse of `nxml-make-namespace'. (fn NS) (defalias 'nxml-namespace-name #[257 "\211\205\n \300!\301\302O\207" [symbol-name 1 nil] 4 (#$ . 918)]) (defconst nxml-xml-namespace-uri (nxml-make-namespace "http://www.w3.org/XML/1998/namespace")) (defconst nxml-xmlns-namespace-uri (nxml-make-namespace "http://www.w3.org/2000/xmlns/")) #@27 (fn CONTEXT &rest BODY) (defalias 'nxml-with-degradation-on-error '(macro . #[385 "\204 \301\302!\303\304B\305\306EDF\207\304B\207" [nxml-debug make-symbol "err" condition-case progn error nxml-degrade] 10 (#$ . 1326)])) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put nxml-with-degradation-on-error lisp-indent-function 1 put edebug-form-spec t] 5) #@72 Evaluate body without calling any point motion hooks. (fn &rest BODY) (defalias 'nxml-with-invisible-motion '(macro . #[128 "\300\301BB\207" [let ((inhibit-point-motion-hooks t))] 4 (#$ . 1711)])) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put nxml-with-invisible-motion lisp-indent-function 0 put edebug-form-spec t] 5) #@12 (fn ERR) (defalias 'nxml-display-file-parse-error #[257 "\211A@\300!\3018\3028\303!\210\304 \203 \305\202 b\210\306\307\"\207" [find-file-noselect 2 3 pop-to-buffer buffer-modified-p 1 error "%s"] 8 (#$ . 2059)]) #@48 (fn FILE POS MESSAGE &optional ERROR-SYMBOL) (defalias 'nxml-signal-file-parse-error #[1027 "\300\206 \301E\"\207" [signal nxml-file-parse-error] 9 (#$ . 2288)]) (byte-code "\300\301\302\"\210\300\303\304\301#\210\305\306!\207" [define-error nxml-error nil nxml-file-parse-error "Error parsing file" provide nxml-util] 4)