[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#69536: 30.0.50; Runtime error happens with Tamago input method after
|
From: |
Yasuhiro Kimura |
|
Subject: |
bug#69536: 30.0.50; Runtime error happens with Tamago input method after recent change with obarry |
|
Date: |
Mon, 04 Mar 2024 17:41:45 +0900 (JST) |
There are following lines (line 1360-1484) in its.el (can download
from https://github.com/hrs-allbsd/tamago/blob/freebsd/its.el).
----------------------------------------------------------------------
(defconst its-full-half-table (make-vector 100 nil))
(defconst its-half-full-table (make-vector 100 nil))
(let ((table '((Japanese
(? . ?\ ) (?， . ?,) (?． . ?.) (?、 . ?,) (?。 . ?.)
(?： . ?:) (?； . ?\;) (?？ . ??) (?！ . ?!)
(?´ . ?') (?｀ . ?`) (?＾ . ?^) (?＿ . ?_) (?￣ . ?~)
(?ー . ?-) (?— . ?-) (?‐ . ?-)
(?／ . ?/) (?＼ . ?\\) (?〜 . ?~) (?｜ . ?|)
(?‘ . ?`) (?’ . ?') (?“ . ?\") (?” . ?\")
(?（ . ?\() (?） . ?\)) (?［ . ?\[) (?］ . ?\])
(?｛ . ?{) (?｝ . ?}) (?〈 . ?<) (?〉 . ?>)
(?＋ . ?+) (?− . ?-) (?＝ . ?=) (?＜ . ?<) (?＞ . ?>)
(?′ . ?') (?″ . ?\") (?￥ . ?\\) (?＄ . ?$) (?％ . ?%)
(?＃ . ?#) (?＆ . ?&) (?＊ . ?*) (?＠ . ?@)
(?０ . ?0) (?１ . ?1) (?２ . ?2) (?３ . ?3) (?４ . ?4)
(?５ . ?5) (?６ . ?6) (?７ . ?7) (?８ . ?8) (?９ . ?9)
(?Ａ . ?A) (?Ｂ . ?B) (?Ｃ . ?C) (?Ｄ . ?D) (?Ｅ . ?E)
(?Ｆ . ?F) (?Ｇ . ?G) (?Ｈ . ?H) (?Ｉ . ?I) (?Ｊ . ?J)
(?Ｋ . ?K) (?Ｌ . ?L) (?Ｍ . ?M) (?Ｎ . ?N) (?Ｏ . ?O)
(?Ｐ . ?P) (?Ｑ . ?Q) (?Ｒ . ?R) (?Ｓ . ?S) (?Ｔ . ?T)
(?Ｕ . ?U) (?Ｖ . ?V) (?Ｗ . ?W) (?Ｘ . ?X) (?Ｙ . ?Y)
(?Ｚ . ?Z)
(?ａ . ?a) (?ｂ . ?b) (?ｃ . ?c) (?ｄ . ?d) (?ｅ . ?e)
(?ｆ . ?f) (?ｇ . ?g) (?ｈ . ?h) (?ｉ . ?i) (?ｊ . ?j)
(?ｋ . ?k) (?ｌ . ?l) (?ｍ . ?m) (?ｎ . ?n) (?ｏ . ?o)
(?ｐ . ?p) (?ｑ . ?q) (?ｒ . ?r) (?ｓ . ?s) (?ｔ . ?t)
(?ｕ . ?u) (?ｖ . ?v) (?ｗ . ?w) (?ｘ . ?x) (?ｙ . ?y)
(?ｚ . ?z))
(Chinese-GB
(? . ?\ ) (?， . ?,) (?． . ?.) (?、 . ?,) (?。 . ?.)
(?： . ?:) (?； . ?\;) (?？ . ??) (?！ . ?!)
(?｀ . ?`) (?＾ . ?^) (?＿ . ?_) (?￣ . ?~)
(?― . ?-)
(?／ . ?/) (?＼ . ?\\) (?～ . ?~) (?｜ . ?|)
(?‘ . ?`) (?’ . ?') (?“ . ?\") (?” . ?\")
(?（ . ?\() (?） . ?\)) (?［ . ?\[) ( ?］ . ?\])
(?｛ . ?{) (?｝ . ?})
(?＋ . ?+) (?－ . ?-) (?＝ . ?=) (?＜ . ?<) (?＞ . ?>)
(?＇ . ?') (?＂ . ?\") (?￥ . ?$) (?％ . ?%)
(?＃ . ?#) (?＆ . ?&) (?＊ . ?*) (?＠ . ?@)
(?０ . ?0) (?１ . ?1) (?２ . ?2) (?３ . ?3) (?４ . ?4)
(?５ . ?5) (?６ . ?6) (?７ . ?7) (?８ . ?8) (?９ . ?9)
(?Ａ . ?A) (?Ｂ . ?B) (?Ｃ . ?C) (?Ｄ . ?D) (?Ｅ . ?E)
(?Ｆ . ?F) (?Ｇ . ?G) (?Ｈ . ?H) (?Ｉ . ?I) (?Ｊ . ?J)
(?Ｋ . ?K) (?Ｌ . ?L) (?Ｍ . ?M) (?Ｎ . ?N) (?Ｏ . ?O)
(?Ｐ . ?P) (?Ｑ . ?Q) (?Ｒ . ?R) (?Ｓ . ?S) (?Ｔ . ?T)
(?Ｕ . ?U) (?Ｖ . ?V) (?Ｗ . ?W) (?Ｘ . ?X) (?Ｙ . ?Y)
(?Ｚ . ?Z)
(?ａ . ?a) (?ｂ . ?b) (?ｃ . ?c) (?ｄ . ?d) (?ｅ . ?e)
(?ｆ . ?f) (?ｇ . ?g) (?ｈ . ?h) (?ｉ . ?i) (?ｊ . ?j)
(?ｋ . ?k) (?ｌ . ?l) (?ｍ . ?m) (?ｎ . ?n) (?ｏ . ?o)
(?ｐ . ?p) (?ｑ . ?q) (?ｒ . ?r) (?ｓ . ?s) (?ｔ . ?t)
(?ｕ . ?u) (?ｖ . ?v) (?ｗ . ?w) (?ｘ . ?x) (?ｙ . ?y)
(?ｚ . ?z))
(Chinese-CNS
(? . ?\ ) (?， . ?,) (?． . ?.) (?、 . ?,) (?。 . ?.)
(?： . ?:) (?； . ?\;) (?？ . ??) (?！ . ?!)
(?‵ . ?') (?′ . ?`) (?︿ . ?^) (?＿ . ?_) (?‾ . ?~)
(?﹣ . ?-)
(?／ . ?/) (?＼ . ?\\) (?∕ . ?/) (?﹨ . ?\\)
(?∼ . ?~) (?｜ . ?|)
(?‘ . ?`) (?’ . ?')
(?〝 . ?\") (?〞 . ?\") (?“ . ?\") (?” . ?\")
(?（ . ?\() (?） . ?\))
(?〔 . ?\[) (?〕 . ?\]) (?﹝ . ?\[) (?﹞ . ?\])
(?｛ . ?{) (?｝ . ?}) (?﹛ . ?{) (?﹜ . ?})
(?〈 . ?<) (?〉 . ?>)
(?＋ . ?+) (?－ . ?-) (?＝ . ?=) (?＜ . ?<) (?＞ . ?>)
(?＄ . ?$) (?％ . ?%)
(?＃ . ?#) (?＆ . ?&) (?＊ . ?*) (?＠ . ?@)
(?０ . ?0) (?１ . ?1) (?２ . ?2) (?３ . ?3) (?４ . ?4)
(?５ . ?5) (?６ . ?6) (?７ . ?7) (?８ . ?8) (?９ . ?9)
(?Ａ . ?A) (?Ｂ . ?B) (?Ｃ . ?C) (?Ｄ . ?D) (?Ｅ . ?E)
(?Ｆ . ?F) (?Ｇ . ?G) (?Ｈ . ?H) (?Ｉ . ?I) (?Ｊ . ?J)
(?Ｋ . ?K) (?Ｌ . ?L) (?Ｍ . ?M) (?Ｎ . ?N) (?Ｏ . ?O)
(?Ｐ . ?P) (?Ｑ . ?Q) (?Ｒ . ?R) (?Ｓ . ?S) (?Ｔ . ?T)
(?Ｕ . ?U) (?Ｖ . ?V) (?Ｗ . ?W) (?Ｘ . ?X) (?Ｙ . ?Y)
(?Ｚ . ?Z)
(?ａ . ?a) (?ｂ . ?b) (?ｃ . ?c) (?ｄ . ?d) (?ｅ . ?e)
(?ｆ . ?f) (?ｇ . ?g) (?ｈ . ?h) (?ｉ . ?i) (?ｊ . ?j)
(?ｋ . ?k) (?ｌ . ?l) (?ｍ . ?m) (?ｎ . ?n) (?ｏ . ?o)
(?ｐ . ?p) (?ｑ . ?q) (?ｒ . ?r) (?ｓ . ?s) (?ｔ . ?t)
(?ｕ . ?u) (?ｖ . ?v) (?ｗ . ?w) (?ｘ . ?x) (?ｙ . ?y)
(?ｚ . ?z))
(Korean
(? . ?\ ) (?， . ?,) (?． . ?.)
(?： . ?:) (?； . ?\;) (?？ . ??) (?！ . ?!)
(?’ . ?') (?‘ . ?`) (?＾ . ?^) (?＿ . ?_) (?￣ . ?~)
(?― . ?-) (? . ?-)
(?／ . ?/) (?＼ . ?\\) (?∼ . ?~) (?｜ . ?|)
(?‘ . ?`) (?’ . ?') (?“ . ?\") (?” . ?\")
(?（ . ?\() (?） . ?\)) (?［ . ?\[) (?］ . ?\])
(?｛ . ?{) (?｝ . ?}) (?〈 . ?<) (?〉 . ?>)
(?＋ . ?+) (?－ . ?-) (?＝ . ?=) (?＜ . ?<) (?＞ . ?>)
(?＇ . ?') (?＂ . ?\") (?￦ . ?\\) (?＄ . ?$) (?％ . ?%)
(?＃ . ?#) (?＆ . ?&) (?＊ . ?*) (?＠ . ?@)
(?０ . ?0) (?１ . ?1) (?２ . ?2) (?３ . ?3) (?４ . ?4)
(?５ . ?5) (?６ . ?6) (?７ . ?7) (?８ . ?8) (?９ . ?9)
(?Ａ . ?A) (?Ｂ . ?B) (?Ｃ . ?C) (?Ｄ . ?D) (?Ｅ . ?E)
(?Ｆ . ?F) (?Ｇ . ?G) (?Ｈ . ?H) (?Ｉ . ?I) (?Ｊ . ?J)
(?Ｋ . ?K) (?Ｌ . ?L) (?Ｍ . ?M) (?Ｎ . ?N) (?Ｏ . ?O)
(?Ｐ . ?P) (?Ｑ . ?Q) (?Ｒ . ?R) (?Ｓ . ?S) (?Ｔ . ?T)
(?Ｕ . ?U) (?Ｖ . ?V) (?Ｗ . ?W) (?Ｘ . ?X) (?Ｙ . ?Y)
(?Ｚ . ?Z)
(?ａ . ?a) (?ｂ . ?b) (?ｃ . ?c) (?ｄ . ?d) (?ｅ . ?e)
(?ｆ . ?f) (?ｇ . ?g) (?ｈ . ?h) (?ｉ . ?i) (?ｊ . ?j)
(?ｋ . ?k) (?ｌ . ?l) (?ｍ . ?m) (?ｎ . ?n) (?ｏ . ?o)
(?ｐ . ?p) (?ｑ . ?q) (?ｒ . ?r) (?ｓ . ?s) (?ｔ . ?t)
(?ｕ . ?u) (?ｖ . ?v) (?ｗ . ?w) (?ｘ . ?x) (?ｙ . ?y)
(?ｚ . ?z))))
(hash (make-vector 100 nil))
lang pair)
(while table
(setq lang (caar table)
pair (cdar table)
table (cdr table))
(while pair
(set (intern (char-to-string (caar pair)) its-full-half-table)
(cdar pair))
(set (intern (concat (symbol-name lang) (char-to-string (cdar pair)))
its-half-full-table)
(caar pair))
(setq pair (cdr pair)))
hash))
----------------------------------------------------------------------
And if I do following steps
1. Download its.el.
2. Start emacs with `emacs -Q'.
3. Open its.el.
4. Mark above lines as region
5. M-x toggle-debug-on-error
6. M-x eval-region
Then I get following backtrace.
----------------------------------------------------------------------
Debugger entered--Lisp error: (wrong-type-argument obarrayp [nil nil nil nil
nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil
nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil
nil nil nil nil nil nil ...])
intern(" " [nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil
nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil
nil nil nil nil nil nil nil nil nil nil nil nil nil nil ...])
(set (intern (char-to-string (car (car pair))) its-full-half-table) (cdr (car
pair)))
(while pair (set (intern (char-to-string (car (car pair)))
its-full-half-table) (cdr (car pair))) (set (intern (concat (symbol-name lang)
(char-to-string (cdr (car pair)))) its-half-full-table) (car (car pair))) (setq
pair (cdr pair)))
(while table (progn (setq lang (car (car table))) (setq pair (cdr (car
table))) (setq table (cdr table))) (while pair (set (intern (char-to-string
(car (car pair))) its-full-half-table) (cdr (car pair))) (set (intern (concat
(symbol-name lang) (char-to-string (cdr (car pair)))) its-half-full-table) (car
(car pair))) (setq pair (cdr pair))) hash)
(let ((table '((Japanese (12288 . 32) (65292 . 44) (65294 . 46) (12289 . 44)
(12290 . 46) (65306 . 58) (65307 . 59) (65311 . 63) (65281 . 33) (180 . 39)
(65344 . 96) (65342 . 94) (65343 . 95) (65507 . 126) (12540 . 45) (8212 . 45)
(8208 . 45) (65295 . 47) (65340 . 92) (12316 . 126) (65372 . 124) (8216 . 96)
(8217 . 39) (8220 . 34) (8221 . 34) (65288 . 40) (65289 . 41) (65339 . 91)
(65341 . 93) (65371 . 123) (65373 . 125) (12296 . 60) (12297 . 62) (65291 . 43)
(8722 . 45) (65309 . 61) (65308 . 60) (65310 . 62) (8242 . 39) (8243 . 34)
(65509 . 92) (65284 . 36) (65285 . 37) (65283 . 35) (65286 . 38) (65290 . 42)
(65312 . 64) (65296 . 48) (65297 . 49) ...) (Chinese-GB (12288 . 32) (65292 .
44) (65294 . 46) (12289 . 44) (12290 . 46) (65306 . 58) (65307 . 59) (65311 .
63) (65281 . 33) (65344 . 96) (65342 . 94) (65343 . 95) (65507 . 126) (8213 .
45) (65295 . 47) (65340 . 92) (65374 . 126) (65372 . 124) (8216 . 96) (8217 .
39) (8220 . 34) (8221 . 34) (65288 . 40) (65289 . 41) (65339 . 91) (65341 . 93)
(65371 . 123) (65373 . 125) (65291 . 43) (65293 . 45) (65309 . 61) (65308 . 60)
(65310 . 62) (65287 . 39) (65282 . 34) (65509 . 36) (65285 . 37) (65283 . 35)
(65286 . 38) (65290 . 42) (65312 . 64) (65296 . 48) (65297 . 49) (65298 . 50)
(65299 . 51) (65300 . 52) (65301 . 53) (65302 . 54) (65303 . 55) ...)
(Chinese-CNS (12288 . 32) (65292 . 44) (65294 . 46) (12289 . 44) (12290 . 46)
(65306 . 58) (65307 . 59) (65311 . 63) (65281 . 33) (8245 . 39) (8242 . 96)
(65087 . 94) (65343 . 95) (8254 . 126) (65123 . 45) (65295 . 47) (65340 . 92)
(8725 . 47) (65128 . 92) (8764 . 126) (65372 . 124) (8216 . 96) (8217 . 39)
(12317 . 34) (12318 . 34) (8220 . 34) (8221 . 34) (65288 . 40) (65289 . 41)
(12308 . 91) (12309 . 93) (65117 . 91) (65118 . 93) (65371 . 123) (65373 . 125)
(65115 . 123) (65116 . 125) (12296 . 60) (12297 . 62) (65291 . 43) (65293 . 45)
(65309 . 61) (65308 . 60) (65310 . 62) (65284 . 36) (65285 . 37) (65283 . 35)
(65286 . 38) (65290 . 42) ...) (Korean (12288 . 32) (65292 . 44) (65294 . 46)
(65306 . 58) (65307 . 59) (65311 . 63) (65281 . 33) (8217 . 39) (8216 . 96)
(65342 . 94) (65343 . 95) (65507 . 126) (8213 . 45) (173 . 45) (65295 . 47)
(65340 . 92) (8764 . 126) (65372 . 124) (8216 . 96) (8217 . 39) (8220 . 34)
(8221 . 34) (65288 . 40) (65289 . 41) (65339 . 91) (65341 . 93) (65371 . 123)
(65373 . 125) (12296 . 60) (12297 . 62) (65291 . 43) (65293 . 45) (65309 . 61)
(65308 . 60) (65310 . 62) (65287 . 39) (65282 . 34) (65510 . 92) (65284 . 36)
(65285 . 37) (65283 . 35) (65286 . 38) (65290 . 42) (65312 . 64) (65296 . 48)
(65297 . 49) (65298 . 50) (65299 . 51) (65300 . 52) ...))) (hash (make-vector
100 nil)) lang pair) (while table (progn (setq lang (car (car table))) (setq
pair (cdr (car table))) (setq table (cdr table))) (while pair (set (intern
(char-to-string (car (car pair))) its-full-half-table) (cdr (car pair))) (set
(intern (concat (symbol-name lang) (char-to-string (cdr ...)))
its-half-full-table) (car (car pair))) (setq pair (cdr pair))) hash))
eval-region(42971 48417) ; Reading at buffer position 48417
funcall-interactively(eval-region 42971 48417)
command-execute(eval-region record)
execute-extended-command(nil "eval-region" "eval-reg")
funcall-interactively(execute-extended-command nil "eval-region" "eval-reg")
command-execute(execute-extended-command)
----------------------------------------------------------------------