| @@ -2569,6 +2569,28 @@ Any output will be written to current buffer." | |||||
| (define-key input-decode-map "\e[1;5C" [C-right]) | (define-key input-decode-map "\e[1;5C" [C-right]) | ||||
| (define-key input-decode-map "\e[1;5D" [C-left]) | (define-key input-decode-map "\e[1;5D" [C-left]) | ||||
| ;; mozc | |||||
| (when nil | |||||
| ;; https://tottoto.net/mac-emacs-karabiner-elements-japanese-input-method-config/ | |||||
| (with-eval-after-load 'mozc | |||||
| (define-key mozc-mode-map (kbd "C-h") 'backward-delete-char)) | |||||
| (setq default-input-method "japanese-mozc") | |||||
| (custom-set-variables '(mozc-leim-title "あ")) | |||||
| (defun turn-on-input-method () | |||||
| (interactive) | |||||
| (activate-input-method default-input-method)) | |||||
| (defun turn-off-input-method () | |||||
| (interactive) | |||||
| (deactivate-input-method)) | |||||
| ) | |||||
| ;; (global-set-key | |||||
| ;; (kbd "C-<f11>" . turn-on-input-method) | |||||
| ;; ("C-<f12>" . turn-off-input-method)) | |||||
| ;; (setq mozc-candidate-style 'overlay) | |||||
| ;; (setq mozc-candidate-style 'echo-area) | |||||
| ;; Local Variables: | ;; Local Variables: | ||||
| ;; flycheck-disabled-checkers: (emacs-lisp-checkdoc) | ;; flycheck-disabled-checkers: (emacs-lisp-checkdoc) | ||||
| ;; flycheck-checker: emacs-lisp | ;; flycheck-checker: emacs-lisp | ||||