Make hieroglyphs display correctly with existing fonts

* etc/HELLO: Remove hieroglyph format control characters.

* lisp/language/misc-lang.el: Add a rule to compose Egyptian
hieroglyphs even without Unicode format control characters.

diff --git a/etc/HELLO b/etc/HELLO
index 577c2828ded7c77722c00dcec417db8090490146..8bd489fb4014ec9adfe61c887d1bbfcb86cdc028 100644 (file)
--- a/etc/HELLO
+++ b/etc/HELLO
@@ -38,7 +38,7 @@ Czech (čeština)     Dobrý den
 Danish (dansk) Hej / Goddag / Halløj
 Dutch (Nederlands)     Hallo / Dag
 Efik  /ˈɛfɪk/       Mɔkɔm
-Egyptian Hieroglyphs (ð\93\82\8bð\93\90°ð\93\8f¤ð\93\88\96ð\93\86\8eð\93\85\93ð\93\8f\8fð\93\90°ð\93\8a\96)    ð\93\85\93ð\93\8aµð\93\90°ð\93\90·ð\93\8f\8fð\93\8aªð\93\90¸, 𓇍𓇋𓂻𓍘𓇋
+Egyptian Hieroglyphs (ð\93\82\8bð\93\8f¤ð\93\88\96ð\93\86\8eð\93\85\93â\80\8cð\93\8f\8fð\93\8a\96) ð\93\85\93ð\93\8aµð\93\8f\8fð\93\8aª, 𓇍𓇋𓂻𓍘𓇋
 Emacs  emacs --no-splash -f view-hello-file
 Emoji  👋
 English /ˈɪŋɡlɪʃ/        Hello

diff --git a/lisp/language/misc-lang.el b/lisp/language/misc-lang.el
index a2ca678b2be785bd6c1e568fef9d4e505aedadc4..de4f092dc130ddbee5bf43bf72abe1144c4444c9 100644 (file)
--- a/lisp/language/misc-lang.el
+++ b/lisp/language/misc-lang.el
@@ -192,7 +192,20 @@ thin (i.e. 1-dot width) space."
    composition-function-table
    #x13437
    (list (vector "\U00013437[\U00013000-\U0001343F]+"
-                 0 #'egyptian-shape-grouping))))
+                 0 #'egyptian-shape-grouping)))
+  ;; As of late 2021, Egyptian Hieroglyph Format Controls are not yet
+  ;; supported in existing fonts and shaping engines, but some fonts
+  ;; do provide ligatures with which texts in Egyptian Hieroglyphs are
+  ;; correctly displayed.  If and when these format controls are
+  ;; supported, the five lines below (which cancel the effect of the
+  ;; above lines) can be removed, and the entry in etc/HELLO can be
+  ;; restored to:
+  ;; Egyptian Hieroglyphs (𓂋𓐰𓏤𓈖𓆎𓅓𓏏𓐰𓊖)       𓅓𓊵𓐰𓐷𓏏𓊪𓐸, 𓇍𓇋𓂻𓍘𓇋
+  (set-char-table-range
+   composition-function-table
+   '(#x13000 . #x1342E)
+   (list (vector "[\U00013000-\U0001342E]+"
+                 0 #'font-shape-gstring))))
 
 (provide 'misc-lang)