Function: (setf vtable-displayer)

(setf\ vtable-displayer) is a byte-compiled function defined in vtable.el.gz.

Signature

(\(setf\ vtable-displayer\) &rest ARGS)

Implementations

(\(setf\ vtable-displayer\) VALUE (THIS vtable)) in `vtable.el'.

Undocumented

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/vtable.el.gz
;; 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\ vtable-displayer\)
		  ((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
			     ("/nix/store/a658fvazk6z9r5piiflfxzv0b26vzrp6-emacs-release-snapshot/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)]))
		   (0
		    #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 (t vtable) nil nil
					 #[514 "\300
\301#\207"
					       [eieio-oset displayer]
					       6
					       ("/nix/store/a658fvazk6z9r5piiflfxzv0b26vzrp6-emacs-release-snapshot/share/emacs/31.1/lisp/emacs-lisp/vtable.elc"
						. 13619)]))
		  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)]