;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\303\304\305\306!\"\210\303\307\310\306!\"\210\303\311\307\"\210\312\311\313\314#\210\315\306\316\307#\317\306\320\211\321$\207" [require cl-generic eieio defalias rudel-operation-p eieio-make-class-predicate rudel-operation rudel-operation--eieio-childp eieio-make-child-predicate rudel-operation-child-p make-obsolete "use (cl-typep ... \\='rudel-operation) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal nil (:documentation "Abstract base class for operations." :abstract t)] 6) #@73 You cannot create a new object of type `rudel-operation'. (fn &rest _) (defalias 'rudel-operation #[128 "\300\301!\207" [error "Class rudel-operation is abstract"] 3 (#$ . 961)]) (byte-code "\300\301\302\301\303\304#\305#\210\300\306\307\310!\"\210\300\311\312\310!\"\210\300\313\311\"\210\314\313\315\316#\210\317\310\320\311#\321\310\322\323\324$\207" [defalias rudel-apply cl-generic-define ((this rudel-operation) object) nil "Apply the change represented by THIS to OBJECT.\n\n(fn (this rudel-operation) OBJECT)" rudel-point-operation-p eieio-make-class-predicate rudel-point-operation rudel-point-operation--eieio-childp eieio-make-child-predicate rudel-point-operation-child-p make-obsolete "use (cl-typep ... \\='rudel-point-operation) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (rudel-operation) ((from :initarg :from :type (or null (integer 0)) :documentation "Position affected by this operation or nil. nil means\nend of buffer")) (:documentation "" :abstract t)] 6) #@79 You cannot create a new object of type `rudel-point-operation'. (fn &rest _) (defalias 'rudel-point-operation #[128 "\300\301!\207" [error "Class rudel-point-operation is abstract"] 3 (#$ . 1984)]) (byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\317$\207" [defalias rudel-range-operation-p eieio-make-class-predicate rudel-range-operation rudel-range-operation--eieio-childp eieio-make-child-predicate rudel-range-operation-child-p make-obsolete "use (cl-typep ... \\='rudel-range-operation) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (rudel-operation) ((from :initarg :from :type (integer 0) :documentation "Start of the region affected by this operation.") (to :initarg :to :type (integer 0) :documentation "End of the region affected by this operation.")) (:documentation "" :abstract t)] 6) #@79 You cannot create a new object of type `rudel-range-operation'. (fn &rest _) (defalias 'rudel-range-operation #[128 "\300\301!\207" [error "Class rudel-range-operation is abstract"] 3 (#$ . 2906)]) (byte-code "\300\301\302\303\304\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" [cl-generic-define-method slot-missing nil ((this rudel-range-operation) slot-name operation &optional new-value) t #[1284 "\300=\204\f\301=\203.\302=\203\303\304\"\303\305\"Z\202-\211\306\304\303\305\"\\#\262\207 \207" [:length length oref slot-value to from eieio-oset] 13 "Simulate slot :length\n\n(fn CL--CNM THIS SLOT-NAME OPERATION &optional NEW-VALUE)"] defalias rudel-insert-op-p eieio-make-class-predicate rudel-insert-op rudel-insert-op--eieio-childp eieio-make-child-predicate rudel-insert-op-child-p make-obsolete "use (cl-typep ... \\='rudel-insert-op) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (rudel-point-operation) ((data :initarg :data :type string :documentation "The inserted string.")) (:documentation "Objects of this class represent insertion operations.")] 6) #@72 Create a new object of class type `rudel-insert-op'. (fn &rest SLOTS) (defalias 'rudel-insert-op #[128 "\300\301\302#\207" [apply make-instance rudel-insert-op] 5 (#$ . 4120)]) (byte-code "\300\301\302\303#\300\207" [function-put rudel-insert-op compiler-macro rudel-insert-op--anon-cmacro] 4) #@26 (fn WHOLE &rest SLOTS) (defalias 'rudel-insert-op--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 (#$ . 4422)]) (byte-code "\300\301\302\303\302\304%\210\300\305\302\306\307\310%\210\311\312\313\314!\"\210\311\315\316\314!\"\210\311\317\315\"\210\320\317\321\322#\210\323\314\324\315#\325\314\326\302\327$\207" [cl-generic-define-method rudel-apply nil ((this rudel-insert-op) object) #[514 "\300\301\302\"\301\303\"#\207" [rudel-insert slot-value from data] 9 "Apply THIS to OBJECT by inserting the associated data.\n\n(fn THIS OBJECT)"] slot-missing ((this rudel-insert-op) slot-name operation &optional _new-value) t #[1284 "\300=\204\f\301=\203\302=\203\303\304\"G\207\305=\204%\306=\2036\302=\2036\303\307\"\303\301\"\\\207 \207" [:length length oref slot-value data :to to from] 10 "Simulate read-only slots :length and :to.\n\n(fn CL--CNM THIS SLOT-NAME OPERATION &optional NEW-VALUE)"] defalias rudel-delete-op-p eieio-make-class-predicate rudel-delete-op rudel-delete-op--eieio-childp eieio-make-child-predicate rudel-delete-op-child-p make-obsolete "use (cl-typep ... \\='rudel-delete-op) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (rudel-range-operation) (:documentation "Objects of this class represent deletion operations.")] 6) #@72 Create a new object of class type `rudel-delete-op'. (fn &rest SLOTS) (defalias 'rudel-delete-op #[128 "\300\301\302#\207" [apply make-instance rudel-delete-op] 5 (#$ . 5847)]) (byte-code "\300\301\302\303#\300\207" [function-put rudel-delete-op compiler-macro rudel-delete-op--anon-cmacro] 4) #@26 (fn WHOLE &rest SLOTS) (defalias 'rudel-delete-op--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 (#$ . 6149)]) (byte-code "\300\301\302\303\302\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\302\323$\207" [cl-generic-define-method rudel-apply nil ((this rudel-delete-op) object) #[514 "\300\301\302\"\301\303\"#\207" [rudel-delete slot-value from length] 9 "Apply THIS to OBJECT by deleting the associated region.\n\n(fn THIS OBJECT)"] defalias rudel-move-cursor-op-p eieio-make-class-predicate rudel-move-cursor-op rudel-move-cursor-op--eieio-childp eieio-make-child-predicate rudel-move-cursor-op-child-p make-obsolete "use (cl-typep ... \\='rudel-move-cursor-op) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (rudel-point-operation) (:documentation "Objects of this class represent cursor movements.")] 6) #@77 Create a new object of class type `rudel-move-cursor-op'. (fn &rest SLOTS) (defalias 'rudel-move-cursor-op #[128 "\300\301\302#\207" [apply make-instance rudel-move-cursor-op] 5 (#$ . 7195)]) (byte-code "\300\301\302\303#\300\207" [function-put rudel-move-cursor-op compiler-macro rudel-move-cursor-op--anon-cmacro] 4) #@26 (fn WHOLE &rest SLOTS) (defalias 'rudel-move-cursor-op--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 (#$ . 7522)]) (byte-code "\300\301\302\303\302\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\302\323$\207" [cl-generic-define-method rudel-apply nil ((this rudel-move-cursor-op) object) #[514 "\300\301\302\"\"\207" [rudel-move-cursor slot-value from] 8 "Apply THIS to OBJECT by changing the position of one user's cursor.\n\n(fn THIS OBJECT)"] defalias rudel-move-selection-op-p eieio-make-class-predicate rudel-move-selection-op rudel-move-selection-op--eieio-childp eieio-make-child-predicate rudel-move-selection-op-child-p make-obsolete "use (cl-typep ... \\='rudel-move-selection-op) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (rudel-range-operation) (:documentation "Objects of this class represent changes of users'\nselections.")] 6) #@80 Create a new object of class type `rudel-move-selection-op'. (fn &rest SLOTS) (defalias 'rudel-move-selection-op #[128 "\300\301\302#\207" [apply make-instance rudel-move-selection-op] 5 (#$ . 8606)]) (byte-code "\300\301\302\303#\300\207" [function-put rudel-move-selection-op compiler-macro rudel-move-selection-op--anon-cmacro] 4) #@26 (fn WHOLE &rest SLOTS) (defalias 'rudel-move-selection-op--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 (#$ . 8948)]) (byte-code "\300\301\302\303\302\304%\210\305\306!\207" [cl-generic-define-method rudel-apply nil ((this rudel-move-selection-op) object) #[514 "\300\301\302\"\301\303\"#\207" [rudel-move-selection slot-value from to] 9 "Apply THIS to OBJECT by changing one user's selection.\n\n(fn THIS OBJECT)"] provide rudel-operations] 6)