Function: srecode-insert-method

srecode-insert-method is a byte-compiled function without a source file.

Signature

(srecode-insert-method ARG &rest ARGS)

Implementations

(srecode-insert-method (STI srecode-template-inserter-include-wrap) DICTIONARY) in `srecode/insert.el'.

Undocumented

(srecode-insert-method (STI srecode-template-inserter-include) DICTIONARY) in `srecode/insert.el'.

Insert the STI inserter. Finds the template with this macro function part, and inserts it with the dictionaries found in the dictionary.

(srecode-insert-method (STI srecode-template-inserter-section-end) DICTIONARY) in `srecode/insert.el'.

Undocumented

(srecode-insert-method (STI srecode-template-inserter-subtemplate) DICTIONARY) in `srecode/insert.el'.

Insert the STI inserter. Calls back to `srecode-insert-method-helper' for this class.

(srecode-insert-method (STI srecode-template-inserter-point) DICTIONARY) in `srecode/insert.el'.

Insert the STI inserter. Save point in the class allocated `point' slot. If `srecode-template-inserter-point-override' non-nil then this generalized marker will do something else. See `srecode-template-inserter-include-wrap' as an example.

(srecode-insert-method (STI srecode-template-inserter-ask) DICTIONARY) in `srecode/insert.el'.

Undocumented

(srecode-insert-method (STI srecode-template-inserter-variable) DICTIONARY) in `srecode/insert.el'.

Insert the STI inserter.

(srecode-insert-method (STI srecode-template-inserter-comment) DICTIONARY) in `srecode/insert.el'.

Don't insert anything for comment macros in STI.

(srecode-insert-method (STI srecode-template-inserter-blank) DICTIONARY) in `srecode/insert.el'.

Make sure there is no text before or after point.

(srecode-insert-method (STI srecode-template-inserter-newline) DICTIONARY) in `srecode/insert.el'.

Insert the STI inserter.

(srecode-insert-method (ST srecode-template) DICTIONARY) in `srecode/insert.el'.

Insert the srecoder template ST.

;; 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-template-inserter-include-wrap t) 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 #[771 "\301\"\210\302\303\304\"GT\305\306\"B )\207" [srecode-template-inserter-point-override srecode-insert-include-lookup eieio-oref-default srecode-template active make-closure #[257 "\302\303\304\300\305\"\"\203�\306\300\307#\202�\310\300\307#)\207" [V0 srecode-template-inserter-point-override nil srecode-dictionary-lookup-name eieio-oref object-name srecode-insert-method-helper template srecode-insert-subtemplate] 6 "\n\n(fn DICT)"]] 7 "\n\n(fn CL--CNM STI DICTIONARY)"]] 6 "Insert the template STI.\nThis will first insert the include part via inheritance, then\ninsert the section it wraps into the location in the included\ntemplate where a ^ inserter occurs.\n\n(fn STI DICTIONARY)"]] 5 "\n\n(fn CL--NM)"]) #s(cl--generic-method (srecode-template-inserter-include t) nil nil #[514 "\300\"\210\301\302\303\"\"\203�\304\305#\207\306\305#\207" [srecode-insert-include-lookup srecode-dictionary-lookup-name eieio-oref object-name srecode-insert-method-helper includedtemplate srecode-insert-subtemplate] 7 "Insert the STI inserter.\nFinds the template with this macro function part, and inserts it\nwith the dictionaries found in the dictionary.\n\n(fn STI DICTIONARY)"]) #s(cl--generic-method (srecode-template-inserter-section-end t) nil nil #[514 "\300\207" ["Insert the STI inserter."] 3 "\n\n(fn STI DICTIONARY)"]) #s(cl--generic-method (srecode-template-inserter-subtemplate t) nil nil #[514 "\300\301#\207" [srecode-insert-method-helper template] 6 "Insert the STI inserter.\nCalls back to `srecode-insert-method-helper' for this class.\n\n(fn STI DICTIONARY)"]) #s(cl--generic-method (srecode-template-inserter-point t) nil nil #[514 "\203�\301\302\303\"G@X\203�A\304\211!)\207\305\306\307 #\207" [srecode-template-inserter-point-override eieio-oref-default srecode-template active nil eieio-oset point point-marker] 6 "Insert the STI inserter.\nSave point in the class allocated `point' slot.\nIf `srecode-template-inserter-point-override' non-nil then this\ngeneralized marker will do something else. See\n`srecode-template-inserter-include-wrap' as an example.\n\n(fn STI DICTIONARY)"]) #s(cl--generic-method (srecode-template-inserter-ask t) 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 #[771 "\301\302\303\"\"\211\203� \207\203�\304\"\262\202!�\305\"\262\306\307!\302\303\"#\210 \207" [srecode-insert-with-fields-in-progress srecode-dictionary-lookup-name eieio-oref object-name srecode-insert-method-field srecode-insert-method-ask srecode-dictionary-set-value srecode-root-dictionary] 9 "\n\n(fn CL--CNM STI DICTIONARY)"]] 6 "Insert the STI inserter.\n\n(fn STI DICTIONARY)"]] 5 "\n\n(fn CL--NM)"]) #s(cl--generic-method (srecode-template-inserter-variable t) nil nil #[514 "\300\301\"\300\302\"\303\"\304\204�\305\306\"\210\307\262;\203,�\310$\262\202d�\311!\203M�\203;�\312!\262\313#\262\204d�\314\262\202d�\315!\203]�\316\317#\210\202d�\316\320#\210\211\205k�\321!\207" [eieio-oref object-name secondname srecode-dictionary-lookup-name t message "Warning: macro %S was not found in the dictionary." "" srecode-insert-variable-secondname-handler srecode-dictionary-compound-value--eieio-childp read srecode-compound-toString nil srecode-dictionary--eieio-childp srecode-insert-report-error "Macro %s cannot insert a dictionary - use section macros instead" "Macro %s cannot insert arbitrary data" princ] 11 "Insert the STI inserter.\n\n(fn STI DICTIONARY)"]) #s(cl--generic-method (srecode-template-inserter-comment t) nil nil #[514 "\300\207" [nil] 3 "Don't insert anything for comment macros in STI.\n\n(fn STI DICTIONARY)"]) #s(cl--generic-method (srecode-template-inserter-blank t) nil nil #[514 "\301\302\"\303!\304 \205}�\305\306\307\"G\310U\205}�\311=\2030�\2030�\312\313\"\314=\2040�\315 \210\211b\210\312\313\"\314=\203D�n\204D�\316\317!\210\202`�\312\313\"\320=\203`�\321\322!\203X�`\323 |\210l\204`�\316\317!\210\304 \262\311=\205}�\205}�\312\313\"\320=?\205}�\315 \210\211b\207" [standard-output srecode-dictionary-lookup-name "INDENT" bufferp point-marker eieio-oref-default srecode-template active 1 t eieio-oref where begin indent-according-to-mode princ "\n" end looking-at "\\s-*$" line-end-position] 8 "Make sure there is no text before or after point.\n\n(fn STI DICTIONARY)"]) #s(cl--generic-method (srecode-template-inserter-newline t) nil nil #[514 "\301\302\"\303!\304\305 \203+�\306\307\"\204+�\310 \210\214`}\210\311\312!\203'�\313\262)\211b\210\304=\203;�\203;�\314 \210\211b\210\205m�\315\316!\210\304=\203Y�\303!\203Y�\305 \262\314 \210\211b\207\247\203e�\315\317\320\"!\207;\205m�\315!\207" [standard-output srecode-dictionary-lookup-name "INDENT" bufferp t point-marker eieio-oref hard beginning-of-line looking-at "\\s-*$" nil indent-according-to-mode princ "\n" make-string " "] 10 "Insert the STI inserter.\n\n(fn STI DICTIONARY)"]) #s(cl--generic-method (srecode-template t) nil nil #[514 "\300\301\"\203�\302\303\301\"\"\210\304\305\"\216\303\306\"\307!\210\310\")\207" [slot-boundp dictionary srecode-dictionary-merge eieio-oref make-closure #[0 "\301\300!\207" [V0 srecode-pop] 2] code srecode-push srecode-insert-code-stream] 7 "Insert the srecoder template ST.\n\n(fn ST DICTIONARY)"])) nil #s(cl--generic srecode-insert-method ((1 #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 _)"])) (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-template-inserter-include-wrap t) 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 #[771 "\301\"\210\302\303\304\"GT\305\306\"B )\207" [srecode-template-inserter-point-override srecode-insert-include-lookup eieio-oref-default srecode-template active make-closure #[257 "\302\303\304\300\305\"\"\203�\306\300\307#\202�\310\300\307#)\207" [V0 srecode-template-inserter-point-override nil srecode-dictionary-lookup-name eieio-oref object-name srecode-insert-method-helper template srecode-insert-subtemplate] 6 "\n\n(fn DICT)"]] 7 "\n\n(fn CL--CNM STI DICTIONARY)"]] 6 "Insert the template STI.\nThis will first insert the include part via inheritance, then\ninsert the section it wraps into the location in the included\ntemplate where a ^ inserter occurs.\n\n(fn STI DICTIONARY)"]] 5 "\n\n(fn CL--NM)"]) #s(cl--generic-method (srecode-template-inserter-include t) nil nil #[514 "\300\"\210\301\302\303\"\"\203�\304\305#\207\306\305#\207" [srecode-insert-include-lookup srecode-dictionary-lookup-name eieio-oref object-name srecode-insert-method-helper includedtemplate srecode-insert-subtemplate] 7 "Insert the STI inserter.\nFinds the template with this macro function part, and inserts it\nwith the dictionaries found in the dictionary.\n\n(fn STI DICTIONARY)"]) #s(cl--generic-method (srecode-template-inserter-section-end t) nil nil #[514 "\300\207" ["Insert the STI inserter."] 3 "\n\n(fn STI DICTIONARY)"]) #s(cl--generic-method (srecode-template-inserter-subtemplate t) nil nil #[514 "\300\301#\207" [srecode-insert-method-helper template] 6 "Insert the STI inserter.\nCalls back to `srecode-insert-method-helper' for this class.\n\n(fn STI DICTIONARY)"]) #s(cl--generic-method (srecode-template-inserter-point t) nil nil #[514 "\203�\301\302\303\"G@X\203�A\304\211!)\207\305\306\307 #\207" [srecode-template-inserter-point-override eieio-oref-default srecode-template active nil eieio-oset point point-marker] 6 "Insert the STI inserter.\nSave point in the class allocated `point' slot.\nIf `srecode-template-inserter-point-override' non-nil then this\ngeneralized marker will do something else. See\n`srecode-template-inserter-include-wrap' as an example.\n\n(fn STI DICTIONARY)"]) #s(cl--generic-method (srecode-template-inserter-ask t) 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 #[771 "\301\302\303\"\"\211\203� \207\203�\304\"\262\202!�\305\"\262\306\307!\302\303\"#\210 \207" [srecode-insert-with-fields-in-progress srecode-dictionary-lookup-name eieio-oref object-name srecode-insert-method-field srecode-insert-method-ask srecode-dictionary-set-value srecode-root-dictionary] 9 "\n\n(fn CL--CNM STI DICTIONARY)"]] 6 "Insert the STI inserter.\n\n(fn STI DICTIONARY)"]] 5 "\n\n(fn CL--NM)"]) #s(cl--generic-method (srecode-template-inserter-variable t) nil nil #[514 "\300\301\"\300\302\"\303\"\304\204�\305\306\"\210\307\262;\203,�\310$\262\202d�\311!\203M�\203;�\312!\262\313#\262\204d�\314\262\202d�\315!\203]�\316\317#\210\202d�\316\320#\210\211\205k�\321!\207" [eieio-oref object-name secondname srecode-dictionary-lookup-name t message "Warning: macro %S was not found in the dictionary." "" srecode-insert-variable-secondname-handler srecode-dictionary-compound-value--eieio-childp read srecode-compound-toString nil srecode-dictionary--eieio-childp srecode-insert-report-error "Macro %s cannot insert a dictionary - use section macros instead" "Macro %s cannot insert arbitrary data" princ] 11 "Insert the STI inserter.\n\n(fn STI DICTIONARY)"]) #s(cl--generic-method (srecode-template-inserter-comment t) nil nil #[514 "\300\207" [nil] 3 "Don't insert anything for comment macros in STI.\n\n(fn STI DICTIONARY)"]) #s(cl--generic-method (srecode-template-inserter-blank t) nil nil #[514 "\301\302\"\303!\304 \205}�\305\306\307\"G\310U\205}�\311=\2030�\2030�\312\313\"\314=\2040�\315 \210\211b\210\312\313\"\314=\203D�n\204D�\316\317!\210\202`�\312\313\"\320=\203`�\321\322!\203X�`\323 |\210l\204`�\316\317!\210\304 \262\311=\205}�\205}�\312\313\"\320=?\205}�\315 \210\211b\207" [standard-output srecode-dictionary-lookup-name "INDENT" bufferp point-marker eieio-oref-default srecode-template active 1 t eieio-oref where begin indent-according-to-mode princ "\n" end looking-at "\\s-*$" line-end-position] 8 "Make sure there is no text before or after point.\n\n(fn STI DICTIONARY)"]) #s(cl--generic-method (srecode-template-inserter-newline t) nil nil #[514 "\301\302\"\303!\304\305 \203+�\306\307\"\204+�\310 \210\214`}\210\311\312!\203'�\313\262)\211b\210\304=\203;�\203;�\314 \210\211b\210\205m�\315\316!\210\304=\203Y�\303!\203Y�\305 \262\314 \210\211b\207\247\203e�\315\317\320\"!\207;\205m�\315!\207" [standard-output srecode-dictionary-lookup-name "INDENT" bufferp t point-marker eieio-oref hard beginning-of-line looking-at "\\s-*$" nil indent-according-to-mode princ "\n" make-string " "] 10 "Insert the STI inserter.\n\n(fn STI DICTIONARY)"]) #s(cl--generic-method (srecode-template t) nil nil #[514 "\300\301\"\203�\302\303\301\"\"\210\304\305\"\216\303\306\"\307!\210\310\")\207" [slot-boundp dictionary srecode-dictionary-merge eieio-oref make-closure #[0 "\301\300!\207" [V0 srecode-pop] 2] code srecode-push srecode-insert-code-stream] 7 "Insert the srecoder template ST.\n\n(fn ST DICTIONARY)"])) 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)"]