Revision: 6976
Author: deton.kih
Date: Wed Feb 23 02:50:54 2011
Log: * scm/tutcode.scm
- (tutcode-context-rec-spec): Change to initialize with evaluated value.
http://code.google.com/p/uim/source/detail?r=6976
Modified:
/trunk/scm/tutcode.scm
=======================================
--- /trunk/scm/tutcode.scm Wed Feb 23 02:48:52 2011
+++ /trunk/scm/tutcode.scm Wed Feb 23 02:50:54 2011
@@ -601,8 +601,9 @@
(define tutcode-context-rec-spec
(append
context-rec-spec
- '((rk-context ()) ;
¥¡¼¥¹¥È¥í¡¼¥¯¤«¤éʸ»ú¤Ø¤ÎÊÑ´¹¤Î¤¿¤á¤Î¥³¥ó¥Æ¥¥¹¥È
- (rk-context-another
()) ;¤â¤¦°ì¤Ä¤Îrk-context(2¥¹¥È¥í¡¼¥¯µ¹æÆþÎϥ⡼¥ÉÍÑ)
+ (list
+ (list 'rk-context ()) ;
¥¡¼¥¹¥È¥í¡¼¥¯¤«¤éʸ»ú¤Ø¤ÎÊÑ´¹¤Î¤¿¤á¤Î¥³¥ó¥Æ¥¥¹¥È
+ (list 'rk-context-another
()) ;¤â¤¦°ì¤Ä¤Îrk-context(2strokeµ¹æÆþÎϥ⡼¥É)
;;; TUT-CodeÆþÎϾõÂÖ
;;; 'tutcode-state-off TUT-Code¥ª¥Õ
;;; 'tutcode-state-on TUT-Code¥ª¥ó
@@ -611,29 +612,29 @@
;;; 'tutcode-state-bushu Éô¼óÆþÎÏ¡¦ÊÑ´¹Ãæ
;;; 'tutcode-state-interactive-bushu ÂÐÏÃŪÉô¼ó¹çÀ®ÊÑ´¹Ãæ
;;; 'tutcode-state-kigou µ¹æÆþÎϥ⡼¥É
- (state 'tutcode-state-off)
+ (list 'state 'tutcode-state-off)
;;; ¥«¥¿¥«¥Ê¥â¡¼¥É¤«¤É¤¦¤«
;;; #t: ¥«¥¿¥«¥Ê¥â¡¼¥É¡£#f: ¤Ò¤é¤¬¤Ê¥â¡¼¥É¡£
- (katakana-mode #f)
+ (list 'katakana-mode #f)
;;; ¸ò¤¼½ñ¤ÊÑ´¹/Éô¼ó¹çÀ®ÊÑ´¹¤ÎÂоݤÎʸ»úÎó¥ê¥¹¥È(µÕ½ç)
;;; (Îã: ¸ò¤¼½ñ¤ÊÑ´¹¤ÇÆɤߡ֤«¤ó»ú¡×¤òÆþÎϤ·¤¿¾ì¹ç¡¢("»ú" "¤ó" "¤«"))
- (head ())
+ (list 'head ())
;;; ¸ò¤¼½ñ¤ÊÑ´¹¤ÎÁªÂòÃæ¤Î¸õÊä¤ÎÈÖ¹æ
- (nth 0)
+ (list 'nth 0)
;;; ¸ò¤¼½ñ¤ÊÑ´¹¤Î¸õÊä¿ô
- (nr-candidates 0)
+ (list 'nr-candidates 0)
;;; ¸åÃÖ·¿¸ò¤¼½ñ¤ÊÑ´¹»þ¤Ë¡¢ÊÑ´¹¤Ë»ÈÍѤ¹¤ëÆɤߤÎŤµ¡£
;;; (³ÎÄê»þ¤Ëim-delete-text¤¹¤ë¤¿¤á¤Ë»ÈÍÑ)
;;; ¸åÃÖ·¿¤«Á°ÃÖ·¿¤«¤ÎȽÄê¤Ë¤â»ÈÍÑ¡£(Á°ÃÖ·¿¤Î¾ì¹ç¤Ï0)
- (postfix-yomi-len 0)
+ (list 'postfix-yomi-len 0)
;;; ¸ò¤¼½ñ¤ÊÑ´¹³«»Ï»þ¤Ë»ØÄꤵ¤ì¤¿ÆɤߤÎʸ»ú¿ô¡£
;;; Á°ÃÖ·¿¤Î¾ì¹ç¤ÏÆþÎϺѤߤÎÆɤߤÎʸ»ú¿ô¡£
- (mazegaki-yomi-len-specified 0)
+ (list 'mazegaki-yomi-len-specified 0)
;;; ¸ò¤¼½ñ¤ÊÑ´¹ÍѤÎÆɤßÁ´ÂΡ£¸åÃÖ·¿¤Î¾ì¹ç¤Ï¼èÆÀºÑ¤ß¤ÎÆɤß
- (mazegaki-yomi-all ())
+ (list 'mazegaki-yomi-all ())
;;; ¸ò¤¼½ñ¤ÊÑ´¹»þ¤Î³èÍѸìÈø
;;;
(³èÍѤ¹¤ë¸ì¤Ï¸ìÈø¤ò¡½¤ËÃÖ´¹¤·¤Æ¸¡º÷¤¹¤ë¤Î¤Ç¡¢³ÎÄê»þ¤ËÌ᤹¤¿¤á¤Ë»ÈÍÑ)
- (mazegaki-suffix ())
+ (list 'mazegaki-suffix ())
;;; ¸õÊ䥦¥£¥ó¥É¥¦¤Î¾õÂÖ
;;; 'tutcode-candidate-window-off Èóɽ¼¨
;;; 'tutcode-candidate-window-converting ¸ò¤¼½ñ¤ÊÑ´¹¸õÊäɽ¼¨Ãæ
@@ -642,69 +643,69 @@
;;; 'tutcode-candidate-window-auto-help ¼«Æ°¥Ø¥ë¥×ɽ¼¨Ãæ
;;; 'tutcode-candidate-window-predicting Êä´°/ͽ¬ÆþÎϸõÊäɽ¼¨Ãæ
;;; 'tutcode-candidate-window-interactive-bushu
ÂÐÏÃŪÉô¼ó¹çÀ®ÊÑ´¹¸õÊäɽ¼¨
- (candidate-window 'tutcode-candidate-window-off)
+ (list 'candidate-window 'tutcode-candidate-window-off)
;;; ¥¹¥È¥í¡¼¥¯É½
;;;
¼¡¤ËÆþÎϤ¹¤ë¥¡¼¤Èʸ»ú¤ÎÂбþ¤Î¡¢get-candidate-handlerÍÑ·Á¼°¤Ç¤Î¥ê¥¹¥È
- (stroke-help ())
+ (list 'stroke-help ())
;;; ¼«Æ°¥Ø¥ë¥×
- (auto-help ())
+ (list 'auto-help ())
;;; ¸ò¤¼½ñ¤ÊÑ´¹¼½ñ¤Ø¤ÎºÆµ¢ÅªÅÐÏ¿¤Î¤¿¤á¤Î»Ò¥³¥ó¥Æ¥¥¹¥È
- (child-context ())
+ (list 'child-context ())
;;; »Ò¥³¥ó¥Æ¥¥¹¥È¤Î¼ïÎà
;;; 'tutcode-child-type-editor ÅÐÏ¿ÍѤÎÊÑ´¹¸åʸ»úÎóÊÔ½¸¥¨¥Ç¥£¥¿
;;; 'tutcode-child-type-dialog ¼½ñ¤«¤é¤Îºï½ü³Îǧ¥À¥¤¥¢¥í¥°
- (child-type ())
+ (list 'child-type ())
;;; ¿Æ¥³¥ó¥Æ¥¥¹¥È
- (parent-context ())
+ (list 'parent-context ())
;;; ÅÐÏ¿ÍÑʸ»úÎóÊÔ½¸¥¨¥Ç¥£¥¿
- (editor ())
+ (list 'editor ())
;;; ºï½ü³Îǧ¥À¥¤¥¢¥í¥°
- (dialog ())
+ (list 'dialog ())
;;; ±Ñ»úÊÑ´¹(SKK abbrev)¥â¡¼¥É¤«¤É¤¦¤«
- (latin-conv #f)
+ (list 'latin-conv #f)
;;; commitºÑ¤Îʸ»úÎó¥ê¥¹¥È(Êä´°ÍÑ)
- (commit-strs ())
+ (list 'commit-strs ())
;;; commit-strs¤Î¤¦¤Á¤ÇÊä´°¤Ë»ÈÍѤ·¤Æ¤¤¤ëʸ»ú¿ô
- (commit-strs-used-len 0)
+ (list 'commit-strs-used-len 0)
;;; Êä´°/ͽ¬ÆþÎϤθõÊäÁªÂòÃ椫¤É¤¦¤«
;;; 'tutcode-predicting-off Êä´°/ͽ¬ÆþÎϤθõÊäÁªÂòÃæ¤Ç¤Ê¤¤
;;; 'tutcode-predicting-completion Êä´°¸õÊäÁªÂòÃæ
;;; 'tutcode-predicting-prediction ¸ò¤¼½ñ¤ÊÑ´¹»þ¤Îͽ¬ÆþÎϸõÊäÁªÂòÃæ
;;; 'tutcode-predicting-bushu Éô¼ó¹çÀ®ÊÑ´¹»þ¤Îͽ¬ÆþÎϸõÊäÁªÂòÃæ
;;; 'tutcode-predicting-interactive-bushu ÂÐÏÃŪÉô¼ó¹çÀ®ÊÑ´¹Ãæ
- (predicting 'tutcode-predicting-off)
+ (list 'predicting 'tutcode-predicting-off)
;;; Êä´°/ͽ¬ÆþÎÏÍÑ¥³¥ó¥Æ¥¥¹¥È
- (prediction-ctx ())
+ (list 'prediction-ctx ())
;;; Êä´°/ͽ¬ÆþÎϸõÊä¤ÎÆɤߤΥꥹ¥È
- (prediction-word ())
+ (list 'prediction-word ())
;;; Êä´°/ͽ¬ÆþÎϸõÊä¤Î¸õÊä¤Î¥ê¥¹¥È
- (prediction-candidates ())
+ (list 'prediction-candidates ())
;;; Êä´°/ͽ¬ÆþÎϸõÊä¤Îappendix¤Î¥ê¥¹¥È
- (prediction-appendix ())
+ (list 'prediction-appendix ())
;;; Êä´°/ͽ¬ÆþÎϸõÊä¿ô
- (prediction-nr 0)
+ (list 'prediction-nr 0)
;;; Êä´°/ͽ¬ÆþÎϸõÊä¤Î¸½ºßÁªÂò¤µ¤ì¤Æ¤¤¤ë¥¤¥ó¥Ç¥Ã¥¯¥¹(½Ï¸ì¥¬¥¤¥É¹þ¤ß)
- (prediction-index 0)
+ (list 'prediction-index 0)
;;; Êä´°/ͽ¬ÆþÎϸõÊä¿ô(½Ï¸ì¥¬¥¤¥Éʬ´Þ¤à)
- (prediction-nr-all 0)
+ (list 'prediction-nr-all 0)
;;; ¥Ú¡¼¥¸¤´¤È¤ÎÊä´°/ͽ¬ÆþÎϤθõÊäɽ¼¨¿ô(½Ï¸ì¥¬¥¤¥Éʬ¤Ï½ü¤¯)
- (prediction-nr-in-page tutcode-nr-candidate-max-for-prediction)
+ (list 'prediction-nr-in-page tutcode-nr-candidate-max-for-prediction)
;;; ¥Ú¡¼¥¸¤´¤È¤ÎÊä´°/ͽ¬ÆþÎϤθõÊäɽ¼¨¿ô(½Ï¸ì¥¬¥¤¥Éʬ¤â´Þ¤à)
- (prediction-page-limit
+ (list 'prediction-page-limit
(+ tutcode-nr-candidate-max-for-prediction
tutcode-nr-candidate-max-for-guide))
;;; Éô¼ó¹çÀ®ÊÑ´¹¤Îͽ¬¸õÊä
- (prediction-bushu ())
+ (list 'prediction-bushu ())
;;; Éô¼ó¹çÀ®ÊÑ´¹¤Îͽ¬¸õÊä¤Î¸½ºß¤Îɽ¼¨¥Ú¡¼¥¸¤ÎºÇ½é¤Î¥¤¥ó¥Ç¥Ã¥¯¥¹ÈÖ¹æ
- (prediction-bushu-page-start 0)
+ (list 'prediction-bushu-page-start 0)
;;; ½Ï¸ì¥¬¥¤¥É¡£Êä´°/ͽ¬ÆþÎÏ»þ¤Îɽ¼¨ÍÑ¡£
;;; ͽ¬¤µ¤ì¤ë¼¡¤ÎÆþÎÏ´Á»ú¤ÎÂè1ÂǸ°¤ÈÆþÎÏ´Á»ú¤ÎÂбþ¤Î¥ê¥¹¥È¡£
;;; Îã: (("," "ÀÐ") ("u" "²°" "ÃÓ"))
- (guide ())
+ (list 'guide ())
;;; ½Ï¸ì¥¬¥¤¥ÉºîÀ®¸µ¥Ç¡¼¥¿¡£²¾ÁÛ¸°È×(stroke-help)¤Ø¤Î¥¬¥¤¥Éɽ¼¨ÍÑ¡£
;;; ʸ»ú¤È¥¹¥È¥í¡¼¥¯¤Î¥ê¥¹¥È(rk-lib-find-partial-seqsÍÑ·Á¼°)¡£
;;; Îã: (((("," "r"))("ÀÐ")) ((("u" "c"))("²°")) ((("u" "v"))("ÃÓ")))
- (guide-chars ())
+ (list 'guide-chars ())
)))
(define-record 'tutcode-context tutcode-context-rec-spec)
(define tutcode-context-new-internal tutcode-context-new)
