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

Disable the mozc fixes

Browse Source
This commit is contained in:
Alexander Rosenberg
2025-02-11 14:10:08 -08:00
parent 2313ad1b25
commit 173178313e
1 changed files with 18 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

35
init.el
View File

@ -569,23 +569,24 @@ 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))
;; fix the helper process failing if mozc is built with debug flags
;; (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