681 |
681 |
682 ;; cyrillic-jis-russian for 567 is :,. |
682 ;; cyrillic-jis-russian for 567 is :,. |
683 ;; cyrillic-jcuken for SHIFT 567 is :,. |
683 ;; cyrillic-jcuken for SHIFT 567 is :,. |
684 ;; russian-computer for SHIFT 567 is %^& |
684 ;; russian-computer for SHIFT 567 is %^& |
685 (setq my-russian-input-method 'russian-computer) |
685 (setq my-russian-input-method 'russian-computer) |
686 (setq my-ukranian-input-method 'ukranian-computer) |
686 (setq my-ukranian-input-method 'ukrainian-computer) |
|
687 (setq my-ipa-input-method 'ipa-x-sampa) |
687 (when (<= emacs-major-version 21) |
688 (when (<= emacs-major-version 21) |
688 (setq my-russian-input-method 'cyrillic-jcuken) |
689 (setq my-russian-input-method 'cyrillic-jcuken) |
689 (setq my-ukranian-input-method 'cyrillic-jcuken)) |
690 (setq my-ukranian-input-method 'cyrillic-jcuken)) |
690 (setq default-input-method my-russian-input-method) |
691 (setq default-input-method my-russian-input-method) |
|
692 |
|
693 (defun my-toggle-input-method (&optional arg) |
|
694 (interactive "P") |
|
695 (if (numberp arg) |
|
696 (cond |
|
697 ((eq arg 1) |
|
698 (activate-input-method nil)) |
|
699 ((eq arg 2) |
|
700 (activate-input-method my-russian-input-method)) |
|
701 ((eq arg 3) |
|
702 (activate-input-method my-ukranian-input-method)) |
|
703 ((eq arg 4) |
|
704 (activate-input-method my-ipa-input-method)) ) |
|
705 (toggle-input-method arg)) ) |
|
706 |
|
707 (global-set-key (kbd "C-\\") 'my-toggle-input-method) |
691 |
708 |
692 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
709 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
693 (message "mouse") |
710 (message "mouse") |
694 |
711 |
695 ;; Scroll Bar gets dragged by mouse butn 1 |
712 ;; Scroll Bar gets dragged by mouse butn 1 |