[uim-commit] r194 - trunk/scm

[tkng@freedesktop.org]

Author: tkng
Date: 2005-01-09 10:41:07 -0800 (Sun, 09 Jan 2005)
New Revision: 194

Modified:
   trunk/scm/prime.scm
Log:
* scm/prime.scm: Fixed a typo. pseude -> pseudo.


Modified: trunk/scm/prime.scm
===================================================================
--- trunk/scm/prime.scm	2005-01-09 18:13:15 UTC (rev 193)
+++ trunk/scm/prime.scm	2005-01-09 18:41:07 UTC (rev 194)
@@ -53,7 +53,7 @@
 (define prime-nr-candidate-max 10)
 (define prime-always-show-window? #t)
 (define prime-auto-register-mode? #t)
-(define prime-pseude-mode-cursor? #f)
+(define prime-pseudo-mode-cursor? #f)
 (define prime-char-annotation?    #t)
 
 (define prime-mask-pending-preedit? #f)
@@ -1251,7 +1251,7 @@
 (define prime-display-preedit-format
   (list (cons 'committed        preedit-none)
 	(cons 'cursor           preedit-cursor)
-	(cons 'pseude-cursor    preedit-reverse)
+	(cons 'pseudo-cursor    preedit-reverse)
 	(cons 'preedit          preedit-underline)
 	(cons 'converting       preedit-reverse)
 	(cons 'register-border  preedit-reverse)
@@ -1278,11 +1278,11 @@
   (lambda (sc)
     (im-pushback-preedit
      sc (cdr (assoc 'cursor prime-display-preedit-format)) "")
-    (if (and prime-pseude-mode-cursor?
+    (if (and prime-pseudo-mode-cursor?
 	     (= (prime-context-mode sc) prime-mode-hiragana)
 	     (eq? (prime-context-state sc) 'prime-state-no-preedit))
 	(im-pushback-preedit
-	 sc (cdr (assoc 'pseude-cursor prime-display-preedit-format)) " "))
+	 sc (cdr (assoc 'pseudo-cursor prime-display-preedit-format)) " "))
     ))
 
 (define prime-update-prediction