diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2022-10-30 13:16:30 +0200 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2022-10-30 13:16:30 +0200 |
| commit | d4dffae72c9042b10e73ff418b33faa8bf3a6b44 (patch) | |
| tree | f2d12be0456f76282ef6c2ca3e5cb31b71972268 | |
| parent | fa249fd82455148781410b7d48295ff51881d30e (diff) | |
| download | emacs-d4dffae72c9042b10e73ff418b33faa8bf3a6b44.tar.gz | |
; Change parent language-environment of Kharoshthi
* lisp/language/misc-lang.el ("Kharoshthi"): Change its parent to
"Indian". (Bug#58376)
* lisp/international/mule-cmds.el (set-language-info-alist): Fix
indentation.
| -rw-r--r-- | lisp/international/mule-cmds.el | 25 | ||||
| -rw-r--r-- | lisp/language/misc-lang.el | 2 |
2 files changed, 17 insertions, 10 deletions
diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index dfd2e1438e2..61a26b504c8 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el @@ -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) diff --git a/lisp/language/misc-lang.el b/lisp/language/misc-lang.el index c34017d9b3a..230db3b100c 100644 --- a/lisp/language/misc-lang.el +++ b/lisp/language/misc-lang.el @@ -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]") |