forked from Lainports/opnsense-ports
55 lines
1.9 KiB
EmacsLisp
55 lines
1.9 KiB
EmacsLisp
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
|
||
|