;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\302\303\304\305\306\307%\210\310\311\312\313\314DD\315\316\317\306\303&\210\310\320\312\313\321DD\322\316\317\306\303&\210\310\323\312\313\324DD\325\326\327\316\330\306\303& \210\331\323!\210\310\332\312\313\333DD\334\316\317\306\303&\210\310\335\312\313\336DD\337\316\340\306\303&\210\310\341\312\313\342DD\343\316\344\306\303&\210\310\345\312\313\346DD\347\316\350\351\352\306\303& \210\310\353\312\313\354DD\355\316\317\306\303&\210\310\356\312\313\357DD\360\316\317\306\303&\210\310\361\312\313\362DD\363\316\317\306\303&\207" [require custom custom-declare-group psgml nil "SGML and XML editing with PSGML mode." :group languages custom-declare-variable sgml-insert-missing-element-comment funcall function #[0 "\300\207" [t] 1] "If true, and sgml-auto-insert-required-elements also true,\n`sgml-insert-element' will insert a comment if there is an element required\nbut there is more than one to choose from." :type boolean sgml-insert-end-tag-on-new-line #[0 "\300\207" [nil] 1] "If true, `sgml-insert-element' will put the end-tag on a new line\nafter the start-tag. Useful on slow terminals if you find the end-tag after\nthe cursor irritating." sgml-doctype #[0 "\300\207" [nil] 1] "*If set, this should be the name of a file that contains the doctype\ndeclaration to use.\nSetting this variable automatically makes it local to the current buffer." :tag "Doctype file" (choice (const :tag "Off" nil) file) make-variable-buffer-local sgml-system-identifiers-are-preferred #[0 "\300\207" [nil] 1] "*If nil, PSGML will look up external entities by searching the catalogs\nin `sgml-local-catalogs' and `sgml-catalog-files' and only if the\nentity is not found in the catalogs will a given system identifer be\nused. If the variable is non-nil and a system identifer is given, the\nsystem identifier will be used for the entity. If no system identifier\nis given the catalogs will searched." sgml-range-indicator-max-length #[0 "\300\207" [9] 1] "*Maximum number of characters used from the first and last entry\nof a submenu to indicate the range of items in that menu." integer sgml-default-doctype-name #[0 "\300\207" [nil] 1] "*Document type name to use if no document type declaration is present." (choice (const :tag "Off" nil) string) sgml-markup-faces #[0 "\300\301\302!\203 \302\202\f\303B\304\301\302!\203\302\202\303B\305\301\306!\203%\306\202&\303B\307\301\310!\2032\310\2023\303B\311\301\310!\203?\310\202@\303B\312\301\313!\203L\313\202M\303B\314\301\315!\203Y\315\202Z\303B\316\301\315!\203f\315\202g\303B\317\301\320!\203s\320\202t\321B\322\301\320!\203\200\320\202\201\321B\323\301\320!\203\215\320\202\216\321B\257 \207" [start-tag facep font-lock-function-name-face bold end-tag comment font-lock-comment-face pi font-lock-type-face sgml doctype font-lock-keyword-face entity font-lock-string-face shortref ignored font-lock-constant-face default ms-start ms-end] 13] "*Alist of markup to face mappings.\nElement are of the form (MARKUP-TYPE . FACE).\nPossible values for MARKUP-TYPE are:\ncomment - comment declaration\ndoctype - doctype declaration\nend-tag\nignored - ignored marked section\nms-end - marked section start, if not ignored\nms-start- marked section end, if not ignored\npi - processing instruction\nsgml - SGML declaration\nstart-tag\nentity - general entity reference\nshortref- short reference" (alist :key-type symbol :value-type face) :options (start-tag end-tag comment pi sgml doctype entity shortref ignored ms-start ms-end) sgml-set-face #[0 "\300\207" [nil] 1] "*If non-nil, psgml will set the face of parsed markup." sgml-auto-activate-dtd #[0 "\300\207" [nil] 1] "*If non-nil, loading a sgml-file will automatically try to activate its DTD.\nActivation means either to parse the document type declaration or to\nload a previously saved parsed DTD. The name of the activated DTD\nwill be shown in the mode line." sgml-offer-save #[0 "\300\207" [t] 1] "*If non-nil, ask about saving modified buffers before \\[sgml-validate] is run."] 10) #@1149 *How to handle the current file as part of a bigger document. The variable describes how the current file's content fit into the element hierarchy. The value should have the form (PARENT-FILE CONTEXT-ELEMENT* TOP-ELEMENT (HAS-SEEN-ELEMENT*)?) PARENT-FILE is a string, the name of the file containing the document entity. CONTEXT-ELEMENT is a string, that is the name of an element type. It can occur 0 or more times and is used to set up exceptions and short reference map. Good candidates for these elements are the elements open when the entity pointing to the current file is used. TOP-ELEMENT is a string that is the name of the element type of the top level element in the current file. The file should contain one instance of this element, unless the last (Lisp) element of `sgml-parent-document' is a list. If it is a list, the top level of the file should follow the content model of top-element. HAS-SEEN-ELEMENT is a string that is the name of an element type. This element is satisfied in the content model of top-element. Setting this variable automatically makes it local to the current buffer. (defvar sgml-parent-document nil (#$ . -4460)) (byte-code "\300\301!\210\302\301\303\304#\210\305\306\307\310\311DD\312\313\314\315\316&\210\305\317\307\310\320DD\321\313\314\315\316&\210\305\322\307\310\323DD\324\313\314\315\316&\210\300\322!\210\305\325\307\310\326DD\327\313\314\315\316&\210\300\325!\210\305\330\307\310\331DD\332\313\314\315\316&\210\300\330!\210\305\333\307\310\334DD\335\313\336\315\316&\210\302\333\303\337#\210\305\340\307\310\341DD\342\313\314\315\316&\210\305\343\307\310\344DD\345\313\346\315\316&\210\300\343!\210\302\343\303\347#\210\305\350\307\310\351DD\352\313\314\315\316&\210\300\350!\210\305\353\307\310\354DD\355\313\314\315\316&\207" [make-variable-buffer-local sgml-parent-document put sgml-type list custom-declare-variable sgml-tag-region-if-active funcall function #[0 "\300\207" [nil] 1] "*If non-nil, the Tags menu will tag a region if the region is \nconsidered active by emacs. If nil, region must be active and\ntransient-mark-mode must be on for the region to be tagged." :type boolean :group psgml sgml-normalize-trims #[0 "\300\207" [t] 1] "*If non-nil, sgml-normalize will trim off white space from end of element\nwhen adding end tag." sgml-omittag #[0 "\300\207" [t] 1] "*Set to non-nil, if you use OMITTAG YES.\n\nSetting this variable automatically makes it local to the current buffer." sgml-shorttag #[0 "\300\207" [t] 1] "*Set to non-nil, if you use SHORTTAG YES.\n\nSetting this variable automatically makes it local to the current buffer." sgml-namecase-general #[0 "\300\207" [t] 1] "*Set to non-nil, if you use NAMECASE GENERAL YES.\n\nSetting this variable automatically makes it local to the current buffer." sgml-general-insert-case #[0 "\300\207" [lower] 1] "*The case that will be used for general names in inserted markup.\nThis can be the symbol `lower' or `upper'. Only effective if\n`sgml-namecase-general' is true." (choice (const lower) (const upper)) (lower upper) sgml-insert-defaulted-attributes #[0 "\300\207" [nil] 1] "*Controls whether defaulted attributes (not #FIXED) are inserted explicitly\nor not. nil means don't insert, t means insert." sgml-minimize-attributes #[0 "\300\207" [nil] 1] "*Determines minimization of attributes inserted by edit-attributes.\nActually two things are done\n1. If non-nil, omit attribute name, if attribute value is from a token group.\n2. If `max', omit attributes with default value.\n\nSetting this variable automatically makes it local to the current buffer." (choice (const :tag "No" nil) (const :tag "omit attribute name" t) (const :tag "omit attributes with default value" max)) (("No") ("Yes" . t) ("Max" . max)) sgml-always-quote-attributes #[0 "\300\207" [t] 1] "*Non-nil means quote all attribute values inserted after editing attributes.\nSetting this variable automatically makes it local to the current buffer." sgml-auto-insert-required-elements #[0 "\300\207" [t] 1] "*If non-nil, automatically insert required elements in the content\nof an inserted element."] 8) #@56 *If non-nil, context menu inserts start-end tag pairs. (defvar sgml-balanced-tag-edit t (#$ . -8621)) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\307\310\311&\210\300\315\302\303\316DD\317\306\307\310\311&\210\300\320\302\303\321DD\322\306\307\310\311&\210\300\323\302\303\324DD\325\306\307\310\311&\210\300\326\302\303\327DD\330\306\331\310\311&\210\332\326\333\334#\210\300\335\302\303\336DD\337\306\307\310\311&\210\300\340\302\303\341DD\342\306\343\310\311&\210\344\340!\210\332\340\333\345#\210\300\346\302\303\347DD\350\306\307\310\311&\210\344\346!\210\300\351\302\303\352DD\353\306\354\310\311&\210\344\351!\210\332\351\333\355#\210\300\356\302\303\357DD\360\310\311\306\361&\210\300\362\302\303\363DD\364\310\311\306\365&\210\300\366\302\303\367DD\370\310\311\306\371&\210\300\372\302\303\373DD\374\310\311\306\375&\210\376\377!\207" [custom-declare-variable sgml-omittag-transparent funcall function #[0 "?\207" [sgml-balanced-tag-edit] 1] "*If non-nil, will show legal tags inside elements with omitable start tags\nand legal tags beyond omitable end tags." :type boolean :group psgml sgml-leave-point-after-insert #[0 "\300\207" [nil] 1] "*If non-nil, the point will remain after inserted tag(s).\nIf nil, the point will be placed before the inserted tag(s)." sgml-warn-about-undefined-elements #[0 "\300\207" [t] 1] "*If non-nil, print a warning when a tag for an undefined element is found." sgml-warn-about-undefined-entities #[0 "\300\207" [t] 1] "*If non-nil, print a warning when an undefined entity is found." sgml-ignore-undefined-elements #[0 "\300\207" [nil] 1] "*If non-nil, recover from an undefined element by ignoring the tag.\nIf nil, recover from an undefined element by assuming it can occur any\nwhere and has content model ANY." sgml-recompile-out-of-date-cdtd #[0 "\300\207" [ask] 1] "*If non-nil, out of date compiled DTDs will be automatically recompiled.\nIf the value is `ask', PSGML will ask before recompiling. A `nil'\nvalue will cause PSGML to silently load an out of date compiled DTD.\nA DTD that refers to undefined external entities is always out of\ndate, thus in such case it can be useful to set this variable to\n`nil'." (choice (const :tag "No" nil) (const :tag "Yes" t) (const :tag "Ask" ask)) put sgml-type (("No") ("Yes" . t) ("Ask" . ask)) sgml-trace-entity-lookup #[0 "\300\207" [nil] 1] "*If non-nil, log messages about catalog files used to look for\nexternal entities." sgml-indent-step #[0 "\300\207" [2] 1] "*How much to increment indent for every element level.\nIf nil, no indentation.\nSetting this variable automatically makes it local to the current buffer." (choice (const :tag "None" nil) integer) make-variable-buffer-local (("None") 0 1 2 3 4 5 6 7 8) sgml-indent-data #[0 "\300\207" [nil] 1] "*If non-nil, indent in data/mixed context also.\nSetting this variable automatically makes it local to the current buffer." sgml-exposed-tags #[0 "\300\207" [nil] 1] "*The list of tag names that remain visible, despite \\[sgml-hide-tags].\nEach name is a lowercase string, and start-tags and end-tags must be\nlisted individually.\n\n`sgml-exposed-tags' is local to each buffer in which it has been set;\nuse `setq-default' to set it to a value that is shared among buffers." (repeat string) list sgml-custom-dtd #[0 "\300\207" [nil] 1] "Menu entries to be added to the DTD menu.\nThe value should be a list of entries to be added to the DTD menu.\nEvery entry should be a list. The first element of the entry is a string\nused as the menu entry. The second element is a string containing a\ndoctype declaration (this can be nil if no doctype). The rest of the\nlist should be a list of variables and values. For backward\ncompatibility a single string instead of a variable is assigned to\n`sgml-default-dtd-file'. All variables are made buffer local and are also\nadded to the buffers local variables list.\n\nExample:\n ((\"HTML\" nil\n sgml-default-dtd-file \"~/sgml/html.ced\"\n sgml-omittag nil sgml-shorttag nil)\n (\"HTML+\" \"\"\n \"~/sgml/htmlplus.ced\"\n sgml-omittag t sgml-shorttag nil)\n (\"DOCBOOK\" \"\"\n \"~/sgml/docbook.ced\"\n sgml-omittag nil sgml-shorttag t)))\n" (repeat (list (string :tag "Menu entry") (string :tag "Doctype") (plist :tag "Options" :inline t))) sgml-custom-markup #[0 "\300\207" [nil] 1] "*Menu entries to be added to the Markup menu.\nThe value should be a list of lists of two strings. The first\nstring is the menu line and the second string is the text inserted\nwhen the menu item is chosen. The second string can contain a \\r\nwhere the cursor should be left. Also if a selection is made\naccording the same rules as for the Tags menu, the selection is\nreplaced with the second string and \\r is replaced with the\nselection.\n\nExample:\n\n ((\"Version1\" \"\")\n (\"New page\" \"\"))\n" (repeat (list (string :tag "Menu entry") (choice string sexp))) sgml-content-indent-function #[0 "\300\207" [sgml-indent-according-to-level] 1] "*Function used to compute indentation level for element content.\nFunction will be called with one argument, the element.\nShould return an integer." (choice (const :tag "Indented according to nesting level" sgml-indent-according-to-level) (const :tag "Indented under start tag" sgml-indent-according-to-stag) (const :tag "Indented under start tag after name" sgml-indent-according-to-stag-end) (function)) sgml-attribute-indent-function #[0 "\300\207" [sgml-indent-according-to-stag] 1] "*Function used to compute indetation level for attributes.\nFunction will be called with one argument, the element.\nShould return an integer." (choice (const :tag "Indented according to nesting level" sgml-indent-according-to-level) (const :tag "Indented under start tag" sgml-indent-according-to-stag) (const :tag "Indented under start tag after name" sgml-indent-according-to-stag-end) (function)) provide psgml-vars] 8)