Kurtの部屋

Follow me on GitHub

<2025-03-24 Mon>

emacs でのhelm とmozc

helm 内でmozc の日本語入力が "C-m" で確定できない

helm-find-files で日本語ファイル名のファイルを作りたいことがあり、日本語入力、"C-m" で確定しようとしたら、入力は確定されず、 その代わりにhelm セッションが閉じ、 入力しかけの状態のバッファ名でバッファが開いてしまう問題に直面した。 僕は日本語入力は mozc を使っており、emacs 上では、 emacs-mozc をインタフェース として使っている。僕の環境は、

  • Linux 6.13.7 (Arch Linux)
  • emacs 30.1
  • helm 20250228.640 (melpa からインストール)
  • mozc 2.30.5618.102.20241010-1 (arch の aur パッケージからインストール)
  • emacs-mozc 2.30.5618.102-1 (arch の aur パッケージからインストール)

原因と解決策

edubug でデバッグしたところ helm 中は、"C-m" といったmozc で認識可能なキーバインドが mozc.el に行き着かずに、 helm に取られていました。

mozc.el では、 minor-mode-map-alist の先頭に mozc 用の キー設定を登録して、キーを認識させています。 minor-mode-map-alist 内では、 helm 用のキー設定は mozc用のキー設定よりも後ろに置かれていたので、 helm の方が優先度が低そうでした。しかし、 helm は minor-mode-overriding-map-alisthelm-find-fileshelm-mini 用のキー設定を配置し、ベースのhelm 用のキー設定を上書きしていました。 minor-mode-overriding-map-alist は、 minor-mode-map-alist よりも優先されるため、 helm-find-fileshelm-mini 用のキーマップがmozc 用のキーマップよりも優先してキーを受けていました。 さらに helm は minor-mode-overriding-map-alist を動作中にアップデートしてしまう ので、ここの先頭にmozc用のキー設定を追加するのはうまくいきませんでした。

elisp の info を見ると、 minor-mode-overriding-map-alist に登録されている キー設定よりも、 emulation-mode-map-alists に登録されているキー設定の方が 優先して使用されるので、今回はこれを使用することにしました。ただし、 emulation-mode-map-alists は本来、複数のマイナーモードキーマップを使えるように するための変数なので、本来の使い方ではなさそうです。以下を設定ファイルに加えます。

(defvar mozc--keymap-alist `((mozc-mode . ,mozc-mode-map)))

(add-hook 'mozc-mode-hook
          (lambda ()
            ;; Put the keymap alist symbol at the top of `emulation-mode-map-alists'
            (setq emulation-mode-map-alists
                  (cons 'mozc--keymap-alist
                        (delq 'mozc--keymap-alist emulation-mode-map-alists)))))

;; modified for mozc--keymap-alist
(defsubst mozc-enable-keymap ()
  "Enable Mozc keymap again."
  (setcdr (assq 'mozc-mode minor-mode-map-alist)
          mozc-mode-map)
  (setcdr (assq 'mozc-mode mozc--keymap-alist)
          mozc-mode-map))

(defsubst mozc-disable-keymap ()
  "Disable Mozc keymap temporarily."
  (setcdr (assq 'mozc-mode minor-mode-map-alist)
          mozc-empty-map)
  (setcdr (assq 'mozc-mode mozc--keymap-alist)
          mozc-empty-map))

;; redifined due to the change of the above inline functions
(defun mozc-fall-back-on-default-binding (last-event)
  "Execute a command as if the command loop does.
Read a complete set of user input and execute the command bound to
the key sequence in almost the same way of the command loop.

LAST-EVENT is the last event which a user has input.  The last event is pushed
back and treated as if it's the first event of a next key sequence."
  (unwind-protect
      (progn
        ;; Disable the keymap in this unwind-protect.
        (mozc-disable-keymap)
        ;; Push back the last event on the event queue.
        (and last-event (push last-event unread-command-events))
        ;; Read and execute a command.
        (let* ((keys (read-key-sequence-vector nil))
               (bind (key-binding keys t)))
          ;; Pretend `mozc-handle-event' command was not running and just
          ;; the default binding is running.
          (setq last-command-event (aref keys (1- (length keys))))
          (setq this-command bind)
          (if bind
              (call-interactively bind nil keys)
            (let (message-log-max)
              (message "%s is undefined" (key-description keys))
              (undefined)))))
    ;; Recover the keymap.
    (mozc-enable-keymap)))

mozc-enable-keymap, mozc-disable-keymap, mozc-fall-back-on-default-binding を再定義しているのは、 mozc-enable-keymap, mozc-disable-keymapdefsubst で定義されている inline関数のためです。(僕も今回始めて defsubst や inline 関数の意味を 知りました。)

この設定で、helm 中の minibuffer でも mozc-mode-map が優先され、"C-m" が mozc に届き入力を確定することができます。

ここまでで僕は主に

  • mozc.el
  • helm-core.el
  • elisp の info

を見ました。

思ったこと

今回の調査と解決策を確定させたり、ブラッシュアップするのに 多分15h くらいかかってしまいました。 helm あるいは mozc のソースコードに修正を適用するのを狙っていましたが、一方のソフト のために他方を変えるみたいなことになり、一つのソフトとして ソースコードがいびつになりそうなのでやめました。こういった細かい要望は というのはユーザが埋めるものなのでしょうか。

今回の件で、 helm のメンテナに問題を報告したのですが、頑張って英語で質問を 書くまでにいろいろ確認してってやっていくと、だんだんと熱が入っていって、 メンテナからもアドバイスがあったりしてってとなり、自分で解いてみたくなる ものですね。

[Home]