Commit: aad534611a371a0e9aa778047bfb1ab8010eda6c - uim (git)

A multilingual input method framework

Commit MetaInfo

• Revision: aad534611a371a0e9aa778047bfb1ab8010eda6c (tree)
• Time: 2006-07-04 15:09:48
• Author: ekato <ekato@ff9a...>
• Commiter: ekato

Log Message

* scm/japanese.scm (ja-raw-string-to-valid-roma) : Just add a

sanity check to prevent hang.

Change Summary

• modified: scm/japanese.scm

Incremental Difference

--- a/scm/japanese.scm
+++ b/scm/japanese.scm
@@ -673,9 +673,11 @@
                 ;;   Should we check matched record from ja-rk-rule?:
                 ;;   (if (hoge-find-rec (string-append head-str next-str))
                 (let ((next-head (car (reverse (string-to-list next-str)))))
-                 (if (or (ja-vowel? next-str)
+                 (if (and
+		      (not (null? next-head))
+		      (or (ja-vowel? next-str)
                          (string=? "y" next-head)
-                         (string=? "n" next-head))
+                         (string=? "n" next-head)))
                     "nn"
                     head-str)))
             (if (or (null? next-str) (string=? next-str ""))