Mercurial > hg > xemacs-beta
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; |