From f70ff9d60af92f433d8acefc99ecb7677127f73f Mon Sep 17 00:00:00 2001
From: be5invis <belleve@typeof.net>
Date: Sun, 23 Jul 2023 11:46:49 -0700
Subject: [PATCH] More #1864 fix

---
 font-src/otl/gsub-ligation.ptl |  6 +++---
 params/ligation-set.toml       | 20 +++++++++++++++++++-
 2 files changed, 22 insertions(+), 4 deletions(-)

diff --git a/font-src/otl/gsub-ligation.ptl b/font-src/otl/gsub-ligation.ptl
index 6601767e1..032753fa5 100644
--- a/font-src/otl/gsub-ligation.ptl
+++ b/font-src/otl/gsub-ligation.ptl
@@ -452,9 +452,9 @@ define [buildLigationsImpl sink para $LigGroup$] : begin
 			define heads {}
 			define rods  {}
 
-			define doLT    : [not ltgt] || [hasLG 'arrow-l']         && ![hasLG 'lteq']
-			define doLTAlt : [not ltgt] || [hasLG 'counter-arrow-l'] && ![hasLG 'eqlt']
-			define doRT    : [not ltgt] || [hasLG 'counter-arrow-r'] && ![hasLG 'gteq']
+			define doLT    : [not ltgt] || [hasLG 'arrow-l']         && ![hasLG 'lteq'] && ![hasLG 'lteq-separate']
+			define doLTAlt : [not ltgt] || [hasLG 'counter-arrow-l'] && ![hasLG 'eqlt'] && ![hasLG 'eqlt-separate']
+			define doRT    : [not ltgt] || [hasLG 'counter-arrow-r'] && ![hasLG 'gteq'] && ![hasLG 'gteq-separate']
 
 			# Disable regular expression lookaheads
 			heads.push : chain-rule
diff --git a/params/ligation-set.toml b/params/ligation-set.toml
index 3c228c74a..d9478e0cf 100644
--- a/params/ligation-set.toml
+++ b/params/ligation-set.toml
@@ -109,6 +109,24 @@ samples = [">="]
 sampleRank = 2
 desc = 'Enable ligation for `>=` as greater-than-or-equal sign'
 
+[simple.lteq-separate]
+ligGroup =  "lteq-separate"
+samples = ["<="]
+sampleRank = 3
+desc = 'Display `<=` as separate shape'
+
+[simple.eqlt-separate]
+ligGroup =  "eqlt-separate"
+samples = ["=<"]
+sampleRank = 3
+desc = 'Display `=<` as separate shape'
+
+[simple.gteq-separate]
+ligGroup =  "gteq-separate"
+samples = [">="]
+sampleRank = 3
+desc = 'Display `>=` as separate shape'
+
 [simple.exeqeqeq]
 ligGroup =  "exeqeqeq"
 samples = ["!==="]
@@ -300,7 +318,7 @@ buildup = [	'eqeq', 'slasheq', 'lteq', 'gteq' ]
 buildup = [	'eqeq', 'tildeeq', 'lteq', 'gteq' ]
 
 [composite.--verilog-equality-inequality--]
-buildup = [	'eqeqeq', 'eqeq', 'exeqeq', 'exeq' ]
+buildup = [	'eqeqeq', 'eqeq', 'exeqeq', 'exeq', 'lteq-separate', 'gteq-separate' ]
 
 [composite.--wolfram-equality-inequality--]
 buildup = [	'eqeq', 'exeq', 'eqexeq-dl', 'lteq', 'gteq' ]