;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) (defconst sgml-attr-col 18) #@29 (fn ROW-INDEX ELEM TABLE) (defalias 'sgml-add-to-table #[771 "\300\"\211\204DB\202\211C\244\210\207" [assoc] 6 (#$ . 507)]) (put 'sgml-add-to-table 'byte-optimizer 'byte-compile-inline-expand) #@12 (fn X L) (defalias 'sgml-add-last-unique #[514 ">?\205 \211C\244\207" [] 4 (#$ . 719)]) (put 'sgml-add-last-unique 'byte-optimizer 'byte-compile-inline-expand) #@13 (fn FUNC) (defalias 'sgml-map-element-types #[257 "\302 \210\303\304! >\204\305\306\307D\"\210\310H\311#\207" [sgml-buffer-parse-state cl-struct-sgml-pstate-tags sgml-need-dtd sgml-map-eltypes type-of signal wrong-type-argument sgml-pstate 1 t] 7 (#$ . 891)]) #@14 (fn L1 L2) (defalias 'sgml-set-difference #[514 "\203\211\204\n\207\300\203%@\235\204@B\262\211A\262\210\202 \211\207" [nil] 5 (#$ . 1165)]) #@14 (fn L1 L2) (defalias 'sgml-union #[514 "\204\207\211\204 \207\232\203\207GGY\204!\211\262\262\211\203:\211@\235\2042\211@B\262\211A\266\202\202!\207" [] 4 (#$ . 1331)]) #@71 List of element types referenced in the model of ELTYPE. (fn ELTYPE) (defalias 'sgml-eltype-refrenced-elements #[257 "\211\300N\206\310\301\302!C\211@\211:\262\204\301\202\306\211\203\247\211@@\303=\203j\304@A@@AA\"\301:\203e@\262\211@\211\235\203F\202J\211B\262\262\211A>?\205\\\211C\244\266A\262\2020\266\202\240\211@@>?\205y\211C\244\266\211@A\301:\203\236@\262\211>?\205\225\211C\244\266A\262\202\266\211A\262\202\305\306\307\310\311N\"\312N\"!\313\"\262\314\300#\266\266\203\207" [re-cache nil sgml-eltype-model normal-state append sort copy-sequence sgml-set-difference sgml-union includes excludes string-lessp put] 11 (#$ . 1532)]) #@60 List the elements and their attributes in the current DTD. (defalias 'sgml-list-elements #[0 "\300\301!\210\302\303\304!\305\306\307\310\211\311\312&\207" [message "Creating table..." sgml-display-table sgml-map-element-types #[257 "\211\300!\262\301\302\303N\"B\207" [symbol-name mapcar sgml-attdecl-name attlist] 6 "\n\n(fn ELTYPE)"] "Elements" "Element" "Attribute" nil sgml-list-attributes sgml-describe-element-type] 9 (#$ . 2251) nil]) #@55 List the attributes and in which elements they occur. (defalias 'sgml-list-attributes #[0 "\300C\301\302!\210\303\304\305\306\307\310!\311\"\312\313%!\210\314\242\315\316\317\300\211\320&\207" [nil message "Creating table..." sgml-map-element-types make-byte-code 257 "\211\301N\302:\203:@\262\300\303!\304!\262\300\242\305\"\211\204)DB\202/\211C\244\210\266\204\240\210A\262\202\302\207" vconcat vector [attlist nil sgml-attdecl-name symbol-name assoc] 10 "\n\n(fn ELTYPE)" sgml-display-table "Attributes" "Attribute" "Element" sgml-list-elements] 9 (#$ . 2703) nil]) #@56 List the elements that can have data in their content. (defalias 'sgml-list-terminals #[0 "\303\304!\210 \nE\305\306\307\310\311\312\313\314\315 !\316\"\317\320%!\"\321\322\323$\207" [sgml-cdata sgml-rcdata sgml-any message "Creating table..." sgml-display-table delq nil sgml-map-element-types make-byte-code 257 "\211\301JW\262\204\302!\300>\205,\211\303!\262\303\302!\211:\262\203'\304\202*\302!!D\207" vconcat vector [3 sgml-eltype-model symbol-name mixed] 5 "\n\n(fn ELTYPE)" "Terminals" "Element" "Content"] 11 (#$ . 3303) nil]) #@77 List all element types and the element types that can occur in its content. (defalias 'sgml-list-content-elements #[0 "\300\301!\210\302\303\304!\305\306\307\310\211\311\312&\207" [message "Creating table..." sgml-display-table sgml-map-element-types #[257 "\211\300!\262\301\302\303!\"B\207" [symbol-name mapcar sgml-eltype-name sgml-eltype-refrenced-elements] 6 "\n\n(fn ELTYPE)"] "Elements referenced by elements" "Element" "Content" nil sgml-list-occur-in-elements sgml-describe-element-type] 9 (#$ . 3859) nil]) #@48 List all element types and where it can occur. (defalias 'sgml-list-occur-in-elements #[0 "\300\301!\210\302C\303\304\305\306\307\310!\311\"\312\313%!\210\314\242\315\316\317\302\211\320\321&\207" [message "Creating table..." nil sgml-map-element-types make-byte-code 257 "\301!\302:\2038@\262\300\303!\262\300\242\304\"\211\204'DB\202-\211C\244\210\266\204\240\210A\262\202\302\207" vconcat vector [sgml-eltype-refrenced-elements nil symbol-name assoc] 10 "\n\n(fn ELTYPE)" sgml-display-table "Cross referenced element types" "Element" "Can occur in" sgml-list-content-elements sgml-describe-element-type] 10 (#$ . 4386) nil]) #@90 (fn TABLE TITLE COL-TITLE1 COL-TITLE2 &optional WIDTH NOSORT DUAL-TABLE COL1-DESCRIBE) (defalias 'sgml-display-table #[2052 "\204\262 r\306\307!q\210p\310 \210\311\211\312\211\312$\313 \210\314\315!\210+\211%p\316\317!\210%q\210c\210j\210\203O\320\321\322\323\324 &\210\202Sc\210\325c\210\326\327\nG\"\210j\210\326\327 G\"\210\325c\210\204v\330 \331\"\262 \n\211\203\347\211@\332\333@\"\203\235\334\321\335\323\336 \337 \340\312& \210\202\240\211c\210\210\341c\210\203\256\211A\202\263\330A\342\"\211\203\334\211@\211Gi\\&V\203\306\325c\210iW\203\320\nj\210\211\341\261\210A\266\202\202\263\210\325c\210A\266\202\202x\210\316\311!\262\343!\210)\207" [sgml-attr-col default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks get-buffer-create "*Help*" kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook message "Preparing display..." insert-text-button action #[257 "\300\301\"r\300\302\"q\210\211 )\207" [button-get dual-table buffer] 5 "\n\n(fn BUTTON)"] buffer dual-table "\n" insert-char 61 sort #[514 "@@\231\207" [] 4 "\n\n(fn A B)"] format "%s" insert-button #[257 "\300\301\"\300\302\"r\300\303\"q\210\211!)\207" [button-get name func buffer] 6 "\n\n(fn BUTTON)"] func name follow-link " " string-lessp internal-temp-output-buffer-show inhibit-read-only standard-output fill-column] 27 (#$ . 5046)]) #@81 Describe the properties of an entity as declared in the current DTD. (fn NAME) (defalias 'sgml-describe-entity #[257 "r\306\307!q\210p\310 \210\311\211\312\211\312\313 \210\314\315!\210+\211$\316\317%!&>\2046\320\321\322%D\"\210%\323H\324H\"\211\204E\325\326!\210\327\330\331\204R\332\202Y\330\333A@\"#!\210\211\205\254\3348\3248;\203u\327\335!\210\327!\202\252\327\336!\210\327@\203\203\337\202\204\340!\210@\203\223\327\330\341@\"!\210A\203\240\327\330\341A\"!\210\211\205\252\327\330\342\"!\266\202\262\343!\210)\207" [default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only get-buffer-create "*Help*" kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook sgml-lookup-entity type-of signal wrong-type-argument sgml-pstate 1 3 error "Undefined entity" princ format "Entity %s is %s\n" "undefined" "a %s entity" 2 "Defined to be:\n" "With external identifier " "PUBLIC" "SYSTEM" " '%s'" "\nand notation '%s'" internal-temp-output-buffer-show standard-output sgml-buffer-parse-state cl-struct-sgml-pstate-tags] 12 (#$ . 6497) (byte-code "\305\211\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$\216g\323=\203>\322u\210\202B\324\305x\210m\204Xgz\325=\203X\326`\327\330!\210`\"\206Y\331\262*\266)\332\333\334\"\335\336 !\f>\204t\337\340\341 D\"\210 \322H\342H!\"\262\211\331\232\203\207\202\210\211C\207" [sgml-xml-p xml-parser-syntax sgml-parser-syntax sgml-buffer-parse-state cl-struct-sgml-pstate-tags nil 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 "^&\"'= \n" 119 buffer-substring-no-properties skip-syntax-forward "w_" "" completing-read format "Entity name (%s): " sgml-entity-completion-table type-of signal wrong-type-argument sgml-pstate 3] 12)]) #@34 (fn NAMES &optional FIRST SEP) (defalias 'sgml-princ-names #[769 "\211\206\301\262\302\303\211:\203S@\262\203\303\262\202 \262\304!\210G\\\262\302V\203BG\\V\203B\304\305!\210\306\262\304!\210G\\\262A\262\202 \303\207" [fill-column " " 0 nil princ "\n " 1] 9 (#$ . 8488)]) (define-button-type 'sgml-eltype 'action #[257 "\300\301\"r\300\302\"q\210\303!)\207" [button-get name buffer sgml-describe-element-type] 5 "\n\n(fn BUTTON)"]) #@36 (fn ELTYPES &optional FIRST SEP) (defalias 'sgml-print-eltypes #[769 "prq\210\206\n\303\262\304\305\211\211:\203y@\262\306!\262\262\203/\305\262 \2021\262\211c\210G\\\262\304V\203QG\\ V\203Q\307c\210\310\262\n=\203]c\210\202l\311\312\313\314\315\f\316\317& \210G\\\262A\262\202\305\266\205)\207" [standard-output fill-column sgml-pcdata-token " " 0 nil symbol-name "\n " 1 insert-text-button :type sgml-eltype name buffer follow-link t] 19 (#$ . 8965)]) #@90 Describe the properties of an element type as declared in the current DTD. (fn ET-NAME) (defalias 'sgml-describe-element-type #[257 "\306 \210\307!r\310\311 !q\210p\312 \210\313\211\314\211\314\315 \210\316\317!\210+\211@\320\321\322\323!\262\"!\210\320\321\324\325!\203C\326\202D\327\330!\203O\326\202P\327#!\210\320\331!\210\332N\313:\203\303@\262\333!\334!\335!<\203\211@\336=\203}\337\202~\340\341\342A@\343#\344Q\262\345\346\"\203\233\321\347\350!\"\262\202\262\2119\203\252\321\351\"\226\262\202\262\321\352\350!\"\262\320\321\353$!\266A\262\202[\266\354N\211\203\323\320\321\355\"!\210\210\320\356!\210\357!9\203\350\320\357!!\210\202\320\360JW\262\203\367\361\202\370\362!\210\363\364!!\210\365N\366N\204\211\203\320\367!\210\203\320\370!\210\363!\210\211\203*\320\371!\210\363!\210\266\320\372!\210\313C\373\374\375\376\377\201C \"\201D\"\201E\201F%\201GA!B>\204d\201H\201I\201JAD\"\210A\201KH\"\210\363\201L\242\201M\"!\262\201N!\210)\266\202\207" [default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only sgml-need-dtd sgml-lookup-eltype get-buffer-create help-buffer kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook princ format "ELEMENT: %s\n\n" symbol-name " Start-tag is %s.\n End-tag is %s.\n" sgml-eltype-stag-optional "optional" "required" sgml-eltype-etag-optional "\nATTRIBUTES:\n" attlist sgml-attdecl-name sgml-attdecl-declared-value sgml-attdecl-default-value NOTATION "#NOTATION (" "(" mapconcat identity "|" ")" sgml-default-value-type-p FIXED "#FIXED '%s'" sgml-default-value-attval "#%s" "'%s'" " %-9s %-30s %s\n" shortmap "\nUSEMAP: %s\n" "\nCONTENT: " sgml-eltype-model 3 "mixed\n\n" "element\n\n" sgml-print-eltypes sgml-eltype-refrenced-elements includes excludes "\n\nEXCEPTIONS:" "\n + " "\n - " "\n\nOCCURS IN:\n\n" sgml-map-eltypes make-byte-code 257 "\300\302!>\205\301\301\242B\240\207" vconcat standard-output sgml-buffer-parse-state cl-struct-sgml-pstate-tags vector [sgml-eltype-refrenced-elements] 4 "\n\n(fn CAND)" type-of signal wrong-type-argument sgml-pstate 1 sort string-lessp internal-temp-output-buffer-show] 16 (#$ . 9473) (byte-code "\304\211\305 \210\212p\306 p\307\310\311\312\313\"\314\"\315$\216\316\203\" \202#\n!\210\307\310\317\312\313!\320\"\321$\216g\322=\203>\321u\210\202B\323\324!\210m?\205Xgz\325=\205X\326\327`\330\324!\210`\"!\262\203i\331!\332!\262\204l\304\262*\266)\333\203|\334\335\"\202}\336 #\262\211\337!\262C\207" [sgml-xml-p xml-parser-syntax sgml-parser-syntax sgml-dtd-info nil 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 60 skip-syntax-backward "w_" 119 sgml-general-case buffer-substring-no-properties skip-syntax-forward sgml-lookup-eltype fboundp sgml-read-element-type format "Element type (%s): " "Element type: " symbol-name] 12)]) #@31 (fn LABEL &rest PROPERTIES) (defalias 'sgml-insert-button #[385 "rq\210\301\302#)\207" [standard-output apply insert-text-button] 6 (#$ . 12536)]) #@44 Display information about the current DTD. (defalias 'sgml-describe-dtd #[0 "\306 \210\307C\307C\307C\310\311C\312\313\314\315\316\317\n!\320\"\321\322%\"\210\323\313\314\315\316\317 !\320\"\321\322%\321H\"\210\323\313\314\315\316\317!\320\"\321\322%\324H\"\210 r\325\326 !q\210p\327 \210\330\211\331\211\3313\332 \210\333\334!\210+\2114\335\336\337\307H#!\210\340H\203\202\335\336\341\340H@#!\210\342\336\343\336\344\f\242\"#\345\346\347p\350\331&\210\335\336\351\336\344 \242\"#!\210\335\336\352\336\344\n\242\"#!\210\353\240\210\354H\211\203\330\211@\211;\203\321\335\336\242#!\210\311\240\210A\266\202\202\267\210\355\240\210\323\313\314\356\316\317  \"\357\"\354\360%\324H\"\210\361 \362!\210)\266\202\207" [sgml-dtd-info default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks sgml-need-dtd 0 "%20s %s\n" #1="" sgml-map-eltypes make-byte-code 257 "\300\211\242T\240\207" vconcat vector [] 3 "\n\n(fn E)" sgml-map-entities 2 get-buffer-create help-buffer kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook princ format "Doctype:" 7 "Compiled DTD:" sgml-insert-button "Element types:" "%d" action #[257 "r\300\301\"q\210\302 )\207" [button-get buffer sgml-list-elements] 4 "\n\n(fn BUTTON)"] buffer follow-link "Entities:" "Parameter entities:" "Files used:" 6 "Undef parameters:" "\302!\205\303\304\300\301\242@#!\210\301\305\240\207" [sgml-entity-marked-undefined-p princ format #1#] "\n\n(fn ENTITY)" print-help-return-message internal-temp-output-buffer-show inhibit-read-only standard-output] 16 (#$ . 12694) nil]) (byte-code "\300\301\302\"\210\303\304!\207" [defalias sgml-general-dtd-info sgml-describe-dtd provide psgml-info] 3)