.emacs-my
changeset 1349 bb5f3306e2a8
parent 1348 93bcfa82cb34
child 1350 82ce5b4ae16e
equal deleted inserted replaced
1348:93bcfa82cb34 1349:bb5f3306e2a8
   817        ((eq arg 2)
   817        ((eq arg 2)
   818         (activate-input-method my-russian-input-method))
   818         (activate-input-method my-russian-input-method))
   819        ((eq arg 3)
   819        ((eq arg 3)
   820         (activate-input-method my-ukranian-input-method))
   820         (activate-input-method my-ukranian-input-method))
   821        ((eq arg 4)
   821        ((eq arg 4)
       
   822         (activate-input-method 'greek))
       
   823        ((eq arg 5)
   822         (activate-input-method my-ipa-input-method))
   824         (activate-input-method my-ipa-input-method))
   823        ((eq arg 5)
       
   824         (activate-input-method 'greek))
       
   825        ((eq arg 6)
   825        ((eq arg 6)
   826         (activate-input-method 'TeX)) )
   826         (activate-input-method 'TeX)) )
   827     (toggle-input-method arg)) )
   827     (toggle-input-method arg)) )
   828 
   828 
   829 (global-set-key (kbd "C-\\") 'my-toggle-input-method)
   829 (global-set-key (kbd "C-\\") 'my-toggle-input-method)