Как вы, наверное, знаете, если вы пишете текст на нескольких языках и используете Emacs, у Emacs есть собственная система методов ввода, независимая от Windows (или других операционных систем). Методы ввода можно переключать с помощью команды toggle-input-method
. Когда язык Windows меняется, Emacs получает нажатие клавиши <language-change>
. Затем я хотел бы связать <language-change>
с toggle-input-method
. К сожалению, если я просто
(global-set-key (kbd "<language-change>") 'toggle-input-method)
и язык Windows, и метод ввода будут переключаться. Так что мне нужно что-то вроде
(defvar safe-language-change-flag nil)
(defun safe-language-change ()
(interactive)
(setq safe-language-change-flag (not safe-language-change-flag))
(when safe-language-change-flag
(toggle-input-method)
(send-key (kbd "<language-change>"))))
(global-set-key (kbd "<language-change>") 'safe-language-change)
Чего я не могу найти, так это вызова функции, которая отправит ключ в операционную систему (или по-другому изменит язык системы).