;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 easymenu] 2) #@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) (#$ . -476)) #@128 Display a popup menu. ENTRIES is a list where every element has the form (STRING . VALUE) or STRING. (fn EVENT TITLE ENTRIES) (defalias 'sgml-popup-menu #[771 "\300BC!\301B\"\207" [sgml-split-long-menus x-popup-menu] 8 (#$ . 673)]) #@15 (fn STRING) (defalias 'sgml-range-indicator #[257 "\211\301G^O\207" [sgml-range-indicator-max-length 0] 5 (#$ . 917)]) #@14 (fn MENUS) (defalias 'sgml-split-long-menus #[257 "\211\301\211\211:\203e@\262\211A\262\242\262GV\203U\302\301\203N\303!G^S\233\301\241\210\233\262\304\305\306@@!#B\262B\262T\262\202\211\237\266\202\202YBC\237\244\262A\262\202\211\237\207" [sgml-max-menu-size nil 1 copy-sequence format "%s '%s'.." sgml-range-indicator] 13 (#$ . 1046)]) #@209 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. (fn EVENT TITLE MENUS) (defalias 'sgml-popup-multi-menu #[771 "\300!\262\211A\204\211@\301D\262\302\303B\"@!\207" [sgml-split-long-menus ("---" "---") eval x-popup-menu] 8 (#$ . 1433)]) (defvar sgml-write-protect-intagible (byte-code "\300\301!?\207" [boundp emacs-minor-version] 2)) #@32 (fn PROPS FORMAT &rest ARGS) (defalias 'sgml-insert #[642 "`\301\302#c\210\203\303\304\"\203\305\306\307#\210\310`#\207" [sgml-write-protect-intagible apply format plist-get intangible plist-put read-only t add-text-properties] 8 (#$ . 1916)]) #@127 Non-nil means use text properties for highlighting, not overlays. Overlays are significantly less efficient in large buffers. (defvar sgml-use-text-properties t (#$ . 2181)) #@23 (fn START END TYPE) (defalias 'sgml-set-face-for #[771 "\211\236A\204 \203\306 \307\"\262\n\203i \204M\310 \311\211\311\312\313\314\315\316!\317\"\320$\216\321\307$\210\205GW\205G\321S\322\323$,\262\202\321\307$\210\205W\205\321S\322\324$\202\325!\326\203\237\211\204\213\203\213\327@\330\"=\203\213@\262\202\230\327@\330\"\203\230\331@!\210A\262\202n\332!\211\262W\203\310\325!\262\203\237\327@\330\"\203\301\331@!\210A\262\202\260\211\203\345\333#\210\327\307\"?\205\376\334\307#\202\376\205\376\335\"\262\334\330#\210\334\307#\266\203\207" [sgml-markup-faces sgml-current-tree sgml-use-text-properties inhibit-modification-hooks buffer-undo-list inhibit-read-only sgml-element-appdata face buffer-modified-p t make-byte-code 0 "\300?\205\301\302!\207" vconcat vector [restore-buffer-modified-p nil] 2 put-text-property rear-nonsticky (face) (face) overlays-at nil overlay-get sgml-type delete-overlay next-overlay-change move-overlay overlay-put make-overlay sgml-default-nonsticky] 12 (#$ . 2361)]) #@36 (fn START END &optional PRE-LEN) (defalias 'sgml-set-face-after-change #[770 "\2057 ?\2057\302!\303:\2034@\262\304\305\"\203-\306!U\203-\307\310!#\210A\262\202 \303\266\202\207" [sgml-set-face sgml-use-text-properties overlays-at nil overlay-get sgml-type overlay-start move-overlay overlay-end] 10 (#$ . 3475)]) #@46 (fn OVERLAY FLAG START END &optional SIZE) (defalias 'sgml-fix-overlay-after-change #[1284 "\300\301%\210\302\303\304#\210\305\207" [message "sfix(%s): %d-%d (%s)" overlay-put front-nonsticky t nil] 11 (#$ . 3815)]) (defalias 'sgml-clear-faces #[0 "\300ed\"\211\205\211@\301\302\"\203\303!\210A\266\202\202\207" [overlays-in overlay-get sgml-type delete-overlay] 5 nil nil]) (provide 'psgml-other)