[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 9c702b5: Fix \epsilon and \varepsilon in TeX input method
From: |
Stefan Kangas |
Subject: |
master 9c702b5: Fix \epsilon and \varepsilon in TeX input method |
Date: |
Mon, 10 Aug 2020 19:58:03 -0400 (EDT) |
branch: master
commit 9c702b5ad6cd4a115eec3a4875510070f26a2420
Author: Stefan Kangas <stefankangas@gmail.com>
Commit: Stefan Kangas <stefankangas@gmail.com>
Fix \epsilon and \varepsilon in TeX input method
* lisp/leim/quail/latin-ltx.el: Add correct \epsilon and \varepsilon
characters to TeX input method. (Bug#26060)
---
lisp/leim/quail/latin-ltx.el | 7 +++++--
1 file changed, 5 insertions(+), 2 deletions(-)
diff --git a/lisp/leim/quail/latin-ltx.el b/lisp/leim/quail/latin-ltx.el
index 78ffca9..6e25fc7 100644
--- a/lisp/leim/quail/latin-ltx.el
+++ b/lisp/leim/quail/latin-ltx.el
@@ -242,12 +242,14 @@ system, including many technical ones. Examples:
((lambda (name char)
;; "GREEK SMALL LETTER PHI" (which is \phi) and "GREEK PHI SYMBOL"
;; (which is \varphi) are reversed in `ucs-names', so we define
- ;; them manually.
- (unless (string-match-p "\\<PHI\\>" name)
+ ;; them manually. Also ignore "GREEK SMALL LETTER EPSILON" and
+ ;; add the correct value for \epsilon manually.
+ (unless (string-match-p "\\<PHI\\|GREEK SMALL LETTER EPSILON\\>" name)
(concat "\\" (funcall (if (match-end 1) #' capitalize #'downcase)
(match-string 2 name)))))
"\\`GREEK \\(?:SMALL\\|CAPITA\\(L\\)\\) LETTER \\([^- ]+\\)\\'")
+ ("\\epsilon" ?ϵ)
("\\phi" ?ϕ)
("\\Box" ?□)
("\\Bumpeq" ?≎)
@@ -641,6 +643,7 @@ system, including many technical ones. Examples:
(concat "\\var" (downcase (match-string 1 name)))))
"\\`GREEK \\([^- ]+\\) SYMBOL\\'")
+ ("\\varepsilon" ?ε)
("\\varphi" ?φ)
("\\varprime" ?′)
("\\varpropto" ?∝)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 9c702b5: Fix \epsilon and \varepsilon in TeX input method,
Stefan Kangas <=