;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) #@28 Used by sgml-split-element (defvar sgml-split-level nil (#$ . 479)) #@157 Return the element where last command left point. This either uses the save value in `sgml-last-element' or parses the buffer to find current open element. (defalias 'sgml-last-element #[0 "\305 \204\n >\203\f\203\f\207\306`!\211\207" [sgml-markup-type sgml-xml-p last-command sgml-users-of-last-element sgml-last-element nil sgml-find-context-of] 2 (#$ . 554)]) #@21 (fn &optional EL) (defalias 'sgml-set-last-element #[256 "\211\203\211\301!\207" [sgml-last-element sgml-show-context] 3 (#$ . 931)]) #@116 Move to after the start-tag of the current element. If the start-tag is implied, move to the start of the element. (defalias 'sgml-beginning-of-element #[0 "\301\300 !b\210\302\303!\205\304H!\207" [sgml-last-element sgml-element-stag-end sgml-set-last-element sgml-element-empty 5] 3 (#$ . 1078) nil]) #@52 Move to before the end-tag of the current element. (defalias 'sgml-end-of-element #[0 "\301\300 !b\210\302\303!\205\304H!\207" [sgml-last-element sgml-element-etag-start sgml-set-last-element sgml-element-empty 5] 3 (#$ . 1390) nil]) #@112 Move backward out of this element level. That is move to before the start-tag or where a start-tag is implied. (defalias 'sgml-backward-up-element #[0 "\301\300 !b\210\302\303H!\207" [sgml-last-element sgml-element-start sgml-set-last-element 5] 3 (#$ . 1635) nil]) #@107 Move forward out of this element level. That is move to after the end-tag or where an end-tag is implied. (defalias 'sgml-up-element #[0 "\301\300 !b\210\302\303H!\207" [sgml-last-element sgml-element-end sgml-set-last-element 5] 3 (#$ . 1909) nil]) #@33 Move forward over next element. (defalias 'sgml-forward-element #[0 "\300`\301 \"\302!b\210\303\304H!\207" [sgml-find-element-after sgml-last-element sgml-element-end sgml-set-last-element 5] 4 (#$ . 2166) nil]) #@89 Move backward over previous element at this level. With implied tags this is ambiguous. (defalias 'sgml-backward-element #[0 "\300`\301 \"\302!b\210\303\304H!\207" [sgml-find-previous-element sgml-last-element sgml-element-start sgml-set-last-element 5] 4 (#$ . 2386) nil]) #@59 Move forward and down one level in the element structure. (defalias 'sgml-down-element #[0 "\300`\301 \"\302\303H!\203\304\305!\210\306!b\210\307\310!\203#\311H\202$!\207" [sgml-find-element-after sgml-last-element sgml-strict-epos-p 1 error "Sub-element in other entity" sgml-element-stag-end sgml-set-last-element sgml-element-empty 5] 4 (#$ . 2668) nil]) #@40 Kill the element following the cursor. (defalias 'sgml-kill-element #[0 "\301 \210\203 \302\303!\210\304`\305\306`!!\"\207" [sgml-markup-type sgml-parse-to-here error "Point is inside markup" kill-region sgml-element-end sgml-find-element-after] 5 (#$ . 3041) "*"]) #@79 Interchange element before point with element after point, leave point after. (defalias 'sgml-transpose-element #[0 "\300`!\301`!\302\211\211\303!b\210\304 \262`\305!{\262`\305!|\210\303!b\210`\305!{\262`\305!|\210\306!\210\211b\210c\210\307\310!\207" [sgml-find-previous-element sgml-find-element-after nil sgml-element-start point-marker sgml-element-end insert-before-markers sgml-message ""] 8 (#$ . 3315) "*"]) #@30 Set mark after next element. (defalias 'sgml-mark-element #[0 "\300\301\302`!!\303\304#\207" [push-mark sgml-element-end sgml-find-element-after nil t] 4 (#$ . 3750) nil]) #@77 Set mark at end of current element, and leave point before current element. (defalias 'sgml-mark-current-element #[0 "\300`!\301!b\210\302\303!\304\305#\207" [sgml-find-element-of sgml-element-start push-mark sgml-element-end nil t] 5 (#$ . 3928) nil]) #@143 Replace the name of the current element with a new name. Eventual attributes of the current element will be translated if possible. (fn GI) (defalias 'sgml-change-element-name #[257 "\211\203\n\211\301\232\203\302\303!\210\304`!\305!\306!\203%\307!\203%\310\202&\311\211G\312!b\210\307!\204:\313\314H[!\210\315!c\210\316!b\210\313\317H!\210\320\321\322!!\261\210\323`!\306!\324#\206h\325[u\210\326\"\210u\266\203\207" [sgml-xml-p "" error "Illegal name" sgml-find-element-of sgml-element-attribute-specification-list sgml-element-attlist sgml-element-empty "/>" ">" sgml-element-end delete-char 4 sgml-end-tag-of sgml-element-start 3 "<" sgml-general-insert-case sgml-cohere-name sgml-find-context-of sgml-translate-attribute-specification-list 1 sgml-insert-attributes] 12 (#$ . 4190) (byte-code "\300`!\301!b\210\302\303\304\305!\"!\262C\207" [sgml-find-element-of sgml-element-start sgml-read-element-name format "Change %s to: " sgml-element-name] 6)]) #@186 Translate attribute specification from one element type to another. Input attribute values in VALUES using attlist FROM is translated into a list using attlist TO. (fn VALUES FROM TO) (defalias 'sgml-translate-attribute-specification-list #[771 "\301\302\301\301\211\211:\203\201@\262\303\304!\n\"\262\303\304! \"\262\305!\306=\203H\307\306\"\211\262\203H\310\311!\312!\"B\262\202z\305!\305!\232\203[B\262\202z\211\203o\313\314\304!\"\210B\262\202z\313\315\304!\312!#\210A\262\202 \266)\207" [sgml-show-warnings nil t sgml-lookup-attdecl sgml-attspec-name sgml-attdecl-declared-value ID sgml-attribute-with-declared-value sgml-make-attspec sgml-attdecl-name sgml-attspec-attval sgml-log-warning "Attribute %s has new declared-value" "Can't translate attribute %s = %s"] 15 (#$ . 5192)]) #@35 Remove tags from current element. (defalias 'sgml-untag-element #[0 "\300`!\301\302H!\204\301\303H!\203\304\305!\210\306!b\210\307\310H!\210\311!b\210\307\312H!\207" [sgml-find-element-of sgml-strict-epos-p 1 2 error "Current element has some tag inside an entity reference" sgml-element-etag-start delete-char 4 sgml-element-start 3] 4 (#$ . 6035) "*"]) #@59 Kill next tag, markup declaration or process instruction. (defalias 'sgml-kill-markup #[0 "`p\304 p\305\306\307\310\311\"\312\"\313$\216\314\203 \202\n!\210\305\306\315\310\311!\316\"\317$\216\320\211\203Z\321\320w\306U\203`\322\320w\306U\203`g\323=\203N\317u\210\202`g\324=\203`\317u\210\202`\325\320w\306U\210\210`\326\327!\204\206\320g\330=\205~`Tf\331=\205~\313u\210\332!\262\204\206\333 \210\334`\"*\266\202\262\207" [sgml-xml-p xml-parser-syntax sgml-parser-syntax sgml-markup-start syntax-table make-byte-code 0 "r\301q\210\302\300!)\207" vconcat vector [set-syntax-table] 2 set-syntax-table "p\300q\207" [sgml-last-buffer] 1 nil " " " " 10 13 " \n " sgml-parse-markup-declaration ignore 60 63 sgml-do-processing-instruction sgml-skip-tag kill-region] 11 (#$ . 6406) "*"]) #@186 Hide (or if prefixarg unhide) region. If called from a program first two arguments are start and end of region. And optional third argument true unhides. (fn BEG END &optional UNHIDE) (defalias 'sgml-fold-region #[770 "\304\305 \304\211\304\306\307\310\311\312!\313\"\314$\216\315\203!\316\202\"\317\203*\317\202+\316\320%,\207" [selective-display buffer-undo-list inhibit-read-only inhibit-modification-hooks t buffer-modified-p make-byte-code 0 "\300?\205\301\302!\207" vconcat vector [restore-buffer-modified-p nil] 2 subst-char-in-region 13 10 noundo] 11 (#$ . 7222) "r\nP"]) #@121 Fold the lines comprising the current element, leaving the first line visible. This uses the selective display feature. (defalias 'sgml-fold-element #[0 "\304 \210 =\203\n\203\305 \212\306`!\210`)\"\207 =\2034\307\310!\2034\305`\212\311\312w\210\306`T!\210`)\"\207\313`!\211 =\203A\314\315!\210\212\316!b\210\211\317H\320U\203S\321\312x\210\305\322!`\")\207" [sgml-current-tree sgml-top-tree sgml-markup-type sgml-markup-start sgml-parse-to-here sgml-fold-region sgml-parse-to looking-at " * sgml-indent-line %s %s" sgml-element-gi point-marker nil back-to-indentation parse-error "-- sgml-indent-line find context" sgml-find-context-of sgml-find-element-of sgml-element-start syntax-table make-byte-code 0 "r\301q\210\302\300!)\207" vconcat vector [set-syntax-table] 2 set-syntax-table "p\300q\207" [sgml-last-buffer] 1 sgml-is-end-tag 5 sgml-element-stag-end sgml-element-data-p beginning-of-line delete-horizontal-space sgml-top-tree sgml-attribute-indent-function sgml-indent-data sgml-content-indent-function] 16 (#$ . 10034)]) #@51 Move forward to next point where data is allowed. (defalias 'sgml-next-data-field #[0 "m\203\303\304!\210\305\302 `\306!W\203\307\2622@\210\310`T!\210g\311=\204/\312`!\2020 \211=\204\313\n!\203\314 0)\207" [sgml-throw-on-warning sgml-current-tree sgml-last-element error "End of buffer" next-data sgml-element-stag-end nil sgml-parse-to 60 sgml-find-element-of sgml-element-data-p sgml-set-last-element] 6 (#$ . 11574) nil]) #@73 Move forward to next point where something is amiss with the structure. (defalias 'sgml-next-trouble-spot #[0 "\301 \210\302`!\210\303`!\210\304\2112\210\305\306\307\"0\206\310\311!)\207" [sgml-throw-on-warning push-mark sgml-note-change-at sgml-parse-to trouble sgml-parse-until-end-of nil t message "Ok"] 4 (#$ . 12024) nil]) #@48 Display a list of the contextually valid tags. (defalias 'sgml-list-valid-tags #[0 "\306 \210\307!\310 \311H\n\" r\312\313!q\210p\314 \210\315\211\316\211,\316-.\317 \210\320\321!\210+\211/\322\323\324\325!\326H\327!\262\203F\330\202G\331#!\210\322\323\332\211\326H\333JW\262\262\204d0=\203h\334\202w\211:\262\203u\335\202w0=\203\203\336\202\204\330#!\210\203\222\322\323\337\"!\2101\211\211:\262?\206\261\211\211@\340=\203\254\211AA?\202\257\341!\262\262\203\337\322\342!\210\343 \315:\203\327@\262\322\344!!\210\322\345!\210A\262\202\275\266\346 \210\202\343\322\347!\210\322\350!\210\351\3521#\353!\210)\266\202\207" [sgml-current-tree sgml-dtd-info sgml-current-shortmap default-directory buffer-read-only buffer-file-name sgml-parse-to-here sgml-element-model sgml-lookup-shortref-name 4 get-buffer-create "*Tags*" kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook princ format "Current element: %s %s\n" sgml-element-name 0 fboundp "" "[UNDEFINED]" "Element content: %s %s\n" 3 "mixed" "element" "[ANY]" "Current short reference map: %s\n" normal-state sgml-final-and "Valid end-tags : " sgml-current-list-of-endable-eltypes sgml-end-tag-of " " terpri "Current element can not end here\n" "Valid start-tags\n" sgml-print-valid-tags "In current element:" internal-temp-output-buffer-show buffer-undo-list inhibit-modification-hooks inhibit-read-only standard-output sgml-any sgml-current-state] 12 (#$ . 12364) nil]) #@57 (fn PROMPT TREE STATE &optional EXCLUDE OMITTED-STAG) (defalias 'sgml-print-valid-tags #[1283 "\211:\262\204\301\302\303#!\207\304!\211\305\306!\"\244\307H\310\311H\"\203A@>\204:@C\244\262A\262\202(\211\203S\305@\"\262\211A\262\202A\312\313\"\262\314 \"\210\203\213A\204\213\315@\"\316\317H!\203\212\320\302\321\322!\"\323!\310  \"\324%\210\210?\205\327\211\211:\262?\206\257\211\211@\325=\203\252\211AA?\202\255\326!\262\262\205\327\327\317H!\262\205\327\320\302\321\330 !\" \331H\n\332H\310\n\"$\207" [sgml-pcdata-token princ format "%s (in %s)\n" sgml-required-tokens delq sgml-optional-tokens 8 append 7 sort string-lessp sgml-print-list-of-tags sgml-fake-open-element sgml-eltype-stag-optional 0 sgml-print-valid-tags "If omitting %s:" sgml-start-tag-of sgml-element-model omitted-stag normal-state sgml-final-and sgml-eltype-etag-optional sgml-end-tag-of 5 9] 17 (#$ . 13883)]) #@20 (fn PROMPT LIST) (defalias 'sgml-print-list-of-tags #[514 "\211\205J\300!\210G\301 S\302\211:\203D@\262\303!\262\304G\305#\262Y\2035\211G\305\\\262\306 \210\300\307!\210\300!\210A\262\202\266\306 \266\202\207" [princ frame-width nil sgml-start-tag-of + 2 terpri " "] 11 (#$ . 14849)]) #@33 (fn EL &optional MARKUP-TYPE) (defalias 'sgml-show-context-standard #[513 "\301!\302\303\203\302\304\"\2020\211\305H\306JW\262\262\203#\307\2020\211:\262\204/\2020\310=\203:\311\202>\312!#\207" [sgml-top-tree sgml-element-model format "%s %s" "%s" 0 3 "#PCDATA" "" "in empty context" sgml-element-context-string] 9 (#$ . 15166)]) #@33 (fn EL &optional MARKUP-TYPE) (defalias 'sgml-show-context-backslash #[513 "\300\301!\204\302!B\262\303H\262\202\304\305\306#\207" [nil sgml-off-top-p sgml-element-gi 5 mapconcat sgml-general-insert-case "\\"] 7 (#$ . 15527)]) #@79 Display where the cursor is in the element hierarchy. (fn &optional ELEMENT) (defalias 'sgml-show-context #[256 "\302\303\206 \304 ?\205 \"\"\207" [sgml-show-context-function sgml-markup-type message "%s" sgml-last-element] 6 (#$ . 15773) nil]) #@43 Display what element is under the cursor. (defalias 'sgml-what-element #[0 "``= \205\f\303 \"\304b\210\305!\262\211\204\306\307!\210\310\311\n=\203)\312\202J`\313!W\2035\314\202J`\315!Y\203A\316\202J\203I\317\202J\320\321!#\207" [sgml-rs-ignore-pos sgml-current-shortmap sgml-top-tree sgml-deref-shortmap nil sgml-find-element-of cl--assertion-failed (not (null el)) message "%s %s" "outside document element" sgml-element-stag-end "start-tag" sgml-element-etag-start "end-tag" "shortref" "content" sgml-element-context-string] 9 (#$ . 16031) nil]) #@12 (fn OBJ) (defalias 'sgml-coerce-element-type #[257 "\211;\203\f\300\301!!\262\207" [sgml-lookup-eltype sgml-general-case] 4 (#$ . 16607)]) #@16 (fn ELEMENT) (defalias 'sgml-break-brefore-stag-p #[257 "\300!\301N\207" [sgml-coerce-element-type break-brefore-stag] 3 (#$ . 16757)]) #@16 (fn ELEMENT) (defalias 'sgml-break-after-stag-p #[257 "\300!\301N\207" [sgml-coerce-element-type break-after-stag] 3 (#$ . 16902)]) (defalias 'sgml-insert-break #[0 "\300\301x\210n\203\302\303!\205\304 \207\305c\207" [" " nil looking-at "^\\s-*$" fixup-whitespace "\n"] 2]) #@320 Insert a tag, reading tag name in minibuffer with completion. If sgml-leave-point-after-insert is t, the point is left after the inserted tag(s), unless the element has some required content. If sgml-leave-point-after-insert is nil the point is left after the first tag inserted. (fn TAG &optional SILENT NO-NL-AFTER) (defalias 'sgml-insert-tag #[769 "\301`!\210\203\f\302\303!\210\304\305 !\204*\306\307x\210n\203'\310\311!\203*\312 \210\202*\313c\210c\210\314 \210\211\204F\212\304\305 !\204El\204E\212\313c\210))\206L\315 \207" [sgml-markup-type sgml-find-context-of cl--assertion-failed (null sgml-markup-type) sgml-element-data-p sgml-parse-to-here " " nil looking-at "^\\s-*$" fixup-whitespace "\n" sgml-indent-line sgml-show-context] 5 (#$ . 17191) (byte-code "\302\303\304 \305\306\307%)C\207" [sgml-namecase-general completion-ignore-case completing-read "Tag: " sgml-completion-table nil t "<"] 6)]) (defvar sgml-new-attribute-list-function 'sgml-default-asl) #@321 Reads element name from minibuffer and inserts start and end tags. If sgml-leave-point-after-insert is t, the point is left after the inserted tag(s), unless the element has some required content. If sgml-leave-point-after-insert is nil the point is left after the first tag inserted. (fn NAME &optional AFTER SILENT) (defalias 'sgml-insert-element #[769 "\306\211\211\205\323\307\232?\205\323\310!\203\311 \210\312\313!\314\"\210 \2030\315!\2030\316u\210\2023\317u\210\320`!\262\321\n!\322!\"\210\323`!\262 \203V\315!\203V\324u\210\202Y\325u\210\326!\203b\311 \210\327!\204\322 \203\255\f\211:\262\203\255\306\330\f!\211\262\203\230\211A\204\230\331@\332\211#\262\206\220\211\262\333 \210\202u\211\203\254\334c\210 \203\254\335\336\"c\210\337 \210\210\206\262`\262\"\203\274\334c\210\312\340!\314\"\210\204\313b\210\204\322\341 \210)\207" [sgml-show-warnings sgml-xml-p sgml-new-attribute-list-function sgml-auto-insert-required-elements sgml-current-state sgml-insert-missing-element-comment nil "" sgml-break-brefore-stag-p sgml-insert-break sgml-insert-tag sgml-start-tag-of silent sgml-check-empty -2 -1 sgml-find-element-of sgml-insert-attributes sgml-element-attlist sgml-find-context-of 2 1 sgml-break-after-stag-p sgml-element-empty sgml-required-tokens sgml-insert-element t sgml-parse-to-here "\n" format "" sgml-indent-line sgml-end-tag-of sgml-show-context sgml-insert-end-tag-on-new-line] 10 (#$ . 18184) (byte-code "\301\302!D\207" [sgml-leave-point-after-insert sgml-read-element-name "Element: "] 2)]) #@16 (fn ELEMENT) (defalias 'sgml-default-asl #[257 "\300!\301\211:\203/@\262\302\303!\304\"\203(\305\306!\307\310!\301#\"B\262A\262\202\211\237\207" [sgml-element-attlist nil sgml-default-value-type-p sgml-attdecl-default-value REQUIRED sgml-make-attspec sgml-attdecl-name sgml-read-attribute-value sgml-element-name] 10 (#$ . 19784)]) #@92 Reads element name from minibuffer and inserts start and end tags. (fn ELEMENT START END) (defalias 'sgml-tag-region #[771 "\212\205\300\232?\205\211b\210\301!c\210b\210\302\303!!)\207" ["" sgml-end-tag-of sgml-insert-tag sgml-start-tag-of] 6 (#$ . 20141) (byte-code "\212\300 b\210\301\302!)\300 \303 E\207" [region-beginning sgml-read-element-name "Tag region with element: " region-end] 3)]) #@138 Insert the attributes with values AVL and declarations ATTLIST. AVL should be a assoc list mapping symbols to strings. (fn AVL ATTLIST) (defalias 'sgml-insert-attributes #[514 "\306\211\211\211\306:\203\300@\262\307!\262\310 \"\243\262\311!\262\312!\262\313!\262\204X\314\315\"\203>\316\262\202X\204J \204J\n\203N \203X:\203X\317!\262\203u\320=\204u\321=\203p\322!\262\202u\313!\262\203\271:\203\224\f\323=\203\224 \204\214\n\203\224\317!\232\204\271\f\203\256\n\203\256\324!\325!\235\203\256\326\261\210\202\271\326\327\330!\261\210A\262\202\266 \205\310 \207" [sgml-xml-p sgml-omittag sgml-shorttag sgml-insert-defaulted-attributes sgml-minimize-attributes auto-fill-function nil sgml-attspec-name sgml-lookup-attspec sgml-attdecl-declared-value sgml-attdecl-default-value sgml-general-insert-case sgml-default-value-type-p REQUIRED "" sgml-default-value-attval CDATA ENTITY sgml-entity-insert-case max sgml-general-case sgml-declared-value-token-group " " "=" sgml-quote-attribute-value] 13 (#$ . 20553)]) #@71 Add quotes to the string VALUE unless minimization is on. (fn VALUE) (defalias 'sgml-quote-attribute-value #[257 "\302\204 \203\303\304\"\204 \303\305\"\204\305\262\202 \306\262\211Q\207" [sgml-always-quote-attributes sgml-shorttag "" string-match "\\`[-.A-Za-z0-9]+\\'" "\"" "'"] 5 (#$ . 21643)]) (defalias 'sgml-completion-table #[0 "\303 \210\203 \304\305!\210 \211:\262\204 \n=\203&\306\307\310\311 \"\307\312\313 \"\"\207\314\315 \"\210\316\207" [sgml-markup-type sgml-current-state sgml-any sgml-parse-to-here error "No tags allowed" append mapcar #[257 "\300!B\207" [sgml-end-tag-of] 3 "\n\n(fn X)"] sgml-current-list-of-endable-eltypes #[257 "\300!B\207" [sgml-start-tag-of] 3 "\n\n(fn X)"] sgml-current-list-of-valid-eltypes sgml-message "%s" nil] 5]) (defalias 'sgml-element-endable-p #[0 "\303 \210 =?\205*\n\211\211:\262?\206(\211\211@\304=\203#\211AA?\202&\305!\262\262\207" [sgml-current-tree sgml-top-tree sgml-current-state sgml-parse-to-here normal-state sgml-final-and] 4]) #@46 Insert end-tag for the current open element. (defalias 'sgml-insert-end-tag #[0 "\304 \210 =\203 \305\306!\207\n\211\211:\262?\206+\211\211@\307=\203&\211AA?\202)\310!\262\262\2044\305\311!\207 \203H\312!\204H\313 \210n\204H\314c\210n\315H\316=\203U\317\202X\320!c\210\205_\321 \207" [sgml-current-tree sgml-top-tree sgml-current-state sgml-indent-step sgml-parse-to-here sgml-error "No open element" normal-state sgml-final-and "Can`t end element here" sgml-element-data-p delete-horizontal-space "\n" 12 t "/" sgml-end-tag-of sgml-indent-line] 4 (#$ . 22676) "*"]) #@39 (fn NAME ASL ATTLIST &optional NET) (defalias 'sgml-insert-start-tag #[1027 "\301\302!\261\210\303\"\210\203\304!\203\305\262\211\203)\203%\306\202*\307\202*\310c\207" [sgml-xml-p "<" sgml-general-insert-case sgml-insert-attributes sgml-check-empty t "/>" "/" ">"] 7 (#$ . 23268)]) #@20 (fn ELEMENT ASL) (defalias 'sgml-change-start-tag #[514 "\302!\303!\211\2044\2034\304\305\"\211\203/\211@\306\"\204(\307\310\311#B\262A\266\202\202\210\211\237\262\312\313H!\204@\314\315!\210\316!b\210\317\320H!\210\321 \203Z\322!\202`\323H\324=$\207" [sgml-dtd-less sgml-xml-p sgml-element-gi sgml-element-attlist mapcar car assoc sgml-make-attdecl CDATA REQUIRED sgml-bpos-p 1 cl--assertion-failed (sgml-bpos-p (sgml-element-stag-epos element)) sgml-element-start delete-char 3 sgml-insert-start-tag sgml-element-empty 12 t] 10 (#$ . 23574)]) #@24 (fn PROMPT CURVALUE) (defalias 'psgml-edit--read-ids #[514 "\305\306 \307 \"\210\310\305\311#\210\211\262\312\313\314\f\311\211\205&\211GB%\305#+\207" [sgml-namecase-general crm-local-completion-map crm-separator completion-ignore-case psgml-ids-seen " " make-sparse-keymap set-keymap-parent define-key nil mapconcat identity completing-read-multiple] 11 (#$ . 24157)]) #@203 Return the attribute value read from user. ATTDECL is the attribute declaration for the attribute to read. CURVALUE is nil or a string that will be used as default value. (fn ATTDECL ELEMENT CURVALUE) (defalias 'sgml-read-attribute-value #[771 "\204\303\304!\210\305!\306!\307!\310!\311>\205\312\313!W\203'\314\2022\203/\315\2022\316!\317\320\n \203M \321=\204M\317\322 \"\202N\323%\324\204X\203m \325\326\327 \206e\"\324\330$)\202|\203y\331\n\"\202|\332!\262\203\216\211\323\232\203\216\202\217\211\207" [psgml-ids-seen sgml-namecase-general completion-ignore-case cl--assertion-failed attdecl sgml-attdecl-name sgml-attdecl-declared-value sgml-declared-value-token-group sgml-declared-value-notation (IDREF IDREFS) 0 hash-table-count "token" "NOTATION" symbol-name format "Value for %s in %s (%s%s): " IDREFS " Default: %s" "" nil completing-read mapcar list t psgml-edit--read-ids read-string] 17 (#$ . 24549)]) #@16 (fn ATTLIST) (defalias 'sgml-non-fixed-attributes #[257 "\211\300\211:\203!@\262\301\302\303!\"\204B\262A\262\202\211\237\207" [nil sgml-default-value-type-p FIXED sgml-attdecl-default-value] 8 (#$ . 25524)]) #@91 Read attribute name and value from minibuffer and insert attribute spec. (fn NAME VALUE) (defalias 'sgml-insert-attribute #[514 ";\204 \300\301!\210\211\203\211;\204\300\302!\210\303 \304\"\305!B`\306!W\307\"\210\211\2050\310u\207" [cl--assertion-failed (stringp name) (or (null value) (stringp value)) sgml-find-attribute-element sgml-make-attspec sgml-element-attribute-specification-list sgml-element-stag-end sgml-change-start-tag -1] 8 (#$ . 25755) (byte-code "\303 \304\305\306\307\310\n\203\311H\202\312\313!!\"\314\n?$)!\211\315\n\203+C\2022\316\313!\"\317!\320\"#D\207" [sgml-namecase-general completion-ignore-case sgml-dtd-less sgml-find-attribute-element sgml-general-case completing-read "Attribute name: " mapcar #[257 "\300!C\207" [sgml-attdecl-name] 3 "\n\n(fn A)"] 16 sgml-non-fixed-attributes sgml-element-attlist nil sgml-read-attribute-value sgml-lookup-attdecl sgml-element-name sgml-element-attval] 9)]) #@133 Split the current element at point. If repeated, the containing element will be split before the beginning of then current element. (defalias 'sgml-split-element #[0 " =\203 \nT\202\f\304\305`!\306 \n\211S\211\262\304Y\203*\307!b\210\310H\262\202\210\311H\203|\311H\312!9\203@\313\202w@\314=\203s\211A@\236\206T\211AA\236\211\205n\211A\211@\314=\203e\211\202l\315A@#\262\262\202w\316\"\266\202\204\203\317\320\312!\"\210\321 \210\322c\210\323\324!\325\"\210\326\313w\210\327 \210\n\304V\203\240\211b\210 \310H\211\262=\206\261\330\331\312!\"\207" [this-command last-command sgml-split-level sgml-top-tree 0 sgml-find-context-of point-marker sgml-element-start 5 9 sgml-element-name nil normal-state sgml-next-sub-and sgml-get-and-move sgml-error "The %s element can't be split" sgml-insert-end-tag 10 sgml-insert-tag sgml-start-tag-of silent " \n" sgml-indent-line sgml-message "Repeat the command to split the containing %s element"] 10 (#$ . 26723) "*"]) #@72 Insert a DTD declaration from the sgml-custom-dtd alist. (fn DOCTYPE) (defalias 'sgml-custom-dtd #[257 "\301\"\302A@AA\"\207" [sgml-custom-dtd assoc sgml-doctype-insert] 5 (#$ . 27729) (byte-code "\301\302\303\304$C\207" [sgml-custom-dtd completing-read "Insert DTD: " nil t] 5)]) #@63 Insert markup from the sgml-custom-markup alist. (fn MARKUP) (defalias 'sgml-custom-markup #[257 "\301\302\"A@!\207" [sgml-custom-markup sgml-insert-markup assoc] 5 (#$ . 28022) (byte-code "\303\304\n\305\306$)C\207" [sgml-namecase-general completion-ignore-case sgml-custom-markup completing-read "Insert Markup: " nil t] 5)]) #@374 Pop up a menu with valid tags and insert the chosen tag. If the variable sgml-balanced-tag-edit is t, also inserts the corresponding end tag. If sgml-leave-point-after-insert is t, the point is left after the inserted tag(s), unless the element has some required content. If sgml-leave-point-after-insert is nil the point is left after the first tag inserted. (fn EVENT) (defalias 'sgml-tags-menu #[257 "\302 \303 \210\304=\203\305!\202A\306\204 \203\307\202 \310\"\211?\206?\2032\311`#\202? \203<\312!\202?\313!\262\207" [sgml-markup-type sgml-balanced-tag-edit sgml-mouse-region sgml-parse-to-here start-tag sgml-attrib-menu sgml-menu-ask element tags sgml-tag-region sgml-insert-element sgml-insert-tag] 7 (#$ . 28362) "*e"]) #@155 Pop up a menu with valid elements and insert choice. If sgml-leave-point-after-insert is nil the point is left after the first tag inserted. (fn EVENT) (defalias 'sgml-element-menu #[257 "\300\301\"\211\205 \302!\207" [sgml-menu-ask element sgml-insert-element] 4 (#$ . 29123) "*e"]) #@14 (fn EVENT) (defalias 'sgml-add-element-menu #[257 "\300\301\"\211\205\f\302\303\"\207" [sgml-menu-ask add-element sgml-add-element-to-element nil] 5 (#$ . 29418) "*e"]) #@68 Pop up a menu with valid start-tags and insert choice. (fn EVENT) (defalias 'sgml-start-tag-menu #[257 "\300\301\"\211\205 \302!\207" [sgml-menu-ask start-tag sgml-insert-tag] 4 (#$ . 29598) "*e"]) #@66 Pop up a menu with valid end-tags and insert choice. (fn EVENT) (defalias 'sgml-end-tag-menu #[257 "\300\301\"\211\205 \302!\207" [sgml-menu-ask end-tag sgml-insert-tag] 4 (#$ . 29806) "*e"]) #@87 Pop up a menu with valid elements and tag current region with the choice. (fn EVENT) (defalias 'sgml-tag-region-menu #[257 "\300\301\"\211\205\302\303 \304 #\207" [sgml-menu-ask element sgml-tag-region region-beginning region-end] 6 (#$ . 30008) "*e"]) #@19 (fn EVENT TYPE) (defalias 'sgml-menu-ask #[514 "\303 \210\304\305\306!!\307=\203\310\311\312\313`!!\"\262\202L\204L\314=\2030\310\306\315 \"\262\202L\316=\204=\310\317\320 \"\262\321=\204L\310\322\315 \"\244\262 \203}\323\n\324H\304\"\211\203u\211@\2119\203n\211>\204n\306!B\262A\266\202\202V\325\326BB\262\210\204\206\327\330\"\210\331\310\332\"#\211\325\232\203\232\333\334!\262\211\206\241\335\304!\262\207" [sgml-markup-type sgml-dtd-less sgml-dtd-info sgml-parse-to-here nil capitalize symbol-name add-element mapcar sgml-eltype-name sgml--all-possible-elements sgml-find-context-of element sgml-current-list-of-valid-eltypes start-tag sgml-end-tag-of sgml-current-list-of-endable-eltypes end-tag sgml-start-tag-of append 1 "Any " "--" error "No valid %s at this point" sgml-popup-menu #[257 "\211B\207" [] 3 "\n\n(fn X)"] sgml-read-element-name "Element: " message] 10 (#$ . 30272)]) #@14 (fn EVENT) (defalias 'sgml-entities-menu #[257 "\301 \210\302\303\304\305\306\307H\310#\311\"\"\312\204\313\314!\210\315\316#\262\211\205)\317\320\261\207" [sgml-dtd-info sgml-need-dtd mapcar #[257 "\211B\207" [] 3 "\n\n(fn X)"] sort sgml-map-entities sgml-entity-name 3 t string-lessp nil error "No entities defined" sgml-popup-menu "Entities" "&" ";"] 8 (#$ . 31213) "*e"]) #@335 Insert string DOCTYPE (ignored if nil) and set variables in &rest VARS. VARS should be a list of variables and values. For backward compatibility a single string instead of a variable is assigned to sgml-default-dtd-file. All variables are made buffer local and are also added to the buffers local variables list. (fn DOCTYPE VARS) (defalias 'sgml-doctype-insert #[514 "\203n\204 \301c\210l\204\301c\210\302u\210\303!\210\211\203M\211@;\2030\304\305@\"\210\211A\262\202\211@\203E\304@A@\"\210\211AA\262\202\211AA\262\202\306\211\207" [sgml-top-tree "\n" -1 sgml-insert-markup sgml-set-local-variable sgml-default-dtd-file nil] 5 (#$ . 31609)]) #@114 Pop up a menu of the attributes of the current element (or the element with start-tag before point). (fn EVENT) (defalias 'sgml-attrib-menu #[257 "\300\301 !\302\303#\207" [sgml-make-attrib-menu sgml-find-attribute-element sgml-popup-multi-menu "Attributes"] 6 (#$ . 32285) "e"]) #@11 (fn EL) (defalias 'sgml-make-attrib-menu #[257 "\303\304!!\211\2049\2039\305 \306\307\310\311\203\312H\202%\303\304!!\"\313?$)!\211\2038\314\315\313#C\262\210\211\204A\316\317!\210\211\313\211\211\211\211:\203\343@\262\320!\262\321!\262\322\323!!\206i\324\323!!\262\320!\203\227\313\211:\203\220@\262\325 EDB\262A\262\202u\211\237\266\203\202\262\326\325\320!\327\330\nD\330\331!D\332\f\"FEDC\333\334\"?\205\326\335\333\313\"\203\316\336\337\340!\"\202\317\341\325\313EDD\244BB\262A\262\202G\211\237\266\206\207" [sgml-dtd-less sgml-namecase-general completion-ignore-case sgml-non-fixed-attributes sgml-element-attlist sgml-general-case completing-read "Attribute name: " mapcar #[257 "\300!C\207" [sgml-attdecl-name] 3 "\n\n(fn A)"] 16 nil sgml-make-attdecl CDATA error "No non-fixed attributes for element" sgml-attdecl-name sgml-attdecl-default-value sgml-declared-value-token-group sgml-attdecl-declared-value sgml-declared-value-notation sgml-insert-attribute "Set attribute value" sgml-read-attribute-value quote sgml-element-name sgml-element-attval sgml-default-value-type-p REQUIRED "--" format "Default: %s" sgml-default-value-attval "#IMPLIED"] 18 (#$ . 32574)]) #@374 Pop up a menu with valid tags and insert the choosen tag. If the variable sgml-balanced-tag-edit is t, also inserts the corresponding end tag. If sgml-leave-point-after-insert is t, the point is left after the inserted tag(s), unless the element has som required content. If sgml-leave-point-after-insert is nil the point is left after the first tag inserted. (fn EVENT) (defalias 'sgml-right-menu #[257 "\302 \303 \210\304=\203\305!\202A\306\204 \203\307\202 \310\"\211?\206?\2032\311`#\202? \203<\312!\202?\313!\262\207" [sgml-markup-type sgml-balanced-tag-edit sgml-mouse-region sgml-parse-to-here start-tag sgml-right-stag-menu sgml-menu-ask element tags sgml-tag-region sgml-insert-element sgml-insert-tag] 7 (#$ . 33832) "*e"]) #@14 (fn EVENT) (defalias 'sgml-right-stag-menu #[257 "\300 \3011 \302!0\202\210\303\304\305\306\307!!\210\310 \"\311\303\211:\2037@\262\312DDB\262A\262\202\211\237\266\203B\313\314\315\316BBB#\266\202\207" [sgml-find-attribute-element (error) sgml-make-attrib-menu nil mapcar sgml-eltype-name sgml-find-context-of sgml-element-start sgml-current-list-of-valid-eltypes "Change To" sgml-change-element-name sgml-popup-multi-menu "Start Tag" ("Action" ("Edit attributes" (sgml-edit-attributes)) ("Normalize" (sgml-normalize-element)) ("Fill" (sgml-fill-element (sgml-find-context-of (point)))) ("Splice" (sgml-untag-element)) ("Fold" (sgml-fold-element))) ("--" "--")] 12 (#$ . 34597)]) #@16 (fn ELEMENT) (defalias 'sgml-element-fillable #[257 "\211\211\300H\301JW\262\262\205\302\303\"?\207" [0 3 sgml-element-appdata nofill] 5 (#$ . 35307)]) #@145 Fill biggest enclosing element with mixed content. If current element has pure element content, recursively fill the subelements. (fn ELEMENT) (defalias 'sgml-fill-element #[257 "\300\301!\210\302!\203\302\303H!\203\211\303H\262\202\n\304!\210\305\306!\207" [message "Filling..." sgml-element-fillable 5 sgml-do-fill sgml-message "Done"] 4 (#$ . 35474) (byte-code "\300`!C\207" [sgml-find-element-of] 2)]) #@16 (fn ELEMENT) (defalias 'sgml-do-fill #[257 "\203 \301!b\210\302\303!\210\212\304!\203\205\305\306!\305\307!b\210l\203%\310u\210`\262\203V\304!\204N\301!BB\262\301!b\210\311!\210\312`!\262\313!\262\314!\262\202(b\210n\203`\315 \210\316\317\312\301!!!\"\210\211\205\200\316@@@A\"\210\211A\262\202l\266\203\202\261\306!\211\205\257\317!b\210\315 \210\301!b\210\315 \210\312`!\262\311!\210\314\312`!!\262\202\210\262)\207" [sgml-debug sgml-element-start sit-for 0 sgml-element-fillable nil sgml-element-content sgml-element-stag-end 1 sgml-do-fill sgml-find-element-of sgml-element-end sgml-element-next sgml-indent-line sgml-fill-region sgml-element-etag-start] 10 (#$ . 35896)]) #@18 (fn START END) (defalias 'sgml-fill-region #[514 "\301\302!\210\212\211b\210\303\304x\210\305\306!\210`W\203#\307\310!\210\311 \210\312c\210\202\f\306\210\304\211\211\211?\205\202iV\205\202i\262`\262\313T!\210\314\304x\210`\262\315\304x\210n\203ib\210\316\317\320#\203f\212\315\304w\210`\262)\202i\320\262\204*`|\210\321 \210\322 \210\306\210iY\262\202*\266\204)\207" [fill-column sgml-message "Filling..." " \n" nil beginning-of-line 1 delete-char -1 delete-horizontal-space " " move-to-column "^ \n" " " re-search-forward "[ ]" t newline sgml-indent-line] 10 (#$ . 36626)]) (defvar sgml-start-attributes nil) (defvar sgml-main-buffer nil) (defvar sgml-attlist nil) #@75 Edit attributes of current element. Editing is done in a separate window. (defalias 'sgml-edit-attributes #[0 "\304 \305\306H!\204\307\310!\210\311 \210\312!b\210\313 \314!p \315\316\"!\210\317\302!\210\317\300!\210\317\303!\210\317\301!\210\211\211\266\205\207" [sgml-always-quote-attributes sgml-xml-p sgml-start-attributes sgml-main-buffer sgml-find-attribute-element sgml-bpos-p 1 error "Element's start-tag is not in the buffer" push-mark sgml-element-start point-marker sgml-element-attribute-specification-list switch-to-buffer-other-window sgml-attribute-buffer make-local-variable] 10 (#$ . 37331) nil]) #@15 (fn ELTYPE) (defalias 'sgml-effective-attlist #[257 "\300\301N\302N\206 \303\211\2037\211@\304=\2047\305@\"\211\203'\211B\262\202/\306\307@#\210\210\211A\262\202 \211@\304=\203[\203[\305\310@!\"\211\204S@B\262\210A\262\202>\237\207" [nil attlist attnames (*) * sgml-lookup-attdecl message "Attnames specefication error: no %s attribute in %s" sgml-attdecl-name] 9 (#$ . 37967)]) #@20 (fn ELEMENT ASL) (defalias 'sgml-attribute-buffer #[514 "\302\303\304\305!\211\262\203\306!\210\307!\262r\211q\210\310 \210\311 \210\312\301!\210\313\314H!\315\316\317\320!\321!#\210 \211\203\231\211@\322!\323!\324\"\315\325\326#\210\327\330\"\203_\315\331\332\333!#\210\202\215\211\204|\334>\204o\333!\203|\315\335\336\"\210\315\337\340\"\210\202\215\315\341\336\"\210\211\203\215\315\303\342\343!#\210\344!\266A\266\202\2026\210\315\345\346\"\210eb\210\347 \210*\207" [inhibit-read-only sgml-attlist "*Edit attributes*" nil t get-buffer kill-buffer get-buffer-create erase-buffer sgml-edit-attrib-mode make-local-variable sgml-effective-attlist 0 sgml-insert (read-only t) substitute-command-keys "<%s -- Edit values and finish with \\[sgml-edit-attrib-finish], abort with \\[sgml-edit-attrib-abort] --\n" sgml-element-name sgml-attdecl-name sgml-attdecl-default-value sgml-lookup-attspec (read-only t category sgml-form) " %s =" sgml-default-value-type-p FIXED (read-only t category sgml-fixed) " #FIXED %s" sgml-default-value-attval (IMPLIED CONREF CURRENT) (read-only t category sgml-form rear-nonsticky (read-only category)) " " (category sgml-default rear-nonsticky (category)) "#DEFAULT" (read-only t category sgml-form rear-nonsticky (read-only category)) "%s" sgml-attspec-attval sgml-insert-attdecl-comment (read-only 1) ">" sgml-edit-attrib-next] 14 (#$ . 38383)]) #@16 (fn ATTDECL) (defalias 'sgml-insert-attdecl-comment #[257 "\300!\301!`\302c\210\303!\203\304\303!!\210\2021\305!\203+\306c\210\304\305!!\210\2021\307\310\311#\210\312c\210\313\314\311\315!\206D\316\317!\226P\"\320\321\322\323%\210\324c\210\325`\326#\207" [sgml-attdecl-declared-value sgml-attdecl-default-value "\n -- " sgml-declared-value-token-group sgml-insert-token-group sgml-declared-value-notation "NOTATION " sgml-insert nil "%s" ": " insert-text-button format sgml-default-value-attval "#" symbol-name action sgml-insert-selected-default follow-link t " --\n" add-text-properties (read-only 1 rear-nonsticky nil)] 10 (#$ . 39804)]) #@15 (fn BUTTON) (defalias 'sgml-insert-selected-token #[257 "\300!\301!b\210\302 \210\211c\207" [button-label button-start sgml-edit-attrib-clear] 4 (#$ . 40470)]) #@15 (fn BUTTON) (defalias 'sgml-insert-selected-default #[257 "\300!b\210\301 \207" [button-start sgml-edit-attrib-default] 3 (#$ . 40640)]) #@13 (fn LIST) (defalias 'sgml-insert-token-group #[257 "\300c\210\301\211\203)\211@\204\302c\210\303\262\304\305\"\306\307\310\311\301%\266A\266\202\202\266\312c\207" ["(" t " | " nil format "%s" insert-text-button action sgml-insert-selected-token follow-link ")"] 11 (#$ . 40786)]) (defvar sgml-edit-attrib-mode-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\313#\210\301\314\315#\210\211\207" [make-sparse-keymap define-key "" sgml-edit-attrib-finish "" sgml-edit-attrib-default " " sgml-edit-attrib-abort "" sgml-edit-attrib-field-start "" sgml-edit-attrib-field-end " " sgml-edit-attrib-next] 5)) (defvar sgml-attr-default-keymap (byte-code "\301 \302\"\210\303\304\305#\210\211\207" [sgml-edit-attrib-mode-map make-sparse-keymap set-keymap-parent define-key [remap self-insert-command] sgml-attr-clean-and-insert] 5)) (put 'sgml-default 'local-map sgml-attr-default-keymap) (defvar sgml-edit-attrib-mode-hook nil) (byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [sgml-edit-attrib-mode-hook variable-documentation put "Hook run after entering SGML edit attributes mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp sgml-edit-attrib-mode-map definition-name sgml-edit-attrib-mode] 4) (defvar sgml-edit-attrib-mode-map (make-sparse-keymap)) (byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\322#\207" [sgml-edit-attrib-mode-abbrev-table sgml-edit-attrib-mode-map variable-documentation put purecopy "Keymap for `sgml-edit-attrib-mode'." boundp sgml-edit-attrib-mode-syntax-table definition-name sgml-edit-attrib-mode (lambda (#1=#:def-tmp-var) (defvar sgml-edit-attrib-mode-syntax-table #1#)) make-syntax-table "Syntax table for `sgml-edit-attrib-mode'." (lambda (#1#) (defvar sgml-edit-attrib-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `sgml-edit-attrib-mode'." derived-mode-parent text-mode] 5) #@556 Major mode to edit attribute specification list. \ Use \[sgml-edit-attrib-next] to move between input fields. Use \[sgml-edit-attrib-default] to make an attribute have its default value. To abort edit kill buffer (\[kill-buffer]) and remove window (\[delete-window]). To finish edit use \[sgml-edit-attrib-finish]. \{sgml-edit-attrib-mode-map} In addition to any hooks its parent mode `text-mode' might have run, this mode runs the hook `sgml-edit-attrib-mode-hook', as the final or penultimate step during initialization. (defalias 'sgml-edit-attrib-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315 !\204'\316 \317 \"\210\320\f!\211\2035\211\321 =\203;\322\f\323 \"\210\210\324 \325\"\204R =\204R\326 \325C#\210\327 !\210\330\f!\210 )\331\332!\207" [delay-mode-hooks major-mode mode-name sgml-edit-attrib-mode-map sgml-edit-attrib-mode-syntax-table sgml-edit-attrib-mode-abbrev-table make-local-variable t text-mode sgml-edit-attrib-mode "SGML edit attributes" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table run-mode-hooks sgml-edit-attrib-mode-hook local-abbrev-table] 5 (#$ . 43043) nil]) #@50 Abort the attribute editor, removing the window. (defalias 'sgml-edit-attrib-abort #[0 "p\301!\210\302!\210\303!\205\304\305!!\210\211b\207" [sgml-start-attributes delete-windows-on kill-buffer markerp switch-to-buffer marker-buffer] 5 (#$ . 44395) nil]) #@64 Finish editing and insert attribute values in original buffer. (defalias 'sgml-edit-attrib-finish #[0 "p\301 \302!\205$\303!\210\304\305!!\210\306!\210\211b\210\307!\310\"\262\207" [sgml-start-attributes sgml-edit-attrib-specification-list markerp delete-windows-on switch-to-buffer marker-buffer kill-buffer sgml-find-element-of sgml-change-start-tag] 7 (#$ . 44663) nil]) (defalias 'sgml-edit-attrib-specification-list #[0 "eb\210\304y\210p\305 p\306\307\310\311\312\"\313\"\314$\216\315\203\" \202#\n!\210\306\307\316\311\312!\317\"\304$\216\320 g\321=\204\246\320\211\203g\322\320w\307U\203m\323\320w\307U\203mg\324=\203[\304u\210\202mg\325=\203m\304u\210\202m\326\320w\307U\210\210\327 \210\330u\210\331`\332\"\333>\204\215\334\335@!\336\337@!!\"B\262\340\314!\210l\204\215\331`\341\"\203\215\304y\210\211A\262\2024\266\202*\266\202\207" [sgml-xml-p xml-parser-syntax sgml-parser-syntax sgml-attlist 1 syntax-table make-byte-code 0 "r\301q\210\302\300!)\207" vconcat vector [set-syntax-table] 2 set-syntax-table "p\300q\207" [sgml-last-buffer] nil 62 " " " " 10 13 " \n " sgml-check-nametoken 3 get-text-property category (sgml-default sgml-fixed) sgml-make-attspec sgml-attdecl-name sgml-extract-attribute-value sgml-attdecl-declared-value beginning-of-line read-only] 10]) #@13 (fn TYPE) (defalias 'sgml-extract-attribute-value #[257 "\212\214`\300 \210`}\210eb\210m\204&\301`\302\"\303=\203 \304\305!\210\202\f\305u\210\202\f\211\306=\2049\307ed\310\311$\210eb\210\312 \210eb\210\313\314\315\316#\203Veb\210\313\317\315\316#\203V\320\321!\210\202G\322 *\207" [sgml-edit-attrib-field-end get-text-property category sgml-default delete-char 1 CDATA subst-char-in-region 10 32 delete-horizontal-space search-forward "\"" nil t "'" replace-match "'" buffer-string] 6 (#$ . 45988)]) #@41 Set current attribute value to default. (defalias 'sgml-edit-attrib-default #[0 "\300 \210\212\301\302\303\")\207" [sgml-edit-attrib-clear sgml-insert (category sgml-default rear-nonsticky (category)) "#DEFAULT"] 3 (#$ . 46509) nil]) #@38 Kill the value of current attribute. (defalias 'sgml-edit-attrib-clear #[0 "\301\302 \210\212\303 \210`)\304`\305\306$\210\307\304`S`\310\311$\210)\312`\"\262)\207" [inhibit-read-only (sgml-default) sgml-edit-attrib-field-start sgml-edit-attrib-field-end put-text-property read-only nil t rear-nonsticky (read-only category) kill-region] 6 (#$ . 46749) nil]) #@78 Insert the character you type, after clearing the current attribute. (fn N) (defalias 'sgml-attr-clean-and-insert #[257 "\300 \210\301!\207" [sgml-edit-attrib-clear self-insert-command] 3 (#$ . 47119) "p"]) #@47 Go to the start of the attribute value field. (defalias 'sgml-edit-attrib-field-start #[0 "\300\301\302!\210\303`\304\"\305=\204\301\306!\210\202\303`\307\"\310=\205<\311`\307\"\262\211\204,\312\313!\210\314!\2046\315\316!\210\211b\210\202\207" [nil beginning-of-line 1 get-text-property read-only t 0 category sgml-form next-single-property-change error "No attribute value here" number-or-marker-p cl--assertion-failed (number-or-marker-p start)] 4 (#$ . 47334) nil]) #@45 Go to the end of the attribute value field. (defalias 'sgml-edit-attrib-field-end #[0 "\300 \210l\203\301`T\302\"\203`\202\303`\302\"\304!\204!\305\306!\210\211b\207" [sgml-edit-attrib-field-start get-text-property read-only next-single-property-change number-or-marker-p cl--assertion-failed (number-or-marker-p end)] 3 (#$ . 47821) nil]) #@31 Move to next attribute value. (defalias 'sgml-edit-attrib-next #[0 "\301`\302\"\303=\203 \304\305!\210\306\203\307\202\310\311\303#\206eb\207" [sgml-have-re-char-clases get-text-property read-only t beginning-of-line 1 search-forward-regexp "^ *[-_.:[:alnum:]]+ *= ?" "^ *[-_.:A-Za-z0-9]+ *= ?" nil] 4 (#$ . 48175) nil]) (defconst sgml-tag-regexp (byte-code "\203\301\207\302\207" [sgml-have-re-char-clases "\\(\\|?\\)" "\\(\\|?\\)"] 1)) #@32 (fn ACTION &optional ATTR-P) (defalias 'sgml-operate-on-tags #[513 "\211\203\305\202 \306\306\307 \310\211\310\311\312\313\314\315!\316\"\305$\216\212eb\210\317 \320\310#\205q\321=\203S\322\312\224T\305\224\"\227\204B\211\f\235\204O\323\224\225\324\325\326F#\210\210\202j\327=\203d\330\312\224\312\225\331#\210\202j\332\333\"\210T\262\202\"-\262\207" [buffer-undo-list inhibit-read-only inhibit-modification-hooks sgml-tag-regexp sgml-exposed-tags 2 1 buffer-modified-p t make-byte-code 0 "\300?\205\301\302!\207" vconcat vector [restore-buffer-modified-p nil] re-search-forward nil hide buffer-substring-no-properties add-text-properties invisible rear-nonsticky (invisible face) show remove-text-properties (invisible nil) error "Invalid action: %s"] 14 (#$ . 48793)]) #@26 Hide all tags in buffer. (defalias 'sgml-hide-tags #[0 "\300\301!\207" [sgml-operate-on-tags hide] 2 (#$ . 49601) nil]) #@29 Show hidden tags in buffer. (defalias 'sgml-show-tags #[0 "\300\301!\207" [sgml-operate-on-tags show] 2 (#$ . 49727) nil]) #@50 Hide all attribute specifications in the buffer. (defalias 'sgml-hide-attributes #[0 "\300\301\302\"\207" [sgml-operate-on-tags hide attributes] 3 (#$ . 49856) nil]) #@50 Show all attribute specifications in the buffer. (defalias 'sgml-show-attributes #[0 "\300\301\302\"\207" [sgml-operate-on-tags show attributes] 3 (#$ . 50028) nil]) #@13 (fn NAME) (defalias 'sgml-expand-shortref-to-text #[257 "\305\306\307H\"\211\204\310\311\"\202.\312!\203 \313!\202.\n`|\210\314!\210d\n\nb)\207" [sgml-dtd-info before-change-functions sgml-markup-start sgml-goal sgml-rs-ignore-pos nil sgml-lookup-entity 3 sgml-error "Undefined entity %s" sgml-entity-data-p sgml-expand-shortref-to-entity sgml-entity-insert-text] 6 (#$ . 50200)]) #@13 (fn NAME) (defalias 'sgml-expand-shortref-to-entity #[257 "`\304\211 b\210\305\306\307#\262 |\210\310\203\306\202\311\261\210d \211b)\207" [before-change-functions sgml-markup-start sgml-goal sgml-rs-ignore-pos nil search-forward "\n" t "&" ";"] 7 (#$ . 50604)]) #@372 Expand all short references in the buffer. Short references to text entities are expanded to the replacement text of the entity; other short references are expanded into general entity references. If argument TO-ENTITY is non-nil, or if called interactively with a numeric prefix argument, all short references are replaced by general entity references. (fn TO-ENTITY) (defalias 'sgml-expand-all-shortrefs #[257 "\300\203 \301\202\n\302!\207" [sgml-reparse-buffer sgml-expand-shortref-to-entity sgml-expand-shortref-to-text] 3 (#$ . 50889) "*P"]) #@341 Normalize buffer by filling in omitted tags and expanding empty tags. Argument TO-ENTITY controls how short references are expanded as with `sgml-expand-all-shortrefs'. An optional argument ELEMENT can be the element to normalize instead of the whole buffer, if used no short references will be expanded. (fn TO-ENTITY &optional ELEMENT) (defalias 'sgml-normalize #[513 "\211\204\301!\210\211??\206\302 \262\303!b\210\304\305\"\210)\210\306\307!!\210\310\311!\207" [before-change-functions sgml-expand-all-shortrefs sgml-top-element sgml-element-end nil sgml-normalize-content sgml-note-change-at sgml-element-start sgml-message "Done"] 6 (#$ . 51448) "*P"]) (defalias 'sgml-normalize-element #[0 "\300\301\302`!\"\207" [sgml-normalize nil sgml-find-element-of] 4 nil "*"]) #@196 Normalize all elements in a content where ELEMENT is first element. If sgml-normalize-trims is non-nil, trim off white space from ends of elements with omitted end-tags. (fn ELEMENT ONLY-FIRST) (defalias 'sgml-normalize-content #[514 "\300\203B\262?\205\301!\262\202\211\205@\211@\262\302\303`d\304\\\304\245\245\"\210\305!\210\306\307H\300\"\210\310!\210\211A\262\202\207" [nil sgml-element-next sgml-lazy-message "Normalizing %d%% left" 100 sgml-normalize-end-tag sgml-normalize-content 11 sgml-normalize-start-tag] 8 (#$ . 52243)]) #@16 (fn ELEMENT) (defalias 'sgml-normalize-start-tag #[257 "\300\301H!\205<`\302!^b\210\303!\304!\305!\212\306H\307U\204-`\302!U\204-\310\311!\210\312\306H!\210\313\314$)\266\203\207" [sgml-bpos-p 1 sgml-element-start sgml-element-gi sgml-element-attlist sgml-element-attribute-specification-list 3 0 cl--assertion-failed (or (zerop (sgml-element-stag-len element)) (= (point) (sgml-element-start element))) delete-char sgml-insert-start-tag nil] 9 (#$ . 52806)]) #@16 (fn ELEMENT) (defalias 'sgml-normalize-end-tag #[257 "\301!?\2052\302\303H!\2052`\304!^b\210\211\305H\306U\203&\203&\307\310x\210\311\305H!\210\212\312!c)\207" [sgml-normalize-trims sgml-element-empty sgml-bpos-p 2 sgml-element-etag-start 4 0 " \n " nil delete-char sgml-end-tag-of] 4 (#$ . 53288)]) #@402 Convert character after point into a character reference. If called with a numeric argument, convert a character reference back to a normal character. If called from a program, set optional argument INVERT to non-nil. If the function `decode-char' is defined, convert to and from Unicodes. Otherwise will only work for ASCII or 8-bit characters in the current coding system. (fn &optional INVERT) (defalias 'sgml-make-character-reference #[256 "\211\2036\300\301!\204\302\303!\210\304\305\306!!\307\224\307\225|\210\310\311!\203(\311\312\"\262\2023\310\313!\2033\313!\262\211c\207g\314\306!\210\310\315!\203J\315\312\"\262\202U\310\316!\203U\316!\262\317\320\"c\207" [looking-at "&#\\([0-9]+\\)[;\n]?" error "No character reference after point" string-to-number match-string 1 0 fboundp decode-char ucs unibyte-char-to-multibyte delete-char encode-char multibyte-char-to-unibyte format "&#%d;"] 5 (#$ . 53608) "*P"]) #@52 Insert the text of the entity referenced at point. (defalias 'sgml-expand-entity-reference #[0 "\212p\306 p\307\310\311\312\313\"\314\"\315$\216\316\203 \202\n!\210\307\310\317\312\313!\320\"\321$\216`g\322=\203;\321u\210\202T\323\324!\210\325u\210`g\322=\203P\321u\210\202T\326\327!\210\330\331!\206^\332\333!\262\334\335\f! >\204q\336\337\340\fD\"\210\f\321H\341H\"\211\204\200\342\343\"\210g\344=\203\214\321u\210\202\217\345 \210 `|\210\346!\266\202*\266\202\262)\207" [sgml-xml-p xml-parser-syntax sgml-parser-syntax sgml-markup-start sgml-buffer-parse-state cl-struct-sgml-pstate-tags syntax-table make-byte-code 0 "r\301q\210\302\300!)\207" vconcat vector [set-syntax-table] 2 set-syntax-table "p\300q\207" [sgml-last-buffer] 1 38 skip-syntax-backward "w_" -1 sgml-delimiter-parse-error "ERO" t sgml-parse-name sgml-parse-error "Name expected" sgml-lookup-entity type-of signal wrong-type-argument sgml-pstate 3 error "Undefined entity %s" 59 sgml-parse-RE sgml-entity-insert-text] 10 (#$ . 54553) nil]) #@74 Remove blanks at end of current element and move point to after element. (defalias 'sgml-trim-and-leave-element #[0 "\300\301 !b\210\302u\210\303\304!\203\305\306!\210\202\307 \207" [sgml-element-etag-start sgml-last-element -1 looking-at "\\s-" delete-char 1 sgml-up-element] 2 (#$ . 55599) nil]) #@55 *An alist mapping notations to programs handling them (defvar sgml-notation-handlers '((gif . "xv") (jpeg . "xv")) (#$ . -55907)) #@65 Open a new window and display the external entity at the point. (defalias 'sgml-edit-external-entity #[0 "\306 \210\212p\307 p\310\311\312\313\314\"\315\"\316$\216\317\203 \202!\n!\210\310\311\320\313\314!\321\"\322$\216`g\323=\203>\322u\210\202T\324\325!\210`g\323=\203P\322u\210\202T\326\327!\210\330 \210\331 \332\333!\206c\334\335!\262\336\337\f! >\204v\340\341\342\fD\"\210\f\322H\343H\"\344\204\206\345\346\"\210A@\3438\347?\"A\350=\203\335\211\203\326\351\352\353#!\210r\354\355!q\210\356 \210\357\3168@#\360\352\361\"\344$\362\363!\203\315\363\344\"\202\320\364!\266\202)\202P\345\365\"\202P\366=\203L\344@\367H\211\203 \211\316H\203 \370!`X\203 \371!B\262\211\372H\262\202\350\237B\262\266@\211A=\204*\371!B\262\211\373H\262\202\210\374\357\3168A@@#!\210eb\210\375 \210BB\330 \202P\345\376\"\266\203\266\204*\266\202\262)\207" [sgml-xml-p xml-parser-syntax sgml-parser-syntax sgml-markup-start sgml-buffer-parse-state cl-struct-sgml-pstate-tags sgml-need-dtd syntax-table make-byte-code 0 "r\301q\210\302\300!)\207" vconcat vector [set-syntax-table] 2 set-syntax-table "p\300q\207" [sgml-last-buffer] 1 38 search-backward-regexp "[&>;]" sgml-delimiter-parse-error "ERO" sgml-parse-to-here buffer-file-name t sgml-parse-name sgml-parse-error "Name expected" sgml-lookup-entity type-of signal wrong-type-argument sgml-pstate 3 nil error "Undefined entity %s" assoc ndata message format "Using '%s' to handle notation '%s'." get-buffer-create "*SGML background*" erase-buffer sgml-external-file start-process "%s background" fboundp set-process-query-on-exit-flag process-kill-without-query "Don't know how to handle notation '%s'." text 11 sgml-tree-end sgml-element-gi 10 5 find-file-other-window sgml-mode "Can't edit entities of type '%s'." sgml-notation-handlers sgml-current-tree sgml-top-tree sgml-parent-document] 16 (#$ . 56043) nil]) #@389 Complete the word/tag/entity before point. If it is a tag (starts with < or \2040\316\317\320 D\"\210 \321H\322H!\262\202\215\323=\203R\212\324u\210\325 \210\326\327 !\262)\202\215\330=\203i\212\331u\210\325 \210\326\332 !\262)\202\215\333=\203x \262\334\262\202\215\335=\203\207\336\262\334\262\202\215\211b\210\337 \210\205\340\"\211\204\251b\210\341\342\"\210\343 \202\f\211\334=\203\270b\210\341\344!\202\f\230\204\312\345G!\210!c\202\fb\210\341\346!\210\347\" r\350\351!q\210p\352 \210\306\21123\334\2114\33456\353 \210\354\355!\210+\2117\356!\210\357!\210)\266\341\360\361\")\262\207" [sgml-namecase-general sgml-buffer-parse-state cl-struct-sgml-pstate-tags sgml-markup-declaration-table completion-ignore-case default-directory nil sgml-general-insert-case "^ \n \211A@\236\206\211AA\236\211\2059\211A\211@\301=\2030\211\2027\302A@#\262\262\202B\303\"\266\202\203\244\211\203\244\304H\211\2629\203]\300\202\224@\301=\203\220\211A@\236\206q\211AA\236\211\205\213\211A\211@\301=\203\202\211\202\211\302A@#\262\262\202\224\303\"\266\202\262\205\237\305!\262\202I\207" [nil normal-state sgml-next-sub-and sgml-get-and-move 0 sgml-element-next] 13 (#$ . 62266)]) #@11 (fn EL) (defalias 'sgml--all-possible-elements #[257 "\300!\301!\302\303=\2046\304!\305!\244\211\2035\211@\211>\204.\306#\203.\211B\262A\266\202\202\210\203G\307H\262\310!\262\202\311\312\"\207" [sgml-element-content sgml-element-model nil ANY sgml-optional-tokens sgml-required-tokens sgml--add-before-p 9 sgml-element-next mapcar sgml-token-eltype] 10 (#$ . 62808)]) #@194 Add an element of type GI to the current element. The element will be added at the last legal position if FIRST is `nil', otherwise it will be added at the first legal position. (fn GI FIRST) (defalias 'sgml-add-element-to-element #[514 "\302`!\303\304!!\203,\305!\203,\212\306!b\210\307\310!\210\311\312 !\261\210\313 \210)\302`!\262\314!\315!\211\262\316\317#\203U\203J\320!\202N\321!\262\204f\203f\322H\262\323!\262\2027\211\203t\211b\210\324!\202y\325\326 \"\266\204\207" [sgml-xml-p sgml-current-tree sgml-find-context-of sgml-lookup-eltype sgml-general-case sgml-element-empty sgml-element-stag-end delete-char -2 ">\n" sgml-end-tag-of sgml-indent-line sgml-element-content sgml-element-model nil sgml--add-before-p sgml-element-start sgml-element-etag-start 9 sgml-element-next sgml-insert-element error "A %s element is not valid in current element"] 12 (#$ . 63214) (byte-code "\303\304\305\306`!!\"\211\204\307\310!\202&\311\312\313\314A?\205\"@@%\n)D\207" [sgml-namecase-general completion-ignore-case current-prefix-arg mapcar #[257 "\211\300!\262\301B\207" [symbol-name nil] 4 "\n\n(fn ET)"] sgml--all-possible-elements sgml-find-context-of error "No element possible" completing-read "Element: " nil t] 7)]) (byte-code "\300\301\302\"\210\300\303\302\"\207" [autoload sgml-princ-names "psgml-info" sgml-eltype-refrenced-elements] 3) #@58 Show information about the current element and its type. (defalias 'sgml-show-current-element-type #[0 "\306`!\211\307Hr\310\311!q\210p\312 \210\313\211\314\211\314\315 \210\316\317!\210+\211@\320\321\322\323!\262\324N\211\203@\321\325\"\202A\326\262#!\210A\203i\320\321\327\330!\203Y\331\202Z\332\333!\203e\331\202f\332#!\210\320\334!\210\335!9\203}\320\335!!\210\202\245\320\336JW\262\203\214\337\202\215\340!\210\341`B#\210\320\342!\210\343\344\323\345!\"\346\"\210\347N\350N\204\263\211\203\267\320\351!\210\203\306\320\352!\210\343\344\323\"!\210\211\203\325\320\353!\210\343\344\323\"!\210\266\320\354!\210\355!\210\356N\211\203\355\320\321\357\"!\210\210\320\360!\210\313C\361\362\363\364\365\366 \"\367\"\370\371%\372C!D>\204\373\374\375CD\"\210C\376H\"\210\343\344\377\201E\242\201F\"\"!\262\201G!\210)\266\202\207" [default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only sgml-find-context-of 0 get-buffer-create "*Current Element Type*" kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook princ format "ELEMENT: %s%s\n" symbol-name help-text " -- %s" "" "\n Start-tag is %s.\n End-tag is %s.\n" sgml-eltype-stag-optional "optional" "required" sgml-eltype-etag-optional "\nCONTENT: " sgml-eltype-model 3 "mixed\n" "element\n" sgml-print-position-in-model "\n\n" sgml-princ-names mapcar sgml-eltype-refrenced-elements "All: " includes excludes "\n\nEXCEPTIONS:" "\n + " "\n - " "\n\nATTRIBUTES:\n" sgml-print-attlist shortmap "\nUSEMAP: %s\n" "\nOCCURS IN:\n" sgml-map-eltypes make-byte-code 257 "\300\302!>\205\301\301\242B\240\207" vconcat vector [sgml-eltype-refrenced-elements] 4 "\n\n(fn CAND)" type-of signal wrong-type-argument sgml-pstate 1 sgml-eltype-name standard-output sgml-omittag sgml-current-state sgml-buffer-parse-state cl-struct-sgml-pstate-tags sort string-lessp internal-temp-output-buffer-show] 14 (#$ . 64618) nil]) #@11 (fn ET) (defalias 'sgml-print-attlist #[257 "rq\210\211\301N\302:\203\203@\262\303\304!\210\303\305!!\210\306!\307!<\203=@\310=\2031\311\2022\312\313\314A@\315#\316Q\262\317\320\321\"\210\303!\210\322\323\"\203X\324\325\326!\"\262\202o\2119\203g\324\327\"\226\262\202o\324\330\326!\"\262\317\331\321\"\210\303!\210\332 \266A\262\202\302\266\202)\207" [standard-output attlist nil princ " " sgml-attdecl-name sgml-attdecl-declared-value sgml-attdecl-default-value NOTATION "#NOTATION (" "(" mapconcat identity "|" ")" indent-to 15 1 sgml-default-value-type-p FIXED format "#FIXED '%s'" sgml-default-value-attval "#%s" "'%s'" 48 terpri] 10 (#$ . 66630)]) #@39 (fn ELEMENT BUFFER-POS PARSE-STATE) (defalias 'sgml-print-position-in-model #[771 "\300!\301\203\302!Y\203\303!B\262\304!\262\202\211\203.\305\237\306\307#\210\310\311!\210\266\310\312!\210\211\301\211\313!\262\203\232A\204\232@\314!\262B\262@9\203\\\301\202\223@\315=\203\217\211A@\236\206p\211AA\236\211\205\212\211A\211@\315=\203\201\211\202\210\316A@#\262\262\202\223\317\"\266\202\262\2027\211\237\266\202\320\321\322\323!\313!\"\"\203\341\211\203\331\324\325\326\327#\211@\315=\203\310\211AA?\202\313\330!\262\203\324\331\202\325\332QC\244\210\305\306\307#\202 \211\205 \305\333\327#\210\310\332!\210\211@\315=\203\376\211AA?\202\330!\262\205 \310\334!\207" [sgml-element-content nil sgml-element-end sgml-element-gi sgml-element-next sgml-princ-names " " ", " princ "\n" " ->" sgml-required-tokens symbol-name normal-state sgml-next-sub-and sgml-get-and-move mapcar sgml-eltype-name append sgml-optional-tokens "(" mapconcat #[257 "\207" [] 2 "\n\n(fn X)"] " | " sgml-final-and ")?" ")" " (" "?"] 14 (#$ . 67324)]) #@51 Show the document structure in a separate buffer. (defalias 'sgml-show-structure #[0 "p\300\301!\211q\210\302 \210\303 \210rq\210\304\305 !)\306!\266eb\210\307!\207" [get-buffer-create "*Document structure*" occur-mode erase-buffer sgml-structure-elements sgml-top-element sgml-show-structure-insert display-buffer] 5 (#$ . 68432) nil]) #@18 (fn STRUCTURE) (defalias 'sgml-show-structure-insert #[257 "\211\300\211\211\211\211:\203V@\262\211A\262\242\262\211A\262\242\262\211A\262\242\262\211@\262`\301\302_\303\"c\210\304\305\"\210\304\306\307#\210\310c\210\311`\312\313BB#\266A\262\202\300\207" [nil make-string 2 32 sgml-insert (face match mouse-face highlight) (mouse-face highlight) " %s" "\n" add-text-properties occur-target (help-echo "mouse-2: go to this occurrence")] 14 (#$ . 68779)]) #@16 (fn ELEMENT) (defalias 'sgml-show-struct-element-p #[257 "\300\301\"\302\303\"?\205\211\206\304!?\205\305!?\207" [sgml-element-appdata structure eql ignore sgml-element-data-p sgml-element-empty] 5 (#$ . 69267)]) #@16 (fn ELEMENT) (defalias 'sgml-structure-elements #[257 "\300!\205\221\301!\302H\303!\304\305\306!b\210\307\310 !\262\203`\300!\204`\311!\203`\312H\313H\314!\203^\314!\203^b\210\315Hu\210\316\317!\203P\312y\210`W\203^`\320 ^{\262\266\321!F\304\211\322\211\203s\202v\323!\262\203\212\324!\237\244\262\304\262\202j\237\266\203B\266\205\207" [sgml-show-struct-element-p sgml-element-gi 6 sgml-element-content nil "" sgml-element-start copy-marker point-marker sgml-element-data-p 1 2 sgml-bpos-p 3 looking-at "\\s-*$" line-end-position sgml-general-insert-case t sgml-element-next sgml-structure-elements] 12 (#$ . 69498)]) (provide 'psgml-edit)