Temporarily fix mozc.el

This commit is contained in:
Alexander Rosenberg 2025-02-09 01:20:21 -08:00
parent a6a712ea99
commit 87ec1690ee
Signed by: Zander671
GPG Key ID: 5FD0394ADBD72730

17
init.el
View File

@ -582,6 +582,23 @@ With NO-EWW, don't update eww's state."
(my/-set-fcitx-enabled t)
(my/-set-eww-fcitx-state t))))
(add-function :after after-focus-change-function #'my/-normalize-mozc-state)
(with-eval-after-load 'mozc
(defun my/-fixed-mozc-helper-process-filter (proc output-string)
;; NOTE this is just a modified version of the origial in mozc.el
;; If proc is no longer active, just throw away the data.
(when (eq proc mozc-helper-process)
(with-temp-buffer
(insert (concat mozc-helper-process-string-buf output-string))
(goto-char (point-min))
(unwind-protect
(while-let ((pos (scan-sexps (point) 1)))
(let* ((msg (buffer-substring-no-properties (point) pos)))
(push msg mozc-helper-process-message-queue)
(goto-char pos)))
(setq mozc-helper-process-string-buf (buffer-substring-no-properties
(point) (point-max)))))))
(advice-add 'mozc-helper-process-filter :override
#'my/-fixed-mozc-helper-process-filter))
;; migemo
(use-package migemo