Path: utzoo!utgpu!watmath!uunet!cs.utexas.edu!texbell!bigtex!rena!kogwy!math.keio!cabbage!mad
From: mad@math.keio.JUNET (MAEDA Atusi)
Newsgroups: gnu.emacs
Subject: getris.el bug fix
Message-ID: <MAD.89Sep16224922@cabbage.math.keio.JUNET>
Date: 16 Sep 89 13:49:22 GMT
Sender: news@math.keio.ac.jp
Reply-To: mad@nakanishi.math.keio.ac.jp
Distribution: gnu
Organization: Faculty of Sci. and Tech., Keio Univ., Yokohama, Japan.
Lines: 34

I had a response that getris does not work.  GNU Emacs complains that
	"Symbol's value as variable is void: kanji-flag".

It is due to my mistake.  I knew the difference between NEmacs (a
variant of GNU Emacs used in Japan) and original Emacs.  And I thought
I solved the difference in my program.  But it was wrong.

Here is the patch to fix the bug.  Have fun.

;;;  Keio University
;;;    Faculty of Science and Technology
;;;      Department of Math
;;;		MAEDA Atusi (In Japan we write our family names first.)
;;;		mad@nakanishi.math.keio.ac.jp

*** getris.el	Sat Sep 16 22:21:40 1989
--- getris.el.orig	Sat Sep 16 22:22:15 1989
***************
*** 47,53 ****
  Nil means does not record scores.")
  
  (defvar getris-block-string
!   (if (and (boundp kanji-flag) kanji-flag) "\242\243" "[]")
    "*String for getris block.  Must be width of two column.")
  
  (defvar getris-width 10
--- 47,53 ----
  Nil means does not record scores.")
  
  (defvar getris-block-string
!   (if (and (boundp 'kanji-flag) (symbol-value 'kanji-flag)) "\242\243" "[]")
    "*String for getris block.  Must be width of two column.")
  
  (defvar getris-width 10