;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 psgml psgml-parse] 2) #@214 Apply EL-FUN to ELEMENT and the elements in its content. The EL-FUN may change the buffer. But if it changes the buffer and leaves the element with no start-tag some elements may be ignored. (fn EL-FUN ELEMENT) (defalias 'sgml-map-element-modify #[514 "\300\301\302 \205O!\210\211\302 U\204\303\304!!\262\302 \262\305!\211\262\203.T\262\202I\300V\203I\306!\211\262\204I\307H\262S\262\202.\262\202\207" [0 nil buffer-modified-tick sgml-find-element-of sgml-element-start sgml-element-content sgml-element-next 5] 8 (#$ . 480)]) #@184 Map content of ELEMENT, calling ELEMENT-FUN for every element. Also calling DATA-FUN, if non-nil, with data in content. (fn ELEMENT ELEMENT-FUN &optional DATA-FUN PI-FUN ENTITY-FUN) (defalias 'sgml-map-content #[1282 "\303 \210\304 \210\305!\210\306!?\205\223d\212p\307 \310 p\311\312\313\314\315\"\316\"\317$\216\320\2031 \2022\n!\210\311\312\321\314\315\"\322\"\323$\216\324\n\325\"\210m\203P\326 \210l\203W\327u\210\330   $\210 \331H\211\205\211\303 \210 !\210\324\332\"\210\330\n\n\n$\210\211\333H\262\202e\262*\266\202\266\202)\262\207" [sgml-xml-p xml-parser-syntax sgml-parser-syntax sgml-pop-all-entities sgml-need-dtd sgml-element-end sgml-element-empty buffer-modified-p syntax-table make-byte-code 0 "r\301q\210\302\300!)\207" vconcat vector [set-syntax-table] 2 set-syntax-table "p\300q\210\301\204 \304\301!\210 \205\305\306\301\"\207" [sgml-last-buffer sgml-debug restore-buffer-modified-p message "Restoring buffer mod: %s"] 3 sgml-set-parse-state start sgml-pop-entity 1 sgml-parse-data 11 after 10] 17 (#$ . 1045)]) #@55 (fn GOAL DATA-FUNCTION PI-FUNCTION ENTITY-FUNCTION) (defalias 'sgml-parse-data #[1028 "\3052\210\306\f\307\310#0-\207" [sgml-throw-on-element-change sgml-entity-function sgml-pi-function sgml-data-function sgml-goal el-done sgml-parse-continue nil t] 9 (#$ . 2124)]) #@267 Create an entity from STRING and push it on the top of the entity stack. After this the current buffer will be a scratch buffer containing the text of the new entity with point at the first character. Use `sgml-pop-entity' to exit from this buffer. (fn STRING) (defalias 'sgml-push-to-string #[257 "\300\301\302\303F!\207" [sgml-push-to-entity "#STRING" text nil] 6 (#$ . 2413)]) (provide 'psgml-api)