X-Git-Url: http://git.sourceforge.jp/view?a=blobdiff_plain;f=egg-sim.el;h=ac24bec9151469910bdaf22f84c084ca7c559ad7;hb=ca56aa92b4e5ac0d827a2df9e5f51c396fcd442b;hp=54343d738637db4cdcf68877fe22ff23bc0c9e1a;hpb=681660b6b9084a629721b706e29cbafc7e649897;p=tamago-tsunagi%2Ftamago-tsunagi.git

diff --git a/egg-sim.el b/egg-sim.el
index 54343d7..ac24bec 100644
--- a/egg-sim.el
+++ b/egg-sim.el
@@ -5,7 +5,7 @@
 ;; Licensed to the Free Software Foundation.
 ;; Copyright (C) 2000 TOMURA Satoru <tomura@etl.go.jp>
 ;;               2015 Mitsutoshi NAKANO <bkbin005@rinku.zaq.ne.jp>
-
+;;               2015 ARAI Shun-ichi <hermes@ceres.dti.ne.jp>
 ;; Author: TOMURA Satoru <tomura@etl.go.jp>
 
 ;; Keywords: mule, multilingual, input method
@@ -24,8 +24,8 @@
 
 ;; You should have received a copy of the GNU General Public License
 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; Free Software Foundation, Inc.,
+;; 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
 
 ;;; Commentary:
 
@@ -42,11 +42,15 @@
 
 (provide 'egg-sim)
 
-;;; modified 2015.01.28 Mitsutoshi NAKANO <bkbin005@rinku.zaq.ne.jp>
+;;;; modified 2015.01.28 Mitsutoshi NAKANO <bkbin005@rinku.zaq.ne.jp>
 ;;; ignore-errors in make-char
 ;;; Please see:
 ;;; http://sourceforge.jp/projects/tamago-tsunagi/lists/archive/misc/2015-January/000029.html
 ;;; http://www.gnu.org/software/emacs/manual/html_node/elisp/Handling-Errors.html
+;;;; modified 2015.01.29 Mitsutoshi NAKANO <bkbin005@rinku.zaq.ne.jp>
+;;; ARAI Shun-ichi <hermes@ceres.dti.ne.jp> wrote better fix.
+;;; https://sourceforge.jp/projects/tamago-tsunagi/lists/archive/misc/2015-January/000036.html
+;;; So Mitsutoshi rewrote.
 (defun make-char-list (charset &optional from to)
   (let ((result nil)
 	(chars (charset-chars charset))
@@ -59,20 +63,20 @@
 	 (<= to max)
 	 (cond ((= (charset-dimension charset) 1)
 		(while (<= from to)
-		  (setq result (cons (ignore-errors (char-to-string
-						     (make-char charset to)))
-				     result)
-			to (1- to)))
+		  (ignore-errors
+		    (setq result (cons (char-to-string (make-char charset to))
+				       result)))
+		  (setq to (1- to)))
 		result)
 	       ((= (charset-dimension charset) 2)
 		(while (<= from to)
 		  (let ((code max))
 		    (while (<= min code)
-		      (setq result (cons (ignore-errors
-					  (char-to-string
-					   (make-char charset to code)))
-					 result)
-			    code (1- code))))
+		      (ignore-errors
+			(setq result (cons (char-to-string
+					    (make-char charset to code))
+					   result)))
+		      (setq code (1- code))))
 		  (setq to (1- to)))
 		result)))))