本帖最后由 oldskooler 于 2021-4-23 14:16 编辑
感谢分享,能否增加在程序加载后,暂时停止双击时切换输入法的功能,
经过摸索,终于自己搞定了,分享出来,在楼主程序末尾添加以下内容,然后可以用命令autoime切换开关
- ;;;添加控制开关
- (defun c:autoime ()
- (if (/= autoimeonoff 0) (setq autoimeonoff 1))
- (cond
- ((= autoimeonoff 0) ((vlr-add mouse_reactor) (vlr-add command_reactor) (setq autoimeonoff 1) (princ "自动切换输入法打开。")))
- ((= autoimeonoff 1) ((vlr-remove mouse_reactor) (vlr-remove command_reactor) (setq autoimeonoff 0) (princ "自动切换输入法关闭。")))
- )
- (princ)
- )
|