diff options
| author | Po Lu | 2022-10-06 10:55:25 +0800 |
|---|---|---|
| committer | Po Lu | 2022-10-06 10:56:27 +0800 |
| commit | 8e8d37aa326870ebf0ff6c07b4e37ae6abcf79b6 (patch) | |
| tree | 36f50fe87723e2d7b43ff0a25e0a085bb010ed13 /lisp | |
| parent | c690d1f15d274d50ed21d4aa1b98a23de8d7e1e6 (diff) | |
| download | emacs-8e8d37aa326870ebf0ff6c07b4e37ae6abcf79b6.tar.gz emacs-8e8d37aa326870ebf0ff6c07b4e37ae6abcf79b6.zip | |
Minor fixes to IM locale handling
* lisp/term/x-win.el (x-get-input-coding-system): Translate locales.
* src/xterm.c (x_term_init): If the X library doesn't support
the current locale, don't set up input methods.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/term/x-win.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el index 57c6b785e73..62684f52cc9 100644 --- a/lisp/term/x-win.el +++ b/lisp/term/x-win.el | |||
| @@ -1623,7 +1623,7 @@ found." | |||
| 1623 | (if (equal x-locale "C") | 1623 | (if (equal x-locale "C") |
| 1624 | ;; Treat the C locale specially, as it means "ascii" under X. | 1624 | ;; Treat the C locale specially, as it means "ascii" under X. |
| 1625 | 'ascii | 1625 | 'ascii |
| 1626 | (let ((locale (downcase x-locale))) | 1626 | (let ((locale (locale-translate (downcase x-locale)))) |
| 1627 | (or (locale-name-match locale locale-preferred-coding-systems) | 1627 | (or (locale-name-match locale locale-preferred-coding-systems) |
| 1628 | (when locale | 1628 | (when locale |
| 1629 | (if (string-match "\\.\\([^@]+\\)" locale) | 1629 | (if (string-match "\\.\\([^@]+\\)" locale) |