Mercurial > hg > xemacs-beta

diff lisp/egg/egg-jisx0201.el @ 114:8619ce7e4c50 r20-1b9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b9
author cvs
date Mon, 13 Aug 2007 09:21:54 +0200
parents 131b0175ea99
children 6c0ae1f9357f
line wrap: on
line diff
--- a/lisp/egg/egg-jisx0201.el	Mon Aug 13 09:20:50 2007 +0200
+++ b/lisp/egg/egg-jisx0201.el	Mon Aug 13 09:21:54 2007 +0200
@@ -22,7 +22,8 @@
 ;;; 93.8.3   modified for Mule Ver.1.1 by K.Handa <handa@etl.go.jp>
 ;;;	Not to define regexp of Japanese word in this file.
 
-(provide 'jisx0201)
+(require 'egg)
+(provide 'egg-jisx0201)
 
 (defvar *katakana-alist*
   '(( 161 . "(I'(B" )
@@ -142,8 +143,8 @@
     (let ((regexp (if arg "\\cS\\|\\cK\\|\\cH" "\\cS\\|\\cK")))
       (while (re-search-forward regexp (point-max) (point-max))
 	(let* ((ch (preceding-char))
-	       (ch1 (char-component ch 1))
-	       (ch2 (char-component ch 2)))
+	       (ch1 (char-octet ch 0))
+	       (ch2 (char-octet ch 1)))
 	  (cond ((= ?\241 ch1)
 		 (let ((val (cdr (assq ch2 *katakana-kigou-alist*))))
 		   (if val (progn