Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 09:14:18 +00:00
Code Issues Projects Releases Packages Wiki Activity

; Change parent language-environment of Kharoshthi

Browse source 
* lisp/language/misc-lang.el ("Kharoshthi"): Change its parent to
"Indian".  (Bug#58376)
* lisp/international/mule-cmds.el (set-language-info-alist): Fix
indentation.
This commit is contained in:
Eli Zaretskii 2022-10-30 13:16:30 +02:00
parent fa249fd824
commit d4dffae72c
2 changed files with 17 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
lisp/international/mule-cmds.el
View file

@ -1238,7 +1238,8 @@ in the European submenu in each of those two menus."
(if (symbolp (setq parent-symbol (car parents)))
(setq parent (symbol-name parent))
(setq parent parent-symbol parent-symbol (intern parent)))
(setq describe-map (lookup-key describe-language-environment-map (vector parent-symbol)))
(setq describe-map (lookup-key describe-language-environment-map
(vector parent-symbol)))
;; This prompt string is for define-prefix-command, so
;; that the map it creates will be suitable for a menu.
(or describe-map (setq prompt (format "%s Environment" parent)))
@ -1246,19 +1247,25 @@ in the European submenu in each of those two menus."
(setq describe-map (intern (format "describe-%s-environment-map"
(downcase parent))))
(define-prefix-command describe-map nil prompt)
(define-key-after describe-language-environment-map (vector parent-symbol)
(cons parent describe-map)))
(setq setup-map (lookup-key setup-language-environment-map (vector parent-symbol)))
(define-key-after
describe-language-environment-map
(vector parent-symbol) (cons parent describe-map)))
(setq setup-map (lookup-key setup-language-environment-map
(vector parent-symbol)))
(unless setup-map
(setq setup-map (intern (format "setup-%s-environment-map"
(downcase parent))))
(define-prefix-command setup-map nil prompt)
(define-key-after setup-language-environment-map (vector parent-symbol)
(cons parent setup-map)))
(define-key-after
setup-language-environment-map
(vector parent-symbol) (cons parent setup-map)))
(setq parents (cdr parents))
(set-language-info-setup-keymap lang-env alist (symbol-value describe-map) (symbol-value setup-map))))
(set-language-info-setup-keymap lang-env alist
describe-language-environment-map setup-language-environment-map))
(set-language-info-setup-keymap
lang-env alist
(symbol-value describe-map) (symbol-value setup-map))))
(set-language-info-setup-keymap
lang-env alist
describe-language-environment-map setup-language-environment-map))
(dolist (elt alist)
(set-language-info-internal lang-env (car elt) (cdr elt)))
(if (equal lang-env current-language-environment)

2
lisp/language/misc-lang.el
View file

@ -253,7 +253,7 @@ in this language environment."))
(documentation . "\
Language environment for Gāndhārī, Sanskrit, and other languages
using the Kharoṣṭhī script."))
'("Misc"))
'("Indian"))
(let ((consonant "[\U00010A00\U00010A10-\U00010A35]")
(vowel "[\U00010A01-\U00010A06]")