textproc/uim-el: Fix runtime error with emacs-29.1

1 files changed, 35 insertions, 0 deletions

diff --git a/textproc/uim-el/files/patch-emacs_uim-leim.el b/textproc/uim-el/files/patch-emacs_uim-leim.el
new file mode 100644
index 000000000000..35a142cf4d8a
--- /dev/null
+++ b/textproc/uim-el/files/patch-emacs_uim-leim.el
@@ -0,0 +1,35 @@
+--- emacs/uim-leim.el.orig	2024-01-27 11:04:16 UTC
++++ emacs/uim-leim.el
+@@ -62,7 +62,7 @@
+ 
+   (let (im)
+     ;; register inactivation function
+-    (setq inactivate-current-input-method-function 'uim-leim-inactivate)
++    (setq deactivate-current-input-method-function 'uim-leim-inactivate)
+ 
+     ;; get plain IM engine name from LEIM style name
+     ;;  ex. "Japanese-anthy-uim" => "anthy"
+@@ -80,7 +80,7 @@
+ (defun uim-leim-reset ()
+   (when uim-leim-active
+     (message "uim.el: uim-leim-reset")
+-    (inactivate-input-method)))
++    (deactivate-input-method)))
+ 
+ 
+ (defun uim-leim-make-im-name (im)
+@@ -156,12 +156,12 @@
+ 	    (lambda ()
+ 	      (when uim-leim-active
+ 		(message "uim.el: LEIM inactivated"
+-			 (inactivate-input-method)))))
++			 (deactivate-input-method)))))
+ 
+   (add-hook 'uim-buffer-init-hook 
+ 	    (lambda ()
+ 	      (add-hook 'change-major-mode-hook
+-			'inactivate-input-method nil t)))
++			'deactivate-input-method nil t)))
+ 
+   ;; 
+   ;;uim-leim-update-label