sekka.el in sekka-1.5.2

- old
+ new

@@ -1,10 +1,10 @@
 ;; -*- coding: utf-8 -*-
 ;;
 ;; "sekka.el" is a client for Sekka server
 ;;
-;;   Copyright (C) 2010,2011 Kiyoka Nishiyama
+;;   Copyright (C) 2010-2014 Kiyoka Nishiyama
 ;;   This program was derived from sumibi.el and yc.el-4.0.13(auther: knak)
 ;;
 ;;
 ;; This file is part of Sekka
 ;;
@@ -75,11 +75,11 @@
 (defcustom sekka-realtime-guide-running-seconds 30
   "リアルタイムガイド表示の継続時間(秒数)・ゼロでガイド表示機能が無効になる"
   :type  'integer
   :group 'sekka)
 
-(defcustom sekka-realtime-guide-limit-lines 3
+(defcustom sekka-realtime-guide-limit-lines 2
   "最後に変換した行から N 行離れたらリアルタイムガイド表示が止まる"
   :type  'integer
   :group 'sekka)
 
 (defcustom sekka-realtime-guide-interval  0.2
@@ -669,11 +669,13 @@
 (eval-and-compile
   (if (>= emacs-major-version 20)
       (defun sekka-char-charset (ch)
 	(let ((result (char-charset ch)))
 	  (sekka-debug-print (format "sekka-char-charset:1(%s) => %s\n" ch result))
-	  result))
+	  (if (multibyte-string-p (char-to-string ch)) 
+	      'japanese-jisx0208
+	    result)))
     (defun sekka-char-charset (ch)
       (sekka-debug-print (format "sekka-char-charset:2(%s) => %s\n" ch (char-category)))
       (cond ((equal (char-category ch) "a") 'ascii)
 	    ((equal (char-category ch) "k") 'katakana-jisx0201)
 	    ((string-match "[SAHK]j" (char-category ch)) 'japanese-jisx0208)
@@ -1646,10 +1648,10 @@
 ;; input-method として登録する。
 (set-language-info "Japanese" 'input-method "japanese-sekka")
 (setq default-input-method "japanese-sekka")
 
 (defconst sekka-version
-  "1.5.1" ;;SEKKA-VERSION
+  "1.5.2" ;;SEKKA-VERSION
   )
 (defun sekka-version (&optional arg)
   "入力モード変更"
   (interactive "P")
   (message sekka-version))