Function: srecode-insert-include-lookup
srecode-insert-include-lookup is a byte-compiled function without a
source file.
Signature
(srecode-insert-include-lookup ARG &rest ARGS)
Implementations
(srecode-insert-include-lookup (STI srecode-template-inserter-include) DICTIONARY) in `srecode/insert.el'.
For the template inserter STI, lookup the template to include. Finds the template with this macro function part and stores it in this template instance.
;; 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 t) nil nil #[514 "\300\301\"\211\204�\302\303\300\304\"#\210\305\306 \"\307\310\311\"\312\204l�\204a�\203a�\300@\313\"\262\305\306 #\262\204Z�\314@\315\"\203Z�\300\211@\315\"\316\"\211\203Y�\305\306 $\262\210A\262\202 �\204l�\305\306 \"\262\317\320#\266\300\320\"?\205\206�\302\321\300\304\"$\207" [eieio-oref secondname srecode-insert-report-error "Include macro `%s' needs a template name" object-name srecode-template-get-table srecode-table eieio-oref-default srecode-template active nil context slot-boundp table application eieio-oset includedtemplate "No template \"%s\" found for include macro `%s'"] 12 "For the template inserter STI, lookup the template to include.\nFinds the template with this macro function part and stores it in\nthis template instance.\n\n(fn STI DICTIONARY)"])) nil #s(cl--generic srecode-insert-include-lookup ((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 t) nil nil #[514 "\300\301\"\211\204�\302\303\300\304\"#\210\305\306 \"\307\310\311\"\312\204l�\204a�\203a�\300@\313\"\262\305\306 #\262\204Z�\314@\315\"\203Z�\300\211@\315\"\316\"\211\203Y�\305\306 $\262\210A\262\202 �\204l�\305\306 \"\262\317\320#\266\300\320\"?\205\206�\302\321\300\304\"$\207" [eieio-oref secondname srecode-insert-report-error "Include macro `%s' needs a template name" object-name srecode-template-get-table srecode-table eieio-oref-default srecode-template active nil context slot-boundp table application eieio-oset includedtemplate "No template \"%s\" found for include macro `%s'"] 12 "For the template inserter STI, lookup the template to include.\nFinds the template with this macro function part and stores it in\nthis template instance.\n\n(fn STI 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)"]