Mercurial > emacs
view etc/schema/xhtml-frames.rnc @ 111998:bc8dc4ac1e28
Implement tool-bar separators for non-GTK tool-bars.
* lisp/tool-bar.el (tool-bar--image-expression): New function.
(tool-bar-local-item, tool-bar--image-exp): Use it.
(tool-bar-setup): Initialize tool-bar-separator-image-expression.
Use :enable instead of :visible to avoid changing the tool-bar
configuration unnecessarily.
* src/keyboard.c (Vtool_bar_separator_image_expression): New variable.
(parse_tool_bar_item): Use it to obtain image separators for
displays not using native tool-bar separators.
* src/xdisp.c (build_desired_tool_bar_string): Don't handle separators
specially, since this is now done in parse_tool_bar_item.
* lisp/info.el (info-tool-bar-map): Add separators.
author | Chong Yidong <cyd@stupidchicken.com> |
---|---|
date | Mon, 20 Dec 2010 08:17:26 +0800 |
parents | 38f93f3d00a2 |
children |
line wrap: on
line source
# Frames Module include "xhtml-struct.rnc" { html = element html { html.attlist, head, frameset } } frameset = element frameset { frameset.attlist, ((frameset | frame)+ & noframes?) } frameset.attlist = Core.attrib, attribute cols { MultiLength.datatype }?, attribute rows { MultiLength.datatype }? frame = element frame { frame.attlist } frame.attlist = Core.attrib, attribute longdesc { URI.datatype }?, attribute src { URI.datatype }?, attribute frameborder { "1" | "0" }?, attribute marginwidth { Pixels.datatype }?, attribute marginheight { Pixels.datatype }?, attribute noresize { "noresize" }?, attribute scrolling { "yes" | "no" | "auto" }? noframes = element noframes { noframes.attlist, body } noframes.attlist = Common.attrib