Function: ede-configuration-forms-menu

ede-configuration-forms-menu is a byte-compiled function defined in ede.el.gz.

Signature

(ede-configuration-forms-menu MENU-DEF)

Documentation

Create a submenu for selecting the default configuration for this project.

The current default is in the current object's CONFIGURATION-DEFAULT slot. All possible configurations are in CONFIGURATIONS. Argument MENU-DEF specifies the menu being created.

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/ede.el.gz
(defun ede-configuration-forms-menu (_menu-def)
  "Create a submenu for selecting the default configuration for this project.
The current default is in the current object's CONFIGURATION-DEFAULT slot.
All possible configurations are in CONFIGURATIONS.
Argument MENU-DEF specifies the menu being created."
  (easy-menu-filter-return
   (easy-menu-create-menu
    "Configurations"
    (let* ((obj (ede-current-project))
	   (conf (when obj (oref obj configurations)))
	   (cdef (when obj (oref obj configuration-default)))
	   (menu nil))
      (dolist (C conf)
	(setq menu (cons (vector C (list 'ede-project-configurations-set C)
				 :style 'toggle
				 :selected (string= C cdef))
			 menu))
	)
      (nreverse menu)))))