Function: (setf vtable-use-header-line)

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

Signature

(\(setf\ vtable-use-header-line\) ARG0 ARG &rest ARGS)

Implementations

(\(setf\ vtable-use-header-line\) 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.
#[642 "\304\203�\305!\202\f�\306\307
\300\"\2066�\310\303\311\302\301\312\313\n\203&�\305!\202'�\306!\314\315!\"%\316\300#\210\211\262
\262
$\207"
      [#s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8125 data
		     ())
	 (#s(cl--generic-method
	     (t vtable)
	     nil nil
	     #[514 "\300
\301#\207"
		   [eieio-oset use-header-line]
		   6 "\n\n(fn VALUE THIS)"]))
	 ((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 \(setf\ vtable-use-header-line\)
			((1 #s(cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag
						       #[385 "
\301N\302
!>\205�\303\304\305!\"\207"
							     [cl-struct-eieio--class-tags cl--class type-of mapcar eieio--class-name eieio--class-precedence-list]
							     7 "\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 vtable)
			    nil nil
			    #[514 "\300
\301#\207"
				  [eieio-oset use-header-line]
				  6 "\n\n(fn VALUE THIS)"]))
			nil)
	 apply type-of null gethash cl--generic-cache-miss 1 append
	 #[385 "
\301N\302
!>\205�\303\304\305!\"\207"
	       [cl-struct-eieio--class-tags cl--class type-of mapcar eieio--class-name eieio--class-precedence-list]
	       7 "\n\n(fn TAG &rest _)"]
	 #[385 "\300\207"
	       [(t)]
	       3 "\n\n(fn TAG &rest _)"]
	 nil puthash]
      14 "\n\n(fn ARG0 ARG &rest ARGS)"]