Mercurial > emacs

view etc/nxml/020A0-020CF.el @ 111704:31c8556ccad8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* lisp/emacs-lisp/pcase.el: Improve pcase-let. Use "pcase--" prefix. (pcase--dontcare-upats): New var. (pcase-let, pcase-let*): Generate better code. Accept the same bodies as `let'. (pcase-dolist): New macro. (pcase--trivial-upat-p): New helper function. (pcase--expand): Strip leading "(let nil" if any.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Wed, 24 Nov 2010 11:39:51 -0500
parents 277d6dfea01d
children ef719132ddfa
line wrap: on
line source

(nxml-define-char-name-set 'currency-symbols
  '(("EURO-CURRENCY SIGN" #x20A0)
    ("COLON SIGN" #x20A1)
    ("CRUZEIRO SIGN" #x20A2)
    ("FRENCH FRANC SIGN" #x20A3)
    ("LIRA SIGN" #x20A4)
    ("MILL SIGN" #x20A5)
    ("NAIRA SIGN" #x20A6)
    ("PESETA SIGN" #x20A7)
    ("RUPEE SIGN" #x20A8)
    ("WON SIGN" #x20A9)
    ("NEW SHEQEL SIGN" #x20AA)
    ("DONG SIGN" #x20AB)
    ("EURO SIGN" #x20AC)
    ("KIP SIGN" #x20AD)
    ("TUGRIK SIGN" #x20AE)
    ("DRACHMA SIGN" #x20AF)
    ("GERMAN PENNY SIGN" #x20B0)
    ("PESO SIGN" #x20B1)
    ))

;; arch-tag: 2f9ece37-0ae6-4a82-b12e-dc10ac58e6ce