PORTREVISION=	6

PORTREVISION=	7

- 

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