summaryrefslogtreecommitdiff
path: root/lisp/language
diff options
context:
space:
mode:
authorGlenn Morris <rgm@gnu.org>2021-10-29 09:20:05 -0700
committerGlenn Morris <rgm@gnu.org>2021-10-29 09:20:05 -0700
commit12167430428af9b9f4f60342914554e862bbc9ad (patch)
treef84760f769e0209c1b3526c8317d04dfcc55ff95 /lisp/language
parent38084984403d60bc2fe53f0875767684bb39fdfe (diff)
parent08de83853176bfeec9828863711d52a0d7e9416b (diff)
downloademacs-12167430428af9b9f4f60342914554e862bbc9ad.tar.gz
Merge from origin/emacs-28
08de838531 ; Improve commentary in the last change 3da9fa875b Make hieroglyphs display correctly with existing fonts 928e05f2d6 Clarify "default face attributes" in the ELisp manual 5dbb04e0eb Make `C-u RET' work again d72fefdeab Fix typos in the manual and in a comment
Diffstat (limited to 'lisp/language')
-rw-r--r--lisp/language/misc-lang.el20
1 files changed, 19 insertions, 1 deletions
diff --git a/lisp/language/misc-lang.el b/lisp/language/misc-lang.el
index a2ca678b2be..c8a4821abf7 100644
--- a/lisp/language/misc-lang.el
+++ b/lisp/language/misc-lang.el
@@ -192,7 +192,25 @@ thin (i.e. 1-dot width) space."
composition-function-table
#x13437
(list (vector "\U00013437[\U00013000-\U0001343F]+"
- 0 #'egyptian-shape-grouping))))
+ 0 #'egyptian-shape-grouping)))
+ ;; "Normal" hieroglyphs, for fonts that don't support the above
+ ;; controls, but do shape sequences of hieroglyphs without the
+ ;; controls.
+ ;; FIXME: As of late 2021, Egyptian Hieroglyph Format Controls are
+ ;; not yet supported in existing fonts and/or 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, as described in section 11.4 "Egyptian
+ ;; Hieroglyphs" of the Unicode Standard, the five lines below (which
+ ;; allow composition of hieroglyphs without formatting controls
+ ;; around) 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)