[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r111696: * leim/quail/latin-ltx.el: A
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r111696: * leim/quail/latin-ltx.el: Add greek superscripts. |
Date: |
Fri, 08 Feb 2013 10:48:36 -0500 |
User-agent: |
Bazaar (2.5.0) |
------------------------------------------------------------
revno: 111696
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Fri 2013-02-08 10:48:36 -0500
message:
* leim/quail/latin-ltx.el: Add greek superscripts.
modified:
leim/ChangeLog
leim/quail/latin-ltx.el
=== modified file 'leim/ChangeLog'
--- a/leim/ChangeLog 2013-01-02 16:13:04 +0000
+++ b/leim/ChangeLog 2013-02-08 15:48:36 +0000
@@ -1,3 +1,7 @@
+2013-02-08 Stefan Monnier <address@hidden>
+
+ * quail/latin-ltx.el: Add greek superscripts.
+
2012-12-04 Stefan Monnier <address@hidden>
* quail/latin-ltx.el: Avoid deprecated chars for \langle and \rangle.
=== modified file 'leim/quail/latin-ltx.el'
--- a/leim/quail/latin-ltx.el 2013-01-02 16:13:04 +0000
+++ b/leim/quail/latin-ltx.el 2013-02-08 15:48:36 +0000
@@ -248,14 +248,18 @@
(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))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r111696: * leim/quail/latin-ltx.el: Add greek superscripts.,
Stefan Monnier <=