;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. #@32 Whether we are running XEmacs. (defvar mmm-xemacs nil (#$ . 87)) (byte-code "\301\302\303\"\210\203 \304\305!\210\301\207" [mmm-xemacs defalias mmm-regexp-opt regexp-opt require overlay] 3) #@59 The name of the overlay property controlling evaporation. (defvar mmm-evaporate-property 'evaporate (#$ . 285)) (defalias 'mmm-set-keymap-default '(macro . #[(keymap binding) "\302\303 F\207" [keymap binding define-key [t]] 4])) (defalias 'mmm-event-key '(macro . #[(event) "\301D\207" [event event-basic-type] 2])) (defvar skeleton-positions nil) #@132 Add `@' to `skeleton-further-elements' if XEmacs and not there. This makes `@' in skeletons act approximately like it does in FSF. (defalias 'mmm-fixup-skeleton #[nil "\300\207" [nil] 1 (#$ . 642)]) #@105 Return a buffer with name based on NAME including the text of BUFFER. This text should not be modified. (defalias 'mmm-make-temp-buffer '(macro . #[(buffer name) "\302\303!\203 \303\304 DE\207\305\306\307 DD\310D\311BBB\207" [buffer name fboundp make-indirect-buffer generate-new-buffer-name save-excursion set-buffer generate-new-buffer insert-buffer ((current-buffer))] 4 (#$ . 848)])) (byte-code "\301Y\203\302\303\304\"\210\202\305\306!\210\302\303\307\"\210\310\311!\207" [emacs-major-version 26 defalias mmm-mapcan mapcan require cl-lib cl-mapcan provide mmm-compat] 3)