Function: (setf ede-object-menu)

(setf\ ede-object-menu) is a byte-compiled function defined in base.el.gz.

Signature

(\(setf\ ede-object-menu\) ARG0 ARG &rest ARGS)

Implementations

(\(setf\ ede-object-menu\) VALUE (THIS ede-project)) in `ede/base.el'.

Undocumented

(\(setf\ ede-object-menu\) VALUE (THIS ede-target)) in `ede/base.el'.

Undocumented

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/ede/base.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 ede-project)
	     nil nil
	     #[514 "\300
\301#\207"
		   [eieio-oset menu]
		   6 "\n\n(fn VALUE THIS)"])
	    #s(cl--generic-method
	       (t ede-target)
	       nil nil
	       #[514 "\300
\301#\207"
		     [eieio-oset menu]
		     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\ ede-object-menu\)
			((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 ede-project)
			    nil nil
			    #[514 "\300
\301#\207"
				  [eieio-oset menu]
				  6 "\n\n(fn VALUE THIS)"])
			   #s(cl--generic-method
			      (t ede-target)
			      nil nil
			      #[514 "\300
\301#\207"
				    [eieio-oset menu]
				    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)"]