%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /usr/local/share/emacs/27.2/lisp/nxml/
Upload File :
Create Path :
Current File : //usr/local/share/emacs/27.2/lisp/nxml/nxml-util.elc

;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


#@57 Enable nxml debugging.  Effective only at compile time.
(defconst nxml-debug nil (#$ . 408))
#@26 

(fn FORMAT &rest ARGS)
(defalias 'nxml-debug #[385 "\205	\301\302#\207" [nxml-debug apply message] 6 (#$ . 507)])
(put 'nxml-debug 'byte-optimizer 'byte-compile-inline-expand)
#@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 (#$ . 695)]))
#@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 (#$ . 870)])
#@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!\302\"\207" [substring symbol-name 1] 4 (#$ . 1169)])
(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 (#$ . 1585)]))
(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 (#$ . 1970)]))
(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\202b\210\306\307\"\207" [find-file-noselect 2 3 pop-to-buffer buffer-modified-p 1 error "%s"] 8 (#$ . 2318)])
#@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 (#$ . 2547)])
(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)

Zerion Mini Shell 1.0