;ELC ;;; Compiled by jjc@pineapple.bkk.thaiopensource.com on Mon Oct 4 11:58:41 2004 ;;; from file /home/jjc/elisp/nxml-util.el ;;; in Emacs version 21.3.1 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`nxml-util.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@176 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. (defalias 'nxml-make-namespace #[(str) "\301\230?\205\f\302\303P!\207" [str "" intern ":"] 3 (#$ . 618)]) #@104 Return the namespace URI corresponding to the symbol NS. This is the inverse of `nxml-make-namespace'. (defalias 'nxml-namespace-name #[(ns) "\205\n\301!\302\303O\207" [ns symbol-name 1 nil] 3 (#$ . 909)]) (byte-code "\301B\303\304!\302B\303\305!\301\207" [current-load-list nxml-xml-namespace-uri nxml-xmlns-namespace-uri nxml-make-namespace "http://www.w3.org/XML/1998/namespace" "http://www.w3.org/2000/xmlns/"] 2) #@179 Evaluate BODY without any text property changes modifying the buffer. Any text properties changes happen as usual but the changes are not treated as modifications to the buffer. (defalias 'nxml-with-unmodifying-text-property-changes '(macro . #[(&rest body) "\302\303!\304\305B\306B\307\310 B\311\312BBEE)\207" [modified body make-symbol "modified" let ((buffer-modified-p)) ((inhibit-read-only t) (inhibit-modification-hooks t) (buffer-undo-list t) (deactivate-mark nil) (buffer-file-name nil) (buffer-file-truename nil)) unwind-protect progn unless ((restore-buffer-modified-p nil))] 7 (#$ . 1343)])) (byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put nxml-with-unmodifying-text-property-changes lisp-indent-function 0 edebug-form-spec t] 4) #@55 Evaluate body without calling any point motion hooks. (defalias 'nxml-with-invisible-motion '(macro . #[(&rest body) "\301\302BB\207" [body let ((inhibit-point-motion-hooks t))] 3 (#$ . 2106)])) (byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put nxml-with-invisible-motion lisp-indent-function 0 edebug-form-spec t] 4) (defalias 'nxml-display-file-parse-error #[(err) "A@\305 !\3068\3078\310\n!\210\311 \203\312\202 b\210\313\314\f\",\207" [err filename buffer pos message find-file-noselect 2 3 pop-to-buffer buffer-modified-p 1 error "%s"] 3]) (defalias 'nxml-signal-file-parse-error #[(file pos message &optional error-symbol) "\304\206\305 \n E\"\207" [error-symbol file pos message signal nxml-file-parse-error] 5]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\307\310!\207" [put nxml-file-parse-error error-conditions (error nxml-file-parse-error) nxml-parse-file-error error-message "Error parsing file" provide nxml-util] 4)