;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 jupiter-operation jupiter-nop jupiter-insert defalias jupiter-delete-p eieio-make-class-predicate jupiter-delete jupiter-delete--eieio-childp eieio-make-child-predicate jupiter-delete-child-p make-obsolete "use (cl-typep ... \\='jupiter-delete) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (jupiter-operation rudel-delete-op) nil (:documentation "Objects of this class represent deletions in buffers.")] 6) #@71 Create a new object of class type `jupiter-delete'. (fn &rest SLOTS) (defalias 'jupiter-delete #[128 "\300\301\302#\207" [apply make-instance jupiter-delete] 5 (#$ . 1088)]) (byte-code "\300\301\302\303#\300\207" [function-put jupiter-delete compiler-macro jupiter-delete--anon-cmacro] 4) #@26 (fn WHOLE &rest SLOTS) (defalias 'jupiter-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\300\305\302\306\307\310%\210\311\312!\207" [cl-generic-define-method jupiter-transform nil ((this jupiter-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" [jupiter-insert-p slot-value :to :from eieio-oset :length jupiter-delete-p jupiter-nop "nop" error "logic error in (jupiter-transform (x jupiter-delete) (y jupiter-delete))" jupiter-compound-p children jupiter-transform jupiter-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)"] object-print ((this jupiter-delete) &rest _strings) t #[642 "\300\301\302\303\"\"\300\304\302\305\"\"\300\306\302\307\"\"$\207" [format " from %d" slot-value from " to %d" to " length %d" length] 13 "Add from, to and length to string representation of THIS.\n\n(fn THIS &rest STRINGS)"] provide jupiter-delete] 6)