;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!\210\300\303!\210\300\304!\210\305\306\307\310!\"\210\305\311\312\310!\"\210\305\313\311\"\210\314\313\315\316#\210\317\310\320\311#\321\310\322\323\324$\207" [require eieio rudel-operations jupiter-operation jupiter-nop defalias jupiter-insert-p eieio-make-class-predicate jupiter-insert jupiter-insert--eieio-childp eieio-make-child-predicate jupiter-insert-child-p make-obsolete "use (cl-typep ... \\='jupiter-insert) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (jupiter-operation rudel-insert-op) nil (:documentation "Objects of this class represent insertions into buffers.")] 6) #@71 Create a new object of class type `jupiter-insert'. (fn &rest SLOTS) (defalias 'jupiter-insert #[128 "\300\301\302#\207" [apply make-instance jupiter-insert] 5 (#$ . 1063)]) (byte-code "\300\301\302\303#\300\207" [function-put jupiter-insert compiler-macro jupiter-insert--anon-cmacro] 4) #@26 (fn WHOLE &rest SLOTS) (defalias 'jupiter-insert--anon-cmacro #[385 "\211@;\204\207\300\301\302@@#@\303@DABB\"\207" [macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 1360)]) (byte-code "\300\301\302\303\302\304%\210\300\305\302\306\307\310%\210\311\312!\207" [cl-generic-define-method jupiter-transform nil ((this jupiter-insert) other) #[514 "\300!\203V\301\302\"\301\302\"V\203(\211\303\302\301\302\"\301\304\"\\#\266\202Q\301\302\"\301\302\"U\203Q\301\305\"\301\305\"\231\203Q\211\303\302\301\302\"\301\304\"\\#\266\266\202\306!\203\327\301\302\"\301\302\"Y\203\217\211\303\302\301\302\"\301\304\"\\#\266\211\303\307\301\307\"\301\304\"\\#\266\202\322\301\302\"\301\302\"W\203\322\301\307\"\301\307\"V\203\322\310\311\312\313\314\302\301\302\"\307\301\n\302\"%\313\315\302\301 \307\"\307\301\n\307\"\301\f\304\"\\%D#\262\266\202\316!\203\372\211\301\317\"\211\203\365\211@\320\"\262A\266\202\202\342\266\202\321!\204\322\323\324!\"\210\207" [jupiter-insert-p slot-value :from eieio-oset :length :data jupiter-delete-p :to jupiter-compound "compound" :children jupiter-delete "delete-left" "delete-right" jupiter-compound-p children jupiter-transform jupiter-nop-p error "Cannot transform operation of type `%s'" object-class] 17 "Transform OTHER using THIS.\n\n(fn THIS OTHER)"] object-print ((this jupiter-insert) &rest _strings) t #[642 "\300\301\302\303\"\"\300\304\302\305\"\"\300\306\302\307\"\"\300\310\302\311\"\"%\207" [format " from %d" slot-value from " to %d" to " length %d" length " data \"%s\"" data] 14 "Add from, to, length and data to string representation of THIS.\n\n(fn THIS &rest STRINGS)"] provide jupiter-insert] 6)