mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-30 08:09:04 +00:00
Code Issues Releases Activity

Fix rules for \phi and \varphi which were reversed

Browse Source 
* lisp/leim/quail/latin-ltx.el: Special-case phi/varphi because those
  are reversed in ucs-names.  Also remove FIXME stating sigma/varsigma
  were reversed which is not true (anymore?).
This commit is contained in:
Tassilo Horn 2016-08-30 20:30:46 +02:00
parent 6730432053
commit 1145322a11
1 changed files with 14 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lisp/leim/quail/latin-ltx.el
View File

@ -239,10 +239,15 @@ system, including many technical ones. Examples:
"\\`\\([^- ]+\\) SIGN\\'")
((lambda (name char)
(concat "\\" (funcall (if (match-end 1) #' capitalize #'downcase)
(match-string 2 name))))
;; "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)
(concat "\\" (funcall (if (match-end 1) #' capitalize #'downcase)
(match-string 2 name)))))
"\\`GREEK \\(?:SMALL\\|CAPITA\\(L\\)\\) LETTER \\([^- ]+\\)\\'")
("\\phi" ?ϕ)
("\\Box" ?□)
("\\Bumpeq" ?≎)
("\\Cap" ?⋒)
@ -628,12 +633,17 @@ system, including many technical ones. Examples:
("\\vDash" ?⊨)
((lambda (name char)
(concat "\\var" (downcase (match-string 1 name))))
;; "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)
(concat "\\var" (downcase (match-string 1 name)))))
"\\`GREEK \\([^- ]+\\) SYMBOL\\'")
("\\varphi" ?φ)
("\\varprime" ?′)
("\\varpropto" ?∝)
("\\varsigma" ?ς) ;FIXME: Looks reversed with the non\var.
("\\varsigma" ?ς)
("\\vartriangleleft" ?⊲)
("\\vartriangleright" ?⊳)
("\\vdash" ?⊢)