;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-insert adopted-nop defalias adopted-delete-p eieio-make-class-predicate adopted-delete adopted-delete--eieio-childp eieio-make-child-predicate adopted-delete-child-p make-obsolete "use (cl-typep ... \\='adopted-delete) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (adopted-operation rudel-delete-op) nil (:documentation "Objects of this class represent deletions in buffers.")] 6) #@71 Create a new object of class type `adopted-delete'. (fn &rest SLOTS) (defalias 'adopted-delete #[128 "\300\301\302#\207" [apply make-instance adopted-delete] 5 (#$ . 1088)]) (byte-code "\300\301\302\303#\300\207" [function-put adopted-delete compiler-macro adopted-delete--anon-cmacro] 4) #@26 (fn WHOLE &rest SLOTS) (defalias 'adopted-delete--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 (#$ . 1385)]) (byte-code "\300\301\302\303\302\304%\210\305\306!\207" [cl-generic-define-method adopted-transform nil ((this adopted-delete) other) #[514 "\300!\203]\301\302\"\301\303\"X\204X\301\303\"\301\302\"V\2034\211\304\303\301\303\"\301\305\"Z#\266\202X\301\303\"\301\303\"V\203X\301\302\"\301\302\"W\203X\211\304\303\301\303\"#\266\266\202\235\306!\203m\301\303\"\301\302\"V\203\226\211\304\303\301\303\"\301\305\"Z#\266\211\304\302\301\302\"\301\305\"Z#\266\202h\301\302\"\301\303\"X\204h\301\303\"\301\303\"Y\203\316\301\302\"\301\302\"Y\203\316\211\304\302\301\302\"\301\305\"Z#\266\202h\301\303\"\301\303\"W\203\301\302\"\301\302\"W\203\211\304\302\301\302\"\301\302\"\301\302\"ZZ#\266\202h\301\303\"\301\302\"W\203D\301\302\"\301\302\"V\203D\211\304\303\301\303\"#\266\211\304\302\301\302\"\301\303\"\301\302\"\301 \302\"Z\\\\#\266\202h\301\303\"\301\303\"Y\203d\301\302\"\301\302\"X\203d\307\310!\262\202h\311\312!\210\266\202\235\313!\203\220\211\301\314\"\211\203\213\211@\315\"\262A\266\202\202x\266\202\235\316!\204\235\311\317\320!\"\210\207" [adopted-insert-p slot-value :to :from eieio-oset :length adopted-delete-p adopted-nop "nop" error "logic error in adopted-delete::transform(adopted-delete)" adopted-compound-p children adopted-transform adopted-nop-p "Cannot transform operation of type `%s'" object-class] 14 "Transform other using THIS.\nOTHER is destructively modified or replaced.\n\n(fn THIS OTHER)"] provide adopted-delete] 6)