summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorPo Lu <luangruo@yahoo.com>2022-10-06 10:55:25 +0800
committerPo Lu <luangruo@yahoo.com>2022-10-06 10:56:27 +0800
commit8e8d37aa326870ebf0ff6c07b4e37ae6abcf79b6 (patch)
tree36f50fe87723e2d7b43ff0a25e0a085bb010ed13 /lisp
parentc690d1f15d274d50ed21d4aa1b98a23de8d7e1e6 (diff)
downloademacs-8e8d37aa326870ebf0ff6c07b4e37ae6abcf79b6.tar.gz
emacs-8e8d37aa326870ebf0ff6c07b4e37ae6abcf79b6.tar.bz2
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.el2
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."
(if (equal x-locale "C")
;; Treat the C locale specially, as it means "ascii" under X.
'ascii
- (let ((locale (downcase x-locale)))
+ (let ((locale (locale-translate (downcase x-locale))))
(or (locale-name-match locale locale-preferred-coding-systems)
(when locale
(if (string-match "\\.\\([^@]+\\)" locale)