* leim/quail/latin-ltx.el: Complete the super and subscript letters.

diff --git a/leim/ChangeLog b/leim/ChangeLog
index 2dbccf9be399db3858078a54b0293d1b5c852b45..426c679fe1f2951ee6dd66df9049f23be8cd1e95 100644 (file)
--- a/leim/ChangeLog
+++ b/leim/ChangeLog
@@ -1,3 +1,7 @@
+2011-08-29  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * quail/latin-ltx.el: Complete the super and subscript letters.
+
 2011-08-20  Glenn Morris  <rgm@gnu.org>
 
        * Makefile.in (OTHERS):

diff --git a/leim/quail/latin-ltx.el b/leim/quail/latin-ltx.el
index cc3be3a44c66ec2c38bd74addb69b4830826868d..fb7883787376c1819650ca6c9d5b247c292dad8c 100644 (file)
--- a/leim/quail/latin-ltx.el
+++ b/leim/quail/latin-ltx.el
@@ -351,16 +351,65 @@ system, including many technical ones.  Examples:
  ("^9" ?⁹)
  ("^=" ?⁼)
  ("^\\gamma" ?ˠ)
+ ;; FIXME: It'd be nicer to generate some of these rules via something like
+ ;; (map (lambda (name char)
+ ;;        (cond ((string-match "MODIFIER SMALL LETTER \\(.\\)" name)
+ ;;               (list (string ?^ (downcase (aref name (match-beginning 1))))
+ ;;                     char)))
+ ;;              ...)))
+ ("^a" ?ᵃ)
+ ("^b" ?ᵇ)
+ ("^c" ?ᶜ)
+ ("^d" ?ᵈ)
+ ("^e" ?ᵉ)
+ ("^f" ?ᶠ)
+ ("^g" ?ᵍ)
  ("^h" ?ʰ)
+ ;; ("^i" ?)  ;; FIXME: can't find MODIFIER SMALL LETTER I  !?!
  ("^j" ?ʲ)
+ ("^k" ?ᵏ)
  ("^l" ?ˡ)
+ ("^m" ?ᵐ)
  ("^n" ?ⁿ)
- ("^o" ?º)
+ ("^o" ?ᵒ)
+ ("^o_" ?º)
+ ("^p" ?ᵖ)
+ ;; ("^q" ?)  ;; FIXME: can't find MODIFIER SMALL LETTER Q  !?!
  ("^r" ?ʳ)
  ("^s" ?ˢ)
+ ("^t" ?ᵗ)
+ ("^u" ?ᵘ)
+ ("^v" ?ᵛ)
  ("^w" ?ʷ)
  ("^x" ?ˣ)
  ("^y" ?ʸ)
+ ("^z" ?ᶻ)
+ ("^A" ?ᴬ)
+ ("^B" ?ᴮ)
+ ;; ("^C" ?)  ;; FIXME: can't find MODIFIER CAPITAL LETTER C  !?!
+ ("^D" ?ᴰ)
+ ("^E" ?ᴱ)
+ ;; ("^F" ?)  ;; FIXME: can't find MODIFIER CAPITAL LETTER F  !?!
+ ("^G" ?ᴳ)
+ ("^H" ?ᴴ)
+ ("^I" ?ᴵ)
+ ("^J" ?ᴶ)
+ ("^K" ?ᴷ)
+ ("^L" ?ᴸ)
+ ("^M" ?ᴹ)
+ ("^N" ?ᴺ)
+ ("^O" ?ᴼ)
+ ("^P" ?ᴾ)
+ ;; ("^Q" ?)  ;; FIXME: can't find MODIFIER CAPITAL LETTER Q  !?!
+ ("^R" ?ᴿ)
+ ;; ("^S" ?)  ;; FIXME: can't find MODIFIER CAPITAL LETTER S  !?!
+ ("^T" ?ᵀ)
+ ("^U" ?ᵁ)
+ ("^V" ?ⱽ)
+ ("^W" ?ᵂ)
+ ;; ("^X" ?)  ;; FIXME: can't find MODIFIER CAPITAL LETTER X  !?!
+ ;; ("^Y" ?)  ;; FIXME: can't find MODIFIER CAPITAL LETTER Y  !?!
+ ;; ("^Z" ?)  ;; FIXME: can't find MODIFIER CAPITAL LETTER Z  !?!
  ("^{SM}" ?℠)
  ("^{TEL}" ?℡)
  ("^{TM}" ?™)