Как вы, вероятно, знаете, если вы пишете текст на нескольких языках и используете 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)
То, что я не могу найти, это вызов функции, который посылал бы ключ операционной системе (или изменял язык системы другим способом).