From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Mon, 29 Aug 2011 18:48:01 +0000 (-0400)
Subject: * leim/quail/latin-ltx.el: Complete the super and subscript letters.
X-Git-Tag: emacs-pretest-24.0.90~104^2~152^2~37
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b31b81a53a0908e16360003c0218dadba897f449;p=emacs.git

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

diff --git a/leim/ChangeLog b/leim/ChangeLog
index 2dbccf9be39..426c679fe1f 100644
--- 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 cc3be3a44c6..fb788378737 100644
--- 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}" ?™)