Author: deton.kih
Date: Sat Jun 23 05:49:16 2007
New Revision: 4608
Modified:
trunk/scm/tutcode.scm
Log:
* scm/tutcode.scm
- (tutcode-rule-set-sequences!, tutcode-rule-commit-sequences!):
Removed codes to change a part of tutcode-rule.
Instead, only prepend new sequences to tutcode-rule. (for smaller code size)
Modified: trunk/scm/tutcode.scm
==============================================================================
--- trunk/scm/tutcode.scm (original)
+++ trunk/scm/tutcode.scm Sat Jun 23 05:49:16 2007
@@ -961,6 +961,11 @@
;;; ������ɽ�ΰ������������������ѹ�/�ɲä��롣~/.uim�����λ��Ѥ����ꡣ
;;; �ƤӽФ����ˤ�tutcode-rule-userconfig����Ͽ���Ƥ��������ǡ�
;;; �ºݤ˥�����ɽ��ȿ�Ǥ����Τϡ�tutcode-context-new����
+;;;
+;;; (tutcode-rule-filename�����꤬��uim-pref��~/.uim�Τɤ����ǹԤ��줿�����Ǥ�
+;;; ~/.uim�ǤΥ�����ɽ�ΰ����ѹ���Ʊ�����ҤǤǤ����褦�ˤ��뤿�ᡣ
+;;; ������ɽ�����ɸ���hook���Ѱդ���������������)��
+;;;
;;; �ƤӽФ���:
;;; (tutcode-rule-set-sequences!
;;; '(((("d" "l" "u")) ("��" "��"))
@@ -968,32 +973,11 @@
;;; @param rules ���������������Ϥ�����ʸ���Υꥹ��
(define (tutcode-rule-set-sequences! rules)
(set! tutcode-rule-userconfig
- (append tutcode-rule-userconfig rules)))
+ (append rules tutcode-rule-userconfig)))
;;; ������ɽ�ξ������ѹ�/�ɲäΤ�����tutcode-rule-userconfig��
;;; ������ɽ��ȿ�Ǥ��롣
(define (tutcode-rule-commit-sequences! rules)
- (let* ((newseqs ()) ;�����ɲä��륭������������
- ;; ������ɽ���λ��ꥷ���������Ϥ�����ʸ�����ѹ����롣
- ;; seq ��������������
- ;; kanji ���Ϥ�����ʸ����car���Ҥ餬�ʥ⡼���ѡ�cadr���������ʥ⡼����
- (setseq1!
- (lambda (elem)
- (let* ((seq (caar elem))
- (kanji (cadr elem))
- (curseq (rk-lib-find-seq seq tutcode-rule))
- (pair (and curseq (cadr curseq))))
- (if (and pair (pair? pair))
- (begin
- (set-car! pair (car kanji))
- (if (not (null? (cdr kanji)))
- (if (< (length pair) 2)
- (set-cdr! pair (list (cadr kanji)))
- (set-car! (cdr pair) (cadr kanji)))))
- (begin
- ;; ������ɽ���˻��ꤵ�줿������������������̵��
- (set! newseqs (append newseqs (list elem)))))))))
- (for-each setseq1! rules)
- ;; �����ɲå���������
- (if (not (null? newseqs))
- (set! tutcode-rule (append tutcode-rule newseqs)))))
+ ;; ������ɽ�θ����ϥ��˥��˹Ԥ������Τǡ��ꥹ�Ȥ���Ƭ�������������Ǿ���OK
+ (if (not (null? rules))
+ (set! tutcode-rule (append rules tutcode-rule))))
