From xemacs-m  Sun Jun 15 15:56:47 1997
Received: from bittersweet.inetarena.com (karlheg@bittersweet.inetarena.com [206.129.216.38])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id PAA26678
	for <xemacs-beta@xemacs.org>; Sun, 15 Jun 1997 15:56:45 -0500 (CDT)
Received: (from karlheg@localhost)
	by bittersweet.inetarena.com (8.8.5/8.8.5) id NAA08928;
	Sun, 15 Jun 1997 13:57:00 -0700
Date: Sun, 15 Jun 1997 13:57:00 -0700
Message-Id: <199706152057.NAA08928@bittersweet.inetarena.com>
From: "Karl M. Hegbloom" <karlheg@inetarena.com>
To: <xemacs-beta@xemacs.org>
Subject: [patch] language/{china,japan}-util.el
X-Face: /Q}=yl}1_v7nP)xXo5XjG8+tl@=uVu7o5u6)f]zN?+<hB!K.m9:[|*p34jVN`O;:XZXVSy>/\R>qDt(t8w!-i{(y0"`jFw^uk8inzO9wXabd'CdjUWfC\GHi:6nO*YC89#-qD>Q4r%9!V"<RYJ=7D#$";q=zML5'!=wvXk^$`6FT=5CMofQX)WUKt0p:OKl.mFOXx/D


8<----------------------------------------------------------------->8
*** china-util.el.orig	Sun Jun 15 13:54:44 1997
--- china-util.el	Sun Jun 15 13:55:03 1997
***************
*** 67,73 ****
        ;; "~\n" -> "\n"
        (goto-char (point-min))
        (while (search-forward "~" nil t)
! 	(if (= (following-char) ?\n) (delete-char -1))
  	(if (not (eobp)) (forward-char 1)))
  
        ;; "^zW...\n" -> Chinese GB2312
--- 67,73 ----
        ;; "~\n" -> "\n"
        (goto-char (point-min))
        (while (search-forward "~" nil t)
! 	(if (= (char-after (point)) ?\n) (delete-char -1))
  	(if (not (eobp)) (forward-char 1)))
  
        ;; "^zW...\n" -> Chinese GB2312
*** japan-util.el.orig	Sun Jun 15 13:54:55 1997
--- japan-util.el	Sun Jun 15 13:56:29 1997
***************
*** 200,206 ****
      (narrow-to-region from to)
      (goto-char (point-min))
      (while (re-search-forward "\\cH\\|\\cK" nil t)
!       (let* ((hira (preceding-char))
  	     (kata (japanese-katakana hira hankaku)))
  	(if kata
  	    (progn
--- 200,206 ----
      (narrow-to-region from to)
      (goto-char (point-min))
      (while (re-search-forward "\\cH\\|\\cK" nil t)
!       (let* ((hira (char-before (point)))
  	     (kata (japanese-katakana hira hankaku)))
  	(if kata
  	    (progn
***************
*** 215,221 ****
      (narrow-to-region from to)
      (goto-char (point-min))
      (while (re-search-forward "\\cK\\|\\ck" nil t)
!       (let* ((kata (preceding-char))
  	     (hira (japanese-hiragana kata)))
  	(if hira
  	    (progn
--- 215,221 ----
      (narrow-to-region from to)
      (goto-char (point-min))
      (while (re-search-forward "\\cK\\|\\ck" nil t)
!       (let* ((kata (char-before (point)))
  	     (hira (japanese-hiragana kata)))
  	(if hira
  	    (progn
***************
*** 233,239 ****
      (narrow-to-region from to)
      (goto-char (point-min))
      (while (re-search-forward "\\cj" nil t)
!       (let* ((zenkaku (preceding-char))
  	     (hankaku (japanese-hankaku zenkaku ascii-only)))
  	(if hankaku
  	    (progn
--- 233,239 ----
      (narrow-to-region from to)
      (goto-char (point-min))
      (while (re-search-forward "\\cj" nil t)
!       (let* ((zenkaku (char-before (point)))
  	     (hankaku (japanese-hankaku zenkaku ascii-only)))
  	(if hankaku
  	    (progn
***************
*** 250,256 ****
      (narrow-to-region from to)
      (goto-char (point-min))
      (while (re-search-forward "\\ca\\|\\ck" nil t)
!       (let* ((hankaku (preceding-char))
  	     (zenkaku (japanese-zenkaku hankaku)))
  	(if zenkaku
  	    (progn
--- 250,256 ----
      (narrow-to-region from to)
      (goto-char (point-min))
      (while (re-search-forward "\\ca\\|\\ck" nil t)
!       (let* ((hankaku (char-before (point)))
  	     (zenkaku (japanese-zenkaku hankaku)))
  	(if zenkaku
  	    (progn
8<----------------------------------------------------------------->8

-- 
Karl M. Hegbloom <karlheg@inetarena.com>
http://www.inetarena.com/~karlheg
Portland, OR  USA
Debian GNU 1.3  Linux 2.1.36 AMD K5 PR-133

