Function: (setf mcp--error-callback)

(setf\ mcp--error-callback) is a byte-compiled function defined in mcp.el.

Signature

(\(setf\ mcp--error-callback\) &rest ARGS)

Implementations

(\(setf\ mcp--error-callback\) VALUE (THIS mcp-process-connection)) in `mcp.el'.

Undocumented

Source Code

;; Defined in /nix/store/5m747x13pb1ddrvbq9raj91c4q1h1kl0-emacs-packages-deps/share/emacs/site-lisp/elpa/mcp-20260615.940/mcp.el
;; 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 \(setf\ mcp--error-callback\)
		  ((1
		    #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 "\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 _)"]))
		   (0
		    #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 (t mcp-process-connection)
					 nil nil
					 #[514 "\300
\301#\207"
					       [eieio-oset
						-error-callback]
					       6 "\n\n(fn VALUE THIS)"]))
		  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 "\n\n(fn &rest ARGS)"]