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
Signed by: Zander671
GPG Key ID: 5FD0394ADBD72730
1 changed files with 18 additions and 17 deletions
Show Stats 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-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 ;; fix the helper process failing if mozc is built with debug flags
(defun my/-fixed-mozc-helper-process-filter (proc output-string) ;; (with-eval-after-load 'mozc
;; NOTE this is just a modified version of the origial in mozc.el ;; (defun my/-fixed-mozc-helper-process-filter (proc output-string)
;; If proc is no longer active, just throw away the data. ;; ;; NOTE this is just a modified version of the origial in mozc.el
(when (eq proc mozc-helper-process) ;; ;; If proc is no longer active, just throw away the data.
(with-temp-buffer ;; (when (eq proc mozc-helper-process)
(insert (concat mozc-helper-process-string-buf output-string)) ;; (with-temp-buffer
(goto-char (point-min)) ;; (insert (concat mozc-helper-process-string-buf output-string))
(unwind-protect ;; (goto-char (point-min))
(while-let ((pos (scan-sexps (point) 1))) ;; (unwind-protect
(let* ((msg (buffer-substring-no-properties (point) pos))) ;; (while-let ((pos (scan-sexps (point) 1)))
(push msg mozc-helper-process-message-queue) ;; (let* ((msg (buffer-substring-no-properties (point) pos)))
(goto-char pos))) ;; (push msg mozc-helper-process-message-queue)
(setq mozc-helper-process-string-buf (buffer-substring-no-properties ;; (goto-char pos)))
(point) (point-max))))))) ;; (setq mozc-helper-process-string-buf (buffer-substring-no-properties
(advice-add 'mozc-helper-process-filter :override ;; (point) (point-max)))))))
#'my/-fixed-mozc-helper-process-filter)) ;; (advice-add 'mozc-helper-process-filter :override
;; #'my/-fixed-mozc-helper-process-filter))
;; migemo ;; migemo
(use-package migemo (use-package migemo