Update mozc stuff

init.el

@@ -693,8 +693,20 @@ directory. Otherwise, run `find-file' on that file."
 (setq default-input-method "japanese-mozc")
 (with-eval-after-load 'mozc
   (defvar mozc-candidate-style)
+  (defvar mozc-candidate-dispatch-table)
   (require 'mozc-posframe)
-  (setq mozc-candidate-style 'posframe))
+  (setq mozc-candidate-style 'posframe)
+  (defun my/-mozc-candidate-dispatch-posframe-in-echo-area (method &rest args)
+    "Make `mozc-candidate-dispatch' use posframe from the echo area.
+METHOD and ARGS are as to `mozc-candidate-dispatch'."
+    (let* ((method-table (cdr (assq mozc-candidate-style
+                                    mozc-candidate-dispatch-table)))
+           (func (cdr (assq method method-table))))
+      (if func
+          (apply func args)
+        (signal 'mozc-internal-error (list mozc-candidate-style method args)))))
+  (advice-add 'mozc-candidate-dispatch :override
+              #'my/-mozc-candidate-dispatch-posframe-in-echo-area))
 
 (face-spec-set 'mozc-cand-overlay-focused-face
                '((t :foreground unspecified :background unspecified