Temporarily fix mozc.el
This commit is contained in:
		
							
								
								
									
										17
									
								
								init.el
									
									
									
									
									
								
							
							
						
						
									
										17
									
								
								init.el
									
									
									
									
									
								
							@ -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
 | 
			
		||||
 | 
			
		||||
		Reference in New Issue
	
	Block a user