Mercurial > emacs
annotate etc/nxml/02440-0245F.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 | a76a6e77bd7d |
children | ef719132ddfa |
rev | line source |
---|---|
86624
a76a6e77bd7d
Move here from lisp/nxml/char-name/unicode
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1 (nxml-define-char-name-set 'optical-character-recognition |
a76a6e77bd7d
Move here from lisp/nxml/char-name/unicode
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
2 '(("OCR HOOK" #x2440) |
a76a6e77bd7d
Move here from lisp/nxml/char-name/unicode
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
3 ("OCR CHAIR" #x2441) |
a76a6e77bd7d
Move here from lisp/nxml/char-name/unicode
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
4 ("OCR FORK" #x2442) |
a76a6e77bd7d
Move here from lisp/nxml/char-name/unicode
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
5 ("OCR INVERTED FORK" #x2443) |
a76a6e77bd7d
Move here from lisp/nxml/char-name/unicode
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
6 ("OCR BELT BUCKLE" #x2444) |
a76a6e77bd7d
Move here from lisp/nxml/char-name/unicode
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
7 ("OCR BOW TIE" #x2445) |
a76a6e77bd7d
Move here from lisp/nxml/char-name/unicode
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
8 ("OCR BRANCH BANK IDENTIFICATION" #x2446) |
a76a6e77bd7d
Move here from lisp/nxml/char-name/unicode
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
9 ("OCR AMOUNT OF CHECK" #x2447) |
a76a6e77bd7d
Move here from lisp/nxml/char-name/unicode
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
10 ("OCR DASH" #x2448) |
a76a6e77bd7d
Move here from lisp/nxml/char-name/unicode
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
11 ("OCR CUSTOMER ACCOUNT NUMBER" #x2449) |
a76a6e77bd7d
Move here from lisp/nxml/char-name/unicode
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
12 ("OCR DOUBLE BACKSLASH" #x244A) |
a76a6e77bd7d
Move here from lisp/nxml/char-name/unicode
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
13 )) |
a76a6e77bd7d
Move here from lisp/nxml/char-name/unicode
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
14 |
a76a6e77bd7d
Move here from lisp/nxml/char-name/unicode
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
15 ;; arch-tag: e532db31-38fd-4eee-8e47-974316fb6dd5 |