Zander671/emacs-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Temporarily fix mozc.el

Browse Source
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
1 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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-fcitx-enabled t)
(my/-set-eww-fcitx-state t)))) (my/-set-eww-fcitx-state t))))
(add-function :after after-focus-change-function #'my/-normalize-mozc-state) (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 ;; migemo
(use-package migemo (use-package migemo