[FreeBSD-users-jp 95433] Re: [tsunagi 37] Re: please review and test new tamago-tsunagi

TO
[email protected]
CC
[email protected]
[email protected]
[email protected]
[email protected]
[email protected]
ML

2015128 21:08 ARAI Shun-ichi <[email protected]>:
> 
>
> In <CANW2+iu9fWW1SN7KJDoWmuT1A1kxtqtPVJphbOMopn6TWFH-ww@mail.gmail.com>;
>    Mitsutoshi NAKANO <[email protected]> wrote
>    as Subject "[tsunagi 34] please review and test new tamago-tsunagi (was: egg-sim "Invalid code(s)")":
>
>> mail
>> http://sourceforge.jp/projects/tamago-tsunagi/lists/archive/misc/2015-January/000029.html
>> tamago-tsunagi
>> egg-sim.el(make-char-list)
>> (make-char)
>> (ignore-errors)
>>
>> ISO-8859-3
>> (make-char)
>> http://en.wikipedia.org/wiki/ISO/IEC_8859-3
>>
>> simnil
>> 
>> 
>
> 
> 
> 
>
> ----
> diff -aur tsunagi-5.0.1.0.orig/egg-sim.el tsunagi-5.0.1.0/egg-sim.el
> --- tsunagi-5.0.1.0.orig/egg-sim.el     2014-12-15 10:36:45.000000000 +0900
> +++ tsunagi-5.0.1.0/egg-sim.el  2015-01-28 16:05:39.415558358 +0900
> @@ -56,19 +56,23 @@
>          (<= to max)
>          (cond ((= (charset-dimension charset) 1)
>                 (while (<= from to)
> -                 (setq result (cons (char-to-string
> -                                     (make-char charset to))
> -                                    result)
> -                       to (1- to)))
> +                 (condition-case nil
> +                     (setq result (cons (char-to-string
> +                                         (make-char charset to))
> +                                        result) )
> +                   (error nil) )
> +                 (setq to (1- to)) )
>                 result)
>                ((= (charset-dimension charset) 2)
>                 (while (<= from to)
>                   (let ((code max))
>                     (while (<= min code)
> -                     (setq result (cons (char-to-string
> -                                         (make-char charset to code))
> -                                        result)
> -                           code (1- code))))
> +                     (condition-case nil
> +                         (setq result (cons (char-to-string
> +                                             (make-char charset to code))
> +                                            result) )
> +                       (error nil) )
> +                     (setq code (1- code)) ))
>                   (setq to (1- to)))
>                 result)))))
>
> ----
>
> latin-3  F0  112 
> 
> 

patch
?

resultlistnil
nillist
code

nil
charset  table
nil


?


testreviewML
 >

-- 
Mitsutoshi NAKANO <[email protected]> <[email protected]>
 <https://twitter.com/ItSANgo> <http://d.hatena.ne.jp/Itisango/>

_______________________________________________
[email protected] mailing list
https://lists.freebsd.org/mailman/listinfo/freebsd-users-jp
To unsubscribe, send any mail to "[email protected]"