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'.

Insert the template STI. This will first insert the include part via inheritance, then insert the section it wraps into the location in the included template where a ^ inserter occurs.

(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'.

Insert the STI inserter.

(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\305!\306
\300\"\206\"�\307\303\310\302\301\311\312\305!!\313\314!\"%\315\300#\210\262
#\207" [#s(hash-table) (#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 ("/nix/store/3pgbnkfjhy1s648d8ssbcblxm5x9kacn-emacs-30-2/share/emacs/30.2/lisp/cedet/srecode/insert.elc" . 8970)] 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 ("/nix/store/3pgbnkfjhy1s648d8ssbcblxm5x9kacn-emacs-30-2/share/emacs/30.2/lisp/cedet/srecode/insert.elc" . 41251)]] 7 ("/nix/store/3pgbnkfjhy1s648d8ssbcblxm5x9kacn-emacs-30-2/share/emacs/30.2/lisp/cedet/srecode/insert.elc" . 19630)]] 6 ("/nix/store/3pgbnkfjhy1s648d8ssbcblxm5x9kacn-emacs-30-2/share/emacs/30.2/lisp/cedet/srecode/insert.elc" . 41040)]] 5 ("/nix/store/3pgbnkfjhy1s648d8ssbcblxm5x9kacn-emacs-30-2/share/emacs/30.2/lisp/cedet/srecode/insert.elc" . 8876)]) #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 ("/nix/store/3pgbnkfjhy1s648d8ssbcblxm5x9kacn-emacs-30-2/share/emacs/30.2/lisp/cedet/srecode/insert.elc" . 37723)]) #s(cl--generic-method (srecode-template-inserter-section-end t) nil nil #[514 "\300\207" ["Insert the STI inserter."] 3 ("/nix/store/3pgbnkfjhy1s648d8ssbcblxm5x9kacn-emacs-30-2/share/emacs/30.2/lisp/cedet/srecode/insert.elc" . 35473)]) #s(cl--generic-method (srecode-template-inserter-subtemplate t) nil nil #[514 "\300\301#\207" [srecode-insert-method-helper template] 6 ("/nix/store/3pgbnkfjhy1s648d8ssbcblxm5x9kacn-emacs-30-2/share/emacs/30.2/lisp/cedet/srecode/insert.elc" . 29600)]) #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 ("/nix/store/3pgbnkfjhy1s648d8ssbcblxm5x9kacn-emacs-30-2/share/emacs/30.2/lisp/cedet/srecode/insert.elc" . 27514)]) #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 ("/nix/store/3pgbnkfjhy1s648d8ssbcblxm5x9kacn-emacs-30-2/share/emacs/30.2/lisp/cedet/srecode/insert.elc" . 8970)] 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 ("/nix/store/3pgbnkfjhy1s648d8ssbcblxm5x9kacn-emacs-30-2/share/emacs/30.2/lisp/cedet/srecode/insert.elc" . 19630)]] 6 ("/nix/store/3pgbnkfjhy1s648d8ssbcblxm5x9kacn-emacs-30-2/share/emacs/30.2/lisp/cedet/srecode/insert.elc" . 8825)]] 5 ("/nix/store/3pgbnkfjhy1s648d8ssbcblxm5x9kacn-emacs-30-2/share/emacs/30.2/lisp/cedet/srecode/insert.elc" . 8876)]) #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\202c�\311!\203L�\203;�\312!\262\313#\262
\204c�\210\314\202c�\315!\203\\�\316\317#\210\202c�\316\320#\210\211\205j�\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 ("/nix/store/3pgbnkfjhy1s648d8ssbcblxm5x9kacn-emacs-30-2/share/emacs/30.2/lisp/cedet/srecode/insert.elc" . 8825)]) #s(cl--generic-method (srecode-template-inserter-comment t) nil nil #[514 "\300\207" [nil] 3 ("/nix/store/3pgbnkfjhy1s648d8ssbcblxm5x9kacn-emacs-30-2/share/emacs/30.2/lisp/cedet/srecode/insert.elc" . 14170)]) #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 ("/nix/store/3pgbnkfjhy1s648d8ssbcblxm5x9kacn-emacs-30-2/share/emacs/30.2/lisp/cedet/srecode/insert.elc" . 11884)]) #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 ("/nix/store/3pgbnkfjhy1s648d8ssbcblxm5x9kacn-emacs-30-2/share/emacs/30.2/lisp/cedet/srecode/insert.elc" . 8825)]) #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 ("/nix/store/3pgbnkfjhy1s648d8ssbcblxm5x9kacn-emacs-30-2/share/emacs/30.2/lisp/cedet/srecode/insert.elc" . 5971)])) nil #s(cl--generic srecode-insert-method ((1 #s(cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 ("emacs-lisp/cl-generic.elc" . 6935)] #[385 "\300\207" [(t)] 3 ("emacs-lisp/cl-generic.elc" . 6960)])) (0 #s(cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag #[385 "
\301N\302
!>\205�\303
!\207" [cl-struct-eieio--class-tags cl--class type-of cl--class-allparents] 5 ("/nix/store/3pgbnkfjhy1s648d8ssbcblxm5x9kacn-emacs-30-2/share/emacs/30.2/lisp/emacs-lisp/eieio-core.elc" . 38229)]) #s(cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 ("emacs-lisp/cl-generic.elc" . 6935)] #[385 "\300\207" [(t)] 3 ("emacs-lisp/cl-generic.elc" . 6960)]))) (#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 ("/nix/store/3pgbnkfjhy1s648d8ssbcblxm5x9kacn-emacs-30-2/share/emacs/30.2/lisp/cedet/srecode/insert.elc" . 8970)] 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 ("/nix/store/3pgbnkfjhy1s648d8ssbcblxm5x9kacn-emacs-30-2/share/emacs/30.2/lisp/cedet/srecode/insert.elc" . 41251)]] 7 ("/nix/store/3pgbnkfjhy1s648d8ssbcblxm5x9kacn-emacs-30-2/share/emacs/30.2/lisp/cedet/srecode/insert.elc" . 19630)]] 6 ("/nix/store/3pgbnkfjhy1s648d8ssbcblxm5x9kacn-emacs-30-2/share/emacs/30.2/lisp/cedet/srecode/insert.elc" . 41040)]] 5 ("/nix/store/3pgbnkfjhy1s648d8ssbcblxm5x9kacn-emacs-30-2/share/emacs/30.2/lisp/cedet/srecode/insert.elc" . 8876)]) #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 ("/nix/store/3pgbnkfjhy1s648d8ssbcblxm5x9kacn-emacs-30-2/share/emacs/30.2/lisp/cedet/srecode/insert.elc" . 37723)]) #s(cl--generic-method (srecode-template-inserter-section-end t) nil nil #[514 "\300\207" ["Insert the STI inserter."] 3 ("/nix/store/3pgbnkfjhy1s648d8ssbcblxm5x9kacn-emacs-30-2/share/emacs/30.2/lisp/cedet/srecode/insert.elc" . 35473)]) #s(cl--generic-method (srecode-template-inserter-subtemplate t) nil nil #[514 "\300\301#\207" [srecode-insert-method-helper template] 6 ("/nix/store/3pgbnkfjhy1s648d8ssbcblxm5x9kacn-emacs-30-2/share/emacs/30.2/lisp/cedet/srecode/insert.elc" . 29600)]) #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 ("/nix/store/3pgbnkfjhy1s648d8ssbcblxm5x9kacn-emacs-30-2/share/emacs/30.2/lisp/cedet/srecode/insert.elc" . 27514)]) #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 ("/nix/store/3pgbnkfjhy1s648d8ssbcblxm5x9kacn-emacs-30-2/share/emacs/30.2/lisp/cedet/srecode/insert.elc" . 8970)] 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 ("/nix/store/3pgbnkfjhy1s648d8ssbcblxm5x9kacn-emacs-30-2/share/emacs/30.2/lisp/cedet/srecode/insert.elc" . 19630)]] 6 ("/nix/store/3pgbnkfjhy1s648d8ssbcblxm5x9kacn-emacs-30-2/share/emacs/30.2/lisp/cedet/srecode/insert.elc" . 8825)]] 5 ("/nix/store/3pgbnkfjhy1s648d8ssbcblxm5x9kacn-emacs-30-2/share/emacs/30.2/lisp/cedet/srecode/insert.elc" . 8876)]) #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\202c�\311!\203L�\203;�\312!\262\313#\262
\204c�\210\314\202c�\315!\203\\�\316\317#\210\202c�\316\320#\210\211\205j�\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 ("/nix/store/3pgbnkfjhy1s648d8ssbcblxm5x9kacn-emacs-30-2/share/emacs/30.2/lisp/cedet/srecode/insert.elc" . 8825)]) #s(cl--generic-method (srecode-template-inserter-comment t) nil nil #[514 "\300\207" [nil] 3 ("/nix/store/3pgbnkfjhy1s648d8ssbcblxm5x9kacn-emacs-30-2/share/emacs/30.2/lisp/cedet/srecode/insert.elc" . 14170)]) #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 ("/nix/store/3pgbnkfjhy1s648d8ssbcblxm5x9kacn-emacs-30-2/share/emacs/30.2/lisp/cedet/srecode/insert.elc" . 11884)]) #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 ("/nix/store/3pgbnkfjhy1s648d8ssbcblxm5x9kacn-emacs-30-2/share/emacs/30.2/lisp/cedet/srecode/insert.elc" . 8825)]) #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 ("/nix/store/3pgbnkfjhy1s648d8ssbcblxm5x9kacn-emacs-30-2/share/emacs/30.2/lisp/cedet/srecode/insert.elc" . 5971)])) nil) apply cl-type-of gethash cl--generic-cache-miss 0 append #[385 "
\301N\302
!>\205�\303
!\207" [cl-struct-eieio--class-tags cl--class type-of cl--class-allparents] 5 ("/nix/store/3pgbnkfjhy1s648d8ssbcblxm5x9kacn-emacs-30-2/share/emacs/30.2/lisp/emacs-lisp/eieio-core.elc" . 38229)] #[385 "\300\207" [(t)] 3 ("emacs-lisp/cl-generic.elc" . 6960)] nil puthash] 13 "\n\n(fn ARG &rest ARGS)"]