Function: srecode-delete
srecode-delete is a byte-compiled function without a source file.
Signature
(srecode-delete ARG &rest ARGS)
Implementations
(srecode-delete (OLAID srecode-field)) in `srecode/fields.el'.
Undocumented
(srecode-delete (IR srecode-template-inserted-region)) in `srecode/fields.el'.
Undocumented
(srecode-delete (OLAID srecode-overlaid)) in `srecode/fields.el'.
Delete the overlay from OLAID.
;; Could not find source code, showing raw function object. #[385 "\304\203 �\305!\202\f�\306\307\300\"\2066�\310\303\311\302\301\312\313\n\203&�\305 !\202'�\306!\314\315!\"%\316\300#\210\211\262\262#\207" [#s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8125 data ()) (#s(cl--generic-method (srecode-field) nil curried #[257 "\300!\210\301\302\303\"\207" [cl--generic-isnot-nnm-p nil make-closure #[128 "\301\302\300#\303\304#\207" [V0 make-closure #[128 "\302\301\206�\300\"\207" [V0 V1 apply] 4 "\n\n(fn &rest ARGS)"] apply #[514 "\300\301\302\"!\210\303\302\"\210 \207" [delete-overlay eieio-oref tail slot-makeunbound] 6 "\n\n(fn CL--CNM OLAID)"]] 6 "Delete our secondary overlay.\n\n(fn OLAID)"]] 5 "\n\n(fn CL--NM)"]) #s(cl--generic-method (srecode-template-inserted-region) nil curried #[257 "\300!\210\301\302\303\"\207" [cl--generic-isnot-nnm-p nil make-closure #[128 "\301\302\300#\303\304#\207" [V0 make-closure #[128 "\302\301\206�\300\"\207" [V0 V1 apply] 4 "\n\n(fn &rest ARGS)"] apply #[514 "\300\301\302#\210\303\304\305\306\"\"\210 \210\307\310\311\312#\207" [eieio-oset active-region nil mapc srecode-delete eieio-oref fields remove-hook post-command-hook srecode-field-post-command t] 7 "\n\n(fn CL--CNM IR)"]] 6 "Call into our base, but also clear out the fields.\n\n(fn IR)"]] 5 "\n\n(fn CL--NM)"]) #s(cl--generic-method (srecode-overlaid) nil nil #[257 "\300\301\302\"!\210\303\302\"\207" [delete-overlay eieio-oref overlay slot-makeunbound] 5 "Delete the overlay from OLAID.\n\n(fn OLAID)"])) nil #s(cl--generic srecode-delete ((0 #s(cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag #[385 "\301N\302!>\205�\303\304\305!\"\207" [cl-struct-eieio--class-tags cl--class type-of mapcar eieio--class-name eieio--class-precedence-list] 7 "\n\n(fn TAG &rest _)"]) #s(cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 "\n\n(fn NAME &rest _)"] #[385 "\300\207" [(t)] 3 "\n\n(fn TAG &rest _)"]))) (#s(cl--generic-method (srecode-field) nil curried #[257 "\300!\210\301\302\303\"\207" [cl--generic-isnot-nnm-p nil make-closure #[128 "\301\302\300#\303\304#\207" [V0 make-closure #[128 "\302\301\206�\300\"\207" [V0 V1 apply] 4 "\n\n(fn &rest ARGS)"] apply #[514 "\300\301\302\"!\210\303\302\"\210 \207" [delete-overlay eieio-oref tail slot-makeunbound] 6 "\n\n(fn CL--CNM OLAID)"]] 6 "Delete our secondary overlay.\n\n(fn OLAID)"]] 5 "\n\n(fn CL--NM)"]) #s(cl--generic-method (srecode-template-inserted-region) nil curried #[257 "\300!\210\301\302\303\"\207" [cl--generic-isnot-nnm-p nil make-closure #[128 "\301\302\300#\303\304#\207" [V0 make-closure #[128 "\302\301\206�\300\"\207" [V0 V1 apply] 4 "\n\n(fn &rest ARGS)"] apply #[514 "\300\301\302#\210\303\304\305\306\"\"\210 \210\307\310\311\312#\207" [eieio-oset active-region nil mapc srecode-delete eieio-oref fields remove-hook post-command-hook srecode-field-post-command t] 7 "\n\n(fn CL--CNM IR)"]] 6 "Call into our base, but also clear out the fields.\n\n(fn IR)"]] 5 "\n\n(fn CL--NM)"]) #s(cl--generic-method (srecode-overlaid) nil nil #[257 "\300\301\302\"!\210\303\302\"\207" [delete-overlay eieio-oref overlay slot-makeunbound] 5 "Delete the overlay from OLAID.\n\n(fn OLAID)"])) nil) apply type-of null gethash cl--generic-cache-miss 0 append #[385 "\301N\302!>\205�\303\304\305!\"\207" [cl-struct-eieio--class-tags cl--class type-of mapcar eieio--class-name eieio--class-precedence-list] 7 "\n\n(fn TAG &rest _)"] #[385 "\300\207" [(t)] 3 "\n\n(fn TAG &rest _)"] nil puthash] 13 "\n\n(fn ARG &rest ARGS)"]