Commits

Anonymous committed 230b2e1

build fixes

  • Participants
  • Parent commits f85d0e4
  • Tags sumo-1999-12-09, sumo-1999-12-11

Comments (0)

Files changed (9)

-VERSION = 1.02
+VERSION = 1.03
 AUTHOR_VERSION = 1.0
 MAINTAINER = XEmacs Development Team <xemacs-beta@xemacs.org>
 PACKAGE = lookup

lisp/lookup-entry.el

 ;: Construct Buffer
 ;;;;;;;;;;;;;;;;;;;;
 
+;;;###autoload
 (defun lookup-entry-display (session)
   (with-current-buffer (lookup-open-buffer (lookup-entry-buffer))
     (let ((query (lookup-session-query session))

lisp/lookup-package.el

 ;:: Setup functions
 ;;;
 
+;;;###autoload
 (defun lookup-use-package (agent-id package-name)
   "$BJd=u%Q%C%1!<%8$r%m!<%I$9$k!#(B
 AGENT-ID $B$O!"%Q%C%1!<%8$rE,MQ$9$k%(!<%8%'%s%H(BID$B!#(B

lisp/lookup-select.el

 ;: Construct Buffer
 ;;;;;;;;;;;;;;;;;;;;
 
+;;;###autoload
 (defun lookup-select-display (session)
   (with-current-buffer (lookup-open-buffer (lookup-select-buffer))
     (lookup-select-mode)

lisp/lookup-vars.el

 ;;; lookup-vars.el --- Lookup variable list
-;; Copyright (C) 1998,1999 NISHIDA Keisuke <knishida@ring.aist.go.jp>
+;; Copyright (C) 1999 Lookup Development Team <lookup@ring.gr.jp>
 
-;; Author: NISHIDA Keisuke <knishida@ring.aist.go.jp>
+;; Author: Keisuke Nishida <kei@psn.net>
 ;; Version: $Id$
 
 ;; This file is part of Lookup.
 
 (require 'evi)
 
-(defconst lookup-version "1.0pre9"
+(defconst lookup-version "1.0"
   "Lookup $B$N%P!<%8%g%sHV9f!#(B")
 
 ;;;
   :type 'file
   :group 'lookup-setup-variables)
 
-(defcustom lookup-data-directory "/usr/local/share/emacs/lookup"
+(defcustom lookup-data-directory "@pkgemacsdir@"
   "*Lookup $B$K4X$9$k%W%m%0%i%`0J30$N%G!<%?$,<}$a$i$l$k%G%#%l%/%H%j!#(B"
   :type 'directory
   :group 'lookup-setup-variables)
   "*$B8!:w%(!<%8%'%s%H$N@_Dj$N%j%9%H!#(B
 $B%j%9%H$N3FMWAG$O<!$N7A<0$r<h$k(B:
 
-  (CLASS LOCATION [ARG...] [OPTION...])
+  (CLASS LOCATION [KEY1 VALUE1 [KEY2 VALUE2 [...]]])
 
 CLASS $B$K$O!"%(!<%8%'%s%H$N<oN`$r%7%s%\%k$G;XDj$9$k!#(B
 LOCATION $B$K$O!"%(!<%8%'%s%H$N=j:_$rJ8;zNs$G;XDj$9$k!#(B
-ARG $B$O>JN,2DG=$G!"%(!<%8%'%s%H$KBP$9$kDI2C$N0z?t$r;XDj$9$k!#(B
-OPTIONS $B$O>JN,2DG=$G!"F1$8$/DI2C$N%*%W%7%g%s$r;XDj$9$k!#(B
+KEY $B5Z$S(B VALUE $B$O>JN,2DG=$G!"%(!<%8%'%s%H$KBP$9$k%*%W%7%g%s$r;XDj$9$k!#(B
 
 $BNc(B: (setq lookup-search-agents
-          '((ndtp \"dserver\" 2010)
-            (ndeb \"/cdrom\" (enable . (\"EIWA\")))))"
+          '((ndtp \"dserver\" :port 2010)
+            (ndeb \"/cdrom\" :enable (\"EIWA\")))))"
   :type '(repeat (sexp :tag "agent"))	; type $B$O$A$g$C$H$d$d$3$7$9$.!&!&(B
   :group 'lookup-setup-variables)
 
+(defcustom lookup-search-modules nil
+  "*$B8!:w%b%8%e!<%k$N@_Dj$N%j%9%H!#(B"
+  :type '(repeat (cons :tag "Module" (string :tag "name")
+		       (repeat :tag "Dictionary" (string :tag "ID"))))
+  :group 'lookup-setup-variables)
+
 (defcustom lookup-default-agent-options nil
   "*$B8!:w%(!<%8%'%s%H$K%G%U%)%k%H$GM?$($k%*%W%7%g%s$N%j%9%H!#(B
 $B3F%*%W%7%g%s$O!"%?%0$H$J$k%7%s%\%k$H!"CM$H$J$kG$0U$N%*%V%8%'%/%H$H$N(B
   :type 'integer
   :group 'lookup-general-options)
 
-(defcustom lookup-cite-style 'plain
-  "*$B%(%s%H%jK\J8$r0zMQ$9$k$H$-$N%9%?%$%k!#(B
-`asis' $B$K$9$k$H!"(BContent $B%P%C%U%!$NFbMF$,$=$N$^$^%3%T!<$5$l$k!#(B
-`plain' $B$K$9$k$H!"%W%l!<%s%F%-%9%H$H$7$F8+$d$9$$$h$&JQ49$5$l$k!#(B
-$B<!$N$h$&$K(B alist $B$r;XDj$9$k$3$H$G!"99$K:Y$+$/@_Dj$9$k$3$H$b2DG=!#(B
-
-  ((KEY1 . VALUE1) (KEY2 . VALUE2) ...)
-
-KEY $B$H$7$F$O!"<!$N$b$N$,;XDj2DG=!#(B
-
-`gaiji' - $B30;z$r%3%T!<$9$k$H$-$N%9%?%$%k!#CM$H$7$F<!$N$b$N$,2DG=!#(B
-          `glyph'      - Content $B%P%C%U%!$KI=<($5$l$kFbMF!#(B(asis)
-          `alternate'  - gaiji-table $B$G;XDj$5$l$?BeBXJ8;z!#(B(plain)
-          $BG$0U$NJ8;zNs(B - $B$=$NJ8;zNs$rMxMQ!#(B
-
-$B<-=q%*%W%7%g%s(B `cite-style $B$,;XDj$5$l$F$$$k>l9g!"$=$A$i$,M%@h$5$l$k!#(B"
-  :type '(select (const :tag "$B$=$N$^$^0zMQ(B" asis)
-		 (const :tag "$B%W%l!<%s%F%-%9%H(B" plain)
-		 (sexp :tag "$B%f!<%6;XDj(B"))
-  :group 'lookup-general-options)
-
 (defcustom lookup-cite-header nil
   "*$B%(%s%H%jK\J8$r0zMQ$9$k$H$-$N%X%C%@!#(B
 $B%3%^%s%I(B `lookup-entry-cite-content' $B5Z$S(B `lookup-content-cite-region'
   :type 'string
   :group 'lookup-general-options)
 
+(defcustom lookup-gaiji-alternate "_"
+  "*$B30;z$NBeBXJ8;zNs$H$7$FMQ$$$i$l$k%G%U%)%k%H$NJ8;zNs!#(B"
+  :type 'string
+  :group 'lookup-general-options)
+
+(defcustom lookup-process-coding-system
+  (when (featurep 'evi-mule)
+    (if (memq system-type '(ms-dos windows-nt OS/2 emx))
+	(evi-coding-system 'sjis)
+      (evi-coding-system 'euc-jp)))
+  "*$B30It%W%m%;%9$H$N%G%U%)%k%H$NJ8;z%3!<%I!#(B"
+  :type 'symbol
+  :group 'lookup-general-options)
+
+(defcustom lookup-kakasi-coding-system lookup-process-coding-system
+  "*KAKASI $B$N8F$S=P$7$KMQ$$$kJ8;z%3!<%I!#(B"
+  :type 'symbol
+  :group 'lookup-general-options)
+
 ;; faces
 
 (defgroup lookup-faces nil
   :group 'lookup-faces)
 
 (defface lookup-heading-low-face
-  '((t (:foreground "SlateGrey")))
+  '((t (:foreground "Grey")))
   "Low level heading face."
   :group 'lookup-faces)
 
 ;:: Internal variables
 ;;;
 
-(defvar lookup-search-module nil)
-(defvar lookup-current-module nil)
+(defvar lookup-agent-list nil)
+(defvar lookup-agent-alist nil)
+(defvar lookup-module-list nil)
+(defvar lookup-module-alist nil)
+(defvar lookup-dictionary-alist nil)
+
+(defvar lookup-default-module nil)
+(defvar lookup-current-session nil)
+(defvar lookup-last-session nil)
 
 (defvar lookup-buffer-list nil)
-(defvar lookup-window-buffers nil)
 (defvar lookup-search-pattern nil)
 (defvar lookup-search-found nil)
-(defvar lookup-gaiji-style nil)
 (defvar lookup-dynamic-display nil)
+(defvar lookup-proceeding-message nil)
 (defvar lookup-window-configuration nil)
-(defvar lookup-proceeding-message nil)
+(defvar lookup-byte-compile nil)
 
 (defvar lookup-gaiji-compose-function nil)
-(defvar lookup-gaiji-insert-function nil)
+(defvar lookup-gaiji-paste-function nil)
 
 (defun lookup-init-gaiji-functions ()
   (cond ((featurep 'xemacs)
 	 (setq lookup-gaiji-compose-function 'lookup-glyph-compose
-	       lookup-gaiji-insert-function 'lookup-glyph-insert))
+	       lookup-gaiji-paste-function 'lookup-glyph-paste))
 	(lookup-use-bitmap
 	 (setq lookup-gaiji-compose-function 'lookup-bitmap-compose
-	       lookup-gaiji-insert-function 'insert))
+	       lookup-gaiji-paste-function 'lookup-bitmap-paste))
 	(t
 	 (setq lookup-gaiji-compose-function nil
-	       lookup-gaiji-insert-function nil))))
+	       lookup-gaiji-paste-function 'lookup-bitmap-paste))))
 
 (provide 'lookup-vars)
 

lisp/lookup-vse.el

 ;: Search Query
 ;;;;;;;;;;;;;;;;;;;;
 
+;;;###autoload
 (defun lookup-vse-search-query (dictionary query)
   ;; DICTIONARY $B$+$i(B QUERY $B$r8!:w$9$k!#(B
   ;; $BJQ?t(B `lookup-force-update' $B$,(B non-nil $B$N>l9g!"%-%c%C%7%e$rL5;k$9$k!#(B
 (defun lookup-entries-cache-clear ()
   (setq lookup-entries-cache nil))
 
+;;;###autoload
 (defun lookup-vse-search-query-internal (dictionary query)
   (let (entries)
     (if (not (eq (lookup-query-method query) 'stemming))
 ;: Other Functions
 ;;;;;;;;;;;;;;;;;;;;
 
+;;;###autoload
 (defun lookup-vse-get-menu (dictionary)
   (let ((entries (lookup-dictionary-get-property dictionary 'menu-entries)))
     (unless entries
 
 (provide 'lookup)
 
-(unless (boundp 'lookup-byte-compile)
+(unless lookup-byte-compile
   (lookup-initialize))
 
 ;;; lookup.el ends here
 
 (defvar ndmisc-url-dictionary nil)
 
+;;;###autoload
 (defun lookup-make-url-reference (url heading)
   (unless ndmisc-url-dictionary
     (setq ndmisc-url-dictionary

lisp/stem-english.el

 
 ;;; Commentary:
 
-;; ��ʸ��An algorithm for suffix stripping (M.F.Porter)�٤˵��Ҥ����
-;; ���륢�르�ꥺ��˴�Ť��ơ���ñ��θ��������������Υ饤�֥�ꡣ
-;; ���ѵڤӺ����ۤκݤϡ�GNU ���̸��ѵ������Ŭ���ʥС������ˤ�������
-;; �Ʋ�������
+;; $BO@J8!X(BAn algorithm for suffix stripping (M.F.Porter)$B!Y$K5-=R$5$l$F(B
+;; $B$$$k%"%k%4%j%:%`$K4p$E$$$F!"1QC18l$N8lHx$r<h$j=|$/$?$a$N%i%$%V%i%j!#(B
+;; $BMxMQ5Z$S:FG[I[$N:]$O!"(BGNU $B0lHL8xMQ5vBz=q$NE,Ev$J%P!<%8%g%s$K$7$?$,$C(B
+;; $B$F2<$5$$!#(B
 
-;; �켡���۸�
+;; $B0l<!G[I[85(B
 ;;    http://www-nagao.kuee.kyoto-u.ac.jp/member/tsuchiya/elisp/xdic.html
 
 
 
 (provide 'stem)
 
-(defvar stem:minimum-word-length 4 "Porter �Υ��르�ꥺ�बŬ�ѤǤ���Ǿ���Ĺ")
+(defvar stem:minimum-word-length 4 "Porter $B$N%"%k%4%j%:%`$,E,MQ$G$-$k:G>.8lD9(B")
 
 
 ;;;============================================================
-;;;	������ؿ�
+;;;	$BHs8x3+4X?t(B
 ;;;============================================================
 
-;; ư��®�٤���夵���뤿��ˡ��ؿ�����dz����ѿ�򤤤��äƤ���
-;; �ؿ����ꡢͽ�����ʤ������Ѥ�ȯ�������ǽ�����⤤�����äơ�
-;; ������ؿ��ľ�ܸƤӽФ����Ȥ��򤱤뤳�ȡ�
+;; $BF0:nB.EY$r8~>e$5$;$k$?$a$K!"4X?tFbIt$G30ItJQ?t$r$$$8$C$F$$$k(B
+;; $B4X?t$,$"$j!"M=4|$7$J$$I{:nMQ$,H/@8$9$k2DG=@-$,9b$$!#=>$C$F!"(B
+;; $BHs8x3+4X?t$rD>@\8F$S=P$9$3$H$OHr$1$k$3$H!#(B
 
 ;;------------------------------------------------------------
-;;	stemming-rule �ξ����򵭽Ҥ���ؿ�
+;;	stemming-rule $B$N>r7o@a$r5-=R$9$k4X?t72(B
 ;;------------------------------------------------------------
 
 (defsubst stem:match (arg) "\
-�ѿ� str �򸡺�����������ؿ� (�촴����ʬ���ѿ� stem ����������)"
+$BJQ?t(B str $B$r8!::$9$kHs8x3+4X?t(B ($B8l44$NItJ,$rJQ?t(B stem $B$KBeF~$9$k(B)"
   (and
    (string-match arg str)
    (setq stem (substring str 0 (match-beginning 0)))))
 
 (defsubst stem:m () "\
-�ѿ� stem �˴ޤޤ�Ƥ��� VC �ο�����������ؿ�"
+$BJQ?t(B stem $B$K4^$^$l$F$$$k(B VC $B$N?t$r5a$a$kHs8x3+4X?t(B"
   (save-match-data
     (let ((pos 0)(m 0))
       (while (string-match "\\(a\\|e\\|i\\|o\\|u\\|[^aeiou]y+\\)[aeiou]*" stem pos)
       (if (= pos (length stem)) (1- m) m))))
 
 (defsubst stem:m> (i) "\
-�ѿ� stem �˴ޤޤ�Ƥ��� VC �ο�ξ��򵭽Ҥ���������ؿ�"
+$BJQ?t(B stem $B$K4^$^$l$F$$$k(B VC $B$N?t$N>r7o$r5-=R$9$kHs8x3+4X?t(B"
   (< i (stem:m)))
 
 (defsubst stem:m= (i) "\
-�ѿ� stem �˴ޤޤ�Ƥ��� VC �ο�ξ��򵭽Ҥ���������ؿ�"
+$BJQ?t(B stem $B$K4^$^$l$F$$$k(B VC $B$N?t$N>r7o$r5-=R$9$kHs8x3+4X?t(B"
   (= i (stem:m)))
 
 (defsubst stem:*v* () "\
-�ѿ� stem ���첻��ޤ�Ǥ��뤫��������ؿ�"
+$BJQ?t(B stem $B$,Jl2;$r4^$s$G$$$k$+8!::$9$k4X?t(B"
   (save-match-data
     (if (string-match "\\(a\\|e\\|i\\|o\\|u\\|[^aeiou]y\\)" stem) t)))
 
 (defsubst stem:*o () "\
-�ѿ� stem �� cvc �η��ǽ��äƤ��뤫��������ؿ�"
+$BJQ?t(B stem $B$,(B cvc $B$N7A$G=*$C$F$$$k$+8!::$9$k4X?t(B"
   (save-match-data
     (if (string-match "[^aeiou][aeiouy][^aeiouwxy]$" stem) t)))
 
 
 
 ;;------------------------------------------------------------
-;;	stemming-rule �򵭽Ҥ����ؿ�
+;;	stemming-rule $B$r5-=R$7$?4X?t72(B
 ;;------------------------------------------------------------
 
-(defun stem:step1a (str) "��1a�ʳ��� stemming rule (������ؿ�)"
+(defun stem:step1a (str) "$BBh(B1a$BCJ3,$N(B stemming rule ($BHs8x3+4X?t(B)"
   (let ((s)(stem))
     (if (setq s (cond
 		 ((stem:match "sses$") "ss")
       str)))
 
 
-(defun stem:step1b (str) "��1b�ʳ��� stemming rule (������ؿ�)"
+(defun stem:step1b (str) "$BBh(B1b$BCJ3,$N(B stemming rule ($BHs8x3+4X?t(B)"
   (let ((s)(stem))
     (cond
      ((and (stem:match "eed$") (stem:m> 0))
      (t str))))
 
 
-(defun stem:step1c (str) "��1c�ʳ��� stemming rule (������ؿ�)"
+(defun stem:step1c (str) "$BBh(B1c$BCJ3,$N(B stemming rule ($BHs8x3+4X?t(B)"
   (let ((stem))
     (if (and (stem:match "y$")
 	     (stem:*v*))
       str)))
 
 
-(defun stem:step1 (str) "��1�ʳ��� stemming rule (������ؿ�)"
+(defun stem:step1 (str) "$BBh(B1$BCJ3,$N(B stemming rule ($BHs8x3+4X?t(B)"
   (stem:step1c
    (stem:step1b
     (stem:step1a str))))
 
 
-(defun stem:step2 (str) "��2�ʳ��� stemming rule (������ؿ�)"
+(defun stem:step2 (str) "$BBh(B2$BCJ3,$N(B stemming rule ($BHs8x3+4X?t(B)"
   (let ((s)(stem))
     (if (and
 	 (setq s (cond
       str)))
 
 
-(defun stem:step3 (str) "��3�ʳ��� stemming rule (������ؿ�)"
+(defun stem:step3 (str) "$BBh(B3$BCJ3,$N(B stemming rule ($BHs8x3+4X?t(B)"
   (let ((s)(stem))
     (if (and
 	 (setq s (cond
       str)))
 
 
-(defun stem:step4 (str) "��4�ʳ��� stemming rule (������ؿ�)"
+(defun stem:step4 (str) "$BBh(B4$BCJ3,$N(B stemming rule ($BHs8x3+4X?t(B)"
   (let ((stem))
     (if (and (or
 	      (stem:match "al$")
 	stem str)))
 
 
-(defun stem:step5 (str) "��5�ʳ��� stemming rule (������ؿ�)"
+(defun stem:step5 (str) "$BBh(B5$BCJ3,$N(B stemming rule ($BHs8x3+4X?t(B)"
   (let ((stem))
     (if (or
 	 (and (stem:match "e$")
     ("wrote" "write")
     ("writ" "write")
     ("written" "write"))
-  "�Ե�§ư��ȸ�����Ϣ������")
+  "$BIT5,B'F0;l$H867A$NO"A[G[Ns(B")
 
 
 (defun stem:extra (str) "\
-ư��/���ƻ�γ��ѷ���̾���ʣ����γ��Ѹ����������������ؿ�
-Ϳ����줿��θ����Ȥ��Ʋ�ǽ���Τ����Υꥹ�Ȥ��֤�"
+$BF0;l(B/$B7AMF;l$N3hMQ7A$HL>;l$NJ#?t7A$N3hMQ8lHx$r<h$j=|$/Hs8x3+4X?t(B
+$BM?$($i$l$?8l$N867A$H$7$F2DG=@-$N$"$k8l$N%j%9%H$rJV$9(B"
   (or (assoc str stem:irregular-verb-alist)
       (let (c l stem)
 	(setq l (cond
-		 ;; ��ӵ�/�Ǿ��
+		 ;; $BHf3S5i(B/$B:G>e5i(B
 		 ((stem:match "\\([^aeiou]\\)\\1e\\(r\\|st\\)$")
 		  (list (substring str (match-beginning 1) (match-end 1))
 			(substring str (match-beginning 0) (match-beginning 2))))
 		  (setq c (substring str (match-beginning 1) (match-end 1)))
 		  (list c (concat c "y") (concat c "ie")))
 		 ((stem:match "e\\(r\\|st\\)$") '("" "e"))
-		 ;; 3ñ��/ʣ���
+		 ;; 3$BC18=(B/$BJ#?t7A(B
 		 ((stem:match "ches$") '("ch" "che"))
 		 ((stem:match "shes$") '("sh" "che"))
 		 ((stem:match "ses$") '("s" "se"))
 		  (list c (concat c "y") (concat c "ie")))
 		 ((stem:match "es$") '("" "e"))
 		 ((stem:match "s$") '(""))
-		 ;; ����/���ʬ��
+		 ;; $B2a5n7A(B/$B2a5nJ,;l(B
 		 ((stem:match "\\([^aeiou]\\)ied$")
 		  (setq c (substring str -4 -3))
 		  (list c (concat c "y") (concat c "ie")))
 			(substring str -4 -1)))
 		 ((stem:match "cked$") '("c" "cke"))
 		 ((stem:match "ed$") '("" "e"))
-		 ;; ����ʬ��
+		 ;; $B8=:_J,;l(B
 		 ((stem:match "\\([^aeiou]\\)\\1ing$")
 		  (list (substring str -5 -4)))
 		 ((stem:match "ing$") '("" "e"))
 
 
 ;;;============================================================
-;;;	�����ؿ�
+;;;	$B8x3+4X?t(B
 ;;;============================================================
 
 (defun stem:stripping-suffix (str) "\
-���Ѹ�����������ؿ�
-Ϳ����줿��θ��θ�Ȥ��Ʋ�ǽ���Τ����μ����Υꥹ�Ȥ��֤�"
+$B3hMQ8lHx$r<h$j=|$/4X?t(B
+$BM?$($i$l$?8l$N85$N8l$H$7$F2DG=@-$N$"$k8l$N<-=q=g$N%j%9%H$rJV$9(B"
   (save-match-data
     (delq nil (let ((w ""))
 		(mapcar
 		 (function (lambda (x) (if (string= x w) nil (setq w x))))
 		 (sort (append
-			;; ��ʸ����ʸ�����Ѵ�
+			;; $BBgJ8;z$r>.J8;z$KJQ49(B
 			(list (prog1 str (setq str (downcase str))))
-			;; �ȼ��Υҥ塼�ꥹ�ƥ��å�����Ŭ��
+			;; $BFH<+$N%R%e!<%j%9%F%#%C%/%9$rE,MQ(B
 			(stem:extra str)
 			(if (> (length str) stem:minimum-word-length)
-			    ;; ñ��Ĺ�������������С�Porter �Υ��르�ꥺ���Ŭ��
+			    ;; $BC18lD9$,>r7o$rK~$?$;$P!"(BPorter $B$N%"%k%4%j%:%`$rE,MQ(B
 			    (mapcar
 			     '(lambda (func)
 				(setq str (funcall func str)))
 		       'string<))))))
 
 
+;;;###autoload
 (defun stem-english (str) "\
-���Ѹ�����������ؿ�
-Ϳ����줿��θ��θ�Ȥ��Ʋ�ǽ���Τ�����ʸ����Ĺ�ξ���Υꥹ�Ȥ��֤�"
+$B3hMQ8lHx$r<h$j=|$/4X?t(B
+$BM?$($i$l$?8l$N85$N8l$H$7$F2DG=@-$N$"$k8l$NJ8;zNsD9$N>:=g$N%j%9%H$rJV$9(B"
   (sort (stem:stripping-suffix str)
 	(function (lambda (a b) (< (length a) (length b))))))
 
-;; ���� stem-english ��ư��ϡ�
+;; $B$3$N(B stem-english $B$NF0:n$O!"(B
 ;; 
 ;;     Id: stem.el,v 1.4 1998/11/30 09:27:27 tsuchiya Exp tsuchiya
 ;; 
-;; �����ΥС������� stem.el ���������Ƥ��� stem:stripping-suffix 
-;; ��ư��ȸߴ��Ǥ��롣���ߤ� stem:stripping-suffix �ϼ����Υꥹ�Ȥ�
-;; �֤����ᡢ�ۤʤ�ư��Ȥ���褦�ˤʤäƤ���Τ���դ��뤳�ȡ�
+;; $B0JA0$N%P!<%8%g%s$N(B stem.el $B$GDj5A$5$l$F$$$?(B stem:stripping-suffix 
+;; $B$NF0:n$H8_49$G$"$k!#8=:_$N(B stem:stripping-suffix $B$O<-=q=g$N%j%9%H$r(B
+;; $BJV$9$?$a!"0[$J$kF0:n$H$9$k$h$&$K$J$C$F$$$k$N$GCm0U$9$k$3$H!#(B
 
 
-;;; Porter �Υ��르�ꥺ���Ŭ�Ѥ���ؿ�
+;;; Porter $B$N%"%k%4%j%:%`$rE,MQ$9$k4X?t(B
 (defun stem:stripping-inflection (word) "\
-Porter �Υ��르�ꥺ��˴�Ť�����������������ؿ�"
+Porter $B$N%"%k%4%j%:%`$K4p$E$$$FGI@88l$r=hM}$9$k4X?t(B"
   (save-match-data
     (stem:step5
      (stem:step4