Mercurial > emacs
view etc/schema/xhtml-lst.rnc @ 107541:d59e6301c2cd
Add "union tags" in mpc.el.
* mpc.el: Remove backward compatibility code.
(mpc-browser-tags): Change default.
(mpc--find-memoize-union-tags): New var.
(mpc-cmd-flush, mpc-cmd-special-tag-p): New fun.
(mpc-cmd-find): Handle the case where the playlist does not exist.
Handle union-tags.
(mpc-cmd-list): Use mpc-cmd-special-tag-p. Handle union-tags.
(mpc-cmd-add): Use mpc-cmd-flush.
(mpc-tagbrowser-tag-name): New fun.
(mpc-tagbrowser-buf): Use it.
(mpc-songs-refresh): Use cond. Move to point-min as a fallback.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Wed, 24 Mar 2010 20:06:08 -0400 |
parents | 288134f0441f |
children |
line wrap: on
line source
# List Module dl = element dl { dl.attlist, (dt | dd)+ } dl.attlist = Common.attrib dt = element dt { dt.attlist, Inline.model } dt.attlist = Common.attrib dd = element dd { dd.attlist, Flow.model } dd.attlist = Common.attrib ol = element ol { ol.attlist, li+ } ol.attlist = Common.attrib ul = element ul { ul.attlist, li+ } ul.attlist = Common.attrib li = element li { li.attlist, Flow.model } li.attlist = Common.attrib List.class = ul | ol | dl Block.class |= List.class