Mercurial > emacs
view etc/nxml/027F0-027FF.el @ 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 | 341bf20efae0 |
children | ef719132ddfa |
line wrap: on
line source
(nxml-define-char-name-set 'supplemental-arrows-a '(("UPWARDS QUADRUPLE ARROW" #x27F0) ("DOWNWARDS QUADRUPLE ARROW" #x27F1) ("ANTICLOCKWISE GAPPED CIRCLE ARROW" #x27F2) ("CLOCKWISE GAPPED CIRCLE ARROW" #x27F3) ("RIGHT ARROW WITH CIRCLED PLUS" #x27F4) ("LONG LEFTWARDS ARROW" #x27F5) ("LONG RIGHTWARDS ARROW" #x27F6) ("LONG LEFT RIGHT ARROW" #x27F7) ("LONG LEFTWARDS DOUBLE ARROW" #x27F8) ("LONG RIGHTWARDS DOUBLE ARROW" #x27F9) ("LONG LEFT RIGHT DOUBLE ARROW" #x27FA) ("LONG LEFTWARDS ARROW FROM BAR" #x27FB) ("LONG RIGHTWARDS ARROW FROM BAR" #x27FC) ("LONG LEFTWARDS DOUBLE ARROW FROM BAR" #x27FD) ("LONG RIGHTWARDS DOUBLE ARROW FROM BAR" #x27FE) ("LONG RIGHTWARDS SQUIGGLE ARROW" #x27FF) )) ;; arch-tag: 64623112-13d2-4bd6-8768-5508e3a7f8a9