Disallow string ligatures of less than 2 characters

mickeynp · Sep 2, 2020 · 6f955a4 · 6f955a4
1 parent f128816
commit 6f955a4
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/ligature.el b/ligature.el
@@ -182,6 +182,8 @@ expression that will match against ligatures beginning with that
 first character."
   (let (grouped-ligatures)
     (dolist (ligature ligatures)
+      (when (< (length ligature) 2)
+        (error "Ligature `%s' must be 2 characters or longer" ligature))
       (let ((key (substring ligature 0 1)))
         (push (substring ligature 1) (alist-get key grouped-ligatures nil nil #'equal))))
     (dolist (group grouped-ligatures)