3694 |
"Ignoring WIDGET, create a menu entry for customization group SYMBOL." |
"Ignoring WIDGET, create a menu entry for customization group SYMBOL." |
3695 |
`( ,(custom-unlispify-menu-entry symbol t) |
`( ,(custom-unlispify-menu-entry symbol t) |
3696 |
:filter (lambda (&rest junk) |
:filter (lambda (&rest junk) |
3697 |
(cdr (custom-menu-create ',symbol))))) |
(let ((menu (custom-menu-create ',symbol))) |
3698 |
|
(if (consp menu) (cdr menu) menu))))) |
3699 |
|
|
3700 |
;;;###autoload |
;;;###autoload |
3701 |
(defun custom-menu-create (symbol) |
(defun custom-menu-create (symbol) |