diff --git a/editors/tamago/files/patch-its.el b/editors/tamago/files/patch-its.el
new file mode 100644
index 000000000000..ec218c8da9f2
--- /dev/null
+++ b/editors/tamago/files/patch-its.el
@@ -0,0 +1,55 @@
+From cb3938b8783f068660a63d95ca8afb4da09f2259 Mon Sep 17 00:00:00 2001
+From: Yasuhiro Kimura <yasu@utahime.org>
+Date: Sat, 9 Mar 2024 09:34:15 +0900
+Subject: [PATCH] Fix build and runtime error with recent master branch of
+ Emacs git repository
+
+---
+ its.el | 10 ++++------
+ 1 file changed, 4 insertions(+), 6 deletions(-)
+
+diff --git its.el its.el
+index a785694..8f4de21 100644
+--- its.el
++++ its.el
+@@ -695,7 +695,7 @@ This variable override `its-delete-by-keystroke'."
+ 
+ (defun its-map-compaction (map)
+   (if its-compaction-enable
+-      (let ((its-compaction-hash-table (make-vector 1000 nil))
++      (let ((its-compaction-hash-table (obarray-make 1000))
+ 	    (its-compaction-integer-table (make-vector 138 nil))
+ 	    (its-compaction-counter-1 1)
+ 	    (its-compaction-counter-2 0)
+@@ -1357,8 +1357,8 @@ Return last state."
+   (interactive)
+   (its-convert (lambda (str lang) (japanese-katakana str))))
+ 
+-(defconst its-full-half-table (make-vector 100 nil))
+-(defconst its-half-full-table (make-vector 100 nil))
++(defconst its-full-half-table (obarray-make 100))
++(defconst its-half-full-table (obarray-make 100))
+ 
+ (let ((table '((Japanese
+ 		(?$B!!(B . ?\ ) (?$B!$(B . ?,)  (?$B!%(B . ?.)  (?$B!"(B . ?,)  (?$B!#(B . ?.)
+@@ -1468,7 +1468,6 @@ Return last state."
+ 		(?$(C#p(B . ?p)  (?$(C#q(B . ?q)  (?$(C#r(B . ?r)  (?$(C#s(B . ?s)  (?$(C#t(B . ?t)
+ 		(?$(C#u(B . ?u)  (?$(C#v(B . ?v)  (?$(C#w(B . ?w)  (?$(C#x(B . ?x)  (?$(C#y(B . ?y)
+ 		(?$(C#z(B . ?z))))
+-      (hash (make-vector 100 nil))
+       lang pair)
+   (while table
+     (setq lang (caar table)
+@@ -1480,8 +1479,7 @@ Return last state."
+       (set (intern (concat (symbol-name lang) (char-to-string (cdar pair)))
+ 		   its-half-full-table)
+ 	   (caar pair))
+-      (setq pair (cdr pair)))
+-    hash))
++      (setq pair (cdr pair)))))
+ 
+ ;;; its-half-width : half-width-region for input-buffer
+ (defun its-half-width ()
+-- 
+2.44.0
+