Function: srecode-insert-method-ask

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

Signature

(srecode-insert-method-ask ARG &rest ARGS)

Implementations

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

Do the "asking" for the template inserter STI. Use DICTIONARY to resolve values.

;; 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-ask t) nil nil #[514 "\300\301\"\302\"\300\303\"\304
\305\267\202<�\306\206 �\307\310\300 \311\"\"!\203'�\210
\207\312\207\307\313\314\2069�\307\315\300\311\"\"!\"\207\212
\206J�\307\316\300 \311\"\"\")\207" [eieio-oref prompt srecode-insert-ask-default read-fcn nil #s(hash-table test eq purecopy t data (y-or-n-p 19 read-char 41)) y-or-n-p format "%s? " object-name "" "%c" read-char "Char for %s: " "Specify %s: "] 15 ("/nix/store/3pgbnkfjhy1s648d8ssbcblxm5x9kacn-emacs-30-2/share/emacs/30.2/lisp/cedet/srecode/insert.elc" . 19789)])) nil #s(cl--generic srecode-insert-method-ask ((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-ask t) nil nil #[514 "\300\301\"\302\"\300\303\"\304
\305\267\202<�\306\206 �\307\310\300 \311\"\"!\203'�\210
\207\312\207\307\313\314\2069�\307\315\300\311\"\"!\"\207\212
\206J�\307\316\300 \311\"\"\")\207" [eieio-oref prompt srecode-insert-ask-default read-fcn nil #s(hash-table test eq purecopy t data (y-or-n-p 19 read-char 41)) y-or-n-p format "%s? " object-name "" "%c" read-char "Char for %s: " "Specify %s: "] 15 ("/nix/store/3pgbnkfjhy1s648d8ssbcblxm5x9kacn-emacs-30-2/share/emacs/30.2/lisp/cedet/srecode/insert.elc" . 19789)])) 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)"]