comparison src/menubar-x.c @ 5715:68f8d295be49

Support :visible in menu specifications.
author Jerry James <james@xemacs.org>
date Wed, 23 Jan 2013 11:48:46 -0700
parents 489e76b85828
children
comparison
equal deleted inserted replaced
5714:489e76b85828 5715:68f8d295be49
170 desc = Fcdr (desc); 170 desc = Fcdr (desc);
171 if (NILP (desc)) 171 if (NILP (desc))
172 sferror ("Keyword in menu lacks a value", cascade); 172 sferror ("Keyword in menu lacks a value", cascade);
173 val = Fcar (desc); 173 val = Fcar (desc);
174 desc = Fcdr (desc); 174 desc = Fcdr (desc);
175 if (EQ (key, Q_included)) 175 if (EQ (key, Q_included) || EQ (key, Q_visible))
176 include_p = val, included_spec = 1; 176 include_p = val, included_spec = 1;
177 else if (EQ (key, Q_config)) 177 else if (EQ (key, Q_config))
178 config_tag = val; 178 config_tag = val;
179 else if (EQ (key, Q_filter)) 179 else if (EQ (key, Q_filter))
180 hook_fn = val; 180 hook_fn = val;