;ELC ;;; Compiled by aatharuv@opus.mit.edu on Thu Oct 3 18:31:51 2002 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/psgml-1.2.5/psgml-api.el ;;; in Emacs version 21.1.1 ;;; with bytecomp version 2.85 ;;; 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 "`psgml-api.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\302\303!\210\302\304!\207" [provide psgml-api require psgml psgml-parse] 2) #@193 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. (defalias 'sgml-map-element-modify #[(el-fun element) "\305\306\307  \205M\f !\210\307 U\204\310\311 !!\307 \312 !\211\203-\nT\202F\n\305V\203F\313 !\211\204F \314H\nS\211\202. \211\204 \306+\207" [tick next level element el-fun 0 nil buffer-modified-tick sgml-find-element-of sgml-element-start sgml-element-content sgml-element-next 5] 4 (#$ . 738)]) #@121 Map content of ELEMENT, calling ELEMENT-FUN for every element. Also calling DATA-FUN, if non-nil, with data in content. (defalias 'sgml-map-content #[(element element-fun &optional data-fun pi-fun entity-fun) "\306 \210\307 \210\310!\210\311!?\205xd\212\312 p\313 \314 \203&\202(!\210\315\216\316\317\"\210m\2038\320 \210l\203?\321u\210\322 $\210\323H\211\205v\306 \210!\210\316\324\"\210\322 $\210\325H\211\204R\326.\207" [element main-buffer-max buffer-modified cb normal-syntax-table sgml-xml-p sgml-pop-all-entities sgml-need-dtd sgml-element-end sgml-element-empty syntax-table buffer-modified-p set-syntax-table ((byte-code "p q\210\305\n!\210\306 !\210\f\203\307\310 \"\210\305\207" [sgml-last-buffer cb normal-syntax-table buffer-modified sgml-debug set-syntax-table set-buffer-modified-p sgml-log-message "Restoring buffer mod: %s"] 3)) sgml-set-parse-state start sgml-pop-entity 1 sgml-parse-data 11 after 10 nil xml-parser-syntax sgml-parser-syntax data-fun pi-fun entity-fun c element-fun] 6 (#$ . 1311)]) (defalias 'sgml-parse-data #[(sgml-goal sgml-data-function sgml-pi-function sgml-entity-function) "\301\301\302\215)\207" [sgml-throw-on-element-change el-done (sgml-parse-continue sgml-goal nil t)] 2]) #@254 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. (defalias 'sgml-push-to-string #[(string) "\301\302\300\303F!\207" [string sgml-push-to-entity "#STRING" nil] 5 (#$ . 2587)])