procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* leim/quail/latin-ltx.el: Add greek superscripts.

Browse source
This commit is contained in:
Stefan Monnier 2013-02-08 10:48:36 -05:00
parent 1a60168030
commit 91554659b8
2 changed files with 15 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
leim/ChangeLog
View file

@ -1,3 +1,7 @@
2013-02-08 Stefan Monnier <monnier@iro.umontreal.ca>
* quail/latin-ltx.el: Add greek superscripts.
2012-12-04 Stefan Monnier <monnier@iro.umontreal.ca>
* quail/latin-ltx.el: Avoid deprecated chars for \langle and \rangle.

18
leim/quail/latin-ltx.el
View file

@ -248,14 +248,18 @@ system, including many technical ones. Examples:
(string (if (match-end 2) ?^ ?_) basechar))))
"\\(.*\\)SU\\(?:B\\|\\(PER\\)\\)SCRIPT \\(.*\\)")
("^\\gamma" ?ˠ)
((lambda (name char)
(let* ((base (format "LATIN %s LETTER %s"
(match-string 1 name) (match-string 2 name)))
(basechar (cdr (assoc base (ucs-names)))))
(when (latin-ltx--ascii-p basechar)
(string ?^ basechar))))
(let* ((basename (match-string 2 name))
(lbase (format "LATIN %s LETTER %s"
(match-string 1 name) basename))
(gbase (format "GREEK %s LETTER %s"
(match-string 1 name) basename))
tmp)
(cond
((assoc gbase (ucs-names)) (concat "^\\" (downcase basename)))
((latin-ltx--ascii-p (setq tmp (cdr (assoc lbase (ucs-names)))))
(string ?^ tmp))
(t (message "Unknown modifier letter %s" basename)))))
"MODIFIER LETTER \\(SMALL\\|CAPITAL\\) \\(.*\\)")
;; ((lambda (name char) (format "^%s" (downcase (match-string 1 name))))