Use binary instead of no-conversion.

[elisp/tamago.git] / its.el

diff --git a/its.el b/its.el
index d651451..e2528c1 100644 (file)
--- a/its.el
+++ b/its.el
@@ -93,7 +93,7 @@
 (make-variable-buffer-local 'its-previous-select-func)
 (put 'its-previous-select-func 'permanent-local t)
 
-(defvar its-current-language)
+(defvar its-current-language nil)
 (make-variable-buffer-local 'its-current-language)
 (put 'its-current-language 'permanent-local t)
 \f
@@ -130,7 +130,7 @@
 ;; <key-state-table> ::= ( <key-state-alist> . <expr-output-back-list> )
 ;; <key-state-alist> ::= ( <key-state> ... )
 ;; <key-state> ::= ( <key> . <state> )
-;; <key> ::= Positive INTEGER which specifies KEY STROKE
+;; <key> ::= CHARACTER which specifies KEY STROKE
 ;;        |  -1 ; means END of key stroke
 ;;
 ;; Only applicable for last transition.
@@ -213,7 +213,7 @@
           l)
          ((numberp l)                  ; VSYL
           (car syl))
-         ((numberp (cdr l))
+         ((egg-characterp (cdr l))
           (substring (car l) 0 (cdr l)))
          (t
           (car l)))))
@@ -267,8 +267,8 @@
     (define-key map "\M-y" 'its-yank-pop)
     (define-key map [backspace] 'its-delete-backward-SYL)
     (define-key map [delete] 'its-delete-backward-SYL)
-    (define-key map [M-backspace] 'its-delete-backward-SYL-by-keystroke)
-    (define-key map [M-delete] 'its-delete-backward-SYL-by-keystroke)
+    (define-key map [(meta backspace)] 'its-delete-backward-SYL-by-keystroke)
+    (define-key map [(meta delete)] 'its-delete-backward-SYL-by-keystroke)
     (define-key map [right] 'its-forward-SYL)
     (define-key map [left] 'its-backward-SYL)
     (while (< i 127)
@@ -314,6 +314,7 @@
     (let ((p (point))
          (str (copy-sequence "!")))
       (set-text-properties 0 1 (list 'read-only          t
+                                    'start-open         t
                                     'invisible          t
                                     'intangible         'its-part-2
                                     'its-cursor         cursor