;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\"\207" [require psgml autoload sgml-do-set-option "psgml-edit"] 3) #@93 *Max number of entries in Tags and Entities menus before they are split into several panes. (defvar sgml-max-menu-size (byte-code "\300 \301_\302\245\207" [frame-height 2 3] 2) (#$ . -513)) #@23 Display a popup menu. (defalias 'sgml-popup-menu #[(_event title entries) "\306\211 :\203$ @\307\n@\310\311\312\nADE\313# B A\211\202 \237+\211G\fV\203o\314\306\203j\315\316G\f^#\f\233\317\320\321@\316H!\321\322!@\316H!$)BB T\2024\237*\323B!\207" [entries #1=#:--cl-var-- ent #2=#:--cl-var-- sgml-max-menu-size i nil vector setq value quote t 1 subseq 0 format "%s '%s'-'%s'" sgml-range-indicator last sgml-lucid-get-popup-value #3=#:--cl-var-- submenu title] 8 (#$ . 709)]) (defalias 'sgml-range-indicator #[(string) "\302G ^O\207" [string sgml-range-indicator-max-length 0] 4]) (defalias 'sgml-lucid-get-popup-value #[(menudesc) "\303\211\304\n!\210\305 \203H\306!\307!\2038\310!\311=\203'\312\313\303\"\210\202\310!\314=\204\315\310!!\210\202\316!\204\317 \210\320\321!\210\202 *\207" [event value menudesc nil popup-menu popup-up-p next-command-event misc-user-event-p event-object abort signal quit menu-no-selection-hook eval button-release-event-p beep message "please make a choice from the menu."] 3]) #@185 Display a popup menu. MENUS is a list of menus on the form (TITLE ITEM1 ITEM2 ...). ITEM should have to form (STRING EXPR) or STRING. The EXPR gets evaluated if the item is selected. (defalias 'sgml-popup-multi-menu #[(_pos title menudesc) "\306 \307\211\n:\203S\n@\211@ A\307\211\n :\203D @\211\n;\203.\n\2028\310\n@\nA@\311# B A\211\202 \237+B\fB\nA\211\202 \f\237+B!\207" [title menudesc #1=#:--cl-var-- menu #2=#:--cl-var-- #3=#:--cl-var-- popup-menu nil vector t item #4=#:--cl-var--] 8 (#$ . 1794)]) (defalias 'sgml-make-options-menu #[(vars) "\306\211\306\211 :\203\254 @\307\n!\310\n! \311=\2031\312\f\313\n\314\nDE\315\311\316\n&\202\242 :\203\231\f \306\211:\203\221@\211:\204j\312\317!\313\nCE\315\311\316\320\n\321DE&\202\203\312@\313\n\321ADE\315\311\316\320\n\321ADE&BA\211\202B\237+B\202\242\312\f\322\321\nDD\323# B A\211\202 \237-\207" [vars #1=#:--cl-var-- var type desc #2=#:--cl-var-- nil sgml-variable-type sgml-variable-description toggle vector setq not :style :selected prin1-to-string eq quote sgml-do-set-option t #3=#:--cl-var-- c #4=#:--cl-var--] 12]) (byte-code "\305\306!\203M\305\300!\203\307W\204M \211:\203L\310\n@!\203E\n@\311H\312\232\2034\n\313\314 !B\240\210\202E\n@\311H\315\232\203E\n\316\314\f!B\240\210\nA\211\202)\305\207" [emacs-minor-version sgml-main-menu ent sgml-file-options sgml-user-options boundp emacs-major-version 10 vectorp 0 "File Options >" "File Options" sgml-make-options-menu "User Options >" "User Options"] 5) (defalias 'sgml-insert #[(props format &rest args) "`\306\307\302\n #c\210\f@\310=\203\fAA\202\311\f\310\"\210\312\f\313\"\211\203A\314N\211\203A\315\316\317!\320\"\210\321\f\314 # \210)\322 `\f#\210\312\f\323\"\324=\205Y\325\326 \306\323#\327\320#*\207" [tem start format args props #1=#:val nil apply rear-nonsticky cl--do-remf getf category face set-face-underline-p make-face underline t cl--set-getf add-text-properties read-only 1 set-extent-property extent-at start-open] 5]) (defalias 'sgml-set-face-for #[(start end type) " \236A\306\307\310\306\f $\210\n\203\311\n\f #\2029 \2059\312\f \"\313\n\314#\210\313\n\303 #\210\313\n\315\316#\210\317\n \"*\207" [type sgml-markup-faces o face start end nil cl--map-overlays #[(e #1=#:--cl-var--) "\303\304\"\203 \204\n\303\304\"=\203\202\305!\210\306\207" [e o type extent-property sgml-type delete-extent nil] 4] set-extent-endpoints make-extent set-extent-property sgml-type start-open t set-extent-face] 5]) (defalias 'sgml-set-face-after-change #[(start end &optional pre-len) "\205%\304 \305\306#\211?\206$ \307\n!U\203!\310\n \311\n!#\202$\312\n!)\207" [sgml-set-face start o end extent-at nil sgml-type extent-start-position set-extent-endpoints extent-end-position delete-extent] 6]) (defalias 'sgml-clear-faces #[nil "\300\301\302\211\211$\210\302\207" [cl--map-overlays #[(o #1=#:--cl-var--) "\301\302\"\203 \303!\210\304\207" [o extent-property type delete-extent nil] 3] nil] 5 nil nil]) (byte-code "\300\301!\204 \302\301\303\"\210\300\304!\204\302\304\305\"\210\306\307!\207" [fboundp frame-width defalias screen-width buffer-substring-no-properties buffer-substring provide psgml-lucid] 3)