# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 863420183 0
# Node ID ef12c80a8a1e06c1493bd5ff1f55f32c8fc54d1e
# Parent  8c67c2e2cc2957cb02cb5108cb6befad9ae8e171
Set category of kinsoku-bol and kinsoku-eol for
latin-jisx0201 and katakana-jisx0201 characters.

diff -r 8c67c2e2cc29 -r ef12c80a8a1e lisp/international/kinsoku.el
--- a/lisp/international/kinsoku.el	Mon May 12 06:56:23 1997 +0000
+++ b/lisp/international/kinsoku.el	Mon May 12 06:56:23 1997 +0000
@@ -46,6 +46,22 @@
 	(concat
 	 ;; ASCII
 	 "!)-_~}]:;',.?"
+	 ;; Latin JISX0201
+	 ;; Instead of putting Latin JISX0201 string directyly, we
+	 ;; generate the string as below to avoid character
+	 ;; unification problem.
+	 (let* ((str1 "!)-_~}]:;',.?")
+		(len (length str1))
+		(idx 0)
+		(str2 "")
+		ch)
+	   (while (< idx len)
+	     (setq ch (make-char 'latin-jisx0201 (aref str1 idx))
+		   str2 (concat str2 (char-to-string ch))
+		   idx (1+ idx)))
+	   str2)
+	 ;; Katakana JISX0201
+	 "(I!#'()*+,-./0^_(B"
 	 ;; Japanese JISX0208
 	 "$B!"!#!$!%!&!'!(!)!*!+!,!-!.!/!0!1!2!3!4!5!6!7!8!9!:!;!<!=!>(B\
 $B!?!@!A!B!C!D!E!G!I!K!M!O!Q!S!U!W!Y![!k!l!m!n(B\
@@ -72,6 +88,20 @@
 	(concat
 	 ;; ASCII
 	 "({[`"
+	 ;; Latin JISX0201
+	 ;; See the comment above.
+	 (let* ((str1 "({[`")
+		(len (length str1))
+		(idx 0)
+		(str2 "")
+		ch)
+	   (while (< idx len)
+	     (setq ch (make-char 'latin-jisx0201 (aref str1 idx))
+		   str2 (concat str2 (char-to-string ch))
+		   idx (1+ idx)))
+	   str2)
+	 ;; JISX0201 Katakana
+	 "(I"(B"
 	 ;; Japanese JISX0208
 	 "$B!F!H!J!L!N!P!R!T!V!X!Z!k!l!m!n!w!x(B\
 $A!.!0#"#(!2!4!6!8!:!<!>!c!d!e#@!f!l(B"
@@ -101,7 +131,7 @@
 	(goto-char (car pos-and-column)))))
 
 ;; Try to resolve `kinsoku' restriction by making the current line shorter.
-;; The line can't be broken before the buffer position LINEBEG."
+;; The line can't be broken before the buffer position LINEBEG.
 (defun kinsoku-shorter (linebeg)
   (let ((pos (save-excursion
 	       (forward-char -1)