Source

skk / skk-foreword.el

Diff from to

skk-foreword.el

    ((eq skk-emacs-type 'mule3)
     (length (string-to-vector str)) )
    ((eq skk-emacs-type 'mule2)
-    (length (string-to-char-list str)) )))
+    (length (string-to-list str)) )))
 
 (defsubst skk-substring (str pos1 pos2)
   (static-cond
 	(setq pos2 (+ (skk-str-length str) pos2)) )
     (if (>= pos1 pos2)
 	""
-      (let ((sl (nthcdr pos1 (string-to-char-list str))))
+      (let ((sl (nthcdr pos1 (string-to-list str))))
 	(setcdr (nthcdr (- pos2 pos1 1) sl) nil)
 	(concat sl) )))
    ((eq skk-emacs-type 'mule2)
 	(setq pos2 (+ (skk-str-length str) pos2)) )
     (if (>= pos1 pos2)
 	""
-      (let ((sl (nthcdr pos1 (string-to-char-list str))))
+      (let ((sl (nthcdr pos1 (string-to-list str))))
 	(setcdr (nthcdr (- pos2 pos1 1) sl) nil)
 	(mapconcat 'char-to-string sl "") )))))
 
    ((eq skk-emacs-type 'mule3)
     (aref (string-to-vector str) pos ) )
    ((eq skk-emacs-type 'mule2)
-    (nth pos (string-to-char-list str)) )))
+    (nth pos (string-to-list str)) )))
 
 (defsubst skk-jisx0208-p (char)
   (static-cond