;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\300\305!\210\306\307\310\311!\"\210\306\312\313\311!\"\210\306\314\312\"\210\315\314\316\317#\210\320\311\321\312#\322\311\323\324\325$\207" [require eieio rudel-operations adopted-operation adopted-compound adopted-nop defalias adopted-insert-p eieio-make-class-predicate adopted-insert adopted-insert--eieio-childp eieio-make-child-predicate adopted-insert-child-p make-obsolete "use (cl-typep ... \\='adopted-insert) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (adopted-operation rudel-insert-op) nil (:documentation "Objects of this class represent insertions into buffers.")] 6) #@71 Create a new object of class type `adopted-insert'. (fn &rest SLOTS) (defalias 'adopted-insert #[128 "\300\301\302#\207" [apply make-instance adopted-insert] 5 (#$ . 1093)]) (byte-code "\300\301\302\303#\300\207" [function-put adopted-insert compiler-macro adopted-insert--anon-cmacro] 4) #@26 (fn WHOLE &rest SLOTS) (defalias 'adopted-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 (#$ . 1390)]) (byte-code "\300\301\302\303\302\304%\210\305\306!\207" [cl-generic-define-method adopted-transform nil ((this adopted-insert) other) #[514 "\300!\203b\301\302\"\301\302\"W\204]\301\302\"\301\302\"V\2034\211\303\302\301\302\"\301\304\"\\#\266\202]\301\302\"\301\302\"U\203]\301\305\"\301\305\"\231\203]\211\303\302\301\302\"\301\304\"\\#\266\266\202\306!\203\343\301\302\"\301\302\"Y\203\233\211\303\302\301\302\"\301\304\"\\#\266\211\303\307\301\307\"\301\304\"\\#\266\202\336\301\302\"\301\302\"W\203\336\301\307\"\301\307\"V\203\336\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\211\301\317\"\211\203\211@\320\"\262A\266\202\202\356\266\202\321!\204\322\323\324!\"\210\207" [adopted-insert-p slot-value :from eieio-oset :length :data adopted-delete-p :to adopted-compound "compound" :children adopted-delete "delete-left" "delete-right" adopted-compound-p children adopted-transform adopted-nop-p error "Cannot transform operation of type `%s'" object-class] 17 "Transform OTHER using THIS.\n\n(fn THIS OTHER)"] provide adopted-insert] 6)