Use lexical-binding in of all lisp/language
* lisp/international/titdic-cnv.el (pinyin-convert): Enable lexical-binding in the generated file(s). * lisp/language/ethio-util.el: Use lexical-binding. (ethio-tex-to-fidel-buffer): Use `inhibit-read-only`. Remove unused vars `p` and `ch`. * lisp/language/hanja-util.el: Use lexical-binding. * lisp/language/ind-util.el: Use lexical-binding. (indian-translate-region): Actually use the `from` and `to` arguments. (<toplevel>): Use `dlet`. Remove unused var `current-repertory`. (indian-2-column-to-ucs-region): Remove unused var `pos`. * lisp/language/japan-util.el: Use lexical-binding. (japanese-katakana-region, japanese-hiragana-region) (japanese-zenkaku-region): Remove unused var `next`. * lisp/language/korea-util.el: Use lexical-binding. * lisp/language/lao-util.el: Use lexical-binding. (lao-composition-function): Remove unused var `glyph`. * lisp/language/thai-util.el: Use lexical-binding. (thai-composition-function): Remove unused var `glyph`. * lisp/language/thai-word.el: Use lexical-binding. (thai-forward-word): Remove unused var `tail`. * lisp/language/tibet-util.el: Use lexical-binding. (tibetan-add-components): Remove unused var `tmp`. (tibetan-compose-region): Remove unused vars `str`, `result`, `chars`. * lisp/language/viet-util.el: * lisp/language/tv-util.el: * lisp/language/cyril-util.el: * lisp/language/china-util.el: Use lexical-binding.
This commit is contained in:
parent
7c257e2286
commit
b0e96e554c
26 changed files with 92 additions and 90 deletions
|
@ -137,9 +137,9 @@ thin (i.e. 1-dot width) space."
|
|||
composition-function-table
|
||||
'(#x600 . #x74F)
|
||||
(list (vector "[\u200C\u200D][\u0600-\u074F\u200C\u200D]+"
|
||||
1 'arabic-shape-gstring)
|
||||
1 #'arabic-shape-gstring)
|
||||
(vector "[\u0600-\u074F\u200C\u200D]+"
|
||||
0 'arabic-shape-gstring)))
|
||||
0 #'arabic-shape-gstring)))
|
||||
|
||||
;; The Egyptian Hieroglyph Format Controls were introduced in Unicode
|
||||
;; Standard v12.0. Apparently, they are not yet well supported in
|
||||
|
@ -186,13 +186,13 @@ thin (i.e. 1-dot width) space."
|
|||
;; doesn't support these controls, the glyphs are
|
||||
;; displayed individually, and not as a single
|
||||
;; grapheme cluster.
|
||||
1 'font-shape-gstring)))
|
||||
1 #'font-shape-gstring)))
|
||||
;; Grouping controls
|
||||
(set-char-table-range
|
||||
composition-function-table
|
||||
#x13437
|
||||
(list (vector "\U00013437[\U00013000-\U0001343F]+"
|
||||
0 'egyptian-shape-grouping))))
|
||||
0 #'egyptian-shape-grouping))))
|
||||
|
||||
(provide 'misc-lang)
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue