Function: srecode-template-table-in-project-p

srecode-template-table-in-project-p is a byte-compiled function without a source file.

Signature

(srecode-template-table-in-project-p &rest ARGS)

Implementations

(srecode-template-table-in-project-p (TAB srecode-template-table)) in `srecode/find.el'.

Return non-nil if the table TAB can be used in the current project. If TAB has a :project set, check that the directories match. If TAB is nil, then always return t.

;; Could not find source code, showing raw function object. #[128 "\303\300\304\300! >\204�\305\306\307\300D\"\210\300\310H\304\300! >\204#�\305\306\307\300D\"\210\300\311H#\304\300! >\2046�\305\306\307\300D\"\210\300\312H\313
K!\211<\203H�\314\315#\210
K\203U�\315\316\")\210\317\"\207" [#s(cl--generic srecode-template-table-in-project-p ((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/cr364a2c0mcca19wxfy57q56hxdks5sh-emacs-31-1/share/emacs/31.1/lisp/emacs-lisp/eieio-core.elc" . 38417)]) #s(cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 ("emacs-lisp/cl-generic.elc" . 7943)] #[385 "\300\207" [(t)] 3 ("emacs-lisp/cl-generic.elc" . 7968)]))) (#s(cl--generic-method (srecode-template-table) nil nil #[257 "\301
\302\"\211\204\n�\303\207\304!\305\306!!\307\310P\"\266\202??\207" [default-directory eieio-oref project t expand-file-name regexp-quote directory-file-name string-match "^"] 7 ("/nix/store/cr364a2c0mcca19wxfy57q56hxdks5sh-emacs-31-1/share/emacs/31.1/lisp/cedet/srecode/find.elc" . 1429)])) nil #0) cl-struct-cl--generic-tags current-load-list cl--generic-make-next-function type-of signal wrong-type-argument cl--generic 2 3 1 get-advertised-calling-convention set-advertised-calling-convention nil defalias apply] 8 ("emacs-lisp/cl-generic.elc" . 40082)]