;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\304\305\306\307!\"\210\304\310\311\307!\"\210\304\312\310\"\210\313\312\314\315#\210\316\307\317\310#\320\307\321\322\323$\207" [require cl-generic eieio rudel-overlay defalias rudel-document-operators-p eieio-make-class-predicate rudel-document-operators rudel-document-operators--eieio-childp eieio-make-child-predicate rudel-document-operators-child-p make-obsolete "use (cl-typep ... \\='rudel-document-operators) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal nil ((document :initarg :document :type rudel-document-child :documentation "Document to which modification operators are\napplied.")) (:documentation "Provides operation methods which modify an associated document.")] 6) #@81 Create a new object of class type `rudel-document-operators'. (fn &rest SLOTS) (defalias 'rudel-document-operators #[128 "\300\301\302#\207" [apply make-instance rudel-document-operators] 5 (#$ . 1180)]) (byte-code "\300\301\302\303#\300\207" [function-put rudel-document-operators compiler-macro rudel-document-operators--anon-cmacro] 4) #@26 (fn WHOLE &rest SLOTS) (defalias 'rudel-document-operators--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 (#$ . 1527)]) (byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\210\310\311\312\313!\"\210\310\314\315\313!\"\210\310\316\314\"\210\317\316\320\321#\210\322\313\323\314#\324\313\302\325\326$\207" [cl-generic-define-method rudel-insert nil ((this rudel-document-operators) position data) #[771 "\300\301\302\"#\207" [rudel-insert slot-value document] 8 "Insert DATA at POSITION into the document attached to THIS.\n\n(fn THIS POSITION DATA)"] rudel-delete ((this rudel-document-operators) position length) #[771 "\300\301\302\"#\207" [rudel-delete slot-value document] 8 "Delete a region of LENGTH characters at POSITION from the document attached to THIS.\n\n(fn THIS POSITION LENGTH)"] defalias rudel-connection-operators-p eieio-make-class-predicate rudel-connection-operators rudel-connection-operators--eieio-childp eieio-make-child-predicate rudel-connection-operators-child-p make-obsolete "use (cl-typep ... \\='rudel-connection-operators) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal ((connection :initarg :connection :type rudel-connection-child :documentation "Connection on which the operations are\nperformed.") (document :initarg :document :type rudel-document-child :documentation "Document object to which operations refer.")) (:documentation "Provides operation methods which affect an associated\nconnection.")] 6) #@83 Create a new object of class type `rudel-connection-operators'. (fn &rest SLOTS) (defalias 'rudel-connection-operators #[128 "\300\301\302#\207" [apply make-instance rudel-connection-operators] 5 (#$ . 3148)]) (byte-code "\300\301\302\303#\300\207" [function-put rudel-connection-operators compiler-macro rudel-connection-operators--anon-cmacro] 4) #@26 (fn WHOLE &rest SLOTS) (defalias 'rudel-connection-operators--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 (#$ . 3505)]) (byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\210\310\311\312\313!\"\210\310\314\315\313!\"\210\310\316\314\"\210\317\316\320\321#\210\322\313\323\314#\324\313\302\325\326$\207" [cl-generic-define-method rudel-insert nil ((this rudel-connection-operators) position data) #[771 "\300\301\302\"\301\303\"$\207" [rudel-local-insert slot-value connection document] 9 "Notify the connection associated to THIS of the insertion of DATA at POSITION.\n\n(fn THIS POSITION DATA)"] rudel-delete ((this rudel-connection-operators) position length) #[771 "\300\301\302\"\301\303\"$\207" [rudel-local-delete slot-value connection document] 9 "Notify the connection associated to THIS of a deletion of LENGTH at POSITION.\n\n(fn THIS POSITION LENGTH)"] defalias rudel-overlay-operators-p eieio-make-class-predicate rudel-overlay-operators rudel-overlay-operators--eieio-childp eieio-make-child-predicate rudel-overlay-operators-child-p make-obsolete "use (cl-typep ... \\='rudel-overlay-operators) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal ((document :initarg :document :type rudel-document-child :documentation "The document to the overlays of which the\noperations are applied") (user :initarg :user :type rudel-user-child :documentation "The user object associated to operations.")) (:documentation "Provides operation methods which affect the overlays of a\nbuffer.")] 6) #@80 Create a new object of class type `rudel-overlay-operators'. (fn &rest SLOTS) (defalias 'rudel-overlay-operators #[128 "\300\301\302#\207" [apply make-instance rudel-overlay-operators] 5 (#$ . 5181)]) (byte-code "\300\301\302\303#\300\207" [function-put rudel-overlay-operators compiler-macro rudel-overlay-operators--anon-cmacro] 4) #@26 (fn WHOLE &rest SLOTS) (defalias 'rudel-overlay-operators--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 (#$ . 5523)]) (byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\210\310\311\312\313!\"\210\310\314\315\313!\"\210\310\316\314\"\210\317\316\320\321#\210\322\313\323\314#\324\313\302\325\326$\207" [cl-generic-define-method rudel-insert nil ((this rudel-overlay-operators) position data) #[771 "\300\301\"\204r\300\302\"q\210\303dG\304#\262)\305\300\302\"TG\300\306\"$\262\207" [slot-value document buffer - 1 rudel-update-author-overlay-after-insert user] 12 "Update the overlays associated to THIS to incorporate an insertion of DATA at POSITION.\n\n(fn THIS POSITION DATA)"] rudel-delete ((this rudel-overlay-operators) position length) #[771 "\300\301\"\302\300\303\"T\300\304\"$\262\207" [slot-value document rudel-update-author-overlay-after-delete buffer user] 12 "Update the overlays associated to THIS to incorporate a deletion of LENGTH at POSITION.\n\n(fn THIS POSITION LENGTH)"] defalias rudel-hook-operators-p eieio-make-class-predicate rudel-hook-operators rudel-hook-operators--eieio-childp eieio-make-child-predicate rudel-hook-operators-child-p make-obsolete "use (cl-typep ... \\='rudel-hook-operators) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal ((document :initarg :document :type rudel-document-child :documentation "The document object to which operations refer.") (user :initarg :user :type rudel-user-child :documentation "The user object associated to operations.")) (:documentation "Provides operation methods which cause corresponding hooks to\nbe called.")] 6) #@77 Create a new object of class type `rudel-hook-operators'. (fn &rest SLOTS) (defalias 'rudel-hook-operators #[128 "\300\301\302#\207" [apply make-instance rudel-hook-operators] 5 (#$ . 7313)]) (byte-code "\300\301\302\303#\300\207" [function-put rudel-hook-operators compiler-macro rudel-hook-operators--anon-cmacro] 4) #@26 (fn WHOLE &rest SLOTS) (defalias 'rudel-hook-operators--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 (#$ . 7640)]) (byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\210\310\311!\207" [cl-generic-define-method rudel-insert nil ((this rudel-hook-operators) position data) #[771 "\300\301\"\302\303\300\304\"\300\305\"%\262\207" [slot-value document run-hook-with-args rudel-insert-hook buffer user] 11 "Call insert hook associated to THIS with POSITION and DATA.\n\n(fn THIS POSITION DATA)"] rudel-delete ((this rudel-hook-operators) position length) #[771 "\300\301\"\302\303\300\304\"\300\305\"%\262\207" [slot-value document run-hook-with-args rudel-delete-hook buffer user] 11 "Call delete hook associated to THIS with POSITION and LENGTH.\n\n(fn THIS POSITION LENGTH)"] provide rudel-operators] 6)